<% UserID = Session("ZXwpUserID") codeid = Cint(ChkStr(request("ID"),2)) if Trim(codeid) = "" then AlertRef "参数错误" if not isNumeric(codeid) then AlertRef "对不起,该项目已经删除" 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 = "进行中" 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 &"

对不起,你尚未登陆,如果你已有帐号,请点此登陆还没有帐号?点击这里立即注册

" 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 &"
您未参与此项目
" else PublicStr = PublicStr &"
工号密码码值本期数量本期家宝总计数量总计家宝最后更新
" 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 &"您未参与此项目" 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 &":"&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 &"你还没有登录" 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")&"元"&FormatNumber(rsg("newnum")*rst("codejifen")+rsg("reward")*JifenOn,2,-1)&"" if rsg("pstatus") = 0 then PublicStr = PublicStr &"" else PublicStr = PublicStr &"已领取" 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")&"元"&rsg("newnum")*rst("codejifen")+rsg("reward")*JifenOn&"" if rsg("pstatus") = 0 then PublicStr = PublicStr &"" else PublicStr = PublicStr &"已领取" 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")&"元"&rsg("newnum")*rst("codejifen")+rsg("reward")*JifenOn&"" if rsg("pstatus") = 0 then PublicStr = PublicStr &"" else PublicStr = PublicStr &"已领取" 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")&"元"&rsg("newnum")*rst("codejifen")+rsg("reward")*JifenOn&"" if rsg("pstatus") = 0 then PublicStr = PublicStr &"" else PublicStr = PublicStr &"已领取" 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")&"元"&rsg("newnum")*rst("codejifen")+rsg("reward")*JifenOn&"" if rsg("pstatus") = 0 then PublicStr = PublicStr &"" else PublicStr = PublicStr &"已领取" 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")&"元"&rsg("newnum")*rst("codejifen")+rsg("reward")*JifenOn&"" if rsg("pstatus") = 0 then PublicStr = PublicStr &"" else PublicStr = PublicStr &"已领取" 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")&"元"&rsg("newnum")*rst("codejifen")+rsg("reward")*JifenOn&"" if rsg("pstatus") = 0 then PublicStr = PublicStr &"" else PublicStr = PublicStr &"已领取" 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")&"元"&rsg("newnum")*rst("codejifen")+rsg("reward")*JifenOn&"" if rsg("pstatus") = 0 then PublicStr = PublicStr &"" else PublicStr = PublicStr &"已领取" 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")&"元"&rsg("newnum")*rst("codejifen")+rsg("reward")*JifenOn&"" if rsg("pstatus") = 0 then PublicStr = PublicStr &"" else PublicStr = PublicStr &"已领取" 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_O!"", """", 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")&"提现了"&Formatnumber(rs("PayMoney"),2,-1,0,-1)&"元现金
    • " & 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& "
    你好,欢迎来到网赚之家
    " & 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& "

    欢迎回来!   "&Session("ZXwpUserNick")&"" & vbCrLf text=text& " 当前家宝:"&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 &"
    您还未有可领取的打码记录!
    " end if else PubicStr = PublicStr &"
    您还未有可领取的打码记录!
    " 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","
    对不起,你尚未登陆,如果你已有帐号,请点此登陆还没有帐号?点击这里立即注册
    " 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 %>