<% dim zhuangtai zhuangtai = ChkStr(Trim(request("zhuangtai")),1) dim tclassid tclassid = ChkStr(Trim(request("id")),1) if tclassid = "" then else if not isNumeric(tclassid) then tclassid = 0 end if 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 dim t set t = New ASPTemplate t.SetVariable "UserID", UserID t.SetTemplatesDir "template/"&TemplateName&"/" t.SetTemplateFile "youxiqiang.htm" t.SetVariableFile "top", "top.html" t.SetVariable "TemplateUrl", "template/"&TemplateName&"/" t.SetVariable "userloginajax", UserLoginajax() t.Setvariable "header_top", getHead_top() t.Setvariable "zxtx", getzxtx() t.Setvariable "navall",GetNavShow(14) t.SetVariable "WebTitle", webtitle 't.SetVariable "TaskClass", GetTaskClass() 't.SetVariable "TaskContent", GetTaskContent(tclassid) 't.SetVariable "TaskEndContent",GetTaskEndContent(tclassid) 't.SetVariable "TaskHotList", GetHotTaskList() 't.SetVariable "TiyanNewMessage",GetTaskNewMessage(29) 't.SetVariable "TiyanHappen",GetTiyanHappen() 't.Setvariable "GameTiyan",Getgametiyan() 't.SetVariable "RegRank",GetRegRank() t.SetVariable "tiyantitle",tiyantitle t.Setvariable "keywords", tiyankeywords t.Setvariable "description", tiyandescription t.Setvariable "foottongji", foottongji t.Setvariable "footbeian", footbeian t.Setvariable "postwebjs","" 't.SetVariable "TiyanPPT", GetTiyanPPT() t.SetVariableFile "footer", "footer.html" 't.SetVariable "youqing", GetYqTiyanlist() 't.SetVariable "tiyangonggao", GetTiyanGongGao() t.SetVariable "gonggao",GetGonggaoShow() t.Parse set t = nothing %>