<% data_path="../../../" 'ACC连接数据库路径，对SQL无效 %> <% if request.Cookies("masterflag")="" or request.Cookies("masterflag")="" then response.write "" response.end end if '权限限制^^^^^^^^^^^^^^^^^^^^ dim ishavegant ishavegant=false in_str=split(request.Cookies("masterflag"),",") for each ins in in_str if trim(ins)="04" then ishavegant=true end if next if ishavegant=false then response.redirect "../../err.asp" response.end end if '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^End if request.QueryString("action")="del" then if not isempty(request("selAnnounce")) then newsidlist=request("selAnnounce") if instr(newsidlist,",")>0 then dim newsidarr newsidArr=split(newsidlist) dim log_newsid for i = 0 to ubound(newsidarr) log_newsid=clng(newsidarr(i)) call deleteannounce(log_newsid) next else call deleteannounce(clng(newsidlist)) end if end if end if %>

文章管理
	管理新闻 | 添加新闻 | 管理类别 | 添加类别 | [刷新页面]

搜索信息：    请选择所属类别 <% Sql="Select * from benming_ch_NewsCat where root=0 order by orderid" Set Rs=Server.CreateObject("ADODB.RecordSet") Rs.open Sql,Conn,1,1 do while not Rs.eof Response.Write("==="&Rs("CatName")&"===") Sql1="Select * from benming_ch_NewsCat where Root="&Rs("id") Set Rs1=Server.CreateObject("ADODB.RecordSet") Rs1.open Sql1,Conn,1,1 do while not Rs1.eof Response.Write("  "&Rs1("CatName")&"") Rs1.movenext loop Rs1.close Set Rs1=nothing Rs.movenext loop Rs.close Set Rs=nothing %>      请输入信息名称。如果为空，则查找所有信息。

<% if request("title")<>"" and request("typeid")<>"" then Sql="Select * from benming_ch_news where title like '%"&request.querystring("title")&"%' and typeid="&request("typeid")&" or rootid="&request("typeid")&" order by newsid desc" else if request("title")<>"" then Sql="Select * from benming_ch_news where title like '%"&request.querystring("title")&"%' order by newsid desc" else if request("typeid")<>"" then Sql="Select * from benming_ch_news where typeid="&request("typeid")&" or rootid="&request("typeid")&" order by newsid desc" else Sql="Select * from benming_ch_news order by newsid desc" end if end if end if set Rs=server.CreateObject("ADODB.Recordset") Rs.open Sql,conn,1,1 msg_per_page=15 %> <% j=1 do while not rs.eof and rowcount > 0 %> <% rowcount=rowcount-1 rs.movenext j=j+1 loop %>

文章列表
ID	文章标题	所属类别	发布日期	修改
<%=Rs("Newsid")%>	<% Response.write Rs("Title") if Rs("tjhome")=1 then %> <%end if%> <%if Rs("Picture")<>"/UploadFile/nopicture.gif" then%> ' border=1 width=220 height=150>" width="12" height="12" border="0" /> <%end if%>	<%=GetCatName(Rs("Typeid"))%>	<%=Rs("Dateandtime")%>	">修改
<%=listPages("News_index.asp")%>

<% Rs.close Set Rs=nothing '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^分类名称 Function GetCatName(id) Sql="Select CatName From benming_ch_NewsCat where id="&id Set Rstype=Server.CreateObject("ADODB.RecordSet") Rstype.open Sql,Conn,1,1 if Rstype.eof=False and Rstype.bof=False then GetCatName=Rstype("CatName") else GetCatName="" end if Rstype.close Set Rstype=nothing End function '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^删除文章图片同生成页面 sub deleteannounce(newsid) dim rs,sql, RsInfo Set RsINfo=Conn.Execute("Select newsid,typeid,Picture From benming_ch_news Where newsid="&newsid&" ") if NOt RsINfo.Eof Then ttid=RsINfo("newsid") typeid=RsINfo("typeid") Picture=RsInfo("Picture") 'FileName="/UploadFile/Newsuppic/"&typeid&"-"&ttid&".html" 'Call FileDel(FileName) '删除生成文件 FileName=Picture if Picture<>"/UploadFile/Newsuppic/nopicture.gif" then Call FileDel(FileName) '删除图片文件 end if End if RsInFo.Close Set RsInfo=NOthing set rs=server.createobject("adodb.recordset") sql="delete from [benming_ch_news] where newsid="&cstr(newsid) conn.execute sql if err.Number<>0 then err.clear response.write "删 除 失 败 !
" end if End sub Conn.close Set Conn=nothing %>