|
|
 |
<%
'系统参数设置
id =1 '显示新闻类别ID
n =5 '每页显示新闻数目
lens =16 '显示新闻长度
order ="ti" '设置排序规则(=ti 为按时间 =ck 为按点击率)
desc =1 '设置排序规则(=1 为倒序 =0 顺序)
timeyn =1 '是否显示时间(1为显示)
click =1 '是否显示点击率(1为显示)
line =0 '是否有间隔图片(1为显示)[间隔图片的地址在:images/li.gif]
'默认设置
IF n="" Then
n=5
else
n=cint(n)
end if
IF lens="" Then
lens=14
else
lens=cint(lens)
end if
%>
<%
sql="select * from news where class=1 order by id desc"
set rsnews=server.createobject("adodb.recordset")
rsnews.open sql,conn,1,1
IF Not rsnews.eof Then
proCount=rsnews.recordcount
rsnews.PageSize=cint(n) '定义显示数目
if not IsEmpty(Request("ToPage")) then
ToPage=CInt(Request("ToPage"))
if ToPage>rsnews.PageCount then
rsnews.AbsolutePage=rsnews.PageCount
intCurPage=rsnews.PageCount
elseif ToPage<=0 then
rsnews.AbsolutePage=1
intCurPage=1
else
rsnews.AbsolutePage=ToPage
intCurPage=ToPage
end if
else
rsnews.AbsolutePage=1
intCurPage=1
end if
intCurPage=CInt(intCurPage)
For i = 1 to rsnews.PageSize
if rsnews.EOF then
Exit For
end if
%>
 |
<%
IF rsnews("ynimg") Then Response.Write "[图片]"
%>
)" class="link">
<%
IF len(rsnews("title"))>lens Then
Response.Write Left(rsnews("title"),lens)&"…"
Else
Response.Write rsnews("title")
End IF
%>
|
<%
rsnews.MoveNext
next
%>
|
<%
end if
rsnews.close
set rsnews=nothing
%> |
|
|
