谁说我那样写不能检查用户名和密码的正确和错误了?
我这个就是直接检查用户名和密码的正确和错误的
如果 ZH 和 MM 字段是文本类型的就使用 ZH='"&UserName&"' and MM='"&PassWord&"'
如果 ZH 和 MM 字段是数字类型的就使用 ZH="&UserName&" and MM="&PassWord&"
[CODE]
<%
dim conn
set conn=server.createobject("ADODB.CONNECTION")
conn.open "provider=sqloledb;server=(local);database=database;uid=sa;pwd=;"
UserName = Request.Form("UserName")
PassWord = Request.Form("PassWord")
If UserName = "" or PassWord = "" Then
Response.Write"用户名或密码不能为空!!"
Response.End
end if
sql="select * from xs where ZH='"&UserName&"' and MM='"&PassWord&"'"
Set rs = Server.CreateObject("ADODB.recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.redirect "index.asp"
else
response.write"用户名或密码输入错误,请确认!!"
end If
rs.Close
Set rs = Nothing
%>
[/CODE]
[此贴子已经被作者于2007-10-30 1:44:45编辑过]