如何用数据库制作一个多用户版的计数器？_编程10000问_

count.asp

' 计数器的核心程序.

<%
Set conn = Server.CreateObject("ADODB.Connection")
dbpath=server.MapPath("count.mdb")
conn.open "driver={Microsoft Access Driver (*.mdb)};dbq="&DbPath
user=Request.QueryString("user")

sql="update counttable set curvalue=curvalue+1 where user='"&user&"'"

' 计数值加1.
conn.Execute sql
sql="select curvalue from counttable where user='"&user&"'"
set rs=conn.Execute(sql)

function chgimg(curvalue)
dim s,i,g
s=cstr(curvalue)
for i=1 to len(s)

' 定义chgimg函数,将计数值用图形表示.

g=g & ""

' 在正式使用计数器时,图片的路径要用实际路径.

next
chgimg=g
end function

toimg=chgimg(rs("curvalue"))
toimg="document.write(" & "'" & toimg & "')"

' 调用chgimg函数传入计数器值.

Response.Write(toimg)

' 输出.
rs.close
set rs=nothing
conn.Close
set conn=nothing
%>

get.htm

' 申请表单.

getcl.asp

' 处理用户的输入的表单,并加入数据库.
<%
Set conn = Server.CreateObject("ADODB.Connection")

' 建立与数据库的连接.
dbpath=server.MapPath("count.mdb")

' 取得数据库的实际路径.
conn.open "driver={Microsoft Access Driver (*.mdb)};dbq="&DbPath
set rs=server.CreateObject("adodb.recordset")

user=Request.Form("user")
pageurl=Request.Form("pageurl")
curvalue=Request.Form("curvalue")

' 取得用户信息.

sql="select * from counttable where user='"&user&"'"

' 检查用户名是否存在.
rs.Open sql,conn,1,3
if not rs.EOF then
Response.Write""
Response.Write"噢,用户名已经存在!请重新选择..."

Response.End

' 停止向下处理,提示： 本文由神整理自网络，如有侵权请联系本站删除！
本站声明：
1、本站所有资源均来源于互联网，不保证100%完整、不提供任何技术支持；
2、本站所发布的文章以及附件仅限用于学习和研究目的;不得将用于商业或者非法用途；否则由此产生的法律后果，本站概不负责！