javastr=""
javastr=javastr+""
<%
function cutstr(tempstr,tempwid)
if len(tempstr)>tempwid then
cutstr=left(tempstr,tempwid)&"..."
else
cutstr=tempstr
end if
end function%>
<%
ClassType=request("ClassType")
BigClass=request("BigClass")
SmallClass=request("SmallClass")
n=request("n")
L=request("L")
if n="" then
n=100
end if
if l="" then
l=100
end if
%>
<%
if BigClass<>"" and SmallClass<>"" then
sql="select * from News where BigClassName='"& BigClass &"' and SmallClassName='"& SmallClass &"' order by AddDate desc"
set rs=conn.execute(sql)
do while not rs.eof
%>
javastr=javastr+"  |
"
javastr=javastr+"
<% if rs("FirstImageName")<>"" then response.write " " end if %>\" title=\"<%=rs("title")%>\" target=\"_blank\"><%=rs("title")%> "
javastr=javastr+" | [<%=rs("AddDate")%>] (点击<%=rs("hits")%>)"
javastr=javastr+" |
"
<%n=n-1
if n<1 then exit do
rs.movenext
loop
%>
javastr=javastr+"
"
<%
rs.close
set rs=nothing
%>
document.write (javastr)
<%
ElseIf SmallClass<> "" then
sql="select * from News where SmallClassName='"& SmallClass &"' order by AddDate desc"
set rs=conn.execute(sql)
do while not rs.eof
%>
javastr=javastr+" | | "
javastr=javastr+"<% if rs("FirstImageName")<>"" then response.write "" end if %>\" title=\"<%=rs("title")%>\" target=\"_blank\"><%=rs("title")%> "
javastr=javastr+" | [<%=rs("AddDate")%>] (点击<%=rs("hits")%>)"
javastr=javastr+" |
"
<%n=n-1
if n<1 then exit do
rs.movenext
loop
%>
javastr=javastr+""
<%
rs.close
set rs=nothing
%>
document.write (javastr)
<%
ElseIf BigClass<>"" then
sql="select * from News where BigClassName='"& BigClass &"' order by AddDate desc"
set rs=conn.execute(sql)
do while not rs.eof
%>
javastr=javastr+" | | "
javastr=javastr+"<% if rs("FirstImageName")<>"" then response.write "" end if %>\" title=\"<%=rs("title")%>\" target=\"_blank\"><%=rs("title")%> "
javastr=javastr+" | [<%=rs("AddDate")%>] (点击<%=rs("hits")%>)"
javastr=javastr+" |
"
<%n=n-1
if n<1 then exit do
rs.movenext
loop
%>
javastr=javastr+""
<%
rs.close
set rs=nothing
%>
document.write (javastr)
<% End If %>
<%
if BigClass= "" and SmallClass= "" then
sql="select * from News order by AddDate desc"
set rs=conn.execute(sql)
do while not rs.eof
%>
javastr=javastr+" | | "
javastr=javastr+"<% if rs("FirstImageName")<>"" then response.write "" end if %>\" title=\"<%=rs("title")%>\" target=\"_blank\"><%=rs("title")%> "
javastr=javastr+" | [<%=rs("AddDate")%>] (点击<%=rs("hits")%>)"
javastr=javastr+" |
"
<%n=n-1
if n<1 then exit do
rs.movenext
loop
%>
javastr=javastr+""
<%rs.close
set rs=nothing
conn.close
set conn=nothing%>
document.write (javastr)
<%end if%>