<% UserID = Session("ZXwpUserID") codeid = Cint(ChkStr(request("ID"),2)) if Trim(codeid) = "" then AlertRef "参数错误" if not isNumeric(codeid) then AlertRef "对不P该项目已l删? set rsc=server.createobject("adodb.recordset") sqlc="select * from codelist where ID='"&codeid&"'" rsc.open sqlc,conn,1,1 if rsc.eof then rsc.close : set rsc = nothing : response.redirect "codelist.asp" codenum = rsc("codenum") codename = rsc("codename") codejifen = FormatNumber(rsc("codejifen"),-1,-1,0,-1) codestatus = rsc("codestatus") codeabstruct = rsc("abstruct") codecyle = rsc("cycle") stime = rsc("stime") etime = rsc("etime") codeid = rsc("id") softdown = rsc("softdown") if rsc("codeip")=true then codeip = "换IP" else codeip = "不换IP" end if if codestatus = false then codestatuss = "已结? else codestatuss = "q行? end if codecontent = HTMLDecode(rsc("codecontent")) codecount = conn.execute("select count(*) from usercodelist where codeid = '"&rsc("id")&"'")(0) if rsc("remm")=5 then PublicStr = PublicStr &"" elseif rsc("remm")=4 then PublicStr = PublicStr &"" elseif rsc("remm")=3 then PublicStr = PublicStr &"" end if coderemm = PublicStr set PublicStr = nothing Function GetCodeButton() dim PublicStr if UserID ="" then PublicStr = PublicStr &"

对不P你尚未登陆,如果你已有帐P?a href='Login.asp?source="&Get_Url()&"'>Ҏ登陆q没有帐P点击q里立即注册

" else if codestatus = true then PublicStr = PublicStr &"" sqltmp2 = "select count(id) from UserCodeList where codeid = " & codeid & " and UserID = " & userid & "" set rstmp2=conn.execute(sqltmp2) Usercodenum = rstmp2(0) rstmp2.close set rstmp2 = nothing if Usercodenum = codenum then PublicStr = PublicStr &"" else if checklogin() then PublicStr = PublicStr &"" else PublicStr = PublicStr &"" end if end if else PublicStr = PublicStr &"" end if end if GetCodeButton = PublicStr End Function Function GetjxyCodeButton() dim PublicStr if not CheckLogin() then PublicStr = PublicStr &"    " else if codestatus = true then PublicStr = PublicStr &"  " sqltmp2 = "select count(id) from UserCodeList where codeid = " & codeid & " and UserID = " & userid & "" set rstmp2=conn.execute(sqltmp2) Usercodenum = rstmp2(0) rstmp2.close set rstmp2 = nothing if Usercodenum = codenum then PublicStr = PublicStr &"  " else PublicStr = PublicStr &"" end if else PublicStr = PublicStr &"" end if end if GetjxyCodeButton = PublicStr End Function Function GetCodeOrder() dim PublicStr if CheckLogin() then sqlt ="select usercodelist.*,codelist.passwords,codelist.codejifen from usercodelist inner join codelist on codelist.id = usercodelist.codeid where usercodelist.codeid = "&codeid&" and usercodelist.userid="&userid set rst = server.createobject("adodb.recordset") rst.open sqlt,conn,1,1 if rst.eof then PublicStr = PublicStr &"
您未参与此项?/div>" else PublicStr = PublicStr &"
工号密码码?/span>本期数量本期家宝总计数量总计家宝最后更?/span>
" do while not rst.eof PublicStr = PublicStr &"
"&rst("issued")&""&rst("passwords")&""& FormatNumber(rst("codejifen"),-1,-1,0,-1)&""&FormatNumber(rst("newnum"),-1,-1,0,-1)&""&FormatNumber(rst("totalnum"),-1,-1,0,-1)&""&FormatNumber(rst("newjifen"),-1,-1,0,-1)&""&FormatNumber(rst("totaljifen"),-1,-1,0,-1)&""&Format_Time(rst("etime"),1)&"
" rst.movenext loop rst.close set rst=nothing end if end if GetCodeOrder = PublicStr End Function '----------------------------------------------------------------------- Function GetjxyCodeOrder() dim PublicStr if CheckLogin() then sqlt ="select usercodelist.*,codelist.passwords,codelist.codejifen from usercodelist inner join codelist on codelist.id = usercodelist.codeid where usercodelist.codeid = "&codeid&" and usercodelist.userid="&userid set rst = server.createobject("adodb.recordset") rst.open sqlt,conn,1,1 if rst.eof then PublicStr = PublicStr &"您未参与此项?/td>" else do while not rst.eof PublicStr = PublicStr &""&rst("issued")&""&rst("passwords")&""&comma(rst("codejifen"))&""&comma(rst("newnum"))&""&comma(rst("totalnum"))&""&comma(rst("newjifen"))&""&comma(rst("totaljifen"))&""&Format_Time(rst("etime"),2)&"" rst.movenext loop rst.close set rst=nothing end if end if GetjxyCodeOrder = PublicStr End Function '-------------------------------------------------------------------------------------- Function GetCodeMessage() dim PublicStr set rss=server.createobject("adodb.recordset") sqls="select top 10 * from message where taskid = 773 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 GetCodeMessage = PublicStr End Function '领工? if ChkStr(request("Action"),1) = "ok" then Call GetUserCodeNum(codeid,UserID) end if Function GetLeftNavShow(ByVal ShowNum) dim PublicStr set rsn = server.CreateObject("adodb.recordset") sqln = "select top "&ShowNum&" * from NavClass where NavType = 1 order by NavRand asc" rsn.open sqln,conn,1,1 if not rsn.eof and not rsn.bof then do while not rsn.eof PublicStr = PublicStr &"
  • "&rsn("NavName")&"
  • " rsn.movenext loop end if rsn.close set rsn = nothing GetLeftNavShow = PublicStr End Function Function GetRightNavShow(ByVal ShowNum) dim PublicStr set rsn = server.CreateObject("adodb.recordset") sqln = "select top "&ShowNum&" * from NavClass where NavType = 2 order by NavRand asc" rsn.open sqln,conn,1,1 if not rsn.eof and not rsn.bof then do while not rsn.eof PublicStr = PublicStr &"
  • "&rsn("NavName")&"
  • " rsn.movenext loop end if rsn.close set rsn = nothing GetRightNavShow = PublicStr End Function '------------------------------------------------------------ Function GetYqcodelist() list=Application("myCache_yqcodeCache") If IsArray(list) Then Value=list(0) GetYqcodelist = value end if End Function '------------------------------------------------------------- set rsac = conn.execute("select top 1 etime from usercodelist where codeid = '"&codeid&"' and stime <> etime order by etime desc") if not rsac.eof and not rsac.bof then acctime = Format_Time(rsac(0),1) else acctime = "暂无" end if Function vipcodejifen(codejifen) dim PublicStr set rsvip = conn.execute("select * from VIP") if not rsvip.bof and not rsvip.eof then do while not rsvip.eof UserCodevipEnds = rsvip("vipdm") if UserCodevipEnds > 0 then if UserCodevipEnds < 10 then UserCodevipEnds = "0.0"&Cint(UserCodevipEnds) else UserCodevipEnds = "0."&Cint(UserCodevipEnds) end if end if PublicStr = PublicStr &"Q?&codejifen+(codejifen*UserCodevipEnds)&"
    " rsvip.movenext loop end if vipcodejifen = PublicStr End Function Function GetCodeNewMessage(ByVal ShowNum) dim PublicStr 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 set PublicStr = nothing End Function '------------------------------- Function GetCodeRank() dim PublicStr list=Application("myCache_codelistCache") If IsArray(list) Then Value=list(0) PublicStr = value end if PublicStr = PublicStr &"我的收入" if not CheckLogin() then PublicStr = PublicStr &"你还没有d" else PublicStr = PublicStr &"" 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 &"" end if PublicStr = PublicStr &"" GetCodeRank = PublicStr End Function '-------------------------------- Function GetCodeGongGao() dim PublicStr 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 CodeGz() dim PublicStr if CheckLogin() then sqlt ="select usercodelist.*,codelist.passwords,codelist.codejifen from usercodelist inner join codelist on codelist.id = usercodelist.codeid where usercodelist.codeid = "&codeid&" and usercodelist.userid="&userid set rst = server.createobject("adodb.recordset") rst.open sqlt,conn,1,1 if not rst.eof and not rst.bof then PublicStr = PublicStr &""&Format_time(now(),2)&"" set rsg = conn.execute("select * from usercodeexcel where codeid = '"&codeid&"' and issued = '"&rst("issued")&"' and (year(lasttime) = year(getdate()) and month(lasttime) = month(getdate()) and day(lasttime) = day(getdate()) )") if not rsg.eof and not rsg.bof then PublicStr = PublicStr &""&FormatNumber(rsg("newnum"),2,-1)&""&rsg("reward")&"?/span>"&FormatNumber(rsg("newnum")*rst("codejifen")+rsg("reward")*JifenOn,2,-1)&"" if rsg("pstatus") = 0 then PublicStr = PublicStr &"" else PublicStr = PublicStr &"已领?/span>" end if else PublicStr = PublicStr &"---数据暂未更新" end if PublicStr = PublicStr &""&Format_time(now()-1,2)&"" set rsg = conn.execute("select * from usercodeexcel where codeid = '"&codeid&"' and issued = '"&rst("issued")&"' and (year(lasttime) = year(getdate()-1) and month(lasttime) = month(getdate()-1) and day(lasttime) = day(getdate()-1) )") if not rsg.eof and not rsg.bof then PublicStr = PublicStr &""&rsg("newnum")&""&rsg("reward")&"?/span>"&rsg("newnum")*rst("codejifen")+rsg("reward")*JifenOn&"" if rsg("pstatus") = 0 then PublicStr = PublicStr &"" else PublicStr = PublicStr &"已领?/span>" end if else PublicStr = PublicStr &"---数据暂未更新" end if PublicStr = PublicStr &""&Format_time(now()-2,2)&"" set rsg = conn.execute("select * from usercodeexcel where codeid = '"&codeid&"' and issued = '"&rst("issued")&"' and (year(lasttime) = year(getdate()-2) and month(lasttime) = month(getdate()-2) and day(lasttime) = day(getdate()-2) )") if not rsg.eof and not rsg.bof then PublicStr = PublicStr &""&rsg("newnum")&""&rsg("reward")&"?/span>"&rsg("newnum")*rst("codejifen")+rsg("reward")*JifenOn&"" if rsg("pstatus") = 0 then PublicStr = PublicStr &"" else PublicStr = PublicStr &"已领?/span>" end if else PublicStr = PublicStr &"----" end if PublicStr = PublicStr &""&Format_time(now()-3,2)&"" set rsg = conn.execute("select * from usercodeexcel where codeid = '"&codeid&"' and issued = '"&rst("issued")&"' and (year(lasttime) = year(getdate()-3) and month(lasttime) = month(getdate()-3) and day(lasttime) = day(getdate()-3) )") if not rsg.eof and not rsg.bof then PublicStr = PublicStr &""&rsg("newnum")&""&rsg("reward")&"?/span>"&rsg("newnum")*rst("codejifen")+rsg("reward")*JifenOn&"" if rsg("pstatus") = 0 then PublicStr = PublicStr &"" else PublicStr = PublicStr &"已领?/span>" end if else PublicStr = PublicStr &"----" end if PublicStr = PublicStr &""&Format_time(now()-4,2)&"" set rsg = conn.execute("select * from usercodeexcel where codeid = '"&codeid&"' and issued = '"&rst("issued")&"' and (year(lasttime) = year(getdate()-4) and month(lasttime) = month(getdate()-4) and day(lasttime) = day(getdate()-4) )") if not rsg.eof and not rsg.bof then PublicStr = PublicStr &""&rsg("newnum")&""&rsg("reward")&"?/span>"&rsg("newnum")*rst("codejifen")+rsg("reward")*JifenOn&"" if rsg("pstatus") = 0 then PublicStr = PublicStr &"" else PublicStr = PublicStr &"已领?/span>" end if else PublicStr = PublicStr &"----" end if PublicStr = PublicStr &""&Format_time(now()-5,2)&"" set rsg = conn.execute("select * from usercodeexcel where codeid = '"&codeid&"' and issued = '"&rst("issued")&"' and (year(lasttime) = year(getdate()-5) and month(lasttime) = month(getdate()-5) and day(lasttime) = day(getdate()-5) )") if not rsg.eof and not rsg.bof then PublicStr = PublicStr &""&rsg("newnum")&""&rsg("reward")&"?/span>"&rsg("newnum")*rst("codejifen")+rsg("reward")*JifenOn&"" if rsg("pstatus") = 0 then PublicStr = PublicStr &"" else PublicStr = PublicStr &"已领?/span>" end if else PublicStr = PublicStr &"----" end if PublicStr = PublicStr &""&Format_time(now()-6,2)&"" set rsg = conn.execute("select * from usercodeexcel where codeid = '"&codeid&"' and issued = '"&rst("issued")&"' and (year(lasttime) = year(getdate()-6) and month(lasttime) = month(getdate()-6) and day(lasttime) = day(getdate()-6) )") if not rsg.eof and not rsg.bof then PublicStr = PublicStr &""&rsg("newnum")&""&rsg("reward")&"?/span>"&rsg("newnum")*rst("codejifen")+rsg("reward")*JifenOn&"" if rsg("pstatus") = 0 then PublicStr = PublicStr &"" else PublicStr = PublicStr &"已领?/span>" end if else PublicStr = PublicStr &"----" end if PublicStr = PublicStr &""&Format_time(now()-7,2)&"" set rsg = conn.execute("select * from usercodeexcel where codeid = '"&codeid&"' and issued = '"&rst("issued")&"' and (year(lasttime) = year(getdate()-7) and month(lasttime) = month(getdate()-7) and day(lasttime) = day(getdate()-7) )") if not rsg.eof and not rsg.bof then PublicStr = PublicStr &""&rsg("newnum")&""&rsg("reward")&"?/span>"&rsg("newnum")*rst("codejifen")+rsg("reward")*JifenOn&"" if rsg("pstatus") = 0 then PublicStr = PublicStr &"" else PublicStr = PublicStr &"已领?/span>" end if else PublicStr = PublicStr &"----" end if PublicStr = PublicStr &""&Format_time(now()-8,2)&"" set rsg = conn.execute("select * from usercodeexcel where codeid = '"&codeid&"' and issued = '"&rst("issued")&"' and (year(lasttime) = year(getdate()-8) and month(lasttime) = month(getdate()-8) and day(lasttime) = day(getdate()-8) )") if not rsg.eof and not rsg.bof then PublicStr = PublicStr &""&rsg("newnum")&""&rsg("reward")&"?/span>"&rsg("newnum")*rst("codejifen")+rsg("reward")*JifenOn&"" if rsg("pstatus") = 0 then PublicStr = PublicStr &"" else PublicStr = PublicStr &"已领?/span>" end if else PublicStr = PublicStr &"----" end if else 'rst PublicStr = PublicStr &""&Format_time(now(),2)&"---数据暂未更新" PublicStr = PublicStr &""&Format_time(now()-1,2)&"---数据暂未更新" PublicStr = PublicStr &""&Format_time(now()-2,2)&"----" PublicStr = PublicStr &""&Format_time(now()-3,2)&"----" PublicStr = PublicStr &""&Format_time(now()-4,2)&"----" PublicStr = PublicStr &""&Format_time(now()-5,2)&"----" PublicStr = PublicStr &""&Format_time(now()-6,2)&"----" PublicStr = PublicStr &""&Format_time(now()-7,2)&"----" PublicStr = PublicStr &""&Format_time(now()-8,2)&"----" end if 'rst else PublicStr = PublicStr &""&Format_time(now(),2)&"---数据暂未更新" PublicStr = PublicStr &""&Format_time(now()-1,2)&"---数据暂未更新" PublicStr = PublicStr &""&Format_time(now()-2,2)&"----" PublicStr = PublicStr &""&Format_time(now()-3,2)&"----" PublicStr = PublicStr &""&Format_time(now()-4,2)&"----" PublicStr = PublicStr &""&Format_time(now()-5,2)&"----" PublicStr = PublicStr &""&Format_time(now()-6,2)&"----" PublicStr = PublicStr &""&Format_time(now()-7,2)&"----" PublicStr = PublicStr &""&Format_time(now()-8,2)&"----" end if CodeGz = PublicStr End Function Function Exetendjs() dim PublicStr if CheckLogin() then sqlt ="select usercodelist.*,codelist.passwords,codelist.codejifen from usercodelist inner join codelist on codelist.id = usercodelist.codeid where usercodelist.codeid = "&codeid&" and usercodelist.userid="&userid set rst = server.createobject("adodb.recordset") rst.open sqlt,conn,1,1 if not rst.eof and not rst.bof then PublicStr = PublicStr &"function getreward(id,uid,name,obj){$(obj).unbind(""click"");$(obj).removeAttr(""onclick"");$.ajax({type:""POST"",url:""/ucore/codeajax.asp"",timeout: 5000,data:""act=reward&chyardid=""+id+""&chyarduu=""+name+""&uid=""+uid+""×tamp="" + new Date().getTime(),dataType:""json"",cache:false,beforeSend :function(xmlHttp){xmlHttp.setRequestHeader(""If-Modified-Since"",""0"");xmlHttp.setRequestHeader(""Cache-Control"",""no-cache"");},error:function(){create_filter();create_msg(""不明原因的抽了,求谅?O_OQ?", """", 1);},success:function(rst){if(rst.error==10000){create_filter();create_msg(rst.msg, """",1);}else{create_filter();create_msg(rst.msg, """", 1);}}});}" else PublicStr = PublicStr &"" end if rst.close set rst = nothing else PublicStr = PublicStr &"" end if Exetendjs = 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 Function GetCodewage() dim PublicStr 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)&"】有可领取工资,立马领取
  • " end if rsu.movenext loop else PubicStr = PublicStr &"
    您还未有可领取的打码记录Q?/div>" end if else PubicStr = PublicStr &"
    您还未有可领取的打码记录Q?/div>" end if GetCodewage = PublicStr End Function dim t set t = New ASPTemplate t.SetTemplatesDir "template/"&TemplateName&"/" t.SetTemplateFile "code.htm" t.SetVariableFile "top", "top.html" t.SetVariable "TemplateUrl", "template/"&TemplateName&"/" t.Setvariable "navall",GetNavShow(14) t.Setvariable "header_top", getHead_top() t.Setvariable "zxtx", getzxtx() t.SetVariable "userloginajax", UserLoginajax() t.SetVariable "CodeName",codename t.SetVariable "TaskTime",TaskTime t.SetVariable "CodeJifen",codejifen t.SetVariable "vipcodejifen",vipcodejifen(codejifen) t.SetVariable "CodeCount",codecount t.SetVariable "CodeNum",codenum t.SetVariable "CodeCyle",codecyle t.SetVariable "CodeRemm",coderemm t.SetVariable "Codesettle",acctime t.SetVariable "codeip",codeip t.SetVariable "codegz",CodeGz() t.SetVariable "codestatuss",codestatuss t.SetVariable "CodeeTime",Format_Time(etime,1) t.SetVariable "CodesTime",Format_Time(stime,1) t.SetVariable "CodeButton",GetCodeButton() t.SetVariable "CodejxyButton",GetjxyCodeButton() if not checklogin() then t.SetVariable "codelogin","
    对不P你尚未登陆,如果你已有帐P?a href='Login.asp?source="&Get_Url()&"'>Ҏ登陆q没有帐P点击q里立即注册
    " else t.SetVariable "codelogin","" end if t.SetVariable "title", ""&WebTitle&" - "&WebsTitle&"" t.SetVariable "CodeOrder", GetCodeOrder() t.SetVariable "CodejxyOrder", GetjxyCodeOrder() t.SetVariable "CodeContent", codecontent t.SetVariable "CodeHotList", GetCodeMessage() t.SetVariable "youqing", GetYqcodelist() t.SetVariable "CodeRank",GetCodeRank() t.SetVariable "CodeNewMessage",GetCodeNewMessage(27) t.SetVariable "CodeXSMessage",GetCodeNewMessage(31) t.SetVariableFile "footer", "footer.html" t.SetVariable "codegonggao", GetCodeGongGao() t.Setvariable "foottongji", foottongji t.Setvariable "footbeian", footbeian t.SetVariable "webjb",webjb t.SetVariable "download",softdown t.SetVariable "sign",md5(codeid&userid,32) t.SetVariable "exetendjs",Exetendjs() t.SetVariable "codewage",GetCodewage() t.SetVariable "gonggao",GetGonggaoShow() t.SetVariable "userloginajax", UserLoginajax() t.Parse set t = nothing %> 11ѡ55