-
<%strSQLs="Select top 5 * From v_web_news where c_name='文学' order by id desc"
Set rss=Server.CreateObject("ADODB.RecordSet")
rss.open strSQLs,conn,1,1
for s=1 to rss.recordcount
if rss.eof then exit For
%>
- &mnid=<%=rss("mn_id")%>&classname=文学&uppage=news.asp" target="_blank"><%=left(trim(rss("nTitle")),23)%> <% rss.movenext next rss.close %>
-
<%strSQLs="Select top 5 * From v_web_news where c_name='史料' order by id desc"
Set rss=Server.CreateObject("ADODB.RecordSet")
rss.open strSQLs,conn,1,1
for s=1 to rss.recordcount
if rss.eof then exit For
%>
- &mnid=<%=rss("mn_id")%>&classname=史料&uppage=news.asp" target="_blank"><%=left(trim(rss("nTitle")),23)%> <% rss.movenext next rss.close %>
-
<%strSQLs="Select top 5 * From v_web_news where c_name='名言' order by id desc"
Set rss=Server.CreateObject("ADODB.RecordSet")
rss.open strSQLs,conn,1,1
for s=1 to rss.recordcount
if rss.eof then exit For
%>
- &mnid=<%=rss("mn_id")%>&classname=名言&uppage=news.asp" target="_blank"><%=left(trim(rss("nTitle")),23)%> <% rss.movenext next rss.close %>
-
<%strSQLs="Select top 5 * From v_web_news where c_name='问答' order by id desc"
Set rss=Server.CreateObject("ADODB.RecordSet")
rss.open strSQLs,conn,1,1
for s=1 to rss.recordcount
if rss.eof then exit For
%>
- &mnid=<%=rss("mn_id")%>&classname=问答&uppage=news.asp" target="_blank"><%=left(trim(rss("nTitle")),23)%> <% rss.movenext next rss.close %>
