<%if Request.QueryString("no")="eshop" then dim SQL, Rs, contentID,CurrentPage CurrentPage = request("Page") contentID=request("ID") set rs=server.createobject("adodb.recordset") sqltext="delete from zhinews where Id="& contentID rs.open sqltext,conn,3,3 set rs=nothing conn.close response.redirect "Manage_zhiNews.asp" end if %> <% set rs=server.createobject("adodb.recordset") sqltext="select * from zhinews order by id desc" rs.open sqltext,conn,1,1 dim MaxPerPage MaxPerPage=20 dim text,checkpage text="0123456789" Rs.PageSize=MaxPerPage 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 call showpages call list If Rs.recordcount > MaxPerPage then call showpages end if '显示帖子的子程序 Sub list()%>
功能菜单

新闻管理
公司新闻管理
添加公司新闻
旅游知识管理
添加旅游知识
景点介绍管理
添加景点介绍



新闻管理

<% if not rs.eof then i=0 do while not rs.eof %> <% i=i+1 if i >= MaxPerpage then exit do rs.movenext loop end if %>
ID
新闻标题
操作
操作
操作
<%=rs("id")%>
  <%=rs("title")%>
   <% Response.write "-> 全部-" Response.write "共" & "" & Cstr(Rs.RecordCount) & "" & "条新闻          " Response.write "第" & "" & Cstr(CurrentPage) & "" & "/" & Cstr(rs.pagecount) & " " If currentpage > 1 Then response.write "首页 " Response.write "上一页 " Else Response.write "上一页 " End if If currentpage < Rs.PageCount Then Response.write "下一页 " Response.write "尾页  " Else Response.write "" Response.write "下一页  " End if 'response.write "" 'response.write "转到： " 'response.write "  " %>
<% End sub rs.close %>