我们的核心程序已经写出来了，下面我给出所有的程序：
'从用户请求命令中得到用用户名和密码
user=request.querystring("user")
pwd=request.querystring("pwd")
'打开数据库并开始验证用户名和密码
set objconn=server.createobject("adodb.connection")
objconn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & SERVER.MapPath("count.mdb")
set rslogin=objconn.execute ("select * from tab where user='"&user&"' and pwd='"&pwd&"'")
if rslogin.eof then call error else call ok
'以下是验证密码部份
'密码错误
sub error
response.write("对不起，不存在此用户或您的密码不正确！")
'关闭连接
objconn.close
end sub
'密码正确
sub ok
'读取用户的记数值
count=rslogin("count")
'格式化数字为图形
countlen=len(count)
for i=1 to countlen
response.write "< IMG src="".gif>"
next
'把用户的记数值加一
count=count+1
'把新的记数值写入数据库中
objconn.execute "update tab set count='"&count&"'"
'关闭连接
objconn.close
end sub
好像写完了，是的，写完了！原来很神秘的东西怎么这么简单！是的，世界就是这么简单！
喔，差点忘了，我是不是应该讲一讲count.mdb这个数据库的结构呢？这个数据库包括一个表tab,这个表中只有三个字段，它们是user,pwd,count。其中user指的是用户名，pwd是用户密码，count是用户的记数值。
下面，可以试一下我们的劳动成果了。在tab表中建立一个记录，其中user=a,pwd=a,count=10
在我们的网址后面加上?user=a&pwd=a
例如：www.mysite.com\test.asp?user=a&pwd=a
怎么样，可以了吧！
|