<%
set conn=server.CreateObject("adodb.connection")
str="provider=SQLOLEDB;Server=(LOCAL);Uid=sa;pwd=515891;Database=gcmpt;"
conn.open str
%>
<%
Dim rs
Dim dbp
user=request.Form("user")
pass=request.Form("pass")
set rs=Server.CreateObject("adodb.recordset")
dbp=Server.Mappath("LOCAL")
str="select *from user where admin='"&user&"'and pass='"&pass&"'"
rs.open str,conn,1,1
if rs.eof then
response.write ("<script language=""javascript"">alert(""没有该用户"");location.href(""index.asp"")</script>")
response.end
else
response.write ("<script language=""javascript"">alert(""登录成功"");location.href(""bangong.asp"")</script>")
response.end
end if
%>
高手请帮忙。
哆啦的时光机
吃鸡游戏