<%
id=trim(request.QueryString("id"))
'调用专题新闻
Public Function ztzt(topnum,sjlb)
dim infors,ClassContent,infosql,Title,formPath,filename
set infors = server.CreateObject ("adodb.recordset")
infosql="SELECT top "&topnum&" * FROM NC_Article where sjlb="&sjlb&" or sjlb2="&sjlb&" order by dateTime desc"
infors.open infosql,conn,1,1
if infors.eof and infors.bof then
ClassContent=ClassContent & "还没有信息！
"
else
do while not infors.eof
if Not Response.IsClientConnected then responseend
if trim(infors("color"))<>"0" then
stcolor=" style=""color:#"&trim(infors("color"))&";"""
else
stcolor=""
end if
if trim(infors("url"))<>"" then
urlurl=trim(infors("url"))
else
urlurl="/html/"&formatdate(infors("datetime"),10)&"/"&formatdate(infors("datetime"),9)&infors("id")&".shtml"
end if
ClassContent = ClassContent &"·"&infors("title")&""
infors.movenext
loop
end if
infors.close
set infors=nothing
'response.write mid(ClassContent,4)
ztzt= ClassContent
end function
response.write"document.write('"&ztzt(9,259)&"');"
%>