response.write "history.go(-2);"
response.write "</script>"
end if%>
用户删除网友留言页
Delliuyan.asp页面示例
此页为用户删除网友的留言页面，删除成功后页面到个人管理页
页面中需要的用户填写的html表单元素
页面所涉及的数据库表信息
此页涉及到用户对留言数据库表leaveword
代码分析
<!--#include file="conn.asp"-->
<%
if request("id") = "" then
response.redirect"default.asp"
response.end
end if
set rs_id = Server.CreateObject("ADODB.Recordset")
sql = "select * from leaveword where id=" & request("id")
rs_id.open sql,conn,3,2
if session("admin_pass") <> "ok" then
if session("user_id") <> rs_id("for_id") then
response.write("您没有删除权限！")
response.end
end if
end if
rs_id.close
Set rs_del = Server.CreateObject("ADODB.Recordset")
sql="delete from leaveword where id="&request("id")
rs_del.open sql,conn,3,2
conn.close
response.redirect "your.asp"
response.end
%>
网站管理模块
网站管理模块包含以下几个页面
Addminlogin.asp
Adminpass.asp
Admin.asp
Deluser.asp
各页面间的关系如图
管理员登录页
Adminlogin.asp页面示例
管理员登录页面效果如图
管理员页面效果如图所示，用户账号和密码均为admin
页面中需要用户填写html
两个，如图所示
名称 类型 含义 最大长度
admin_name text 用户登录账号 14
admin_password password 用户登录密码 14
页面所涉及的数据库
没有
管理员登录失败页
代码分析
<!--#include file="conn.asp"-->
<%
admin_name=request("admin_name")
admin_password=request("admin_password")
if InStr(LCase(admin_password),"'")<>0 or InStr(LCase(admin_password),"or")<>0 then
response.write "<script language='java script'>"
response.write "alert('密码不合法，请重新输入!');"
response.write "history.go(-1);"
response.write "</script>"
response.end
end if
Set rs_admin = Server.CreateObject("ADODB.Recordset")
sql="select * from admin where admin_name like '" & admin_name & "' and admin_password like '" & admin_password & "'"
rs_admin.open sql,conn,3,2
if rs_admin.eof and rs_admin.bof then
response.write "<script language='java script'>"
response.wr
首页 上一页 5 6 7 8 9 10 11 下一页 尾页 8/11/11
ASP原创交友网设计(八)由毕业论文网（www.huoyuandh.com）会员上传。
