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
各页面间的关系如图
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
