Untitled Document

<% IF Session("KEY")>"2" THEN response.write "" response.end END IF '========================================== ' ' SuperCMS新闻文章内容管理系统 V 1.0 ' ' 官方网址：http://www.supercms.cn ' www.supercms.net ' '========================================== '程序名称： SuperCMS新闻文章内容管理系统 '英文名称：Super Content Management System '作者：创意小子 '联系 Q Q： 77801933 ' '程序创建时间：2005-6-10 '程序完成时间：2005-8-1 '========================================== '请尊重作者版权不要删除以上信息 ' '力争做国内最好最实用的开源网站内容管理系统 ' '特别感谢玄鸟科技提供的大力支持 ' http://www.superbtec.com '========================================== %> <% '============================================= '名称:LastNextPage '作用:分页的调用 '============================================= Sub LastNextPage(pagecount,page,resultcount) Dim query, a, x, temp action = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME") query = Split(Request.ServerVariables("QUERY_STRING"), "&") For Each x In query a = Split(x, "=") If StrComp(a(0), "page", vbTextCompare) <> 0 Then temp = temp & a(0) & "=" & a(1) & "&" End If Next Response.Write("" & vbCrLf ) Response.Write("" & vbCrLf ) Response.Write("" & vbCrLf ) Response.Write("" & vbCrLf ) Response.Write("

" & vbCrLf ) ' Response.Write(font_style & vbCrLf ) if page<=1 then Response.Write ("首页 " & vbCrLf) Response.Write ("上一页 " & vbCrLf) else Response.Write("首页 " & vbCrLf) Response.Write("上一页 " & vbCrLf) end if if page>=pagecount then Response.Write ("下一页 " & vbCrLf) Response.Write ("尾页" & vbCrLf) else Response.Write("下一页 " & vbCrLf) Response.Write("尾页" & vbCrLf) end if Response.Write(" 第" & " " & "页" & vbCrLf & "") Response.Write(" 共 " & pageCount & " 页" & vbCrLf) Response.Write(" " & resultcount & " 条记录" & vbCrLf) Response.Write("

" & vbCrLf ) End Sub %> Untitled Document

文章评论管理

<%'开始分页 dim ss ss=request("ss") set rs=server.createobject("adodb.recordset") if ss=""then rs.open "select * from Reply order by id desc",conn,1,1 else rs.open "select * from Reply where newsid="&ss&" order by id desc",conn,1,1 end if if not rs.eof then rs.PageSize =20 '每页记录条数 result_num=rs.RecordCount '记录总数 maxpage=rs.PageCount page=request("page") if Not IsNumeric(page) or page="" then page=1 else page=cint(page) end if if page<1 then page=1 elseif page>maxpage then page=maxpage end if rs.AbsolutePage=Page else result_num=0 maxpage=0 page=0 end if if not rs.eof then for i=1 to rs.PageSize %>

<% response.write "评论ID："&trim(rs("id"))&" " response.write "用户名："&trim(rs("rname"))&"" response.write " 所属文章ID："&trim(rs("newsid"))&" 发布日期："&trim(rs("rdate")) %> <%if ss="" then%> " size=4> <%end if%>

<% sql1="select * from article inner join type on article.typeid=type.typeid where newsid="&rs("newsid") set rs1=server.createobject("adodb.recordset") rs1.open sql1,conn,1,1 %> /<%=rs1("N_fname")%> target=_blank title="预览文章'<%=rs1("title")%>'详细内容">预览 <%rs1.colse%> " onClick="return confirm('您确定删除吗？')">删除

<%=trim(rs("rcontent"))%>

<%rs.movenext if rs.EOF then Exit For next end if rs.close set rs=nothing %>

<% call LastNextPage(maxpage,page,result_num) %>