<% 'ON ERROR RESUME NEXT if Request.Cookies("admindj")<>"1" then Response.Write "



权限不足，你没有此功能的管理权限" Response.end end if %> <% set rs = Server.CreateObject("ADODB.RecordSet"):rs.cursorlocation=3 rs.Open "select id,pl from [Config] order by id asc",conn,1,1 if rs.recordcount>1 then for i=1 to rs.recordcount if i<>1 then conn.Execute "delete from [Config] where ID="&Clng(rs("ID")) end if rs.movenext if rs.eof then exit for next end if rs.close:set rs=nothing 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")) Hotday=trim(request("Hotday")) lryedit=trim(request("lryedit")) pldesc=trim(request("pldesc")) alipayUser=trim(request("alipayUser")) alipayID=trim(request("alipayID")) alipaycode=trim(request("alipaycode")) WeiBoShare=trim(chkhtm(request("WeiBoShare"))) TitleEllipsis=trim(request("TitleEllipsis")) DongTaiZhuanXiang=trim(request("DongTaiZhuanXiang")) AliPaySKF=trim(chkhtm(request("AliPaySKF"))) NewsPL=trim(request("NewsPL")) if NewsWordKey<>"" then NewsWordKey=replace(NewsWordKey,"，",",") end if if instr(WebEmail,"@")=0 or instr(WebEmail,".")=0 then Response.Write " " Response.end end if if (not isNumeric(xuasgg)) then xuasgg=1 end if if xuasggwz="" then xuasggwz=0 if (not isNumeric(plfb)) then plfb=1 if newsx<>"" and PL<>"" then set rs = Server.CreateObject("ADODB.RecordSet"):rs.cursorlocation=3 rs.Open "select * from [config] order by id asc",conn,3,3 rs("newsx")=trim(request("newsx")) Application(configpath&"newsx")=trim(request("newsx")) rs("pl")=trim(request("pl")) Application(configpath&"pl")=trim(request("pl")) rs("xuasgg")=trim(request("xuasgg")) Application(configpath&"xuasgg")=trim(request("xuasgg")) rs("xuasggwz")=trim(request("xuasggwz")) Application(configpath&"xuasggwz")=trim(request("xuasggwz")) rs("plfb")=trim(request("plfb")) Application(configpath&"plfb")=trim(request("plfb")) rs("ggso")=trim(request("ggso")) Application(configpath&"ggso")=trim(request("ggso")) rs("zuziip")=trim(request("zuziip")) Application(configpath&"zuziip")=trim(request("zuziip")) rs("lysh")=lysh Application(configpath&"lysh")=trim(request("lysh")) rs("tghtmledit")=0 Application(configpath&"tghtmledit")=0 rs("lrysh")=trim(request("lrysh")) Application(configpath&"lrysh")=trim(request("lrysh")) rs("plsh")=trim(request("plsh")) Application(configpath&"plsh")=trim(request("plsh")) rs("WebEmail")=trim(request("WebEmail")) Application(configpath&"WebEmail")=trim(request("WebEmail")) rs("shyplsh")=shyplsh Application(configpath&"shyplsh")=shyplsh rs("shylysh")=shylysh Application(configpath&"shylysh")=shylysh rs("website")=website Application(configpath&"website")=website rs("shyggsh")=shyggsh Application(configpath&"shyggsh")=shyggsh rs("NewsWordKey")=NewsWordKey Application(configpath&"NewsWordKey")=NewsWordKey rs("Hotday")=Hotday Application(configpath&"Hotday")=Hotday rs("lryedit")=lryedit Application(configpath&"lryedit")=lryedit rs("pldesc")=pldesc Application(configpath&"pldesc")=pldesc rs("alipayUser")=alipayUser rs("alipayID")=alipayID rs("alipaycode")=alipaycode rs("WeiBoShare")=WeiBoShare rs("TitleEllipsis")=TitleEllipsis rs("DongTaiZhuanXiang")=DongTaiZhuanXiang Application(configpath&"alipayUser")=alipayUser Application(configpath&"alipayID")=alipayID Application(configpath&"alipaycode")=alipaycode rs("NewsPL")=NewsPL rs("AliPaySKF")=AliPaySKF Application(configpath&"AliPaySKF")=AliPaySKF rs.update rs.close:set rs=nothing end if conn.close set conn=nothing Application.Contents.RemoveAll session.Contents.RemoveAll Response.Redirect "admin_set.asp#"&wz %>