const.asp

J:程序新静态动态可选择wap友链接版[自带简单留言本]源码程序系统

<%
'=================================================
' 请你保留这段说明，这并不会影响你的速度,
' 程序制作：横云			        掌上校园版权所有，请勿破解
' 完成时间： 2007-09-27   		主页地址：HTTP://wap.cnscu.cn
' E-Mail: [e-mail]   		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
%>