土壤颗粒分级标准:哪位高手能提供给我计数器的设计方案（用AHDL语言）

<%
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 & "<img src=1/" & mid(s,i,1) & ".gif align=bottom>"
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标志,否则将会出错！
4.1.1实现方法
完成了计数器的制作,接下来是享受我们的劳动成果的时候了,怎么来调用计数器呢?很简单,只需在欲显示
记数器的位置插入下面代码就行了。
<script src="counter.asp?user=用户名"></script>