<%set conn=server.CreateObject("adodb.connection")str="provider=SQLOLEDB;Server=(LOCAL);Uid=sa;pwd=515891;Database=gcmpt;"conn.open str%><%Dim rsDim dbpuser=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,1if rs.eof thenresponse.write ("<script language=""javascript"">alert(""没有该用户"");location.href(""index.asp"")</script>")response.endelseresponse.write ("<script language=""javascript"">alert(""登录成功"");location.href(""bangong.asp"")</script>")response.endend if%>高手请帮忙。
添加回答
举报
0/150
提交
取消