ydzq.asp

燃点真情的WAP整站程序,WAP建站系统,,更多WAP源码再登陆http://xywap.cn

<%
dim hk,yy,rr,hh,mm,ttvv
hk=request("hk")
yy=Month(now)&"" '月
rr=Day(now)&"" '日
if len(rr)=1 then rr="0"&rr 
hh=hour(now)&"" '时
if len(hh)=1 then hh="0"&hh
mm=minute(now)&"" '分
if len(mm)=1 then mm="0"&mm
ttvv="" & yy & "" & rr &"" & hh &"" & mm &""
dim ffbbid,myid,grni,myni,myjb,ltmybz,ltmybz1,myxcy,mycjbz,lll,ssbb,ftsj,hfsj,net66hc
set zhhp=Server.CreateObject("ADODB.Recordset")
zhhssqlp="select * from Users where grsb='"&hk&"'"
zhhp.open zhhssqlp,conn,1,3
if zhhp.recordcount=0 then response.redirect "login.asp?url="&Replace(Replace(R_url(),"hk=","o="),"hk=","o=")&""
if zhhp.eof then
response.redirect "login.asp?url="&Replace(Replace(R_url(),"hk=","o="),"hk=","o=")&""
Else
if zhhp("grzt")=2 and zhhp("ltzj")="0" then response.redirect "login.asp?cw=out"
ffbbid=zhhp("id")
myid=zhhp("id")
xuan=zhhp("xuan")
grni=zhhp("nini")
myni=zhhp("nini")
grtx=zhhp("grtx")
myjb=zhhp("myjb")
ltmybz=zhhp("gllt")
ltmybz1=zhhp("gllt1")
myxcy=zhhp("ltxcy")
mycjbz=zhhp("ltzj")
myjf=zhhp("myjf")
lll=zhhp("lll")
tjj=zhhp("tjj")
ssbb=zhhp("ssbb")
hfxs=zhhp("hfxs")
ftsj=zhhp("ftsj")
hfsj=zhhp("hfsj")
upsize=zhhp("upsize")
endleibie=zhhp("endleibie")
end if
zhhp.close
set zhhp=nothing
'更新在线时间
dim DiffEnd
DiffEnd = 100
if tjj <> "" then
  DiffEnd = DateDiff("s", tjj, NOW())
else
  tjj = (Now() - 1)
end if

IF DiffEnd >= 50 THEN
  sql="update Users set tjj=now() Where id=" & myid & ""
  conn.Execute(sql)
END IF

set rssd=Server.CreateObject("ADODB.Recordset")
rspplsd="select id,tishi,zrjl,tsfs,jzwj from [wap_jb] where id=1"
rssd.open rspplsd,conn,1,2
jjhhh=rssd("tishi")
zrjlzrjl=rssd("zrjl")
tsfstsfs=rssd("tsfs")
jzwjjzwj=rssd("jzwj")
rssd.close
set rssd=nothing
set rssd=Server.CreateObject("ADODB.Recordset")
rspplsd="select oopp,upset,ftjf,ftjb,hfjf,hfjb,wjtjf,wjtjb,wjhjb,wjhjf from [ltjb] where id=1"
rssd.open rspplsd,conn,1,1
oopp=rssd("oopp")
if oopp="1" and myid<>"1" then
browsers=Lcase(Left(Request.ServerVariables("HTTP_USER_AGENT"),4))
if browsers="oper"  or  browsers="winw"  or  browsers="wapi" or browsers="mc21" or browsers="up.b" or browsers="upg1" or browsers="upsi" or browsers="qwap" or browsers="jigs" or browsers="java" or browsers="alca" or browsers="wapj" or browsers="cdr/" or browsers="nec-" or browsers="fetc" or browsers="r380" or browsers="winw" or browsers="mozi" or browsers="mozi" or browsers="m3ga" then response.redirect"err.asp?cw=3&hk="&hk&""
end if
upset=rssd("upset")
ftjf=rssd("ftjf")
ftjb=rssd("ftjb")
hfjb=rssd("hfjb")
hfjf=rssd("hfjf")

wjtjf=rssd("wjtjf")
wjtjb=rssd("wjtjb")
wjhjb=rssd("wjhjb")
wjhjf=rssd("wjhjf")
rssd.close
set rssd=nothing
%>