<%
dim id,rs,exec
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
rs.close
set rs = nothing
conn.close
set conn = nothing
response.write ""
response.end
end if
set rs2=server.createobject("adodb.recordset")
exec2="select * from news_fl where id="&id&" order by id desc "
rs2.open exec2,conn,1,1
titlefl = rs2("title")
%>
<%=config("title")%>
" />
" />
锘?/head>
<%
rs.PageSize =9 '姣忛〉璁板綍鏉℃暟
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%>
棣栭〉-浼佷笟鍔ㄦ€?鏂伴椈涓績