实验要求：

1.设计会员注册登录表单(最好把所有表单控件都测试一下)

2.获取表单提交的数据，并显示出来

3.配置iis，指向程序，进行测试(设置网站根目录，测试程序)

实验步骤：

1、新建一个动态站点，并进行测试，测试的代码为：

2、在站点的根目录下建立如下图所示的结构目录(红色标注)。

3、双击打开注册页面即register.html，并进行如下图所示的设计：

该表单的属性名字输入如下：

用户名的文本框：username

密码的文本框：pwd

重复密码的文本框：secpwd

真实姓名的文本框：truename

性别的单选框：sex(选定值分别设置为：男 、女)

Emai的文本框：email

QQ号码的文本框：qqnum

自我介绍的文本框：userdesc

4、打开代码视图，找到如图所示的地方，给action设置跳转页面。

5、打开access数据库建立一个webdb.mdb数据库,并建立一张和注册页面对应的数据表表名为Users，并把此数据库保存在站点的根目录下。结构如下图所示：

6、双击打开dbconn.asp页面，删除原有代码，并编写如图所示的代码：

红色标注的为数据库的路径，根据自己的网站进行修改。

Dim objConn,connStr

Set objConn = Server.CreateObject("ADODB.Connection")

connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="

& _

Server.MapPath ("/webdb.mdb")

objConn.Open connStr

%>

7、双击打开endconn.asp页面，删除原有代码，并编写如图所示的代码：

objRS.Close

objConn.Close

Set objRS = Nothing

Set objConn = Nothing

%>

7、双击打开register.asp页面，在

标签之间插入如下代码：

Dim UserName,Pwd,TrueName,Sex

Dim Email,QQNumber,UserDescription

Dim objRS,sqlStr,ErrMsg

UserName = Trim(Request("username"))

Pwd = Trim(Request("pwd"))

TrueName = Trim(Request("truename"))

Sex = Trim(Request("sex"))

Email = Trim(Request("email"))

QQNumber = Trim(Request("qqnum"))

UserDescription = Trim(Request("userdesc"))

Set objRS = Server.CreateObject("ADODB.RecordSet")

sqlStr = "SELECT * FROM users WHERE username LIKE ' "

& UserName &" ' "

objRS.Open sqlStr,objConn,1,3

If Not objRS.EOF Then

ErrMsg = "该用户名已被别人注册了，请换个用户名！"

Else

objRS.AddNew

objRS("username") = UserName

objRS("pwd") = Pwd

objRS("truename") = TrueName

objRS("sex") = Sex

If Email<>"" Then objRS("email") =

Email

If QQNumber<>"" Then

objRS("qqnumber") = QQNumber

If UserDescription<>"" Then

objRS("userdesc") = UserDescription

objRS("regtime") = Now()

objRS.Update

End If

%>

If IsEmpty(ErrMsg) Then

Response.Write("恭喜您注册成功！
")

Else

Response.Write(ErrMsg&"
")

End If

%>

---

width="900">

href="/users/login.html">返回登陆

注：红色为表单的名称，蓝色标注的为数据库的字段

预览结果：

8、双击打开登陆页面即：login.html，并进行页面设计如下图所示：

并设置表单的属性：

用户名的文本框:username

密码的文本框：pwd

设计完成后打开代码视图，修改action的值。

10、双击打开login.asp页面，在

标签之间插入如下代码：

dim username,pwd,logintimes,errmsg

dim objrs,sqlstr

username = trim(request("username"))

pwd = trim(request("pwd"))

if username = "" then errmsg = "您没有填写用户名，无法登录！"

if pwd = "" then errmsg = "您没有填写密码，无法登录！"

set objrs = server.createobject("ADODB.recordset")

sqlstr = "select pwd from users where username like'"

& username & "'"

objrs.open sqlstr,objconn,1,1

if objrs.eof then errmsg = "没有该注册用户！"

if objrs("pwd")<> pwd then errmsg

= "密码错误，登录失败！"

if isempty(errmsg)then response.redirect("/users/index.asp")

response.write(errmsg&"
")

%>

11、打开index.asp页面设计图下图所示：

12、双击打开userinfo.asp页面，在

标签之间插入如下代码：

dim user

dim objrs,sqlstr

sqlstr = "select*from users "

set objrs = server.createobject("ADODB.recordset")

objrs.open sqlstr,objconn,1,1

do while not objrs.eof

response.write("用户编号："&objrs("userid")&"
")

response.write("用户名："&objrs("username")&"
")

response.write("用户密码："&objrs("pwd")&"
")

response.write("真实姓名："&objrs("truename")&"
")

response.write("性别："&objrs("sex")&"
")

response.write("邮箱："&objrs("email")&"
")

response.write("qq号码："&objrs("qqnumber")&"
")

response.write("自我介绍："&objrs("userdesc")&"
")

response.write("注册时间："&objrs("regtime")&"

---

")

objrs.movenext

loop

%>

13、完成用户注册模块，保存并进行测试预览。

14、访问计数模块设计

15、打开webcnt.txt页面，删除原有代码，并写入：

注：里面的内容可进行修改，第一行为总访问数，第二行为日期，第三行为当日访问数。

16、双击打开webcnt.asp页面，删除原有代码，并录入如下代码：

Dim objFS, objFile, cntfile

Dim ttlcnt, tdycnt, lastvisitdate,

nowdate

nowdate = Date

cntfile =

Server.MapPath("/counters")&"\webcnt.txt"

Set objFS =

Server.CreateObject("Scripting.FileSystemObject")

Set objFile = objFS.OpenTextFile(cntfile,1,True,0)

If objFile.AtEndOfLine Then

ttlcnt = 1

tdycnt = 1

lastvisitdate = nowdate

Else

ttlcnt = CLng(objFile.ReadLine)

lastvisitdate = CDate(objFile.ReadLine)

tdycnt = CLng(objFile.ReadLine)

End

If

If Session("counted") <> True

Then

ttlcnt = ttlcnt + 1

If nowdate <> lastvisitdate Then

lastvisitdate = nowdate

tdycnt = 1

Else

tdycnt = tdycnt + 1

End If

Session("counted") = True

Set objFile = objFS.OpenTextFile(cntfile, 2)

objFile.WriteLine (ttlcnt)

objFile.WriteLine (lastvisitdate)

objFile.WriteLine (tdycnt)

End

If

Set

objFile = Nothing

Set objFS

= Nothing

Response.Write("您是本站第 "&ttlcnt&"

位访客")

Response.Write("本站今日共有

"&tdycnt&" 位访客")

%>