count.aspxml:namespace prefix = o ns = “urn:schemas-microsoft-com:office:office” /??
‘ 计æ°å¨çÂÂæ ¸å¿Âç¨ÂåºÂ.
<%
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]