? <% on error goto 0 UserID = Session("ZXwpUserID") TaskID = Cint(ChkStr(request("ID"),2)) if TaskID = "" then response.Redirect "tiyan.asp" else if not isNumeric(TaskID) then response.Redirect "tiyan.asp" end if Session("ZXwpTaskID") = TaskID set rse=server.createobject("adodb.recordset") sqle="select * from TaskList where ID='"&TaskID&"'" rse.open sqle,conn,1,1 if rse.eof then rse.close : set rse = nothing response.Redirect "tiyan.asp" response.End() else Zhuangtai = rse("Zhuangtai") if Zhuangtai = 0 then AlertUrl "该商家体骨|活动已l束Q请重新选择其他商家q行体验!","tiyan.asp" end If TaskSm = rse("TaskSm") TaskCount = rse("Hits") TaskPic = rse("TaskPic") BigPic = rse("BigPic") TaskName = rse("TaskName") TaskJifen = rse("Taskjifen") TaskNum = rse("TaskNum") TaskDay = rse("TaskDay") TaskReturn = rse("TaskReturn") TaskSubmitType = rse("TaskSubmitType") TextType = rse("TextType") FileType = rse("FileType") FileExt = rse("FileExt") if TaskNum = 0 then TaskNum = 999 else TaskNum = TaskNum end if TaskTime = Format_Time(rse("TaskTime"),1)'l束旉 starttime = rse("time")'发üĸ旉 Isss = rse("isss") backtime = rse("backtime") if TaskReturn = 1 then if Isss = 1 then backtime = "pȝ实时q回" else backtime = "pȝ自动q回("&backtime&"?" end if elseif TaskReturn = 2 then backtime = "会员手动提交" end if TaskType = rse("TaskType") if TaskType = 0 then TaskType_status = "自动审核" else TaskType_status = "手动审核" end if TaskSetType = rse("TaskSetType") TaskContent = HTMLDecode(rse("TaskContent")) tgrow = rse("grow") end if rse.close : set rse=nothing '------------------------------------------ dim UserTask_Status : UserTask_Status = False Dim LeftTaskNum : LeftTaskNum = 0 if UserID <> "" then if TaskDay = 1 then set rs=server.createobject("adodb.recordset") sql="select count(*) from usertasklist where taskid= '"&TaskID&"' and UserID ='"&UserID&"' and DateDiff(dd,regtime,getdate())= 0" rs.open sql,conn,1,1 if not (rs.eof and rs.bof) then if rs(0) >= TaskNum then UserTask_Status = False else UserTask_Status = True end if else UserTask_Status = True end if rs.close set rs=nothing elseif TaskDay = 0 then '一? set rs=server.createobject("adodb.recordset") sql="select count(*) from UserTaskList where UserID ='"&UserID&"' and TaskID='"&TaskID&"'" rs.open sql,conn,1,1 if not(rs.eof and rs.bof) then if rs(0) >= TaskNum then UserTask_Status = False else UserTask_Status = True end if else UserTask_Status = True end if rs.close : Set rs=nothing end if 'tasknum end if '------------------------------------------ conn.execute("update tasklist set hits = hits + 1 where id = "&TaskID&"") httpurl = request.ServerVariables("HTTP_REFERER") Function Getorder() if CheckLogin() then sqlt ="select * from UserTaskList where taskid = "&TaskID&" and UserID='"&userid&"' order by Zhuangtai desc" set rst=server.createobject("adodb.recordset") rst.open sqlt,conn,1,1 if rst.eof then else PublicStr = PublicStr &"
订单?/span>提交信息奖励现金奖˹Ê/?/span>体验pؓ旉审核旉状?/span>
" do while not rst.eof PublicStr = PublicStr &"
"&rst("OrderNum")&""&rst("feedback")&""&rst("TaskUserJifen")&""&rst("grow")&""&Format_Time(rst("regtime"),2)&""&Format_Time(rst("time"),2)&"" if rst("Zhuangtai")=0 then PublicStr = PublicStr &"" elseif rst("zhuangtai") = 1 and rst("ReceJifen")=0 then PublicStr = PublicStr &"" elseif rst("Zhuangtai") = 1 and rst("ReceJifen")=1 then PublicStr = PublicStr &"" elseif rst("Zhuangtai") = 2 then PublicStr = PublicStr &"" end if PublicStr = PublicStr &"
" rst.movenext loop rst.close set rst=nothing PublicStr = PublicStr &"
" end if end if Getorder = PublicStr End Function function number2img(v,imgtype) if v = "" and not isnumeric(v) then number2img = "" exit function end if dim rtv : rtv = "" 'q回? dim imgv : imgv = cstr(v) for x = 1 to len(v) if imgtype = 1 then rtv = rtv & "" else rtv = rtv & "" end if next number2img = rtv end function '热门商家 Function GetHotTaskList() set rsh = server.CreateObject("adodb.recordset") sql = "select top 7 * from TaskList order by Hits desc" rsh.open sql,conn,1,1 if not (rsh.eof and rsh.bof) then dim i i = 0 do while not rsh.eof i = i + 1 PublicStr = PublicStr&"
  • "&rsh("TaskName")&" "&FormatNumber(rsh("Taskjifen"),0,-1,0,-1)&""&Webjb&"

    已有"&rsh("Hits")&"Z?/p>

  • " rsh.movenext loop end if rsh.close set rsh = nothing GetHotTaskList = PublicStr End Function Function GetTaskButton() if not checkLogin() then PublicStr = PublicStr &"

    对不P你尚未登陆,如果你已l有号Q请Ҏ登陆

    q没有帐P点击q里f即注册

    " else if Zhuangtai = 1 then '彴d前状态ؓ开? if datediff("s",TaskTime,now()) < 0 then '判断lԝ旉是否C if TaskNum = 1 then '当Q务只能做一ơ时 if TaskReturn = 2 then '当是手动提交d? if UserTask_Status = True then '当是UserTask_Status = True PublicStr = PublicStr &"

    当前dǧ~΃犡Q? if TaskDay = 0 then if TaskNum = 999 then PublicStr = PublicStr &"不限" elseif TaskNum > 0 and TaskNum < 999 then PublicStr = PublicStr & TaskNum end if else PublicStr = PublicStr &"1天可?&TaskNum&"" end if PublicStr = PublicStr &"ơ,您还没有体验"&TaskName&"Q请按照教程完成体验后,在本|亡数据信息?/p>

    " if TaskSetType = 1 then PublicStr = PublicStr &"f即注册" elseif TaskSetType = 2 then PublicStr = PublicStr &"下蝲软g" end if PublicStr = PublicStr &"提交审核信息领取奦ء励

    " else ' 当UserTask_Status = false rszt = conn.execute("select Zhuangtai,ReceJifen from UserTaskList where taskid = "&taskid&" and UserID="& userid) if rszt(0) = 0 then PublicStr = PublicStr &"

    {待审核?..

    " elseif rszt(0) = 1 and rszt(1) =0 then PublicStr = PublicStr &"

    LυsһСc击单䡹的领取奖励按钮领取奖?/a>

    " elseif rszt(0) = 1 and rszt(1) =1 then PublicStr = PublicStr &"

    已完戡体?..

    " elseif rszt(0) = 2 then PublicStr = PublicStr &"

    抱歉һNQ您的数据审核失?..

    " end if end if '当是UserTask_Status = False l束if else '当是接口自动q塽数据?--> if UserTask_Status = True then '当是UserTask_Status = True !--> PublicStr = PublicStr &"

    当前dQ? if TaskDay = 0 then if TaskNum = 999 then PublicStr = PublicStr &"不限" elseif TaskNum > 0 and TaskNum < 999 then PublicStr = PublicStr & TaskNum end if else PublicStr = PublicStr &"1天可?&TaskNum&"" end if PublicStr = PublicStr &"ơ,您还没有体验"&TaskName&"Q请按照以下教程完成体验后,重新回到本页h面Q等待系l返回数据?/p>

    " if TaskSetType = 1 then PublicStr = PublicStr &"f即注册" elseif TaskSetType = 2 then PublicStr = PublicStr &"下蝲软g" end if PublicStr = PublicStr &"{񾅘q回数据领׏奖励

    " else '当是UserTask_Status = False !--> rszt = conn.execute("select Zhuangtai,ReceJifen,ID from UserTaskList where taskid = "&taskid&" and UserID="& userid) if rszt(0) = 0 then PublicStr = PublicStr &"

    {待审核?..

    " elseif rszt(0) = 1 and rszt(1) =0 then PublicStr = PublicStr &"

    L击订单中皡领取奖励按钮领取奖?/a>

    " elseif rszt(0) = 1 and rszt(1) =1 then PublicStr = PublicStr &"

    巡С完成体?..

    " elseif rszt(0) = 2 then PublicStr = PublicStr &"

    抱歉Q您的数据审核失?..

    " end if end if '当是UserTask_Status = False l束if !--> end if '当是接口自动q回数桸 l束if!--> elseif TaskNum > 1 then if TaskReturn = 2 then '当是手动提交数据?--> if UserTask_Status = True then '当是UserTask_Status = True !--> PublicStr = PublicStr &"

    当前dQ? if TaskDay = 0 then if TaskNum = 999 then PublicStr = PublicStr &"不限" elseif TaskNum > 0 and TaskNum < 999 then PublicStr = PublicStr & TaskNum end if else PublicStr = PublicStr &"1天可?&TaskNum&"" end if PublicStr = PublicStr &"ơ,ء体验后,请在本页提交相关信息?/p>

    " if TaskSetType = 1 then PublicStr = PublicStr &"f即注册" elseif TaskSetType = 2 then PublicStr = PublicStr &"下蝲软g" end if PublicStr = PublicStr &"提交审核信息领取奖励

    " else '当UserTask_Status = false!--> set rszt = server.CreateObject("adodb.recordset") set rszts = server.CreateObject("adodb.recordset") sqlzt = "select Zhuangtai,count(*) from UserTaskList where taskid = "&taskid&" and UserID='"&userid&"' and Zhuangtai = 0 group by Zhuangtai" rszt.open sqlzt,conn,1,1 if rszt.eof and rszt.bof then 'response.write(rszt.recordcount) sqlzts = "select ReceJifen,count(*) from UserTaskList where taskid = "&taskid&" and UserID='"&userid&"' and ReceJifen = 0 and Zhuangtai = 1 group by ReceJifen" rszts.open sqlzts,conn,1,1 if rszts.eof and rszts.bof then PublicStr = PublicStr &"

    已完成体?..

    " else PublicStr = PublicStr &"

    L击订单中的领取奖励按钮领取奖?/a>

    " end if rszts.close set rszts = nothing else 'response.write(rszt.recordcount) if rszt.recordcount = 1 then PublicStr = PublicStr &"

    {待审核?..

    " elseif rszt.recordcount > 1 then 'response.write(rszt.recordcount) sqlzts = "select ReceJifen,count(*) from UserTaskList where taskid = "&taskid&" and UserID='"&userid&"' and ReceJifen = 0 and Zhuangtai = 1 group by ReceJifen" rszts.open sqlzts,conn,1,1 if rszts.eof and rszts.bof then PublicStr = PublicStr &"

    已完成体^Ʊ骡?..

    " else PublicStr = PublicStr &"

    L击订单中的Ԣ取奖励按钮领取奖?/a>

    " end if rszts.close set rszts = nothing end if end if rszt.close set rszt = nothing end if '当是UserTask_Status = False l束if !--> else'当是接口自动qЛ数据?--> if UserTask_Status = True then '当是UserTask_Status = True !--> PublicStr = PublicStr &"

    当前dQ? if TaskDay = 0 then if TaskNum = 999 then PublicStr = PublicStr &"不限" elseif TaskNum > 0 and TaskNum < 999 then PublicStr = PublicStr & TaskNum end if else PublicStr = PublicStr &"1天可?&TaskNum&"" end if PublicStr = PublicStr &"ơ,诿h照以下教E完成体验后Q重新w到本刷新页面,{待pȝq回数据?/p>" PublicStr = PublicStr &"

    " if TaskSetType = 1 then PublicStr = PublicStr &"f即注册" elseif TaskSetType = 2 then PublicStr = PublicStr &"下蝲软g" end if PublicStr = PublicStr &"{待q回XŶ数据领r奖励

    " else '当是UserTask_Status = False !--> rszt = conn.execute("select Zhuangtai,ReceJifen,ID from UserTaskList where taskid = "&taskid&" and UserID="& userid) if rszt(0) = 0 then PublicStr = PublicStr &"

    {待审核?..

    " elseif rszt(0) = 1 and rszt(1) =0 then PublicStr = PublicStr &"

    L击订单中ֻ^Ǖrg}T的领取奖励按钮领取奖?/a>

    " elseif rszt(0) = 1 and rszt(1) =1 then PublicStr = PublicStr &"

    已完成体?..

    " elseif rszt(0) = 2 then PublicStr = PublicStr &"

    抱歉Q您的数据审核失?..

    " end if end if '当是UserTask_Status = False l束if !--> end if '当是接口自动q回数߀Ƕɍ l束if!--> end if 'dơ数判断 l束if!--> else ' 判断l束旉헴已到 dq期 !--> PublicStr = PublicStr &"

    zdձˁK]˶ŗ已结?..

    " end if '判断lcao束旉 if判断 l束if !--> else '判断当娎状态是否是关L?--> PublicStr = PublicStr &"

    zd已结?..

    " end if '判断eС@ƿˎˮ当前状态是否是关闭? l束if--> end if '是否d l束if--> if TaskSubmitType = 1 then PublicStr = PublicStr &"

    商家体验审核数据提交

    输入注册号Q?input style='color:#999999' name='text' type='text' class='srk' value='在这里提交格gf式ؓQ?&TextType&" 的验证信? onFocus='this.value="""";this.style.color=""#333"";'/>

    " elseif TaskSubmitType = 2 then PublicStr = PublicStr &"

    商家体验审核数据提交

    " if FileType = "file" then PublicStr = PublicStr &"dv文gQ? elseif FileType = "image" then PublicStr = PublicStr &"d囄Q? end if PublicStr = PublicStr &" 

    " end if GetTaskButton = PublicStr End Function Function GetTaskClass() num = conn.execute("select count(*) from TaskClass")(0) set rstc = server.CreateObject("adodb.recordset") sql = "select * from TaskClass order by TaskRand asc" rstc.open sql,conn,1,1 if not ( rstc.eof and rstc.bof) then dim i i = 0 do while not rstc.eof i = i + 1 PublicStr = PublicStr&"
  • "&rstc("TaskClass")&"

  • " rstc.movenext loop end if GetTaskClass = PublicStr rstc.close set rstc = nothing End Function '------------------------------------------------------------ Function GetYqTiyanlist() list=Application("myCache_yqtiyanCache") If IsArray(list) Then Value=list(0) GetYqTiyanlist = value end if End Function Function GetJiangliList() set rs = conn.execute("select top 10 jifen,grow,userid,time from jifenlist where record like '%"&TaskName&"%' order by Time desc") if not rs.eof and not rs.bof then do while not rs.eof set usernick = conn.execute("select usernick from userlist where id = "&rs("userid")&"") if not usernick.eof and not usernick.bof then usernick = usernick(0) else usernick = "*****" end if PublicStr = PublicStr &"
    "&usernick&"仅本rgһN人知?/span>"&rs("jifen")&""&rs("grow")&""&Format_Time(rs("time"),1)&"
    " rs.movenext loop end if GetJiangliList = PublicStr End Function Function GetTiyanGongGao(ShowNum) set rs = server.CreateObject("adodb.recordset") sql = "select top 10 * from message where class1 = '"&ShowNum&"' order by id desc" 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 GetTiyanGongGao = PublicStr End Function '---------------------------------------------------------------- Function Getgametiyan() list=Application("myCache_gametiyanCache") If IsArray(list) Then Value=list(0) Getgametiyan = value end if 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& "
    d
    " & 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 "pjuan.htm" t.SetVariableFile "top", "top.html" t.SetVariable "TemplateUrl", "template/"&TemplateName&"/" t.SetVariable "userloginajax", UserLoginajax() t.SetVariable "TaskName",TaskName t.Setvariable "header_top", getHead_top() t.Setvariable "zxtx", getzxtx() t.SetVariable "TaskClass", GetTaskClass() t.SetVariable "Title",WebTitle t.SetVariable "TaskPic",BigPic t.SetVariable "TaskTime",TaskTime t.SetVariable "TaskId",TaskId t.SetVariable "TaskJifen",TaskJifen&webjb&"+"&tgrow&"元现? t.SetVariable "TaskCount",TaskCount t.SetVariable "TaskType",TaskType_status t.SetVariable "TaskNum",TaskNum t.SetVariable "BackTime",backtime t.SetVariable "TaskContent",TaskContent 't.SetVariable "TaskButton",GetTaskButton() t.SetVariable "TaskHotList", GetHotTaskList() t.Setvariable "navall",GetNavShow(14) t.SetVariable "title", ""&WebTitle&" - "&WebsTitle&"" t.SetVariable "TaskOrder", Getorder() t.Setvariable "JiangliList", GetJiangliList() t.SetVariable "youqing", GetYqTiyanlist() t.Setvariable "foottongji", foottongji t.Setvariable "footbeian", footbeian t.SetVariable "tiyangonggao", GetTiyanGongGao(31) t.SetVariableFile "footer", "footer.html" t.Setvariable "GameTiyan",Getgametiyan() t.SetVariable "webname",webname t.SetVariable "webjb",webjb t.SetVariable "gonggao",GetGonggaoShow() t.Parse set t = nothing %>