<% @language="vbscript" %>
<%
imagepath="http://www.crejob.com/count/default"
filepath="/count/data/"
if request.querystring("user")="" then
response.write "error, no userid"
response.end
end if
if request.querystring("bits")="" then
dbbits=5+1
else
dbbits=Cint(request.querystring("bits"))
end if
if request.querystring("width")="" then
dbwidth=0
else
dbwidth=Cint(request.querystring("width"))
end if
if request.querystring("height")="" then
dbheight=0
else
dbheight=Cint(request.querystring("height"))
end if
if request.querystring("style")="" then
style="default"
else
style=request.querystring("style")
end if
dbuser=request.querystring("user")
Set conn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("/")&filepath&"count.mdb"
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
'count data
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from count where count_user='"&dbuser&"'"
rs.open sql,conn,3,2
if rs.bof then
response.write "error, no userid"
rs.close
response.end
end if
rs("count_count")=rs("count_count")+1
rs.update
tmp=rs("count_count")
tmp=Cstr(tmp)
if len(tmp)>dbbits then
dbbits=len(tmp)
end if
dim disp(20)
dim images(20)
for i= 1 to len(tmp)
disp(i)=left(right(tmp,i),i-(i-1))
next
if len(tmp)<>dbbits then
for i= len(tmp)+1 to dbbits
disp(i)="0"
next
end if
for i=dbbits to 1 step -1
if dbwidth=0 or dbheight=0 then
images(i)="![](http://www.crejob.com/count/default/"&disp(i)&".gif)
"
else
images(i)=""
end if
response.write "document.write('"&images(i)&"');"
next
rs.close
%>