蓝派网(www.lan27.com)-精选网络资源,分享和交流! 文章首页站内搜索在线手册广告代码酷站欣赏万年历
您现在的位置: 蓝派网 >> 文章中心 >> 网络编程 >> ASP >> 正文

刷流量和点击量的代码

作者:佚名    文章来源:网络    更新时间:2009-5-27 16:35:56

代码不要复制上面和下面的横线_________________________________________________________________________________

<%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
%>


发表评论】【打印此文】【关闭窗口】【点击数:
★好玩的休闲小游戏★