%
id=request.QueryString("id")
if id="" or not isnumeric(id) then
Response.Write ""
Response.End()
end if
set rs=server.createobject("adodb.recordset")
exec="select * from News where ssfl="& id &" order by id desc"
rs.open exec,conn,1,1
if rs.eof then
response.Write "
此分类暂无记录!"
response.End()
else
set daohang=server.createobject("adodb.recordset")
exec="select * from news_fl where id="&rs("ssfl")&""
daohang.open exec,conn,1,1
%>
<%
rs.PageSize =""&config("newsclass")&""
iCount=rs.RecordCount
iPageSize=rs.PageSize
maxpage=rs.PageCount
page=request("page")
if Not IsNumeric(page) or page="" then
page=1
else
page=cint(page)
end if
if page<1 then
page=1
elseif page>maxpage then
page=maxpage
end if
rs.AbsolutePage=Page
if page=maxpage then
x=iCount-(maxpage-1)*iPageSize
else
x=iPageSize
end if
For i=1 To x
dim url,color
if IsNull(rs("url")) or trim(rs("url")&"")="" then
url="newsdetail.asp?id="&rs("id")&""
else
url=""&rs("url")&""
end if
if IsNull(rs("color")) or trim(rs("color")&"")="" then
color="#000000"
else
color=""&rs("color")&""
end if
%>
- ·" style="font-size:12px" ><%=InterceptString(rs("title"),50)%>
<%
rs.movenext
next
end if
%>
<%'以下显示分页
call PageControl(iCount,maxpage,page,"border=0 align=center","
")
rs.close
set rs=nothing
%>