当前位置： 移动技术网 > IT编程>开发语言>其他编程 > 如何用数据库制作一个多用户版的计数器？

如何用数据库制作一个多用户版的计数器？

2017年12月08日  | 移动技术网IT编程  | 我要评论

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 & "<img src=1/" & mid(s,i,1) & ".gif align=bottom>"

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

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

' 申请表单.
<form method="post" action="getcl.asp">
<p>用户名<input type="text" name="user" size="20"></p>
<p>计数器初始值<input type="text" name="curvalue" size="20"></p>
<p>主页地址<input type="text" name="pageurl" size="20"></p>
<p><input type="submit" value="提交" name="b1"><input type="reset" value="重写" name="b2"></p>
</form>

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"<title>申请出错</title>"
response.write"噢,用户名已经存在!请重新选择...</title>"

response.end

' 停止向下处理,要求用户重填.
end if

rs.addnew
rs("user")=user
rs("pageurl")=pageurl
rs("curvalue")=curvalue
rs.update

' 将用户信息加入数据库.
rs.close
set rs=nothing
conn.close
set conn=nothing
%>


[1]

您可能感兴趣的文章:

如对本文有疑问， 点击进行留言回复！！

相关文章:

验证码：
最近更新的文章
大家感兴趣的文章
移动技术网