ASP原创交友网设计(四)

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

ASP原创交友网设计(四) --#include file="conn.asp"-->
<%
dim rs_lar,rs_word,rs_apply,rs_back,rs_friend,rs_user
dim sql
if isempty(session("user_id")) then
response.redirect "timeout.htm"
end if
if session("user_id")=1 then response.redirect "notreg.htm"
Set rs_lar = Server.CreateObject("ADODB.Recordset")
sql="select * from larchives where user_id =" & session("user_id")
rs_lar.open sql,conn,3,2
if rs_lar.eof and rs_lar.bof then
response.redirect "notregist.htm"

response.end
end if
Set rs_word = Server.CreateObject("ADODB.Recordset")
sql="select * from leaveword where for_id=" & session("user_id") & " order by id desc"
rs_word.open sql,conn,1,1
set rs_apply=server.createobject("adodb.recordset")
sql="select * from apply where for_id=" & session("user_id")
rs_apply.open sql,conn,3,2
set rs_back=server.createobject("adodb.recordset")
sql="select * from back where for_id=" & session("user_id")
rs_back.open sql,conn,3,2
set rs_friend=server.createobject("adodb.recordset")
sql="select * from friend where for_id=" & session("user_id")
rs_friend.open sql,conn,3,2
Set rs_user = Server.CreateObject("ADODB.Recordset")
sql="select * from user_reg where user_id=" & session("user_id")
rs_user.open sql,conn,3,2
%>
4.7 网友个人管理模块
资料管理
相片管理
交友请求回复管理
留言管理
资料管理子模块包含以下页面
edit.asp
dadd.asp

delhy.asp
相片管理子模块包含以下页面
sendphoto.asp
addpic.asp
delpic.asp
交友请求回复管理子模块包含以下页面
accept.asp
refse.asp
moveto.asp’
delqq.asp
留言管理子模块包含以下页面
leaveword.asp
delliuyan.asp
各页面间的关系如图所示

用户个人修改信息页
以下为用户修改档案所看到的页面：

页面所涉及的数据库表信息
此页为用户修改个人档案信息，涉及到用户详细注册信息数据库表larchives
页面代码分析

<%
'叛断此用户是否已经入会
if session("user_id")="" then
response.redirect "notreg.htm"
response.end
end if

Set rs_lar = Server.CreateObject("ADODB.Recordset")
sql="select * from larchives where user_id=" & session("user_id")
rs_lar.open sql,conn,3,2
if rs_lar.eof and rs_lar.bof then
response.redirect "notregist.htm"
response.end
end if
%>
<script language="java script">

</script>
用户删除好友
Delhy.asp页面
此页为用户删除好友列表页面，删除成功后页面跳转到个人管理首页，因此没有页面示例。
页面中需要填写的html表单元素
此页面无需填写html
页面所涉及的数据库表信息
此页涉及到用户好友数据库表friend的操作
页面代码分析

<%
if request("id") = "" then

response.redirect"default.asp"
response.end
end if
set rs_id = Server.CreateObject("ADODB.Recordset")
sql = "select * from friend where id=" & request("id")
rs_id.open sql,conn,3,2
rs_id.close
Set rs_del = Server.CreateObject("ADODB.Recordset")
sql="delete from friend where id=" & request("id")
rs_del.open sql,conn,3,2
conn.close
response.redirect"your.asp"
response.end
%>
用户管理相片页
Sendphoto.asp页面示例
图为用户相片管理页所看到的页面

页面中需要用户填写的html表单元素
该页面中仅有1个表单元素
big 元元素素类型为file 含义相片文件
页面所涉

首页上一页 1 2 3 4 5 6 7 下一页尾页 4/11/11

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