counter.asp

树型ASP论坛下载

<!--#include file="../cc/conn.asp"-->
<%
name=request("name")
ys=request("ys")
hidden=request("hidden")

Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from user where name='"&name&"'"
rs.open sql,conn,1,1
if not rs.eof then
  if hidden=1 then
tmpt = "http://" & request.servervariables("SERVER_NAME") & _            
               left(request.servervariables("SCRIPT_NAME"),len(request.servervariables("SCRIPT_NAME"))-len("counter.asp"))
sername=Request.ServerVariables("SERVER_NAME")
scrname=Request.ServerVariables("SCRIPT_NAME")

counter=rs("total")
countlen=len(counter)
for i=1 to countlen
pic=mid(counter,i,1)
linkurl="http://"&sername&Left(scrname,(len(scrname)-11))&ys&"/"&pic
news="<a href="&temp&"index.asp target=_blank><img src="&linkurl&".gif border='0'></a>"
Response.Write("document.write("& chr(34) & news & chr(34) &");")
next
 else
 news="<a href="&temp&"index.asp target=_blank><img src=pic/counter.gif border='0' alt="&mc&"></a>"
 Response.Write("document.write("& chr(34) & news & chr(34) &");")
 end if
else
news2="<a href="&temp&"index.asp target=_blank>计数器系统中没有此用户，请先注册！</a>"
Response.Write("document.write("& chr(34) & news2 & chr(34) &");")
end if
application.lock
Set rs = Server.CreateObject("ADODB.Recordset")
sql="update user set total=total+1 where name='"&name&"'"
conn.execute sql
application.unlock
set conn=nothing
rs.close
%>