count.asp

使用Asp+Access+FSO+Jmail+Servu开发

<!--#include file="config.asp"-->
<%
username=Trim(Request.QueryString("id"))
if username<>"" then
	sql = "select * from counter where username='"&username&"'"
	rs.open sql,conn,1,3
	if Request.Cookies("welcome")<>username then
	Response.Cookies("welcome")=username
	Response.Cookies("welcome").Expires=date+1
	rs("counter")=rs("counter")+1
	rs.update
	else
	rs("counter")=rs("counter")
	rs.update
end if
end if
	L=Len(rs("counter"))
	i = 1
	For i = i to L
		num = Mid(rs("counter"),i,1)
	Display = Display & "document.write('<img src="&siteurl&"/count_style/"&rs("style")&"/" & num & ".gif>');" & chr(13)
	Next
	Response.Write Display
rs.close
set rs=nothing
%>