ASP原创交友网设计(二)

ASP原创交友网设计(二) 表friend如图所示：

数据库链接说明：
conn.asp文件的数据库连接程序如下。
<%
dim conn,DBPath
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &server.mappath("data/data.mdb")&";"
%>
在conn.asp文件中的图片数据库连接程序如下.
<%

set conn=server.createobject(“data/picture.mdb”)
DBParh=server.mappath(“data/picture.mdb”)
Conn.open”driver={Microsoft acciss driver(*.mdb)};dbq=” &dbpath
%>
网友注册模块
网友注册模块包含以下子模块.
会员注册
reg.asp
regsubmit.asp
regok.asp
register.asp
ladd.sap
read.asp
用户登录验证
default.asp
login.asp
your.asp
各页面间的关系如图所示.

第四章各页面设计与代码
4.1用户注册页
该页面有三个表单元素
页面所涉及的数据库表信息
此面公向系统提交用户注册名称和密码,并没有涉及到数据库表的操作.
页面代码:
<%
if session(“user_id”)<>1 then
response.redirect”havereg.htm”
end if
%>
4.2用户注册不成功页regsubmit.asp
页面中需要填写HTML表单元素.
此页无需填写表单元素.
页面所涉及的数据库表信息
此页为系统验证用户注册名称和密码,涉及到用户数据库表USER_REG的操作.
页面代码分析
   
<%
   user_name     =left(request("user_name"),10)
   password      =left(request("password"),10)
if password="" then
   response.write "数据有错！"
   response.end
end if

Set rs_user = Server.CreateObject("ADODB.Recordset")
sql="select * from user_reg where user_name like '" & user_name & "'"
rs_user.open sql,conn,3,2
if rs_user.eof and rs_user.bof then
        rs_user.addnew
        rs_user("user_name")=user_name
        rs_user("password")=password
        rs_user("date")=date
        rs_user.update
        rs_user.movelast
        session("user_id")=rs_user("user_id")
        rs_user.close
        response.redirect "regok.asp"
        response.end
else
%>
3用户注册成功页
页面中需要用户填写的HTML表单元素
此页面为用户注册成功后显示的页面,页面中无需填写HTML表单.
页面所涉及的数据库表信息
此页没有涉及到数据库表的操作
4.4 用户填写个人信息页
页面所涉及的数据库表信息
此页为用户填写个人档案页面,并没有涉及到数据库表的操作.
页面代码分析

<%

dim rs_lar
dim sql
dim i
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
%>
4.5用户信息显示页read.asp
页面中需要用户填写的HTML表单元素
此页面为用户档案显示页面,页面中无需填写HTML表单元素.
页面所涉及的数据库表信息
此页涉及到用户详细注册信息数据库表larchives的操作.
页面代码分析