<!--第一行-->
<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]]

<!--#include file="inc/indexnew.asp"-->
这个方式本来就是内联的如果说静态的话，可以使用iframe或者
<%
  '设置响应类型
  Response.ContentType="text/javascript"
%>
<%
  '设置字符编码
  Response.CharSet="gb2312"
%>
<%
'=================================================
'过程名：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 "document.write('<font>');"
Response.Write "document.write('<div>"&rs("d_content")&"');"
Response.Write "document.write('</div></font><br>');" & vbCrLf
rs.movenext
loop
if rs.eof and rs.bof then
Response.Write "document.write('<font color=#666666 >目前尚无公告！</font>');"
end if
rs.close
set rs=nothing
end sub
%>
<script language="javascript" src="inc/indexnew.asp" ></script>