topic.asp

1、采用4.5修改而成。 2、添加了求片区

<!--#include file="conn.asp"-->

<%
Function topic(n,cut)'最近更新TOP榜
set rs1=conn.execute("select top "&n&" * from zt_data  order by zt_date desc")
i=0
while not rs1.eof
i=i+1
zt_names=rs1("zt_name")
if len(zt_names)>cut then
zt_name=left(zt_names,cut)&"..."
else
zt_name=zt_names
end If
zt_date=FormatDateTime(rs1("zt_date"),2)
If CStr(zt_date)=CStr(Date) Then
zt_date_s=" class=""red"""
Else
zt_date_s=" class=""bl"""
End If 
classname=get_classname(rs1("zt_type"))
z_view_path=maxz_12&"/"&rs1("zt_id")&""
topic=topic&"<li><a href="""&z_view_path&""" title="""&zt_names&""">"&zt_name&"</a><span"&zt_date_s&">("&zt_date&")</span></li>"&chr(13)
rs1.movenext
wend
rs1.close
set rs1=nothing
End Function
%>
document.write('<%=topic(10,10)%>');