ASP验证数据库用户名是否存在的怪问题!

来源:百度知道 编辑:UC知道 时间:2024/05/20 06:02:12
代码如下:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("Teakobe.mdb")
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.Open "Select * From 注册信息表",Conn,1,1
Dim UserName
UserName = Request.Form("txtUserName")
If UserName <> "" then
SQLcmd = "Select * From 注册信息表 Where 用户名='"&UserName&"'"
Conn.Execute SQLcmd
If Rs.EOF then
Msg="<li>恭喜您!用户名"&UserName&"不存在!可以使用!"
Else
TempErr=True
Msg="<li><font color=#FF0000>对不起!用户名</font>"&_
UserName&"<font color=#FF0000>已存在</font>!"
End if
End if
Response.Write Msg
%>

捆饶我很久了 怎么都找不到错在哪!! 他总是说use

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("Teakobe.mdb")
Set Rs = Server.CreateObject("ADODB.Recordset")

Dim UserName
UserName = Request.Form("txtUserName")
If UserName <> "" then
SQLcmd = "Select * From 注册信息表 Where 用户名='"&UserName&"'"
Rs.Open SQLcmd,Conn,1,1
If Rs.EOF then
Msg="<li>恭喜您!用户名"&UserName&"不存在!可以使用!"
Else
TempErr=True
Msg="<li><font color=#FF0000>对不起!用户名</font>"&_
UserName&"<font color=#FF0000>已存在</font>!"
End if
End if
Response.Write Msg
%>