?!--#include file="Conn.asp"--> <% coderankstart = GetSet(RsSet("ranktime"),"coderankstart") coderankend = GetSet(RsSet("ranktime"),"coderankend") id = ChkStr(request("id"),2) 'W八个缓?打码不换IPd Dim myCache8,content8 Set myCache8=New Cls_Cache myCache8.Reloadtime=0 '计q期旉,单位?分钟 myCache8.CacheName = "myCache" '~存Id? myCache8.Name="codenipCache" '~存副名? If myCache8.ObjIsEmpty() Then '但该~סゃһr̾˭为空时设|缓? if id = 0 then sqlt ="select * from codelist where codeip=0 and codestatus=1 and codetype = 0 order by tid asc " elseif id = 1 then sqlt ="select * from codelist where codeip=0 and codestatus=1 and codetype = 1 order by tid asc " end if set rst=server.createobject("adodb.recordset") rst.open sqlt,conn,1,1 if rst.eof and rst.bof then strHTML8 = strHTML8 &"暂无" else do while not rst.eof strHTML8 = strHTML8 &""&rst("codename")&"" if rst("codejifen") < 1 then strHTML8 = strHTML8 & FormatNumber(rst("codejifen"),1,-1) else strHTML8 = strHTML8 & rst("codejifen") end if strHTML8 = strHTML8 &"" if rst("codeip")=true then strHTML8 = strHTML8 &"? else strHTML8 = strHTML8 &"? end if strHTML8 = strHTML8 &""&rst("cycle")&"?/td>" if rst("remm")=5 then strHTML8 = strHTML8 &"" elseif rst("remm")=4 then strHTML8 = strHTML8 &"" elseif rst("remm")=3 then strHTML8 = strHTML8 &"" end if strHTML8 = strHTML8 &"" set actime = conn.execute("select top 1 etime from usercodelist where codeid = '"&rst("id")&"' and stime <> etime order by etime desc") if not actime.eof and not actime.bof then if day(actime(0)) = day(now()) then strHTML8 = strHTML8 &""&Format_Time(actime(0),2)&"" else strHTML8 = strHTML8 &Format_Time(actime(0),2) end if else strHTML8 = strHTML8 &"暂无" end if strHTML8 = strHTML8 &"" if rst("codestatus")=true then if Session("ZXwpUserID") <> "" then sqltmp2 = "select count(id) from UserCodeList where CodeID = " & rst("id") & " and UserID = " & Session("ZXwpUserID") & "" set rstmp2=conn.execute(sqltmp2) Usercodenum = rstmp2(0) 'rstmp2.close 'set rstmp2 = nothing if Usercodenum = 1 then strHTML8 = strHTML8 &"l箋d" else strHTML8 = strHTML8 &"f娍参加" end if else strHTML8 = strHTML8 &"f̋即参加" end if else strHTML8 = strHTML8 &"已经Ȼl束" end if strHTML8 = strHTML8 &"" rst.movenext loop end if rst.close set rst=nothing content8= strHTML8 myCache8.value = content8 Else content8=myCache8.value 'd~֪Ҍ存 End If Set myCache8 = Nothing set strHTML8 = Nothing 'W九个缓?打码换IP Dim myCache9,content9 Set myCache9=New Cls_Cache myCache9.Reloadtime=0 '讄q期旉З,单位?分钟 myCache9.CacheName = "myCache" '~存d? myCache9.Name="codeipCache" '~存副名? If myCache9.ObjIsEmpty() Then '但该~存为空时设|缓? if id = 0 then sqlt ="select * from codelist where codeip=1 and codestatus=1 and codetype = 0 order by codestatus desc, tid asc" elseif id = 1 then sqlt ="select * from codelist where codeip=1 and codestatus=1 and codetype = 1 order by codestatus desc, tid asc" end if set rst=server.createobject("adodb.recordset") rst.open sqlt,conn,1,1 if rst.eof and rst.bof then strHTML9 = strHTML9 &"暂无" else do while not rst.eof strHTML9 = strHTML9 &""&rst("codename")&"" if rst("codejifen") < 1 then strHTML9 = strHTML9 & FormatNumber(rst("codejifen"),1,-1) else strHTML9 = strHTML9 & rst("codejifen") end if strHTML9 = strHTML9 &"" if rst("codeip")=true then strHTML9 = strHTML9 &"? else strHTML9 = strHTML9 &"? end if strHTML9 = strHTML9 &""&rst("cycle")&"?/td>" if rst("remm")=5 then strHTML9 = strHTML9 &"" elseif rst("remm")=4 then strHTML9 = strHTML9 &"" elseif rst("remm")=3 then strHTML9 = strHTML9 &"" end if strHTML9 = strHTML9 &"" set actime = conn.execute("select top 1 etime from usercodelist where codeid = '"&rst("id")&"' and stime <> etime order by etime desc") if not actime.eof and not actime.bof then if day(actime(0)) = day(now()) then strHTML9 = strHTML9 &""&Format_Time(actime(0),2)&"" else strHTML9 = strHTML9 &Format_Time(actime(0),2) end if else strHTML9 = strHTML9 &"暂无" end if strHTML9 = strHTML9 &"" if rst("codestatus")=true then if Session("ZXwpUserID") <> "" then sqltmp2 = "select count(id) from UserCodeList where CodeID = " & rst("id") & " and UserID = " & Session("ZXwpUserID") & "" set rstmp2=conn.execute(sqltmp2) Usercodenum = rstmp2(0) 'rstmp2.close 'set rstmp2 = nothing if Usercodenum = 1 then strHTML9 = strHTML9 &"l箋d" else strHTML9 = strHTML9 &"f即参加" end if else strHTML9 = strHTML9 &"f@ؿMoѪƳ퍳参加" end if else strHTML9 = strHTML9 &"已经l束" end if strHTML9 = strHTML9 &"" rst.movenext loop end if rst.close set rst=nothing content9= strHTML9 myCache9.value = content9 Else content9=myCache9.value 'd~o󠔽^ End If Set myCache9 = Nothing set strHTML9 = Nothing 'W十个缓? 打码l^Ҫ束 Dim myCache10,content10 Set myCache10=New Cls_Cache myCache10.Reloadtime=0 '讄q׃@˜旉,单位?分钟 myCache10.CacheName = "myCache" '~嵹dz˂Сd? myCache10.Name="codeendCache" '~存副名? If myCache10.ObjIsEmpty() Then '但该~存为空时设|缓? if id = 0 then sqlh ="select * from codelist where codestatus = 0 and codetype = 0 order by codestatus desc, tid asc " elseif id = 1 then sqlh ="select * from codelist where codestatus = 0 and codetype = 1 order by codestatus desc, tid asc " end if set rsh=server.createobject("adodb.recordset") rsh.open sqlh,conn,1,1 if rsh.eof and rsh.bof then strHTML10 = strHTML10 &"暂无" else do while not rsh.eof strHTML10 = strHTML10 &""&rsh("codename")&"" if rsh("codejifen") < 1 then strHTML10 = strHTML10 & FormatNumber(rsh("codejifen"),1,-1) else strHTML10 = strHTML10 &rsh("codejifen") end if strHTML10 = strHTML10 &"" if rsh("codeip")=true then strHTML10 = strHTML10 &"? else strHTML10 = strHTML10 &"? end if strHTML10 = strHTML10 &""&rsh("cycle")&"?/td>" if rsh("codestatus")=true then strHTML10 = strHTML10 &"" else strHTML10 = strHTML10 &"" end if strHTML10 = strHTML10 &""&rsh("etime")&"已经l束" rsh.movenext loop end if rsh.close set rsh=nothing content10= strHTML10 myCache10.value = content10 Else content10=myCache10.value 'dȻ~存 End If Set myCache10 = Nothing set strHTML10 = Nothing 'W十一个缓?打码排行? Dim myCache11,content11 Set myCache11=New Cls_Cache myCache11.Reloadtime=1 '讄q期旉,单位?分钟 myCache11.CacheName = "myCache" '~存d? myCache11.Name="codelistCache" '~存副名? If myCache11.ObjIsEmpty() Then '但该~存为空时设|缓? strHTML11 = strHTML11 &"" sqlt ="select top 10 sum(jifen) as jifen_sum ,(select usernick from userlist where id = userid ) as usernick from JifenList where record like '%打码Ҳ]ǂđӛ%' and (time between '"&coderankstart&"' and '"&coderankend&"' ) group by userid order by jifen_sum desc" 'and year(time) = year(getdate()) and month(time) = month(getdate()) set rst=server.createobject("adodb.recordset") rst.open sqlt,conn,1,1 if rst.eof and rst.bof then strHTML11 = strHTML11 &"" else i=1 do while not rst.eof strHTML11 = strHTML11 &"" i=i+1 rst.movenext loop end if rst.close set rst=nothing content11= strHTML11 myCache11.value = content11 Else content11=myCache11.value 'd~存 End If Set myCache11 = Nothing set strHTML11 = Nothing Function GetCodeNoIP() list=Application("myCache_codenipCache") If IsArray(list) Then Value=list(0) GetCodeNoIP = Value end if End Function Function GetCodeIP() list=Application("myCache_codeipCache") If IsArray(list) Then Value=list(0) GetCodeIP = Value end if End Function Function GetEndCode() list=Application("myCache_codeendCache") If IsArray(list) Then Value=list(0) GetEndCode = value end if End Function Function GetCodeRank() list=Application("myCache_codelistCache") If IsArray(list) Then Value=list(0) PublicStr = value end if PublicStr = PublicStr &"" if not CheckLogin() then PublicStr = PublicStr &"" else PublicStr = PublicStr &"" end if PublicStr = PublicStr &"" GetCodeRank = PublicStr End Function Function GetCodeNewMessage(ByVal ShowNum) set rss=server.createobject("adodb.recordset") sqls="select top 10 * from message where class1 = '"&ShowNum&"' order by id desc" rss.open sqls,conn,1,1 i = 0 do while not rss.eof i = i + 1 PublicStr = PublicStr &"
  • "&rss("Title")&"
  • " rss.movenext loop rss.close set rss = nothing GetCodeNewMessage = PublicStr End Function if id = 0 then damanav = "打蠁d|赚d튡" elseif id = 1 then damanav = "扡码d挅e机d" end if codefirsttitle = GetSet(RsSet("codeseokey"),"codetitle") codekeywords = GetSet(RsSet("codeseokey"),"codekeywords") codedescription = GetSet(RsSet("codeseokey"),"codedescription") '------------------------------------------------------------ Function GetYqcodelist() list=Application("myCache_yqcodeCache") If IsArray(list) Then Value=list(0) GetYqcodelist = value end if End Function Function GetCodeGongGao() set rs = server.CreateObject("adodb.recordset") sql = "Select top 10 * from message where title like '%打码%'" rs.open sql,conn,1,1 if not rs.eof and not rs.bof then do while not rs.eof PublicStr = PublicStr &"
  • "&rs("title")&"
  • " rs.movenext loop end if GetCodeGongGao = PublicStr End Function Function GetCodewage() if checklogin() then set rsu = conn.execute("select * from usercodelist where userid = '"&Session("ZXWPUserID")&"'") if not rsu.eof and not rsu.bof then do while not rsu.eof set rsuc = conn.execute("select count(*) as count_n from usercodeexcel where codeid = '"&rsu("codeid")&"' and issued = '"&rsu("issued")&"' and Pstatus = 0") if rsuc("count_n") > 0 then PublicStr = PublicStr &"
  • ?&conn.execute("select codename from codelist where id = '"&rsu("codeid")&"'")(0)&"】有可领取工资,ɽf马领取
  • " end if rsu.movenext loop else PubicStr = PublicStr &"
    您还未有可领取的扨|码记录Q?/div>" end if else PubicStr = PublicStr &"
    您还未有可领取硾Ȍһך打码记录Q?/div>" end if GetCodewage = PublicStr End Function Function getzxtx() dim text,rs,sql text=text&"
    " & vbCrLf text=text&"
    " & vbCrLf text=text&"
    " & vbCrLf text=text&"
    " & vbCrLf text=text&"
    " & vbCrLf text=text&"
      " & vbCrLf text=text&" " & vbCrLf text=text&" " & vbCrLf sql = "select top 20 * from PayList order by ID desc" set rs=server.CreateObject("adodb.recordset") rs.open sql,conn,1,1 if not (rs.eof and rs.bof) then while not rs.eof text=text&"
    • "&rs("name")&"提现?span class=""thing"">"&Formatnumber(rs("PayMoney"),2,-1,0,-1)&"元现?/span>
    • " & vbCrLf rs.movenext wend end if rs.close:set rs=nothing text=text&"
    " & vbCrLf text=text&"
    " & vbCrLf text=text&"
    " & vbCrLf text=text&"
    " & vbCrLf text=text&"
    " & vbCrLf text=text&"
    " & vbCrLf text=text&"
    " & vbCrLf text=text&"
    " & vbCrLf text=text&"" & vbCrLf text=text&"" getzxtx=text End Function function getHead_top() dim text if not checkLogin() then text=text& "
    " & vbCrLf text=text& "
    " & vbCrLf text=text& "
    |赚之家
    " & vbCrLf text=text& "
    " & vbCrLf text=text& "
    你好Q欢q来到网赚之?/div>" & vbCrLf text=text& " " & vbCrLf text=text& " " & vbCrLf text=text& "
    " & vbCrLf text=text& "
    " & vbCrLf text=text& "
    " & vbCrLf else text=text& "
    " & vbCrLf text=text& "
    " & vbCrLf text=text& " " & vbCrLf text=text& "
    " & vbCrLf text=text& " " & vbCrLf text=text& "

    Ƣ迎回来Q?/strong>   "&Session("ZXwpUserNick")&"" & vbCrLf text=text& " 当^]һ܉߀家宝Q?span class=""smallprice"">"&Formatnumber(jifen,2,-1,0,-1)&" [提现] [视频]

    " & vbCrLf text=text& "
    " & vbCrLf text=text& " " & vbCrLf text=text& "
    " & vbCrLf end if text=text& "
    " & vbCrLf getHead_top=text end function dim t set t = New ASPTemplate t.SetTemplatesDir "template/"&TemplateName&"/" t.SetTemplateFile "codelist.htm" t.SetVariableFile "top", "top.html" t.SetVariable "TemplateUrl", "template/"&TemplateName&"/" t.SetVariable "userloginajax", UserLoginajax() t.Setvariable "navall",GetNavShow(14) t.Setvariable "header_top", getHead_top() t.Setvariable "zxtx", getzxtx() t.SetVariable "title", ""&WebTitle&" - "&WebsTitle&"" t.SetVariable "CodeRank",GetCodeRank() t.SetVariable "codefirsttitle",codefirsttitle t.Setvariable "keywords", codekeywords t.Setvariable "description", codedescription t.Setvariable "foottongji", foottongji t.Setvariable "footbeian", footbeian t.SetVariable "CodeNewMessage",GetCodeNewMessage(27) t.SetVariable "CodeXSMessage",GetCodeNewMessage(31) t.SetVariable "CodeIPContent",GetCodeIP() t.SetVariable "CodeNoIPContent",GetCodeNoIP() t.SetVariable "CodeEndContent", GetEndCode() t.SetVariable "youqing", GetYqcodelist() t.SetVariable "codegonggao", GetCodeGongGao() t.SetVariable "WebTitle", webtitle t.SetVariable "codewage",GetCodewage() t.SetVariable "gonggao",GetGonggaoShow() t.SetVariable "damanav",damanav t.SetVariableFile "footer", "footer.html" t.Parse set t = nothing %>
    本周打码排行?/td>
    排名会塼늧打码收入额外奖励
    暂无
    "&i&""&left(rst("usernick"),4)&"..."&""&FormatNumber(rst("jifen_sum"),1,-1,0,-1)&"" if i = 1 then strHTML11 = strHTML11 &""&FormatNumber(rst("jifen_sum")*0.2,1,-1,0,-1)&"" elseif i = 2 then strHTML11 = strHTML11 &""&FormatNumber(rst("jifen_sum")*0.15,1,-1,0,-1)&"" elseif i = 3 then strHTML11 = strHTML11 &""&FormatNumber(rst("jifen_sum")*0.1,1,-1,0,-1)&"" elseif i = 4 then strHTML11 = strHTML11 &""&FormatNumber(rst("jifen_sum")*0.1,1,-1,0,-1)&"" elseif i = 5 then strHTML11 = strHTML11 &""&FormatNumber(rst("jifen_sum")*0.1,1,-1,0,-1)&"" elseif i = 6 then strHTML11 = strHTML11 &""&FormatNumber(rst("jifen_sum")*0.08,1,-1,0,-1)&"" elseif i = 7 then strHTML11 = strHTML11 &""&FormatNumber(rst("jifen_sum")*0.08,1,-1,0,-1)&"" elseif i = 8 then strHTML11 = strHTML11 &""&FormatNumber(rst("jifen_sum")*0.06,1,-1,0,-1)&"" elseif i = 9 then strHTML11 = strHTML11 &""&FormatNumber(rst("jifen_sum")*0.06,1,-1,0,-1)&"" elseif i = 10 then strHTML11 = strHTML11 &""&FormatNumber(rst("jifen_sum")*0.05,1,-1,0,-1)&"" end if strHTML11 = strHTML11 &"
    我的攻S入你还没有d" sqlb = "select userid,sum(jifen) as jifen_sum ,(select username from userlist where id = JifenList.userid ) as username from JifenList where record like '%打ȫ目ˮԪ%' and year(time) = year(getdate()) and month(time) = month(getdate()) and userid = '"&Session("ZXwpUserID")&"' group by userid order by jifen_sum desc" set rsb = server.CreateObject("adodb.recordset") rsb.open sqlb,conn,1,1 if rsb.eof and rsb.bof then PublicStr = PublicStr &"0" else PublicStr = PublicStr &FormatNumber(rsb("jifen_sum"),1,-1,0,-1)&"" end if PublicStr = PublicStr &"