<%
'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"))

if xuasgg="" then xuasgg=0
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 desc",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")=htmledit
		rs("lrysh")=lrysh
		rs.update

	rs.close:set rs=nothing
	
	
end if
conn.close
set conn=nothing

Response.Redirect "admin_set.asp#"&wz
%>