yksb.asp

WAP 书站程序 WAP 书站程序 WAP 书站程序

<%
dim sb
sb=request("sb")
cesb=md5(request("sb"))
set zhhp=Server.CreateObject("ADODB.Recordset")
  zhhssqlp="select * from Userinfo where CStr(grsb)='"&cesb&"'"
  zhhp.open zhhssqlp,conn,1,3
if zhhp.eof then
myid="0"
myni="游客"
fyzs="500"
flps="10"
zjps="10"
Else
myid=zhhp("id")
myni=zhhp("NAME")
fyzs=zhhp("fyzs")
flps=zhhp("flps")
zjps=zhhp("zjps")
end if
zhhp.close
set zhhp=nothing
%>