源码网,源码论坛,源码之家,商业源码,游戏源码下载,discuz插件,棋牌源码下载,精品源码论坛

 找回密码
 立即注册
查看: 887|回复: 30

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

[复制链接]

7万

主题

861

回帖

32万

积分

论坛元老

Rank: 8Rank: 8

积分
329525
发表于 2006-11-16 00:00:00 | 显示全部楼层 |阅读模式

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]

回复

使用道具 举报

0

主题

2万

回帖

0

积分

中级会员

Rank: 3Rank: 3

积分
0
发表于 2022-9-6 06:37:58 | 显示全部楼层
天天源码社区。。。。
回复 支持 反对

使用道具 举报

6

主题

2万

回帖

425

积分

中级会员

Rank: 3Rank: 3

积分
425
发表于 2022-9-12 22:53:33 | 显示全部楼层
呵呵呵呵呵呵呵a
回复 支持 反对

使用道具 举报

0

主题

1万

回帖

0

积分

中级会员

Rank: 3Rank: 3

积分
0
发表于 2022-9-14 00:10:54 | 显示全部楼层
你们谁看了弄洒了可能
回复 支持 反对

使用道具 举报

0

主题

2万

回帖

0

积分

中级会员

Rank: 3Rank: 3

积分
0
发表于 2022-10-28 05:39:45 | 显示全部楼层
刷屏刷屏刷屏
回复 支持 反对

使用道具 举报

2

主题

2万

回帖

99

积分

注册会员

Rank: 2

积分
99
发表于 2022-11-20 05:52:49 | 显示全部楼层
你们谁看了弄洒了可能
回复 支持 反对

使用道具 举报

4

主题

2万

回帖

58

积分

注册会员

Rank: 2

积分
58
发表于 2022-11-25 08:17:46 | 显示全部楼层
大家都不容易!
回复 支持 反对

使用道具 举报

0

主题

2万

回帖

124

积分

注册会员

Rank: 2

积分
124
发表于 2023-3-5 05:22:51 | 显示全部楼层
额UI废物iuhfujewfiewnnfen
回复 支持 反对

使用道具 举报

0

主题

2万

回帖

0

积分

中级会员

Rank: 3Rank: 3

积分
0
发表于 2023-5-15 11:41:17 | 显示全部楼层
人都不在了啊 啊
回复 支持 反对

使用道具 举报

4

主题

2万

回帖

107

积分

注册会员

Rank: 2

积分
107
发表于 2023-6-1 10:22:20 | 显示全部楼层
额UI废物iuhfujewfiewnnfen
回复 支持 反对

使用道具 举报

高级模式
B Color Image Link Quote Code Smilies

本版积分规则

手机版|小黑屋|网站地图|源码论坛 ( 海外版 )

GMT+8, 2024-11-11 04:48 , Processed in 0.082775 second(s), 26 queries .

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表