课程设计代码

list.asp

<%Option Explicit%>

'新闻主类别列表

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 %>

|

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 \ rs.movenext loop end if rs.close

set rs=nothing %>

'新闻列表

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\暂无新闻

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

\

\

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

response.write \下一页\end if

response.write\共\条新闻，分\页\end sub

response.write\ dim dt,mydate

dt=rs(3)

if len(month(dt))<2 then

mydate=year(dt)&\ else

mydate=year(dt)&month(dt) end if

do while not (rs is nothing) rowCount = rs.PageSize

do while Not rs.eof and rowcount>0

'新闻条目输出样式 response.write\

href=redir.asp?\bsp; \

response.write\ RowCount=RowCount-1 rs.movenext loop

set rs=rs.nextrecordset loop

response.write\%>

set rs=nothing %>

sql=\classID ASC\

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

response.write\暂无子分类

response.write\ do while not rs.eof

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

response.write\end if rs.close

set rs=nothing %>

<%

conn.close

set conn=nothing %> body>

addclass.asp 添加新闻类别