news.asp

来自「文学网采用飞翔网的内核和界面作了较大程度的修改和美化 主要功能有： 1、界面美化」· ASP 代码 · 共 54 行

javastr=""
javastr=javastr+"<table width=\"100%\" border=\"0\"  class=\"p1\">"
<!--#include file="const.asp"-->
<!--#include file="articleconn.asp"-->
<%newstype=request("typeid")
n=request("n")
if n="" then
n=7
end if%>
<%
if newstype<> "" then
sql="select  * from article where shenghe='已审' and typeid="+cstr(newstype)+" order by dateandtime desc"
set rs=conn.execute(sql)%>
<% 
do while not rs.eof 
%>
javastr=javastr+"<tr><td  class=\"p1\">"
javastr=javastr+"<IMG  src=images/no.gif>&nbsp;<a href=\"<%=fly_userurl%>/openarticle.asp?id=<%=rs("newsid")%>\") target=\"_blank\"><%=left(rs("title"),10)%></font></a>"
javastr=javastr+"</td></tr>"
<%n=n-1
if n<1 then exit do
rs.movenext 
loop
%>
javastr=javastr+"</table>" 
<%rs.close   
set rs=nothing   
conn.close   
set conn=nothing%>
document.write (javastr) 
<%else%>
<%
 sql="select * from article where shenghe='已审' order by dateandtime desc"
 set rs=conn.execute(sql)
  %>
  <% 
do while not rs.eof 
%>
javastr=javastr+"<tr><td  class=\"p1\">"
javastr=javastr+"<FONT color=#993300>-&nbsp;<a href=\"<%=fly_userurl%>/openarticle.asp?id=<%=rs("newsid")%>\") target=\"_blank\" ><font color=\"#993300\"><%=left(rs("title"),10)%></font></a>"
javastr=javastr+"</td></tr>"
<%n=n-1
if n<1 then exit do
rs.movenext 
loop
%>
javastr=javastr+"</table>" 
<%rs.close   
set rs=nothing   
conn.close   
set conn=nothing%>
document.write (javastr) 
<%end if%>