以下是一个登陆程序，可就是不过。
<% Response.Buffer=True %>







<%
Set Cn=Server.CreateObject("ADODB.Connection")
Cn.open"DSN=sqlwwl;uid=eee;pwd=eee;database=wwl"
set rs=server.CreateObject ("ADODB.recordset")
rs.Open "select * from usertable",cn,1,3
%>
<%
dim a,b
a=request.form("password")
b=request.form("user")
if rs("user")=b then　
if rs("password")=a then
Response.Redirect "editmain.htm"
else
Response.Write " 密码不对！"
end if
else
Response.Write "用户名不对！"
end if
%>
<%
rs.Close
set rs=nothing
cn.Close
set cn=nothing
%>


错误提示为：
　　　　Microsoft VBScript 编译器错误 错误 '800a0408'

无效字符

/zcysgl/login.asp, 行19

if rs("user")=b then　
-------------------^

改成这样吗？可问题依旧。麻烦你再看一下。谢谢！
<% Response.Buffer=True %>






<%
Set Cn=Server.CreateObject("ADODB.Connection")
Cn.open"DSN=sqlwwl;uid=eee;pwd=eee;database=wwl"
set rs=server.CreateObject ("ADODB.recordset")
rs.Open "select * from usertable",cn,1,3
%>
<%
dim a,b
a=request.form("password")
b=request.form("user")
if rs("user")=b then　
if rs("password")=a then
Response.Redirect "editmain.htm"
else
Response.Write " 密码不对！"
end if
else
Response.Write "用户名不对！"
end if
%>
<%
rs.Close
set rs=nothing
cn.Close
set cn=nothing
%>




错误提示为:
Microsoft VBScript 编译器错误 错误 '800a0408'

无效字符

/zcysgl/login.asp, 行18

if rs("user")=b then　
-------------------^

谢谢哪条错误提示没了。