ok.asp

来自「这是一个我自己写的有关java的编程之道」· ASP 代码 · 共 27 行

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!-- #include file="conn.asp" -->

<%name=request.form("name")
pass=request.form("pass")
%>
<%if name="" or pass="" then response.write("<script>alert('对不起，您输入的用户名或者密码为空！');history.go(-1)</script>")end if%>




<%

set macopad=server.createobject("adodb.recordset")
sql1="select * from [user] where username='"&name&"'and pass='"&pass&"'"
macopad.open sql1,conn,1,1
if not macopad.bof then
session("name")=name
session("pass")=pass
user="user"
response.Write("username")
response.redirect("list.asp")
else
response.redirect("error.asp")
response.end
end if
%>