<%@language="VBscript"%> <%Response.Expires=0%> <!--#include file="include/db_conn.asp" --> <% width=Request.QueryString("width") style=Request.QueryString("style") newsort=request.querystring("newsort") num=request.querystring("num") show=request.querystring("show") t=request.querystring("t") more=request.querystring("more") face=request.querystring("face") tlen=request.querystring("len")if show="hot" then show=" topsign='1'" else show=" indexsign='1'" end if set myrs=server.CreateObject("Adodb.recordset") myrs.Open "select top "&num&" id,title,newsimg,newsdate,topsign from t_news_purpose where "&show&" and newsort="&newsort&" and me_version='cn' order by topsign desc,id desc",conn,1,1 if myrs.RecordCount<>0 then Response.Write "document.write('<table width=100% border=0 cellspacing=0 cellpadding=0>');" do until myrs.EOF if myrs("newsimg")="" then imgstr="" else imgstr="(图)" end if nt="" if t="yes" then nt=year(myrs("newsdate"))&"-"&month(myrs("newsdate"))&"-"& day(myrs("newsdate")) title=myrs("title") if len(title)>int(tlen) and tlen<>"" then title=left(title,tlen)&"..."
title_str="<tr><td> <font style='font-size:8px;'>◇</font> <a href='showc.asp?id=" & myrs("id") & "' class="&style&" target='_blank'>" & title & imgstr & "</a> <font color=#666666>" title_str=title_str & nt & "</font></td><tr>" Response.Write "document.write(" & chr(34) & title_str & chr(34) & ");" myrs.MoveNext loop if more="yes" then Response.Write "document.write('<tr><td align=right><a href=\'showp.asp?class="&newsort&"\'>更多..</a> </td></tr>');" end if Response.Write "document.write('</table>');" else Response.Write "document.write('当前没有信息!');" end if myrs.Close set myrs=nothing conn.close set conn=nothing %>
<%Response.Expires=0%>
<!--#include file="include/db_conn.asp" -->
<%
width=Request.QueryString("width")
style=Request.QueryString("style")
newsort=request.querystring("newsort")
num=request.querystring("num")
show=request.querystring("show")
t=request.querystring("t")
more=request.querystring("more")
face=request.querystring("face")
tlen=request.querystring("len")if show="hot" then
show=" topsign='1'"
else
show=" indexsign='1'"
end if
set myrs=server.CreateObject("Adodb.recordset")
myrs.Open "select top "&num&" id,title,newsimg,newsdate,topsign from t_news_purpose where "&show&" and newsort="&newsort&" and me_version='cn' order by topsign desc,id desc",conn,1,1
if myrs.RecordCount<>0 then
Response.Write "document.write('<table width=100% border=0 cellspacing=0 cellpadding=0>');"
do until myrs.EOF
if myrs("newsimg")="" then
imgstr=""
else
imgstr="(图)"
end if
nt=""
if t="yes" then nt=year(myrs("newsdate"))&"-"&month(myrs("newsdate"))&"-"& day(myrs("newsdate"))
title=myrs("title")
if len(title)>int(tlen) and tlen<>"" then title=left(title,tlen)&"..."
title_str="<tr><td> <font style='font-size:8px;'>◇</font> <a href='showc.asp?id=" & myrs("id") & "' class="&style&" target='_blank'>" & title & imgstr & "</a> <font color=#666666>"
title_str=title_str & nt & "</font></td><tr>"
Response.Write "document.write(" & chr(34) & title_str & chr(34) & ");"
myrs.MoveNext
loop
if more="yes" then
Response.Write "document.write('<tr><td align=right><a href=\'showp.asp?class="&newsort&"\'>更多..</a> </td></tr>');"
end if
Response.Write "document.write('</table>');"
else
Response.Write "document.write('当前没有信息!');"
end if myrs.Close
set myrs=nothing
conn.close
set conn=nothing
%>