新手学习ASP遇到的问题
程序代码：<!--第一行-->
<div class="main">
<div class="main_right">
<div class="main_bar"><span class="mainbarfont">本站公告</span></div>
<%
set rs=server.createobject("adodb.recordset")
sql="select d_id,d_date,d_content from diary order by d_id desc"
rs.open sql,conn,1,1
%>
<%=rs("d_content")%><%=rs("d_date")%>
</div>
<div class="main_left">
<div class="main_left_01">
<div class="main_bar"><span class="mainbarfont">幻灯and广告</span></div>
</div>
<div class="main_left_02">
<div class="main_bar"><span class="mainbarfont">头条资讯</span></div>
</div>
</div>
</div>这是我自己学习编写ASPCMS的代码，想实现的第一个功能就是公告
上面的读取数据代码是最简单了，现在我想这样去实现它。
在index.asp里添加<!--#include file="inc/indexnew.asp"-->
然后 请问 在indexnew里该如何编写代码来现实首页的调用
下面是我尝试写的，但是运行出错。请指点一二.
程序代码：<%
'=================================================
'过程名：index_diary
'作 用：首页公告
'参 数：num--------------调用条数
'web: www.'=================================================
sub index_diary(num)
sql="SELECT top "&num&" d_content,d_date FROM diary ORDER BY d_date DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
i=0
do while not rs.eof
i=i+1
Response.Write "<font>"
Response.Write "<div>"&rs("d_content")&""
Response.Write "</div></font>" & vbCrLf
rs.movenext
loop
if rs.eof and rs.bof then
Response.Write "<font color=""#666666"">目前尚无公告！</font>"
end if
rs.close
set rs=nothing
end sub
%>[[it] 本帖最后由 风情剑客 于 2008-6-26 17:07 编辑 [/it]]
