请各位ASP编程高手帮小弟修改一下下面的语句!谢谢!

程序错误提示:
Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'

/iisHelp/common/500-100.asp,行242

Microsoft JET Database Engine 错误 '80040e10'

至少一个参数没有被指定值。

/index_mb.asp,行180

程序源码:
<%
set rs=server.createobject("adodb.recordset")
sql="select top 12 n_title,n_fpath,n_fname from t_news where n_tsid='1' order by id DESC"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
Response.Write"<br>暂无信息"
end if
%>
<%do while not rs.eof%>
<tr>
<td background="images/lib.gif"><p><img src="images/arrow5.gif" width="9" height="9">
<%if len(rs("n_title"))>18 then%>
<a href="news/games/wlgames/<%=rs("n_fpath")%>/<%=rs("n_fname")%>.htm" target="_blank"><%=left(rs("n_title"),18)%>...</a>
<%else%>
<a href="news/games/wlgames/<%=rs("n_fpath")%>/<%=rs("n_fname")%>.htm" target="_blank"> <%=rs("n_title")%></a>
<%end if%>
</p></td>
</tr>
<% rs.movenext
loop
rs.close
set rs=nothing
%>
我是一个新手~编程序我一窍不通!我改了一个程序,想从首页读取数据库中相关的数据~可是加上代码后老是出错~我也搞不清是什么原因~请各位大侠帮我修改下!谢谢了~如果能成功了!我给予50追加分!

<%
set rs=server.createobject("adodb.recordset")
sql="select top 12 * from t_news where n_tsid='1' order by id DESC"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
Response.Write"<br>暂无信息"
end if
%>
<%do while not rs.eof%>
<tr>
<td background="images/lib.gif"><p><img src="images/arrow5.gif" width="9" height="9">
<%if len(rs("n_title"))>18 then%>
<a href="news/games/wlgames/<%=rs("n_fpath")%>/<%=rs("n_fname")%>.htm" target="_blank"><%=left(rs("n_title"),18)%>...</a>
<%else%>
<a href="news/games/wlgames/<%=rs("n_fpath")%>/<%=rs("n_fname")%>.htm" target="_blank"> <%=rs("n_title")%></a>
<%end if%>
</p></td>
</tr>
<% rs.movenext
loop
rs.close
set rs=nothing
%>
温馨提示:内容为网友见解,仅供参考
第1个回答  2006-09-21
这个循环可以这么写
dim i
sql="select from n_title,n_fpath,n_fname from t_news where n_tsid='1' order by id DESC"
i=12
do while not rs.eof and i>=0
..........
<% rs.movenext
i=i-i
loop
rs.close
set rs=nothing
%>
看对不对
把你的这个文件index_mb.asp贴出来吧详细点本回答被提问者采纳
相似回答
大家正在搜