<%@ Language=VBScript %>
<% option explicit %>
<%
if Request.Form("submit")="管理" then
'管理员登录的处理
session("name")=request.form("name")
session("password")=request.form("password")
dim rs,sql
set rs = server.createobject("adodb.recordset")
sql="select * from admin where name='" & Request.Form("name") & "' and password='" & Request.Form("password") & "'"
rs.open sql,conn,1,1
if err.number<>0 then
response.write "数据库操作失败："&err.description
elseif rs.bof and rs.eof then
response.write "对不起，请输入正确的用户名和密码。如果您不是管理员，请退出！"
rs.close
else
rs.close
session("name")=request.form("name")
session("password")=request.form("password")
set rs=nothing
call endConnection()
Response.Redirect "primarypage.asp"
end if
elseif Request.Form("submit")="退出" then
Response.Redirect "default.asp"
end if
%>