const.asp

来自「admin/admin.asp是WAP的后台管理登陆页面」· ASP 代码 · 共 20 行

<%
'=================================================
' Copyright 2007-05 jinqiu. All Rights Reserved.
' Last Update: 2007-05-15   HTTP://www.wapfs.net
'=================================================
%>
<%
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
%>