taizi.asp

来自「一个功能非常强大的新闻发布系统,里面的技术都是采用最新的,支持当前最流行的网站风」· ASP 代码 · 共 119 行

javastr=""
javastr=javastr+"<table width=\"100%\" border=\"0\" cellpadding=\"0\" cellspacing=\"0\">"
<!--#include file="conn.asp"-->
<%
owen=request("owen")
taizi1=request("taizi1")
taizi2=request("taizi2")
n=request("n")
if n="" then
n=100
end if%>

<%
if taizi1<>"" and taizi2<>"" then
sql="select  * from NEWS where BigClassName='"& taizi1 &"' and  SmallClassName='"& taizi2 &"' order by id desc"
set rs=conn.execute(sql)
do while not rs.eof 
%>
javastr=javastr+"<tr><td height=\"20\" class=\"fontsize2\">"
javastr=javastr+"&nbsp;<span style=\"font-size:9pt;line-height:15pt\"><% if rs("imagenum")<>"0" then response.write "<img src='images/news.gif' border=0 alt='图片新闻'>" end if %><a href=\"html/<%=rs("c_filepath")%>\" target=\"_blank\"><%=left(rs("title"),21)%></a></span>"
javastr=javastr+"</td></tr>"
<%n=n-1
if n<1 then exit do
rs.movenext 
loop
%>
javastr=javastr+"</table>" 
<%
rs.close   
set rs=nothing   
%>
document.write (javastr) 

<%
ElseIf taizi2<> "" then
sql="select  * from NEWS where SmallClassName='"& taizi2 &"' order by id desc"
set rs=conn.execute(sql) 
do while not rs.eof 
%>
javastr=javastr+"<tr><td height=\"20\"  class=\"fontsize2\">"
javastr=javastr+"&nbsp;<span style=\&quot;font-size:9pt;line-height:15pt\"><% if rs("imagenum")<>"0" then response.write "<img src='images/news.gif' border=0 alt='图片新闻'>" end if %><a href=\"html/<%=rs("c_filepath")%>\" title=\"<%=rs("title")%>\" target=\"_blank\"><%=left(rs("title"),21)%></a></span> "
javastr=javastr+"</td></tr>"
<%n=n-1
if n<1 then exit do
rs.movenext 
loop
%>
javastr=javastr+"</table>" 
<%
rs.close   
set rs=nothing   
%>
document.write (javastr) 

<%
ElseIf  taizi1<>"" then
sql="select  * from NEWS where BigClassName='"& taizi1 &"' order by id desc"
set rs=conn.execute(sql) 
do while not rs.eof 
%>
javastr=javastr+"<tr><td height=\"20\"  class=\"fontsize2\">"
javastr=javastr+"&nbsp;<span style=\&quot;font-size:9pt;line-height:15pt\"><% if rs("imagenum")<>"0" then response.write "<img src='images/news.gif' border=0 alt='图片新闻'>" end if %><a href=\"html/<%=rs("c_filepath")%>\" title=\"<%=rs("title")%>\" target=\"_blank\"><%=rs("title")%></a></span> "
javastr=javastr+"</td></tr>"
<%n=n-1
if n<1 then exit do
rs.movenext 
loop
%>
javastr=javastr+"</table>" 
<%
rs.close   
set rs=nothing   
%>
document.write (javastr) 
<% End If %>

<% 
if taizi1= "" and taizi2= "" then
sql="select * from NEWS order by id desc"
set rs=conn.execute(sql)
do while not rs.eof 
%>
javastr=javastr+"<tr><td height=\"20\"  class=\"fontsize2\">"
javastr=javastr+"&nbsp;<span style=\&quot;font-size:9pt;line-height:15pt\"><% if rs("imagenum")<>"0" then response.write "<img src='images/news.gif' border=0 alt='图片新闻'>" end if %><a href=\"html/<%=rs("c_filepath")%>\" title=\"<%=rs("title")%>\" target=\"_blank\"><%=left(rs("title"),21)%></a></span> "
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%>