gusucode.com > 学校共青团组织网站源代码 > 学校共青团组织网站源代码/626/admin/admin_set_newsxg.asp
<% 'ON ERROR RESUME NEXT if session("dj")<>"1" then Response.Write "<BR><BR><BR><BR><center>权限不足,你没有此功能的管理权限" Response.end end if %> <!--#include file = admin_chk.asp --> <!--#include file = admin_conn.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: "Verdana,宋体,MingLiU"; TEXT-DECORATION: underline} body {font-size: 9pt; font-family: Verdana,宋体,MingLiU, Arial;color: #000000} TD {FONT-SIZE: 9pt; FONT-FAMILY: "Verdana,宋体,MingLiU, Arial";color: #000000;line-height: 120%;table-layout:fixed;word-break:break-all} p {FONT-SIZE: 9pt; FONT-FAMILY: "Verdana,宋体,MingLiU, Arial";color: #000000} input {FONT-SIZE: 9pt; FONT-FAMILY: "Verdana,宋体,MingLiU, Arial";color: #000000} body {margin-top: 0; margin-bottom: 0;margin-left:0;margin-right:0; color: #000000} select {FONT-SIZE: 9PT;font-family: Verdana,宋体} option {FONT-SIZE: 9pt;font-family: Verdana,宋体} textarea {FONT-SIZE: 9pt;font-family: Verdana,宋体} --> </STYLE> <% newsx=trim(request("newsx")) pl=trim(request("pl")) moreline=trim(request("moreline")) xuasgg=trim(request("xuasGG")) xuasGGWZ=trim(request("xuasGGWZ")) plfb=trim(request("plfb")) ggso=trim(request("ggso")) ZuZiIP=trim(Request("ZuZiIP")) lysh=trim(Request("lysh")) htmledit=trim(Request("htmledit")) lrySH=trim(Request("lrySH")) wz=trim(request("wz")) plsh=trim(request("plsh")) WebEmail=trim(request("WebEmail")) shyplsh=trim(request("shyplsh")) shylysh=trim(request("shylysh")) website=trim(request("website")) shyggsh=trim(request("shyggsh")) NewsWordKey=trim(request("NewsWordKey")) if NewsWordKey<>"" then NewsWordKey=replace(NewsWordKey,",",",") end if if instr(WebEmail,"@")=0 or instr(WebEmail,".")=0 then Response.Write "<script>alert('请正确填写EMAIL');</script> <meta http-equiv='refresh' content='0; url=javascript:window.history.go(-1);'>" Response.end end if if (not isNumeric(xuasgg)) then xuasgg=1 end if if xuasggwz="" then xuasggwz=0 if newsx<>"" and PL<>"" and moreline<>"" then 'conn.Execute "update [config] set [newsx]="&newsx&",[pl]="&pl&",[moreline]="&moreline&",[xuasGG]="&xuasGG&",[xuasGGWZ]="&xuasGGWZ&",[plfb]="&plfb&" " set rs = Server.CreateObject("ADODB.RecordSet") rs.Open "select * from [config] order by id asc",conn,1,3 rs("newsx")=newsx rs("pl")=pl rs("moreline")=moreline rs("xuasgg")=xuasgg rs("xuasggwz")=xuasggwz rs("plfb")=plfb&" " rs("ggso")=ggso rs("zuziip")=zuziip rs("lysh")=lysh rs("tghtmledit")=0 rs("lrysh")=lrysh rs("plsh")=plsh rs("WebEmail")=WebEmail rs("shyplsh")=shyplsh rs("shylysh")=shylysh rs("website")=website rs("shyggsh")=shyggsh rs("NewsWordKey")=NewsWordKey rs.update rs.close:set rs=nothing end if conn.close set conn=nothing Response.Redirect "admin_set.asp#"&wz %>