有高手知道吗？
告诉我！
谢谢！

xdwok在上个贴子中说

引用:

---

用ASP，要代码吗，要的话，我给你

---

不是的！用UD！是製作首頁的那種計數器！
謝謝

用UD也要用到ASP，CGI，PHP，JSP

找个例子自己去研究，这种问题，问来容易答来难！可以去看看我留言簿的计数器(同一个人20分钟之内再次刷新，计数器不会增加)，如果需要源码，留下联系方式！

我这里正好有一篇计数器文章，直接可以用的了。
ASP制作多用户版计数器
【http://www.learnasp.com.cn | ASP学习】
--------------------------------------------------------------------------------



使用ASP制作网站计数器,一般采用ASP的内置对象application,用一文本文件来保存记数值,在这里我将介绍另外一种方法,采用数据库来制作,而且是多用户版的,这样,不仅可以自己使用,而且可以为其它网站服务了。下面是具体做法:

● 制作前的准备
　　由于要使用数据库来保存记数值与用户信息,所以必须先建立数据库(这里我们采用ACCESS格式),可以用Microsoft Access建立下面的数据库:

数据库名称为:count.mdb

表名为:counttable

有下面字段:

user:[数据类型:文本,字段大小:255]保存用户名

pageurl:[数据类型:文本,字段大小:255]保存用户主页地址

curvalue:[数据类型:数字,字段大小:长整型]保存计数器值

　　同时需准备十个图片:0-9,放于目录"1"中,文件名为0.gif,1.gif......(用来图形化显示的计数值)

● 用户申请表单制作
　　可以使用Microsoft FrontPage制作下面的计数器申请表单,文件名保存为:get.htm

用 户 名

计数器值

主页地址

　　表单中的action="getcl.asp"表示用getcl.asp文件来处理用户的输入,那么,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
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
%>

● 计数程序制作
　　完成了用户申请处理的制作,下面就要制作计数器的核心程序(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")

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

'定义chgimg函数,将计数值用图形表示
function chgimg(curvalue)
dim s,i,g
s=cstr(curvalue)
for i=1 to len(s)

'请注意,在正式使用计数器时,图片的路径一定要使用实际路径
g=g & ""
next
chgimg=g
end function

'调用chgimg函数(传入计数器值)
toimg=chgimg(rs("curvalue"))
toimg="document.write(" & "'" & toimg & "')"

'输出
Response.Write(toimg)
rs.close
set rs=nothing
conn.Close
set conn=nothing
%>

　　注:此文件不能带用其它html标志,否则将会出错！

● 如何在主页中显示计数器
　　完成了计数器的制作,接下来是享受我们的劳动成果的时候了,怎么来调用计数器呢?很简单,只需在欲显示记数器的位置插入下面代码就行了。



'请注意,在正式使用计数器时,调用的路径一定要使用实际路径



首页
ASP
CGI
PHP
其他教材
JSP
Apache
Linux


来自： 作者：郭武柱