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.页面所涉及的数据表信息：
此页面为用户填写个人信息。
c.页面代码分析：
<!--#include file="conn.asp"-->
<%
dim rs_lar
dim sql
dim i
'叛断Session变量是否超时
if isnull(session("user_id")) then
response.redirect "timeout.htm"
end if
'叛断此用户是否已经入会
if session("user_id")="1" 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 not(rs_lar.eof and rs_lar.bof) then
response.redirect "haveregist.htm"
response.end
end if
rs_lar.close
set rs_lar=nothing
set conn=nothing
%>
5.用户信息显示页：
read.asp页面示例
a.页面中需要用户填写的HTML表单元素有：
此页面无需填写HTML表单元素。
b.页面所涉及的数据表信息：
此页面仅向系统提供用户详细的注册信息，用到了数据表 larchives的操作。
c.页面代码分析：
<!--#include file="conn.asp"-->
<%
'叛断Session变量是否超时
if isempty(session("user_id")) or session("user_id")="" then
response.redirect "timeout.htm"
end if
user_id=request("user_id")
Set rs_lar = Server.CreateObject("ADODB.Recordset")
sql="select * from larchives where user_id=" & user_id
rs_lar.open sql,conn,3,2
Set connpic = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("data/picture.mdb")
connpic.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
Set rspic = Server.CreateObject("ADODB.Recordset")
sql="select * from pic where user_id=" & user_id
rspic.open sql,connpic,1,1
set rs_apply=server.createobject("adodb.recordset")
sql="select * from apply where for_id=" & user_id & " and user_id=" & session("user_id")
rs_apply.open sql,conn,1,1
if not(rs_apply.eof and rs_apply.bof) then
willstr=rs_lar("netname") & "已向您发出交友请求"
end if
rs_apply.close
set rs_apply=nothing
set rs_friend=server.createobject("adodb.recordset")
sql="select * from friend where (for_id=" & session("user_id") & " and user_id=" & user_id & ") or (for_id=" & user_id & " and user_id=" & session("user_id") & ")"
rs_friend.open sql,conn,1,1
if not(rs_friend.eof and rs_friend.bof) then
willstr=rs_lar("netname") & "是您的好友"
end if
rs_friend.close
set rs_friend=nothing
set rs_apply=server.createobject("adodb.recordset")
sql="select * from apply where user_id =" & session("user_id") & " and for_id=" & user_id
rs_apply.open sql,conn,1,1
if not(rs_apply.eof and rs_apply.bof) then
willstr="您已向“" & rs_lar("netname") & "”发出交友请求，请静候佳音！"
end if
rs_apply.close
set rs_apply=nothing
if rspic.eof and rspic.bof then
picid=1
cur=1
首页 上一页 2 3 4 5 6 7 8 下一页 尾页 5/8/8
ASP交友系统设计(五)由毕业论文网（www.huoyuandh.com）会员上传。
