<%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%>高手請幫忙。