4 系统详细设计与实现 4.1数据库访问的实现 4.1.1 WEB数据库连接代码 本系统采用SQL Server 2000 作为后台数据库服务器，通过系统DSN实现WEB访问操作。数据库连接代码如下： <% Set conn = Server.CreateObject ("ADODB.Connection") DSN="DRIVER={SQL Server};SERVER=anywa;UID=sa;PWD=111;DATABASE=mydb" conn.open DSN %> 这段代码主要是利用ASP的Server对象实现和数据库服务器“anyway”的连接，其中“UID=sa”表示登陆名为“sa”,“PWD=111”表示登陆密码为“111” 4.2 登陆模块代码实现

4.2.1 会员登陆实现

会员登陆主要是通过表单提交账号密码给验证网页处理，验证网页在收到信息后将收到的账号密码和数据库里会员的账号密码进行对比。若密码错误则返回到登陆界面要求重新输入账号密码知道正确，若正确则通过验证并赋值给“session(user)”变量，跳转到会员管理页面；以后的会员管理页面都通过变量来检验该用户是否为合法会员用户。 <form name="form1" method="post" action="check. asp"> <Label><input name="user" type="text" id="user"></label> <p> <Label><input name="pwd" type="password" id="pwd"></label> </p> <p> <label><input type="submit" name="Submit" value="提交"></label> <label><input type="reset" name="Submit2" value="重置"></label> </p> </form> 上面这段是表单代码，主要实现账号密码的提交，密码的验证需要如下代码来实现： <!--#include file="conn.asp"--> <% if request. Form ("user") ="" then Response. Write"<script language=JavaScript>alert('请核对账号密码');history.back (-1) ;< /script>" response.End () End if If request. Form ("pwd") ="" then Response. Write"<script language=JavaScript>alert('请核对账号密码');history.back (-1) ;< /script>" response.End () End if user=trim(request.Form("user")) pass=trim(request.Form("pwd")) set rs=conn.execute("select * from users where 房东名字='"&user&"' and 密码='"&pass&"'") if rs.eof then response.Write"<script> alert('请核对你的账号密码');history.back(-1) ;< /script>" response.End() else Session ("user") =user response.Redirect"edit.asp" End if rs.close Set rs=nothing conn.close Set conn=nothing %>

管理员的登陆与上述代码类似。