<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
if NOT isempty(request("LoginSubmit")) then
dim username,password
username=replace(trim(request("username")),"'","")
password=replace(trim(request("password")),"'","")
if username="" or password="" then
'call MsgBox("对不起,登录失败,请检查您的登录名和密码","None","None")
end if
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from admin where admin='"&username&"' and password='"&password&"' " ,conn,1,3
if not(rs.bof and rs.eof) then
if password=rs("password") then
set rs=nothing
response.redirect "right.html"
'call MsgBox("登录成功!","None","None")
else
'call MsgBox("对不起,您的用户名或密码有误!","Back","None")
response.redirect "error.html"
end if
else
'call MsgBox("对不起,您的用户名或密码有误!","Back","None")
response.redirect "error.html"
end if
end if
%>