action=request("action")
if action="login" then
call login()
%>
<%sub login()
dim name1,password1
name1=request.form("name")
password1=request.form("password")
if name1="" then
response.write("<script language='javascript'>")
response.write("alert('用户名不能为空,请返回!');")
response.write("history.go(-1);")
response.write("</Script>")
response.end
end if
if password1="" then
response.write("<script language='javascript'>")
response.write("alert('密码不能为空,请返回!');")
response.write("history.go(-1);")
response.write("</Script>")
response.end
end if
'sql="select * from admin where name=name1
sql="select * from [admin] where name= '" & Request.form("name") & "'"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
if rs.bof and rs.eof then
response.write("<script language='javascript'>")
response.write("alert('用户名或密码错误,请返回!');")
response.write("history.go(-1);")
response.write("</Script>")
response.end
end if
response.write("<script language='javascript'>")
response.write("alert('用户名或密码错误,请返回!');")
response.write("history.go(-1);")
response.write("</Script>")
response.end
end if