相关新闻
-
<% strSQl="select newsid,subject,nsubject,zzl_jj,content,entrydate,customlink from newsinfo where comment=1 and (typeid=2107 or OtherSectionsFlag LIKE '%, 1984%') order by publishDate desc, newsid desc"
set Rs=CreateRs(Cn,strSQl)
for i=1 to Rs.RecordCount
strnewsid=Rs("newsid")
strsubject=trim(Rs("subject"))
strnsubject=trim(Rs("nsubject"))
if strnsubject="" then
strnsubject=strsubject
end if
strzzl_jj=Rs("zzl_jj")
strcontent=Rs("content")
strentrydate=Rs("entrydate")
news_url=fun_html_url(Rs("newsid"))
if (InStr(news_url,"http")) then
else
news_url="body.asp?newsid="&strnewsid
end if
%>
- ·<%=gotTopic(trim(strnsubject),100)%> <% Rs.movenext next distoryRS(Rs) %>