<%
'=================================================
' 請你保留這段說明，這并不會影響你的速度,
' 程序制作：橫云			        掌上校園版權所有，請勿破解
' 完成時間： 2007-09-27   		主頁地址：HTTP://wap.cnscu.cn
' E-Mail: cnscu@126.com   		QQ:554904632
'=================================================
%>
<%
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=30 
session("admin")=rs("username")
session("flag")=rs("flag")
end if
%>