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.2.2 网友个人管理模块
网友个人管理模块包括以下子模块：
资料管理
相片管理
交友请求回复
留言管理
资料管理模块包括以下子页面：
Edit.asp
Eadd.asp
Delhy.asp
相片管理模块包括以下子页面：
sendphoto.asp
addpic.asp
delpic.asp
交友请求回复管理页
accept.asp
refuse.asp
delqq.asp
管理子模块包含以下页面
leaveword.asp
delliuyan.asp
1.用修改写个人信息页
edit.asp页面示例
a.页面中需要用户填写的HTML表单元素有：
名称 表单元素类型 含义 最大长度
name Text 真实姓名 10
Home Text 籍贯 10
company Text 所在单位 50
Postalcode Text 邮编 6
Tel Text 联系电话 20
Fresume Text 简历 200
Netname Text 网名 10
Homepage Text 主页 50
Email Text 邮箱 50
Chartroom Text 常进的聊天室 50
Sport Text 喜欢的运动 30
Book Text 喜欢的书 50
People Text 喜欢的人 30
Interest Text 爱好 50
Music Text 喜欢的音乐 50
Adage Text 人生格言 50
Character Text 性格简介 50
b.页面所涉及的数据表信息：
此页面为用户填写个人信息。用到的数据表信息有larchives的操作
c.页面代码分析：
<!--#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
%>
2.保存修改的个人信息页
eadd.asp页面示例
该页面为用户提交个人档案后所看到的页面
a.页面中需要用户填写的HTML表单元素有：
此页面无需填写HTML表单元素。
b.页面所涉及的数据表信息：
本页面用到了详细用户注册信息表larchives的操作。
c.页面代码分析：
代码与用户提交个人详细信息代码十分相似。详情请参照以上代码。
2.用户删除好友页
delhy.asp页面示例
该页面为用户删除好友页，删除成功后直接跳转到个人管理首页，因此没有页面显示。
面中需要用户填写的HTML表单元素有：
本页面无需填写HTML表单元素。
页面代码分析：
<!--#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="