<%
'创建ADO Connection,打开Access数据库
Set cn=Server.CreateObject("ADODB.Connection")
cn.Open"myodbc"
Set rs=Server.CreateObject("ADODB.Recordset")
'下面语句中“联系人”指数据库中的“联系人”表，access中的数据库可包括多个表
strsql="SELECT*FROM 联系人 Where 名字='"&Request("myname")&"' and 密码='"&Request("mypw")&"'"
rs.Open strsql,cn,1,1

If rs.EOF Then
Response.Write"用户名或密码错误<BR>"
else
Response.Write"登录成功<BR>"
End If
rs.close
cn.close
%>

我在运行以上程序时,只出现“用户或密码错误”，这又是为什么？我应该怎样改，请各位再帮一下吧。

楼上正解.
不过最好还是把一些不应该存在的字过虑下.
[CODE]id=changechr(request("myname"))
psd=changechr(request("mypw"))

function changechr(str)
changechr=replace(str,"[","")
changechr=replace(changechr,"\","")
changechr=replace(changechr,"&","")
changechr=replace(changechr,";","")
changechr=replace(changechr,"`","")
changechr=replace(changechr,"'","")
changechr=replace(changechr,"|","")
changechr=replace(changechr,"*","")
changechr=replace(changechr,"?","")
changechr=replace(changechr,"<","")
changechr=replace(changechr,">","")
changechr=replace(changechr,"^","")
changechr=replace(changechr,"$","")
changechr=replace(changechr,"%","")
changechr=replace(changechr,"n","")
changechr=replace(changechr,"/","")
end function[/CODE]

不好意思,又出现这样的错误信息,你再能帮一下吗?



Microsoft VBScript 编译器错误 (0x800A0401)
语句未结束
/chaxun.asp, line 22, column 35
strsql="SELECT*FROM 联系人 Where 名字='"id "' "
----------------------------------^

strsql="SELECT*FROM 联系人 Where 名字='"&id&"'"

两个红色的符号不要忘了