刷流量和点击量的代码
复制以下代码即可: <%fourth = request("textfield2")%> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <title>文件点击器</title> </head> <body> <form name="form1" method="post" action="dian.asp"> <table width="543" border="1"> <tr> <td width="258" bgcolor="#808080" align="center"><font color="#FFFFFF"> 点击器</font></td> <td width="158" bgcolor="#808080" align="center"><font color="#FFFFFF"></font></td> <td width="105" bgcolor="#808080" align="center"><font color="#FFFFFF"></font></td> </tr> <tr> <td width="258">请在这里输入你想要点击的次数:</td> <td width="158"> <input type="text" name="textfield"></td> <td width="105"> <input type="submit" name="Submit" value="我点..."></td> </tr> <tr> <td width="258">请在这里输入你要点的连接地址:</td> <td width="158"> <input type="text" name="textfield2" value="<%=fourth%>" size="20"></td> <td width="105" valign="top"><input type="reset" name="Submit" value="清空..."></td> </tr> </table> </form> </body> </html> <% 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 i<second i = i+1 response.Write "<iframe src=" & third &" name=ccat width=0 height=0 frameborder=0 ></iframe>" loop response.Write "点击了" & second &"次" else response.Write "要大于0的数字!" end if end if %> 刷流量和点击量的代码 |
|