ch8 Web数据库.docVIP

实现一个网站的会员登录、会员数据修改和讨论区话题浏览功能。 ADOFunction.asp公用函数页 !--# INCLUDE file=ADOVBS.inc-- % Function GetSQLRecordset(StrSQL) Set Conn=Server.CreateObject(ADODB.Connection) Conn.Open Mydata Set GetSQLRecordset=Server.CreateObject(ADODB.Recordset) GetSQLRecordset.Open StrSQL,Conn,adOpenKeyset,adLockOptimistic,adCmdText End Function % LoginCheck.asp会员登录校验页 !-- #INCLUDE file=ADOFunction.asp-- % UserID=Trim(Request(ID)) 取用户键入的用户ID UserPassword= Trim(Request(Password)) 取用户键入的用户密码 If (Id= or Password=) Then Response.Redirect E6-24 Index.htm Response.End End IF Dim StrSQL, RS 根据用户键入的用户ID和Password检索数据库是否有该用户 StrSQL=SELECT * FROM users WHERE Id= UserId StrSQL= StrSQL AND Password= UserPassword Set RS=GetRecordset(StrSQL) If RS.EOF then Response.Write 用户名或密码错误 Response.End End If Response.Cookies(Id)=UserId Response.Cookies(Password)=UserPassword Response.Cookies(Passed)=Passed 设置校验通过的Cookie值 Response.RedirectBbsGroup.asp % UpdateUser.asp会员资料修改页 !-- #INCLUDE file=ADOFunction.asp-- body % 检查Cookies中的变量是否等于Passed If Not Request.Cookies(Passed)=Passed Then Response.Redirect E6-24 Index.htm Response.End End IF Dim Password,Name,Sex Dim Tel,Address,Email,Url,Comment 取得会员的表单数据 UserId=Request.Cookies(Id) UserPassword=Request.Cookies(Password) Name=UserId Sex=Request(Sex) Tel= Request(Tel) Address=Request(Address) Email=Request(Email) Comment=Request(Comment) Dim StrSQL, RS StrSQL=SELECT * FROM users WHERE Id= UserId StrSQL= StrSQL AND Password= UserPassword Set RS=GetSQLRecordset(StrSQL) 修改数据库中的会员数据 RS.AddNew RS.Update Array( Password,Id, Sex, Tel, Address, Email, Comment),_ Array(UserPassword,Name,Sex,Tel,Address,Email,Comment) RS.Close % Center %=Name% 您的资料已修改成功！ Center /body BbsGroup.asp讨论区话题列表及留言页 !--#INCLUDE FILE=ADOFunctions.asp-- % 显示留言子程序，将在以后的程序中调用 Sub ShowPage(RS,PageNo) Response.Write TABLE ALIGN =center width=90% RS.AbsolutePage=PageNo For i=1 To RS.PageSize Response.WriteTR BGCOLOR=LIGHTBLUE Response.WriteTD WIDTH=15%IMG SRC=img1.gif/TD