课程设计代码

list.asp

<%Option Explicit%>

52w.net Newsboy Sample Page

'新闻主类别列表

sql=\set rs=server.CreateObject(\rs.open sql,conn,3,1 if rs.eof then

response.write\暂无分类\else

do while not rs.eof response.write

href=list.asp?bClassID=\ rs.movenext loop

\

end if %>

|


'新闻列表

dim PgSz,total,page,RowCount,qu,record,classID,bClassID classID=request.QueryString(\bClassID=request.QueryString(\if bClassID=\bClassID=1 end if

set rs=Server.CreateObject(\

if classID=\

sql=\ORDER BY newsID DESC\else

sql=\and classID='\end if

rs.open sql,Conn,1,1 if rs.RecordCount=0 then

response.write\暂无新闻

\else

record=rs.recordcount

PgSz=15 '每页显示的新闻数量 rs.PageSize = Cint(PgSz) total=int(record/PgSz*-1)*-1 page=Request(\if page=\page = 1

else

page=page+1 page=page-1 end if

if page<1 Then page=1 end if

rs.absolutePage = page dim start

start=PgSz*Page-PgSz+1

sub showpage() if page > 1 Then response.write

href=list.asp?bClassID=\class=1>上一页  \else

response.write \上一页  \end if

if RowCount = 0 and page <>Total then response.write

\

\

联系客服:779662525#qq.com(#替换为@) 苏ICP备20003344号-4