c.asp的代码如下: <!--#include file="../function/DBOpen.asp"--> <% picture=slt picnum=6 'POWERED BY SLIGHTBOY Set rs=Server.CreateObject("ADODB.Recordset") sql= "select * from data where id=1" rs.open sql,conn,3,3'防刷代码开始 ip=Request.ServerVariables("REMOTE_ADDR") '比对新老IP if ip<>session("OldIp") then session("OldIp")=ip rs("counter")=rs("counter")+1 rs.update counternum=rs("counter") rs.close else counternum=rs("counter") rs.close end if counternum=cstr(counternum) for i=1 to (picnum-len(counternum)) counternum="0"&counternum next counter="" for i=1 to len(counternum) pic="<img src=tj/slt/"&picture&"/"&mid(counternum,i,1)&".gif>" dispic="document.write(""" & pic & """);" response.write dispic next %> <!--#include file="../function/DBclose.asp"-->
即可
的如:
Response.Write "var x" & vbCrLf
Response.Write "x=100" & vbCrLf
Response.Write "alert(x)" & vbCrLf
<!--#include file="../function/DBOpen.asp"-->
<%
picture=slt
picnum=6
'POWERED BY SLIGHTBOY
Set rs=Server.CreateObject("ADODB.Recordset")
sql= "select * from data where id=1"
rs.open sql,conn,3,3'防刷代码开始
ip=Request.ServerVariables("REMOTE_ADDR")
'比对新老IP
if ip<>session("OldIp") then
session("OldIp")=ip
rs("counter")=rs("counter")+1
rs.update
counternum=rs("counter")
rs.close
else
counternum=rs("counter")
rs.close
end if
counternum=cstr(counternum)
for i=1 to (picnum-len(counternum))
counternum="0"&counternum
next
counter=""
for i=1 to len(counternum)
pic="<img src=tj/slt/"&picture&"/"&mid(counternum,i,1)&".gif>"
dispic="document.write(""" & pic & """);"
response.write dispic
next
%>
<!--#include file="../function/DBclose.asp"-->