刷流量和点击量的代码

来源:百度文库 编辑:神马文学网 时间:2024/04/28 15:28:39
刷流量和点击量的代码
复制以下代码即可:
<%fourth = request("textfield2")%>



文件点击器



   
     
       
点击器

       
       
     
     
       请在这里输入你想要点击的次数:
       
       
       
         
     
     
       请在这里输入你要点的连接地址:
       
       " size="20">
       
     
   



<%
Dim first,second,third,fourth,i
first=NULL 
second=NULL
third=NULL
i=0
first = request("textfield")
third = request("textfield2")
second=cdbl (first)
if second <>0 then
if second >0 then
do while ii = i+1
response.Write ""
loop
response.Write "点击了" & second &"次"
else
   response.Write "要大于0的数字!"
end if

end if
%>
刷流量和点击量的代码