<!--#include file="conn.asp"-->
<!--#include file="chkadmin.asp"-->
<!--#include file="inc/char.asp"-->
<%dim FtpSetting
FtpSetting=Trim(Request.Form("FtpSetting"))

dim sql,rs,errmsg,founderr
founderr=false

if chkadmin=false or power(5)="0" then
	founderr=true
	errmsg=errmsg+"<li>您没有FTP下载设置的权限</li>"
end if

if strlen(FtpSetting)>255 then
	founderr=true
	errmsg=errmsg+"<li>FTP下载地址不能超过255个字符</li>"
end if

if founderr=false then
	conn.execute("update Config set FtpSetting='"&FtpSetting&"'")
	dim gourl,msg
	gourl="ftp_set.asp"
	msg="FTP设置修改成功！"
	call ok()
else
	call error()
end if

conn.close
set conn=nothing
%>