<% backURL="newslist.asp"
'menuid=request("typeid") 'menuid 记载的是Type_Table表中的TYPEIDC
'strSQLname="select * from tbl_news order by updateDate desc"
' CmdBegin adcmdtext,strSQLname
' set Rsname=CmdExec()
'if not Rsname.eof then titlename=Rsname ("typename")
'session("typename")=titlename
'session("typeid")=Rsname("Typeid")
pagesize=10
pageon=0
strSQL="SELECT count(*) as totalc FROM tbl_news "
CmdBegin adcmdtext,strSQL
CmdExec()
totalc=rs("totalc")
if totalc mod pagesize>0 then
pagecount=(totalc\pagesize)+1
else
pagecount=totalc\pagesize
end if
pageon=cint(request("pageon"))
if pageon<1 then pageon=1
if pageon>pagecount then pageon=pagecount
pagestart=(pageon-1)*pagesize
pageend=pagestart+pagesize
%>
