在线等待，密码问题！！！！！！
<%
Dim RS
dim Conn
dim strQuery
id = trim(Request.Form("name"))
pass= trim(Request.Form("pass"))
%>
strConn = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=TEACHMANAGE"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.open strconn
Set RS = Server.CreateObject("ADODB.Recordset")
strQuery = "Select * from Usradministrator where name = '" & id & "' and key = '" & pass & "'"
RS.open strQuery, Conn, 3, 1
if RS.EOF then
'response.write"<font size = 5 color=black><center>"
response.write"密码或账号填写错误～～～～"
response.end
response.write"<a href = administrator.html>回上一页</a>"
else
response.redirect"manager.asp"
end if
%>
提示查询有问题
问题点数：20、回复次数：2Top
1 楼linuxsun999（）回复于 2003-06-02 23:17:02 得分 10
if RS.EOF then
response.write"<font size = 5 color=black><center>"
response.write"密码或账号填写错误～～～～"
response.write"<a href = administrator.html>回上一页</a>"
response.end
else
response.redirect"manager.asp"
end if
Top
2 楼dychen（大圣）回复于 2003-06-02 23:27:44 得分 10
if RS.RecordCount=0 then
response.write"<font size = 5 color=black><center>"
response.write"密码或账号填写错误～～～～"
response.write"<a href = administrator.html>回上一页</a>"
else
response.redirect"manager.asp"
end if
Top
