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
%>