哪位好心人帮我看看，在线跪等！
<!--#include file= "conn.asp " -->
<%
OpenDB()
%>
<%
dim sql,rs,cid
cid=request.QueryString( "id ")
%>
<% If cid= " " Then response.Write( "非法登陆 ")%>
<% Else %>
<%
sql= "select content from TravelNews where id= "&cid& " "
set rs=conn.execute(sql)
%>
<% End If %>
<p class= "read "> <%=rs( "content ")%> </p>
<% CloseDB() %>
错误类型：
Microsoft VBScript 编译器错误 (0x800A03EA)
语法错误
/read.asp, line 19
Else
帮我看看那里有问题，小第谢谢了！！
[解决办法]
<% If cid= " " Then response.Write( "非法登陆 ")%>
改成
<% If cid= " " Then
response.Write( "非法登陆 ")%>
再试试
[解决办法]
sql= "select content from TravelNews where id= "&cid& " "这个改成下面这样
sql= "select content from TravelNews where id= ' "&cid& " ' "或是改成这样试试
sql= "select content from TravelNews where id= "&cid
[解决办法]
<% If cid= " " Then 这里换一行
response.Write( "非法登陆 ")%>
<% Else %>
<%
sql= "select content from TravelNews where id= "&cid& " "
set rs=conn.execute(sql)
%>
<% End If %>
[解决办法]
<!--#include file= "conn.asp " -->
<%
OpenDB()
dim sql,rs,cid
cid=request.QueryString( "id ")
If cid= " " Then
response.Write( "非法登陆 ")
Else
sql= "select content from TravelNews where id= "&cid& " "
set rs=conn.execute(sql)
%>
<p class= "read "> <%=rs( "content ")%> </p>
<%
End If
CloseDB()
%>
你用上面一段程序就不会错了。
你在写这段程序的时候犯了以下几个错误：
（1）在写VBScript代码的时候尽量多的合并 <%%> 符号，如：
<%
OpenDB()
%>
<%
dim sql,rs,cid
cid=request.QueryString( "id ")
%>
要合并成
<%
OpenDB()
dim sql,rs,cid
cid=request.QueryString( "id ")
%>
（2）在使用If ... Else ... End If循环时，必须符合以下规则：
If <表示式> Then
<执行语句>
Else
<执行语句>
End If
而不能这样写：
If <表示式> Then <执行语句>
Else
<执行语句>
End If
你的代码里，如果把 <%%> 缩减掉的话，就成下面的代码了：
<%
If cid= " " Then response.Write( "非法登陆 ")
Else
sql= "select content from TravelNews where id= "&cid& " "
set rs=conn.execute(sql)
End If
%>
（3）记录集RS的访问你不应该放在If ... Else ... End If循环的外面，
根据你的代码，如果cid= " "的话，不会执行Else后面的代码，相应
也就不会生成RS，等到代码运行到End If后面的rs( "content ")时，
因为RS对象不存在，代码就会报错。
[解决办法]
高手
[解决办法]
cid = Cint(cid)
[解决办法]
楼主 干吗用那么多的 " <% " 和 "%> "
