Position
：Home >>
<% lb=Trim(Request("lb"))
if lb="" then
%>
<%
set rs1= Server.CreateObject("adodb.recordset")
sql="select * from xxdq_en where id=19"
rs1.open sql,conn,1,1
%>
<%= rs1("diqu") %>
<% set rs1=nothing %>
<%
Else
set rsc= Server.CreateObject("adodb.recordset")
sql="select * from n_class where id="&lb
rsc.open sql,conn,1,1
Response.Write(rsc("cname"))
end if
%>
news
title
time
<%
if lb="" then
sql="select * from nnews order by id desc"
else
sql="select * from nnews where nclass="&lb&" order by id desc"
end if
set rs= Server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
dim MaxPerPageFeedback
MaxPerPageFeedback=15
'取得页数,并判断留言输入的是否数字类型的数据，如不是将以第一页显示
dim text,checkpage
text="0123456789"
rs.PageSize=MaxPerPageFeedback
for i=1 to len(request("page"))
checkpage=instr(1,text,mid(request("page"),i,1))
if checkpage=0 then
exit for
end if
next
If checkpage<>0 then
If NOT IsEmpty(request("page")) Then
CurrentPage=Cint(request("page"))
If CurrentPage < 1 Then CurrentPage = 1
If CurrentPage > rs.PageCount Then CurrentPage = rs.PageCount
Else
CurrentPage= 1
End If
If not rs.eof Then rs.AbsolutePage = CurrentPage end if
Else
CurrentPage=1
End if
%>
<%
If rs.eof and rs.bof then
If rs.eof and rs.bof then
response.write " 没有留言"
End if
End if
%>
<%
i=0
do while not rs.eof
%>
<%
i=i+1
if i >= MaxPerPageFeedback then exit do
rs.movenext
loop
%>
<%
Response.write "all"
Response.write "A total of" & Cstr(rs.RecordCount) & "article "
Response.write "The current in" & Cstr(CurrentPage) & "/page 共 " & Cstr(rs.pagecount) & " page"
If currentpage > 1 Then
response.write " home "
Response.write " Previous page "
Else
Response.write " Previous page "
End if
If currentpage < rs.PageCount Then
Response.write " After the page "
Response.write " back "
Else
Response.write ""
Response.write " After the page "
End if
Response.write "to "
response.write" page"
%>
