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

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

'打開(kāi)數(shù)據(jù)庫(kù)判斷用戶是否存在,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 " ，歡迎您的到來(lái)<br>你是在"
response.Write rsc("ntime")
response.Write "注冊(cè)的"
response.write "<br><br><a href='change.asp'>修改</a>|<a href='show.asp'>學(xué)生管理</a>|<a href='sushe.asp'>宿舍管理</a>"
response.Write "<br><br><a href=guanli.asp>進(jìn)入查詢</a>"
session.Timeout=30
else 
response.write "<script language=javascript> alert('用戶名或密碼錯(cuò)誤，請(qǐng)重新登陸!');location.href('index.asp'); </script>"
response.end

end if


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

當(dāng)前注冊(cè)會(huì)員第<%=application("online")%>次查看本頁(yè)面。
<a href="index.asp?logout=true">退出</a>