ASP原创交友网设计(七)

最新活动：微信集50个赞就可获取任意一篇钻石会员文档。详情见微信集赞换文档

ASP原创交友网设计(七) .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页面示例
图为交友请求回复结果的页面

页面中需要用户填写的html元素
无需填写
页面所涉及的数据库表信息
Back表的操作
代码分析


<%
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
代码分析


<%
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

首页上一页 4 5 6 7 8 9 10 下一页尾页 7/11/11

ASP原创交友网设计(七)由毕业论文网（www.huoyuandh.com）会员上传。