news.asp

综合信息管理系统

javastr="<table width=\"100%\" border=\"0\">"
<!--#include file=include/conn.asp -->
<%
BigClassName=request("BigClassName")
n=request("n")
set rs=server.CreateObject("ADODB.RecordSet")
rs.Source="select  * from news where BigClassName='" & BigClassName & "' order by newsID desc"
rs.Open rs.Source,conn,1,1
<% 
do while not rs.eof 
%>
javastr=javastr+"<tr><td>"
javastr=javastr+"<font color=\"#000000\" size=\"2\">.</font><span style=\"font-size:9pt;line-height: 15pt\"><%if rs("typic") = 1 then%>[图文]<%end if%><a href=\"ReadNews.asp?id=<%=rs("newsid")%>\") target=\"_blank\" ><%=rs("title")%></span></a><font color=\"#999999\" font size=\"1\">（<%=month(rs("updatetime"))%>/<%=day(rs("updatetime"))%>)(阅读：<%=rs("click")%>)</font>"
javastr=javastr+"</td></tr>"
<%n=n-1
if n<1 then exit do
rs.movenext 
loop
%> 
javastr=javastr+"</table>"
<% if n<1 then %>
javastr=javastr+"<span style=\"font-size:9pt;line-height: 15pt\"><a href=\"BigClass.asp?BigClassName=<%=rs("BigClassName")%>\">  - 更多新闻</span></a>" 
<% end if %>
<%rs.close   
set rs=nothing   
conn.close   
set conn=nothing%>
document.write (javastr)