 2007-10-29 22:36
	    2007-10-29 22:36
   2007-10-29 22:48
	    2007-10-29 22:48
  谁说我那样写不能检查用户名和密码的正确和错误了?
我这个就是直接检查用户名和密码的正确和错误的
如果 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编辑过]

 2007-10-30 01:40
	    2007-10-30 01:40
   2007-10-30 10:20
	    2007-10-30 10:20
   2007-10-30 12:53
	    2007-10-30 12:53