<% dim totaldiary,adperpage,Currentpage,totalpages,i adperpage=15 set rs=server.createobject("adodb.recordset") sql="select * from jjh_notice order by notice_id DESC" rs.open sql,conn,1,1 %> <%if not rs.eof then rs.Movefirst rs.pagesize=adperpage if trim(request("page"))<>"" then currentpage=clng(request("page")) if currentpage>rs.pagecount then currentpage=rs.pagecount end if else currentpage=1 end if totaldiary=rs.recordcount if currentpage<>1 then if(currentpage-1)*adperpage <%i=i+1 rs.movenext loop else If rs.EOF And rs.BOF Then%> <%end if end if%>
本站公告管理 添加公告
ID
公告标题
添加时间
管理
<%=rs("notice_id")%> <%=rs("notice_title")%> <%=rs("notice_time")%> ">修改 ">删除
当前还没有 公告！
<%=currentpage%>/<%=totalpages%>页,<%=totaldiary%>条记录/<%=adperpage%>篇每页. <% i=1 dy10=false showye=totalpages if showye>10 then dy10=true showye=10 end if for i=1 to showye if i=currentpage then %> <%=i%> <%else%> <%=i%> <%end if next if totalpages>currentpage then if request("page")="" then page=1 else page=request("page")+1 end if%> >> <%end if%>
<% if request("type")="new" then%>
添加新公告
公告标题 *必须填写
公告来源
公告作者 ">
<%call ubbshow()%>
<% End If %> <% dim rs1,rs2 dim sql1,sql2 If Request.Form("ok")="确定新增" Then notice_title=request("notice_title") notice_content=request("notice_content") notice_author=request("notice_author") notice_comefrom=request("notice_comefrom") End If If request("action")="add" Then set rs1=server.CreateObject("adodb.recordset") rs1.Open "jjh_notice",conn,3,3 rs1.addnew rs1("notice_title")=notice_title rs1("notice_content")=notice_content rs1("notice_author")=notice_author rs1("notice_comefrom")=notice_comefrom rs1.update rs1.close response.Redirect("notice.asp") end if %> <% if request("type")="edit" then if request.querystring("notice_id")="" then errmsg=errmsg+"
"+"
  • 请指定操作的对象！" call diserror() response.end else if not isinteger(request.querystring("notice_id")) then errmsg=errmsg+"
    "+"
  • 非法的公告ID参数！" call diserror() response.end end if end if sql2="select * from jjh_notice where notice_id="&cint(request.querystring("notice_id")) set rs2=server.createobject("adodb.recordset") rs2.open sql2,conn,1,1 %>
    ">
    修改公告
    公告标题 "> *必须填写
    公告来源 ">
    公告作者 ">
    <%call ubbshow()%>
    <% rs2.close set rs2=nothing End If %> <% dim rs3,rs4,rs5 dim sql3,sql4,sql5 if request.form("okla")="确定修改" then notice_title=request("notice_title") notice_content=request("notice_content") notice_author=request("notice_author") notice_comefrom=request("notice_comefrom") End If If request("action")="edit" Then set rs3=server.CreateObject("adodb.recordset") sql3="select * from jjh_notice where notice_id="&cint(request.querystring("notice_id")) rs3.open sql3,conn,3,3 rs3("notice_title")=notice_title rs3("notice_content")=notice_content rs3("notice_author")=notice_author rs3("notice_comefrom")=notice_comefrom rs3.update rs3.close response.Redirect("notice.asp") end if %> <% If request("type")="del" Then if request.querystring("notice_id")="" then errmsg=errmsg+"
    "+"
  • 请指定操作的对象！" call diserror() response.end else if not isinteger(request.querystring("notice_id")) then errmsg=errmsg+"
    "+"
  • 非法的公告ID参数！" call diserror() response.end end if end if sql4="select * from jjh_notice where notice_id="&cint(request.querystring("notice_id")) set rs4=server.createobject("adodb.recordset") rs4.open sql4,conn,1,1 %>
    ">
    删除公告
    公告标题 <%=rs4("notice_title")%>
    公告来源 <%=rs4("notice_comefrom")%>
    公告作者 <%=rs4("notice_author")%>
    公告内容
    <%=rs4("notice_content")%>
    <% End If %> <% dim rs6 dim sql6 if request.Form("oklala")="确定删除" then if request.Form("notice_id")="" then founderr=true errmsg=errmsg+"
    "+"
  • 你必须指定操作的对象！" else if not isInteger(request.form("notice_id")) then founderr=true errmsg=errmsg+"
    "+"
  • 非法的公告id参数。" end if end if if request("action")="del" then set rs6=server.createobject("adodb.recordset") sql6="select * from jjh_notice where notice_id="&cint(request.querystring("notice_id")) rs6.open sql6,conn,1,3 rs6.delete rs6.close set rs6=nothing response.Redirect("notice.asp") end if end if %>