login.asp

寝室管理文档 网站目的： 为了更好的管理寝室同学们的信息资料

<!-- #include file="conn.asp" -->
<% 

name=trim(request.form("username"))
pwd=trim(request.form("password"))

'打开数据库判断用户是否存在,info为表名,username为字段名
set rsc=server.createobject("adodb.recordset")
sqlc="select * from info where username='"& name &"' and password='"& pwd &"'"
rsc.open sqlc,conn,1,1

if rsc.recordcount>0 Then

session("username")=name
session("password")=pwd
response.write  rsc("username")
response.Write " ，欢迎您的到来<br>你是在"
response.Write rsc("ntime")
response.Write "注册的"
response.write "<br><br><a href='change.asp'>修改</a>|<a href='show.asp'>学生管理</a>|<a href='sushe.asp'>宿舍管理</a>"
response.Write "<br><br><a href=guanli.asp>进入查询</a>"
session.Timeout=30
else 
response.write "<script language=javascript> alert('用户名或密码错误，请重新登陆!');location.href('index.asp'); </script>"
response.end

end if


set rsc=nothing
application.lock 
application("online")=application("online")+1 
application.unlock 
%> 

当前注册会员第<%=application("online")%>次查看本页面。
<a href="index.asp?logout=true">退出</a>