asp新闻发布源码

A. ASP如何在首页调用每一个栏目的新闻标题求助

<%
Function Show(id,num,lenth)
'id是取到的相应的栏目的ID值,如最新动态(类别id是1),行业新闻(类别id是2)
'num是数据条数
'lenth是长度,即显示的标题长度
Sql="Select Top num * from 表 where id="&id
Set Rs=Server.Createobject("Adodb.Recordset")
Rs.open Sql,conn,1,1
If not Rs.bof and not Rs.eof Then
Do while not Rs.eof
Show=Show& "<a href='List.asp?id="&Rs("id")&"' target=_blank>"&left(Rs("标题"),lenth)&"</a><br/>"
Rs.movenext
Loop
Rs.close
Set Rs=nothing
End if
End Function
%>
'上面这一段你可以单独放在Function.asp,然后在页面<!--#include file="function.asp"-->
<%=Show(1,10,15)%> 这是在页面调用
'1是栏目ID,10是10条记录,15是每条的长度.

汗.我刚刚发出来才发现楼上已经发布了.那位同仁的一样的.如果可以你可以采纳他的.