--#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
页面所涉及的数据库表信息
此页为用户修改个人档案信息，涉及到用户详细注册信息数据库表larchives
页面代码分析
<!--#include file="conn.asp"-->
<%
'叛断此用户是否已经入会
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">
<!--
function MM_openBrWindow(theURL,winName,features) { //v2.0
window.open(theURL,winName,features);
}
//-->
</script>
用户删除好友
Delhy.asp页面
此页为用户删除好友列表页面，删除成功后页面跳转到个人管理首页，因此没有页面示例。
页面中需要填写的html表单元素
此页面无需填写html
页面所涉及的数据库表信息
此页涉及到用户好友数据库表friend的操作
页面代码分析
<!--#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 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 含义相片文件
页面所涉
