<% myclass=Request("class")
if myclass="" or not isnumeric(myclass) then
myclass=1
else
myclass=cint(myclass)
end if
sqlstr="select * from t_news_purpose where newsort=" & myclass &" and me_version='cn' order by topsign desc,id desc"
set myrs=server.CreateObject("adodb.recordset")
myrs.Open sqlstr,conn,1,1
sqlstr="select newsort from t_news_sort where id=" & myclass
set rs=server.CreateObject("adodb.recordset")
rs.Open sqlstr,conn,1,1
if rs.RecordCount<>0 then
ttt=rs("newsort")
end if
rs.Close
set rs=nothing
%>
<%
tablewidth=520'定义表格的宽度
tablestyle="p9" '定义表格的样式
if myrs.RecordCount>0 then
myrs.PageSize=10'每页显示的记录数 '显示标题时
total_page=myrs.PageCount
total_red=myrs.RecordCount
current_page=Request("me_page")
if current_page="" then
current_page=1
elseif not isnumeric(current_page) then
current_page=1
else
current_page=cint(current_page)
end if
if current_page>total_page then
current_page=total_page
elseif current_page<1 then
current_page=1
end if
myrs.AbsolutePage=current_page
%>
