www.gusucode.com > 学校共青团组织网站源代码 > 学校共青团组织网站源代码/626/admin_htmlqx.asp
<% Server.ScriptTimeOut = 600 if Request.Cookies("admindj")<>"1" then Response.Write "<BR><BR><BR><BR><center>权限不足,你没有此功能的管理权限" Response.end end if %> <!--#include file = admin_chk.asp --> <!--#include file = admin_conn.asp --> <!--#include file = titleb.asp --> <html> <head> <!--#include file = language.asp --> <STYLE type="text/css"> <!-- a:link {text-decoration: none; font-family: AdobeSm; color: #000000 } a:visited {text-decoration: none; color: #000000 } A:hover {COLOR: green; FONT-FAMILY: "宋体,MingLiU"; TEXT-DECORATION: underline} body {font-size: 9pt; font-family: 宋体,MingLiU, Arial;color: #000000} TD {FONT-SIZE: 9pt; FONT-FAMILY: "宋体,MingLiU, Arial";color: #000000;table-layout:fixed;word-break:break-all} input {FONT-SIZE: 9pt; FONT-FAMILY: "宋体,MingLiU, Arial";color: #000000} body {margin-top: 0; margin-bottom: 0;margin-left:0;margin-right:0; color: #000000} select {FONT-SIZE: 9PT;} option {FONT-SIZE: 9pt;} textarea {FONT-SIZE: 9pt;} --> </STYLE> </head> <body> <% lm=chkhtm(trim(request("lm"))) html=1 iii=0 jjj=0 if (not isNumeric(lm)) then Response.Write "<Script Language=JavaScript>alert('栏目参数错误或有非法字符或没指定参数,请勿随意提交数据!');</Script>" response.end end if set rshtml = Server.CreateObject("ADODB.RecordSet") rshtml.Open "select * from [News] where ( LM='"&lm&"' or lm2='"&lm&"' or lm3='"&lm&"' ) and sh=1 order by id desc",conn,1,1 while not rshtml.eof filename=rshtml("filename") if filename<>"0" then sdDel(filename) conn.Execute "update [news] set [filename]='0',[html]=0 where id="&clng(rshtml("id")) iii=iii+1 else jjj=jjj+1 end if rshtml.movenext wend rshtml.close:set rshtml=nothing %> </body> <script>alert('共有新闻<%=iii+jjj%>条,取消静态新闻<%=iii%>条');</script> <meta http-equiv='refresh' content='0; url=javascript:window.history.go(-1);'> </html> <% conn.close:set conn=nothing %>