|
|
主题: 为什么提示then是无效字符?
|
楠
职务：普通成员
等级：1
金币：0.0
发贴：42
|
#12002/2/21 8:58:33
以下是一个登陆程序，可就是不过。
<% Response.Buffer=True %>
Untitled Document
<%
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
-------------------^
|
绿茶
职务：普通成员
等级：8
金币：10.0
发贴：19267
|
#22002/2/21 9:18:49
把BODY，HTML这些标记统统去掉，在RESPONSE之前不能有这些的
|
楠
职务：普通成员
等级：1
金币：0.0
发贴：42
|
#32002/2/21 9:28:04
改成这样吗？可问题依旧。麻烦你再看一下。谢谢！
<% Response.Buffer=True %>
Untitled Document
<%
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
-------------------^
编辑历史:[这消息被5D大叔编辑过(编辑时间2002-02-22 14:43:18)]
|
pwder
职务：普通成员
等级：1
金币：0.0
发贴：9
|
#42002/2/21 10:36:56
请你把出现错误的 then 后面的那个全角空格删除
|
楠
职务：普通成员
等级：1
金币：0.0
发贴：42
|
#52002/2/21 11:55:08
谢谢哪条错误提示没了。
|
