基于ASP设计一个同城交友网站

3.4.1 edit.asp

1.页面中需要用户填写的html表单元素

该页面中共有18个需要用户填写的表单元素，如表3-7所示。

表3-7 edit.asp页的表单元素

2.页面所涉及的数据库表信息

此页为用户修改个人档案信息，涉及到用户详细注册信息数据库表larchives的操作。

3.页面代码分析

<!--#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

%>

<%

rs_lar.close

set rs_lar=nothing

set conn=nothing

%>

3.4.2 eadd.asp

1.页面中需要用户填写的html表单元素

页面中无需填写html表单元素。

2.页面所涉及的数据库表信息

此页涉及到用户详细注册信息数据库表larchives的操作。

3.页面代码分析

此页同3.4.5 ladd.asp代码非常类似，代码分析请见3.4.5 ladd.asp代码

3.4.3 delhy.asp

1.页面示例

此页为用户删除好友列表页面，删除成功后页面跳转到个人管理首页，因此没有页面示例。

2.页面中需要用户填写的html表单元素

此页面无需填写html表单元素。

3.页面所涉及的数据库表信息

此页涉及到用户好友数据库表friend的操作。

4.页面代码分析

<!--#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

%>

3.4.4 sendphoto.asp

1.页面中需要用户填写的html表单元素

该页面中仅有1个表单元素，如表3-5所示。

表3-8 sendphoto.asp页的表单元素

2.页面所涉及的数据库表信息

此页为用户管理相片页，涉及到对图片数据库表pic的操作。

3.页面代码分析

<!--#include file="conn.asp"--><%

dim rs_lar,rs

dim sql

dim i

''叛断此用户是否已经注册

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

    if session("user_id")=1 then response.redirect "notreg.htm"

    response.redirect "notregist.htm"

    response.end

end if

%><!--#include file="connpic.asp"--><%

Set rs = Server.CreateObject("ADODB.Recordset")

sql="select * from pic where user_id=" & session("user_id")

rs.open sql,conn,3,2

%>

3.4.5 addpic.asp

1.页面示例

此页为添加相片页面，相片添加成功后页面跳转到个人管理首页，因此没有页面示例。

2.页面中需要用户填写的html表单元素

此页无需填写html表单元素。

3.页面所涉及的数据库表信息

此页涉及到用户相片数据库表pic 的操作。

4.页面代码分析

<!--#include file="conn.asp"-->

<%

dim rs

dim formsize,formdata,bncrlf,divider,datastart,dataend,mydata

formsize=request.totalbytes

formdata=request.binaryread(formsize)

bncrlf=chrB(13) & chrB(10)

divider=leftB(formdata,clng(instrb(formdata,bncrlf))-1)

datastart=instrb(formdata,bncrlf & bncrlf)+4

dataend=instrb(datastart+1,formdata,divider)-datastart

mydata=midb(formdata,datastart,dataend)

Set rs = Server.CreateObject("ADODB.Recordset")

rs.open "select * from larchives where user_id=" & session("user_id"),conn,3,2

rs("photo")=rs("photo")+1

rs.update

%><!--#include file="connpic.asp"--><%

Set rs = Server.CreateObject("ADODB.Recordset")

rs.Open "pic",conn,3,2

rs.addnew

rs("big").appendchunk mydata

rs("user_id")=session("user_id")

rs("date")=date

rs.update

set rs=nothing

set conn=nothing

response.redirect "sendphoto.asp"

%>

3.4.6 delpic.asp

1.页面示例

此页为用户删除相片列表页面，删除成功后页面跳转到个人相片管理首页，因此没有页面示例。

2.页面中需要用户填写的html表单元素

此页无需填写html表单元素。

3.页面所涉及的数据库表信息

此页涉及到用户相片数据库表pic的操作。

4.页面代码分析

<%

if request("id") = "" then

response.redirect"default.asp"

response.end

end if

%>

<!--#include file="connpic.asp"-->

<%Set rs_id = Server.CreateObject("ADODB.Recordset")

sql = "select User_id,id from pic where id=" & request("id")

rs_id.open sql,conn,3,2

if session("admin_pass") <> "ok" then

   if session("user_id") <> rs_id("user_id") then

       response.write("您没有删除这个图片的权限！")

       response.end 

   end if

end if

user_id1=rs_id("user_id")

Set rs_del = Server.CreateObject("ADODB.Recordset")

sql="delete * from pic where id=" & request("id")

rs_del.open sql,conn,3,2

conn.close

%>

<!--#include file="conn.asp"-->

<%

Set rs = Server.CreateObject("ADODB.Recordset")

rs.open "select * from larchives where user_id=" & user_id1,conn,3,2

rs("photo")=rs("photo")-1

rs.update

conn.close

response.redirect"sendphoto.asp"

response.end

%>

3.4.7 accept.asp

1.页面中需要用户填写的html表单元素

此页无需填写html表单元素。

2.页面所涉及的数据库表信息

此页涉及到交友请求数据库表apply、交友请求回复数据库表back和好友数据库表friend的操作。

3.页面代码分析

<!--#include file="conn.asp"-->

<%

dim id,rs_friend,sql

id=request("id")

user_id=request("user_id")

set rs_apply=server.createobject("adodb.recordset")

sql="delete  from apply where id =" & id

rs_apply.open sql,conn,3,2

set rs_lar=server.createobject("adodb.recordset")

sql="select * from larchives where user_id=" & session("user_id")

rs_lar.open sql,conn,3,2

set rs_back=server.createobject("adodb.recordset")

rs_back.open "select * from back",conn,3,2

rs_back.addnew

rs_back("user_id")=session("user_id")

rs_back("for_id")=user_id

rs_back("name")=rs_lar("name")

rs_back("sex")=rs_lar("sex")

rs_back("netname")=rs_lar("netname")

rs_back("home")=rs_lar("home")

rs_back("result")="已接受"

rs_back("back_date")=date

rs_back.update

set rs_lar=server.createobject("adodb.recordset")

sql="select * from larchives where user_id=" & user_id

rs_lar.open sql,conn,3,2

set rs_friend=server.createobject("adodb.recordset")

rs_friend.open "friend",conn,3,2

rs_friend.addnew

rs_friend("for_id")=session("user_id")

rs_friend("user_id")=user_id

rs_friend("netname")=rs_lar("netname")

rs_friend("sex")=rs_lar("sex")

rs_friend("home")=rs_lar("home")

rs_friend.update

rs_back.close

rs_lar.close

response.redirect "your.asp"

%>

3.4.8 refuse.asp

1.页面中需要用户填写的html表单元素

此页无需填写html表单元素。

2.页面所涉及的数据库表信息

此页涉及到交友请求数据库表apply、交友请求回复数据库表back和好友数据库表friend的操作。

3.页面代码分析

<!--#include file="conn.asp"-->

<%

id=request("id")

user_id=request("user_id")

set rs_apply=server.createobject("adodb.recordset")

sql="delete  from apply where id like ''" & id & "''"

rs_apply.open sql,conn,3,2

set rs_lar=server.createobject("adodb.recordset")

sql="select * from larchives where user_id like ''" & session("user_id") & "''"

rs_lar.open sql,conn,3,2

set rs_back=server.createobject("adodb.recordset")

rs_back.open "select * from back",conn,3,2

rs_back.addnew

rs_back("user_id")=session("user_id")

rs_back("for_id")=user_id

rs_back("name")=rs_lar("name")

rs_back("sex")=rs_lar("sex")

rs_back("netname")=rs_lar("netname")

rs_back("result")="已拒绝"

rs_back("home")=rs_lar("home")

rs_back("back_date")=date

rs_back.update

rs_back.close

rs_lar.close

response.redirect "your.asp"

%>

本文选自计算机毕业设计http://myeducs.cn
论文文章部分只是部分简介，如需了解更多详情请咨询本站客服！QQ3710167