const.asp

来自「企业版WAP网站」· ASP 代码 · 共 21 行

<%
'=================================================
' Copyright 2007-05 jinqiu. All Rights Reserved.
' Last Update: 2007-05-01   HTTP://wap.czhome.net
' E-Mail: [e-mail]  QQ:316801451
'=================================================
%>
<%
set rs = server.createobject("adodb.recordset")
sql ="select * from admin where shouji='"&pno&"'"
rs.open sql,conn,1,1
if not rs.eof then
session.Timeout=999 
session("admin")=rs("username")
session("flag")=rs("flag")
end if
rs.close
set rs=nothing
%>