response.write("您没有删除这个图片的权限！")
response.end
end if
end if
user_id1=rs_id("user_id")
Set rs_del = Server.CreateObject("ADODB.Recordset")
sql="delete * from pic where id=" & request("id")
rs_del.open sql,conn,3,2
conn.close
%>
<!--#include file="conn.asp"-->
<%
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open "select * from larchives where user_id=" & user_id1,conn,3,2
rs("photo")=rs("photo")-1
rs.update
conn.close
response.redirect"sendphoto.asp"
response.end
%>
用户管理交友请求页
Accept.asp页面示例
图为其他网友提出请求页面，
页面需要用户填写的html
没有
页面所涉及的数据库表信息
此页涉及到的表apply，back,friend
页面代码分析
<!--#include file="conn.asp"-->
<%
dim id,rs_friend,sql
id=request("id")
user_id=request("user_id")
set rs_apply=server.createobject("adodb.recordset")
sql="delete from apply where id =" & id
rs_apply.open sql,conn,3,2
set rs_lar=server.createobject("adodb.recordset")
sql="select * from larchives where user_id=" & session("user_id")
rs_lar.open sql,conn,3,2
set rs_back=server.createobject("adodb.recordset")
rs_back.open "select * from back",conn,3,2
rs_back.addnew
rs_back("user_id")=session("user_id")
rs_back("for_id")=user_id
rs_back("name")=rs_lar("name")
rs_back("sex")=rs_lar("sex")
rs_back("netname")=rs_lar("netname")
rs_back("home")=rs_lar("home")
rs_back("result")="已接受"
rs_back("back_date")=date
rs_back.update
set rs_lar=server.createobject("adodb.recordset")
sql="select * from larchives where user_id=" & user_id
rs_lar.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")=user_id
rs_friend("netname")=rs_lar("netname")
rs_friend("sex")=rs_lar("sex")
rs_friend("home")=rs_lar("home")
rs_friend.update
rs_back.close
rs_lar.close
response.redirect "your.asp"
%>
用户拒绝交友请求页
Refuse.asp页面示例
图为其他网友提出请求的页面
用户将网友移入好友页
页面代码
<!--#include file="conn.asp"-->
<%
id=request("id")
user_id=request("user_id")
set rs_apply=server.createobject("adodb.recordset")
sql="delete from apply where id like '" & id & "'"
rs_apply.open sql,conn,3,2
set rs_lar=server.createobject("adodb.recordset")
sql="select * from larchives where user_id like '" & session("user_id") & "'"
rs_lar.open sql,conn,3,2
set rs_back=server.createobject("adodb.recordset")
rs_back.open "select * from back",conn,3,2
rs_back.addnew
rs_back("user_id")=session("user_id")
rs_back("for_id")=user_id
rs_back("name")=rs_lar("name")
rs_back("sex")=rs_lar("sex")
rs_back("netname")=rs_lar("netname")
rs_back("result")="已拒绝"
rs_back("home")=rs_lar("home")
rs_back("back_date")=date
rs_back.update
rs_back.close
rs_lar.close
response.redirect "your.asp"
%>
Moveto.asp页面示例
图为交友请求回复结果的页面
页面中需要用户填写的html
无需填写
页面中所涉及的数据库表信息
对back,friend表的操作
页面代码分析
<!--#include file="conn.asp"-->
<%
id=request("id")
set rs_back=server.createobject("adodb
首页 上一页 3 4 5 6 7 8 9 下一页 尾页 6/11/11
ASP原创交友网设计(六)由毕业论文网（www.huoyuandh.com）会员上传。
