admin_constsave.asp

庐江二中

<!--#include file="session.asp"-->
<%checkAdmin3%>
<!--#include file="conn.asp"-->
<%
founderr=false

if instr(trim(request.form("Ver")),"LJez System")=0 then
	errmsg=errmsg+"<li>请尊重庐江二中版权，保留原版本信息：LJez System,谢谢！"
	founderr=true
end if
if trim(request.form("WebTitle"))="" then
	errmsg=errmsg+"<li>网站标题不能为空！"
	founderr=true
end if
if trim(request.form("WebUrl"))="" then
	errmsg=errmsg+"<li>网站地址不能为空！"
	founderr=true
end if

if founderr=true then
	call error()
else	
	sql="select * from const"
	rs.open sql,conn,1,3
	rs("WebTitle")=request.form("WebTitle")
	rs("WebUrl")=request.form("WebUrl")
	if trim(request.form("Logo"))="" then
	rs("Logo")=null
	else
	rs("Logo")=request.form("Logo")
	end if
	if trim(request.form("ImgPath"))="" then
	rs("ImgPath")="newsimg/"
	else
	if right(request.form("ImgPath"),1)<>"/" then
	rs("ImgPath")=request.form("ImgPath")+"/"
	else
	rs("ImgPath")=request.form("ImgPath")
	end if
	end if	
	if trim(request.form("Copyright"))="" then
	rs("Copyright")=null
	else
	rs("Copyright")=request.form("Copyright")
	end if
	if trim(request.form("Ver"))="" then
	rs("Ver")=null
	else
	rs("Ver")=request.form("Ver")
	end if
	if trim(request.form("AdminEmail"))="" then
	rs("AdminEmail")=null
	else
	rs("AdminEmail")=request.form("AdminEmail")
	end if
	if trim(request.form("SMTPServer"))="" then
	rs("SMTPServer")=null
	else
	rs("SMTPServer")=request.form("SMTPServer")
	end if
	if trim(request.form("uploadflag"))="" then
	rs("uploadflag")=null
	else
	rs("uploadflag")=request.form("uploadflag")
	end if	
	
	rs("EmailFlag")=request.form("EmailFlag")
	
	if Not IsNumeric(Request.form("Time_out")) Or IsEmpty(Request.form("Time_out")) Or Request.form("Time_out") <50 then
	rs("Time_out")=500
	else
	rs("Time_out")=request.form("Time_out")
	end if	
	if trim(request.form("StartDate"))="" then
	rs("startDate")=null
	else
	rs("StartDate")=request.form("StartDate")
	end if
	if Not IsNumeric(Request.form("THeight")) Or IsEmpty(Request.form("THeight")) Or Request.form("THeight")<=0 then
	rs("THeight")=0
	else
	rs("THeight")=request.form("THeight")
	end if	
	if Not IsNumeric(Request.form("FlashWidth")) Or IsEmpty(Request.form("FlashWidth")) Or Request.form("FlashWidth") <=0 then
	rs("FlashWidth")=500
	else
	rs("FlashWidth")=request.form("FlashWidth")
	end if
	if Not IsNumeric(Request.form("MaxList")) Or IsEmpty(Request.form("MaxList")) Or Request.form("MaxList") <=0 Then	
	rs("MaxList")=20
	else
	rs("MaxList")=request.form("MaxList")		
	end if
	if Not IsNumeric(Request.form("MaxNewsList")) Or IsEmpty(Request.form("MaxNewsList")) Or Request.form("MaxNewsList") <=0 Then		
	rs("MaxNewsList")=10
	else
	rs("MaxNewsList")=request.form("MaxNewsList")		
	end if
	if Not IsNumeric(Request.form("MaxFocusNewsList")) Or IsEmpty(Request.form("MaxFocusNewsList")) Or Request.form("MaxFocusNewsList") <=0 Then		
	rs("MaxFocusNewsList")=10
	else
	rs("MaxFocusNewsList")=request.form("MaxFocusNewsList")		
	end if
	if Not IsNumeric(Request.form("MaxGoodNewsList")) Or IsEmpty(Request.form("MaxGoodNewsList")) Or Request.form("MaxGoodNewsList") <=0 Then		
	rs("MaxGoodNewsList")=10
	else
	rs("MaxGoodNewsList")=request.form("MaxGoodNewsList")		
	end if		
	if Not IsNumeric(Request.form("MaxTxtList")) Or IsEmpty(Request.form("MaxTxtList")) Or Request.form("MaxTxtList") <=0 Then		
	rs("MaxTxtList")=10
	else
	rs("MaxTxtList")=request.form("MaxTxtList")		
	end if
	if Not IsNumeric(Request.form("MaxTxtListDate")) Or IsEmpty(Request.form("MaxTxtListDate")) Or Request.form("MaxTxtListDate") <0 Then		
	rs("MaxTxtListDate")=30
	else
	rs("MaxTxtListDate")=request.form("MaxTxtListDate")		
	end if	
	if Not IsNumeric(Request.form("MaxImgList")) Or IsEmpty(Request.form("MaxImgList")) Or Request.form("MaxImgList") <=0 Then		
	rs("MaxImgList")=3
	else
	rs("MaxImgList")=request.form("MaxImgList")		
	end if
	if Not IsNumeric(Request.form("MaxSpecialList")) Or IsEmpty(Request.form("MaxSpecialList")) Or Request.form("MaxSpecialList") <=0 Then	
	rs("MaxSpecialList")=5
	else
	rs("MaxSpecialList")=request.form("MaxSpecialList")		
	end if
	if Not IsNumeric(Request.form("InDate")) Or IsEmpty(Request.form("InDate")) Or Request.form("InDate") <=0 Then	
	rs("InDate")=0
	else
	rs("InDate")=request.form("InDate")		
	end if	
		
	rs("OpenCheck")=request.form("OpenCheck")
	rs("ReadFree")=request.form("ReadFree")
	rs("RegFree")=request.form("RegFree")	
	rs("FenTitle")=Request.form("FenTitle")
	rs("ShowFocusNews")=request.form("ShowFocusNews")
	rs("ShowGoodNews")=request.form("ShowGoodNews")
	rs("ShowGBook")=request.form("ShowGBook")
	rs("ShowSearch")=request.form("ShowSearch")
	rs("ShowTxtTop")=request.form("ShowTxtTop")
	rs("ShowImgTop")=request.form("ShowImgTop")
	rs("ShowUserLogin")=request.form("ShowUserLogin")
	rs("ShowAnnounce")=request.form("ShowAnnounce")
	rs("ShowAllySite")=request.form("ShowAllySite")
	rs("ShowFriendSite")=request.form("ShowFriendSite")
	rs("ShowGoodSite")=request.form("ShowGoodSite")
	rs("ShowResearch")=request.form("ShowResearch")
	rs("ShowStatistic")=request.form("ShowStatistic")
	rs("ShowLogo")=request.form("ShowLogo")
	rs("ShowNewImg")=request.form("ShowNewImg")
	rs("ShowBoard")=request.form("ShowBoard")
	rs("ShowClassImg")=request.form("ShowClassImg")
	rs("ShowNavigate")=request.form("ShowNavigate")
	rs("BigModel")=request.form("BigModel")
	rs("ShowBigModelRight")=request.form("ShowBigModelRight")
	rs("ShowSmallModelRight")=request.form("ShowSmallModelRight")
	rs("ShowSpecialModelRight")=request.form("ShowSpecialModelRight")
	rs("ShowNewsModelRight")=request.form("ShowNewsModelRight")
	
	
	rs("ShowOnline")=request.form("ShowOnline")
	rs("ShowTotalUser")=request.form("ShowTotalUser")
	rs("ShowNewUser")=request.form("ShowNewUser")
	rs("ShowTotalNews")=request.form("ShowTotalNews")
	rs("ShowTotalSpecial")=request.form("ShowTotalSpecial")
	rs("ShowTotalView")=request.form("ShowTotalView")
	rs("ShowTodayView")=request.form("ShowTodayView")
	rs("ShowYesterdayView")=request.form("ShowYesterdayView")
	rs("ShowMonthView")=request.form("ShowMonthView")
	rs("ShowBMonthView")=request.form("ShowBMonthView")
	rs("ShowTotalDate")=request.form("ShowTotalDate")
	rs("ShowAverageView")=request.form("ShowAverageView")
	rs.update
	rs.close
	
	set rs=nothing
	Application.Lock
	Application("Ver")=""
	Application.UnLock
	Response.Redirect "admin_ConstModify.asp"
end if
conn.close
set conn=nothing
%>