评价网 > 科教论文 > 工学毕业论文 > 计算机论文 > 正文

ASP交友系统设计(一)毕业论文网(5)

2013-05-30 01:39 ;网名 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.页面所涉及的数据表信息：
 此页面为用户填写个人信息。
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的操作。

（转载自http://zw.ＮＳＥaＣ.com科教作文网）

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