<% dim totaldiary,adperpage,Currentpage,totalpages,i adperpage=15 set rs=server.createobject("adodb.recordset") sql="select * from jjh_news order by news_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("news_id")%> <%=rs("news_title")%> <%=rs("news_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 news_title=request("news_title") news_content=request("news_content") news_author=request("news_author") news_images=request("news_images") news_comefrom=request("news_comefrom") news_tui=request("news_tui") End If If request("action")="add" Then set rs1=server.CreateObject("adodb.recordset") rs1.Open "jjh_news",conn,3,3 rs1.addnew rs1("news_title")=news_title rs1("news_content")=news_content rs1("news_author")=news_author rs1("news_images")=news_images rs1("news_tui")=news_tui rs1("news_comefrom")=news_comefrom rs1.update rs1.close response.Redirect("news.asp") end if %> <% if request("type")="edit" then if request.querystring("news_id")="" then errmsg=errmsg+"
"+"
  • 请指定操作的对象！" call diserror() response.end else if not isinteger(request.querystring("news_id")) then errmsg=errmsg+"
    "+"
  • 非法的新闻ID参数！" call diserror() response.end end if end if sql2="select * from jjh_news where news_id="&cint(request.querystring("news_id")) set rs2=server.createobject("adodb.recordset") rs2.open sql2,conn,1,1 %>
    ">
    修改新闻
    新闻标题 "> *必须填写
    新闻来源 ">
    新闻作者 ">
    图片新闻 "> [ 上传图片 ] 如果不是图片新闻可以不填写
    是否推荐 value="0"> 不推荐 value="1"> 推荐  
    <%call ubbshow()%>
    <% rs2.close set rs2=nothing End If %> <% dim rs3,rs4,rs5 dim sql3,sql4,sql5 if request.form("okla")="确定修改" then news_title=request("news_title") news_content=request("news_content") news_images=request("news_images") news_tui=request("news_tui") news_author=request("news_author") news_comefrom=request("news_comefrom") End If If request("action")="edit" Then set rs3=server.CreateObject("adodb.recordset") sql3="select * from jjh_news where news_id="&cint(request.querystring("news_id")) rs3.open sql3,conn,3,3 rs3("news_title")=news_title rs3("news_content")=news_content rs3("news_author")=news_author rs3("news_images")=news_images rs3("news_tui")=news_tui rs3("news_comefrom")=news_comefrom rs3.update rs3.close response.Redirect("news.asp") end if %> <% If request("type")="del" Then if request.querystring("news_id")="" then errmsg=errmsg+"
    "+"
  • 请指定操作的对象！" call diserror() response.end else if not isinteger(request.querystring("news_id")) then errmsg=errmsg+"
    "+"
  • 非法的新闻ID参数！" call diserror() response.end end if end if sql4="select * from jjh_news where news_id="&cint(request.querystring("news_id")) set rs4=server.createobject("adodb.recordset") rs4.open sql4,conn,1,1 %>
    ">
    删除新闻
    新闻标题 <%=rs4("news_title")%>
    新闻来源 <%=rs4("news_comefrom")%>
    新闻作者 <%=rs4("news_author")%>
    新闻内容
    <%=rs4("news_content")%>
    <% End If %> <% dim rs6 dim sql6 if request.Form("oklala")="确定删除" then if request.Form("news_id")="" then founderr=true errmsg=errmsg+"
    "+"
  • 你必须指定操作的对象！" else if not isInteger(request.form("news_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_news where news_id="&cint(request.querystring("news_id")) rs6.open sql6,conn,1,3 rs6.delete rs6.close set rs6=nothing response.Redirect("news.asp") end if end if %>