刷流量和點擊量的代碼
復(fù)制以下代碼即可：
<%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">請在這里輸入你想要點擊的次數(shù)：</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的數(shù)字！"
end if
end if
%>
刷流量和點擊量的代碼
本站僅提供存儲服務(wù)，所有內(nèi)容均由用戶發(fā)布，如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容，請
點擊舉報。
