|
|
<%set rs=server.createobject("adodb.recordset")
sql="select * from SMT_xxnewssort order by SMT_date desc"
rs.open sql,conn,1,1
if rs.recordcount mod 2=0 then a=rs.recordcount else a=rs.recordcount-1
n=0
do while not rs.eof and n
|
|
|
<%set rs1=server.createobject("adodb.recordset")
sql1="select top 5 * from SMT_xxnews where SMT_newssort="&rs("SMT_id")&" and SMT_key=1 and SMT_key1=1 and SMT_key2=1 order by SMT_id desc"
rs1.open sql1,conn,1,1
do while not rs1.eof
if cityHTML=1 then
webget="Html/xxnews/"&year(rs1("SMT_date"))&month(rs1("SMT_date"))&"/"&replace(replace(replace(rs1("SMT_date"),"-",""),":","")," ","")&".html"
else
webget="new_view.asp?id="&rs1("SMT_id")&""
end if
%>
· target="_blank"><%=LeftT(rs1("SMT_title"),36)%> (<%=month(rs1("SMT_date"))&"-"&day(rs1("SMT_date"))%>)
<%rs1.movenext
loop
rs1.close%>
|
class=black>更多  |
|
|
|
<%if n mod 1=0 then response.write" | "
if n mod 2=0 then response.write" "
if n mod 8=0 and n<>a then response.write" | "
rs.movenext
loop
rs.close%>
|
<%set rs=server.createobject("adodb.recordset")
sql="select * from SMT_newssort order by SMT_date desc"
rs.open sql,conn,1,1
if rs.recordcount mod 2=0 then a=rs.recordcount else a=rs.recordcount-1
n=0
do while not rs.eof and n
|
|
|
<%set rs1=server.createobject("adodb.recordset")
sql1="select top 8 * from SMT_news where SMT_newssort="&rs("SMT_id")&" and SMT_key=1 and SMT_key1=1 and SMT_key2=1 order by SMT_id desc"
rs1.open sql1,conn,1,1
do while not rs1.eof
if cityHTML=1 then
webget="Html/news/"&year(rs1("SMT_date"))&month(rs1("SMT_date"))&"/"&replace(replace(replace(rs1("SMT_date"),"-",""),":","")," ","")&".html"
else
webget="ypnew_view.asp?id="&rs1("SMT_id")&""
end if%>
· target="_blank"><%=LeftT(rs1("SMT_title"),36)%> (<%=month(rs1("SMT_date"))&"-"&day(rs1("SMT_date"))%>)
<%rs1.movenext
loop
rs1.close%>
|
| class=black>更多 |
|
|
|
<%if n mod 1=0 then response.write" | "
if n mod 2=0 then response.write" "
rs.movenext
loop
rs.close%>
|