.recordset")
sql="select * from back where id like '" & id & "'"
rs_back.open sql,conn,3,2
set rs_friend=server.createobject("adodb.recordset")
rs_friend.open "friend",conn,3,2
rs_friend.addnew
rs_friend("for_id")=session("user_id")
rs_friend("user_id")=rs_back("user_id")
rs_friend("netname")=rs_back("netname")
rs_friend("sex")=rs_back("sex")
rs_friend("home")=rs_back("home")
rs_friend.update
set rs_back=server.createobject("adodb.recordset")
sql="delete from back where id like '" & id & "'"
rs_back.open sql,conn,3,2
rs_friend.close
response.redirect "your.asp"
%>
用户删除交友请求回复页
Delqq.asp页面示例
图为交友请求回复结果的页面
<%
if request("id") = "" then
response.redirect"default.asp"
response.end
end if
set rs_id = Server.CreateObject("ADODB.Recordset")
sql = "select * from back 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
Set rs_del = Server.CreateObject("ADODB.Recordset")
sql="delete from back where id=" & request("id")
rs_del.open sql,conn,3,2
conn.close
response.redirect"your.asp"
response.end
%>
用户给网友回复页
leaveword.asp页面示例
图为用户给网友留言回复时所看到的页面
页面中需要用户填写的html表单元素
一个元素如图所示
页面所涉及的数据库表信息
此页面为用户给网友的留言回复，涉及到的数据库表leaveword
代码分析
<!--#include file="articleCHAR.INC"-->
<!--#include file="conn.asp"-->
<%
On Error Resume Next
dim JMail,body
dim rs_apply,rs_lar,rs_email,rs_word
dim user_id,netname,sql,Email,myEmail,myname,word,errst
'叛断Session变量是否超时
if isempty(session("user_id")) then
response.redirect "timeout.htm"
end if
if session("user_id")=1 then
response.redirect "notreg.htm"
response.end
end if
user_id=request("user_id")
netname=request("netname")
Set rs_lar = Server.CreateObject("ADODB.Recordset")
sql="select * from larchives where user_id =" & session("user_id")
rs_lar.open sql,conn,3,2
netname =rs_lar("netname")
word =htmlencode2(request("word"))
user_id =request("user_id")
if word<>"" then
if len(word)>1000 or word="" then
%>
<%
response.end
end if
Set rs_word = Server.CreateObject("ADODB.Recordset")
rs_word.open "leaveword",conn,3,2
rs_word.addnew
rs_word("netname")=netname
rs_word("word")=word
rs_word("date")=date
rs_word("for_id")=user_id
rs_word("user_id")=session("user_id")
rs_word.update
rs_word.close
set rs_word=nothing
response.write "&l
