webconfig_inc.asp

来自「网店批发系统,很好很强大,很好很强大很好很强大」· ASP 代码 · 共 102 行

<%
	call CheckType(35)	
	dim Action,webName,WebUrl,WebLogo,WebBanner,WebAddress,WebCode,WebTel,WebCZ,WebQQ,WebQQflag,WebFu,WebFuflag,WebGua,WebGuaflag,rs,TuijianNum,XinpinNum,TejiaNum,PageNum,WebBannerUrl,WebFuUrl,WebGuaUrl,Email,JifenChange,WebQQType,TitleColor,WebContent,AliPayID,AliPayWord,BUSSID,PrivateKey,mailfrom,mailname,mailusername,mailuserpass,bbsText,WebGua1,WebGua1Url,AliPayflag,BUSSflag,metakey,meta,lan
	dim config(41)
	
	Action=Request.QueryString("Action")
	
	if Action="save" then	
		webName=sqlchg(Request.Form("webName"))
		WebUrl=sqlchg(Request.Form("WebUrl"))
		WebLogo=sqlchg(Request.Form("WebLogo"))
		WebBanner=sqlchg(Request.Form("WebBanner"))
		WebAddress=sqlchg(Request.Form("WebAddress"))
		WebCode=sqlchg(Request.Form("WebCode"))
		WebTel=sqlchg(Request.Form("WebTel"))
		WebCZ=sqlchg(Request.Form("WebCZ"))
		WebQQ=sqlchg(Request.Form("WebQQ"))
		WebQQflag=sqlchg(Request.Form("WebQQflag"))
		WebFu=sqlchg(Request.Form("WebFu"))
		WebFuflag=sqlchg(Request.Form("WebFuflag"))
		WebGua=sqlchg(Request.Form("WebGua"))
		WebGuaUrl=sqlchg(Request.Form("WebGuaUrl"))
		WebGua1=sqlchg(Request.Form("WebGua1"))
		WebGua1Url=sqlchg(Request.Form("WebGua1Url"))
		WebGuaflag=sqlchg(Request.Form("WebGuaflag"))
		TuijianNum=sqlchg(Request.Form("TuijianNum"))
		XinpinNum=sqlchg(Request.Form("XinpinNum"))
		TejiaNum=sqlchg(Request.Form("TejiaNum"))
		PageNum=sqlchg(Request.Form("PageNum"))
		WebBannerUrl=sqlchg(Request.Form("WebBannerUrl"))
		WebFuUrl=sqlchg(Request.Form("WebFuUrl"))
		Email=sqlchg(Request.Form("Email"))
		JifenChange=sqlchg(Request.Form("JifenChange"))
		WebQQType=sqlchg(Request.Form("WebQQType"))
		TitleColor=sqlchg(Request.Form("TitleColor"))
		WebContent=sqlchg(Request.Form("WebContent"))
		AliPayID=sqlchg(Request.Form("AliPayID"))
		AliPayWord=sqlchg(Request.Form("AliPayWord"))
		BUSSID=sqlchg(Request.Form("BUSSID"))
		PrivateKey=sqlchg(Request.Form("PrivateKey"))
		mailfrom=sqlchg(Request.Form("mailfrom"))
		mailname=sqlchg(Request.Form("mailname"))
		mailusername=sqlchg(Request.Form("mailusername"))
		mailuserpass=sqlchg(Request.Form("mailuserpass"))
		metakey=sqlchg(Request.Form("metakey"))
		meta=sqlchg(Request.Form("meta"))
		lan=sqlcheck(Request.Form("lan"))
		bbsText=Request.Form("bbsText")
		AliPayflag=sqlcheck(Request.Form("AliPayflag"))
		BUSSflag=sqlcheck(Request.Form("BUSSflag"))
		conn.execute("update Webconfig set webName='"&webName&"',WebUrl='"&WebUrl&"',WebLogo='"&WebLogo&"',WebBanner='"&WebBanner&"',WebAddress='"&WebAddress&"',WebCode='"&WebCode&"',WebTel='"&WebTel&"',WebCZ='"&WebCZ&"',WebQQ='"&WebQQ&"',WebQQflag='"&WebQQflag&"',WebFu='"&WebFu&"',WebFuflag='"&WebFuflag&"',WebGua='"&WebGua&"',WebGuaflag='"&WebGuaflag&"',TuijianNum='"&TuijianNum&"',XinpinNum='"&XinpinNum&"',TejiaNum='"&TejiaNum&"',PageNum='"&PageNum&"',WebBannerUrl='"&WebBannerUrl&"',WebFuUrl='"&WebFuUrl&"',Email='"&Email&"',JifenChange='"&JifenChange&"',WebQQType='"&WebQQType&"',TitleColor='"&TitleColor&"',WebContent='"&WebContent&"',AliPayID='"&AliPayID&"',AliPayWord='"&AliPayWord&"',BUSSID='"&BUSSID&"',PrivateKey='"&PrivateKey&"',mailname='"&mailname&"',mailfrom='"&mailfrom&"',mailusername='"&mailusername&"',mailuserpass='"&mailuserpass&"',bbsText='"&bbsText&"',WebGua1='"&WebGua1&"',WebGuaUrl='"&WebGuaUrl&"',WebGua1Url='"&WebGua1Url&"',AliPayflag='"&AliPayflag&"',BUSSflag='"&BUSSflag&"',metakey='"&metakey&"',meta='"&meta&"',lan='"&lan&"'")
		Response.Write("<script language='javascript'>alert('操作成功');window.location.href='Webconfig.asp';</script>")
		Response.End()
	else
		set rs=server.CreateObject("adodb.recordset")
		rs.open"select WebName,WebUrl,WebLogo,WebBanner,WebAddress,WebCode,WebTel,WebCZ,WebQQ,WebQQflag,WebFu,WebFuflag,WebGua,WebGuaflag,TuijianNum,XinpinNum,TejiaNum,PageNum,WebBannerUrl,WebFuUrl,WebGuaUrl,Email,JifenChange,WebQQType,TitleColor,WebContent,AliPayID,AliPayWord,BUSSID,PrivateKey,mailfrom,mailname,mailusername,mailuserpass,bbsText,WebGua1,WebGua1Url,AliPayflag,BUSSflag,metakey,meta,lan from Webconfig",conn,1,1
			config(0)=rs("WebName")
			config(1)=rs("WebUrl")
			config(2)=rs("WebLogo")
			config(3)=rs("WebBanner")
			config(4)=rs("WebAddress")
			config(5)=rs("WebCode")
			config(6)=rs("WebTel")
			config(7)=rs("WebCZ")
			config(8)=rs("WebQQ")
			config(9)=rs("WebQQflag")
			config(10)=rs("WebFu")
			config(11)=rs("WebFuflag")
			config(12)=rs("WebGua")
			config(13)=rs("WebGuaflag")
			config(14)=rs("TuijianNum")
			config(15)=rs("XinpinNum")
			config(16)=rs("TejiaNum")
			config(17)=rs("PageNum")
			config(18)=rs("WebBannerUrl")
			config(19)=rs("WebFuUrl")
			config(20)=rs("WebGuaUrl")
			config(21)=rs("Email")	
			config(22)=rs("JifenChange")
			config(23)=rs("WebQQType")
			config(24)=rs("TitleColor")
			config(25)=rs("WebContent")
			config(26)=rs("AliPayID")
			config(27)=rs("AliPayWord")
			config(28)=rs("BUSSID")
			config(29)=rs("PrivateKey")
			config(30)=rs("mailfrom")
			config(31)=rs("mailname")
			config(32)=rs("mailusername")
			config(33)=rs("mailuserpass")	
			config(34)=rs("bbsText")
			config(35)=rs("WebGua1")	
			config(36)=rs("WebGua1Url")	
			config(37)=rs("AliPayflag")	
			config(38)=rs("BUSSflag")	
			config(39)=rs("metakey")	
			config(40)=rs("meta")	
			config(41)=rs("lan")	
		rs.close
		set rs=nothing
	end if
%>