savecfg.asp

下载管理系统,重新修改,无错.放心使用. 用户名和密码都是admin:admin

<%
if session("admin")="" then
response.redirect "admin.asp"
end if
%>
<!--#include file="conn.asp"-->
<!--#include file="../inc/char.asp"-->
<%
dim founderr
founerr=false
if trim(request.form("txtHostName"))="" then
founderr=true
errmsg="<li>程序名称不能为空</li>"
end if
if trim(request.form("txtHostUrl"))="" then
founderr=true
errmsg=errmsg+"<li>程序地址不能为空</li>"
end if
if trim(request.form("txtWebmaster"))="" then
founderr=true
errmsg=errmsg+"<li>站长名称不能为空</li>"
end if
if trim(request.form("txtwebmasterEmail"))="" then
founderr=true
errmsg=errmsg+"<li>站长信箱不能为空</li>"
end if
if trim(request.form("txtDayTop"))="" then
founderr=true
errmsg=errmsg+"<li>本日下载排行显示数量不能为空</li>"
end if
if trim(request.form("txtweektop"))="" then
founderr=true
errmsg=errmsg+"<li>本周下载排行显示数量不能为空</li>"
end if
if trim(request.form("txtAllTop"))="" then
founderr=true
errmsg=errmsg+"<li>所有下载排行显示数量不能为空</li>"
end if
if trim(request.form("txtCopyRight"))="" then
founderr=true
errmsg=errmsg+"<li>版权信息不能为空</li>"
end if
if trim(request.form("txtcountlong"))="" then
founderr=true
errmsg=errmsg+"<li>计数器长度不能为空</li>"
end if
if trim(request.form("txtcountview"))="" then
founderr=true
errmsg=errmsg+"<li>显示计数器与否不能为空</li>"
end if
if trim(request.form("txtonlineview"))="" then
founderr=true
errmsg=errmsg+"<li>显示在线人数与否不能为空</li>"
end if
if trim(request.form("txtprogram"))="" then
founderr=true
errmsg=errmsg+"<li>程序名称不能为空</li>"
end if
if trim(request.form("txtview_updating"))="" then
founderr=true
errmsg=errmsg+"<li>软件更新显示数不能为空</li>"
end if
if trim(request.form("txtstrOnlineTimedOut"))="" then
founderr=true
errmsg=errmsg+"<li>在线超时时间不能为空</li>"
end if
if trim(request.form("txtstrOnlineTimedOut"))>7200 then
founderr=true
errmsg=errmsg+"<li>在线超时时间不能大于7200秒</li>"
end if
if trim(request.form("txtmaxgoodlink"))="" then
founderr=true
errmsg=errmsg+"<li>每行显示友情链接数目不能为空</li>"
end if
if trim(request.form("txtmaxperpage"))="" then
founderr=true
errmsg=errmsg+"<li>后台管理显示数目不能为空</li>"
end if
if trim(request.form("txtindex_perpage"))="" then
founderr=true
errmsg=errmsg+"<li>分类下载显示数目不能为空</li>"
end if
if trim(request.form("txtnewscount"))="" then
founderr=true
errmsg=errmsg+"<li>新聞显示数目不能为空</li>"
end if
if trim(request.form("txtD_newcount"))="" then
founderr=true
errmsg=errmsg+"<li>Default.asp最近更新不能为空</li>"
end if


if founderr=false then
HostName=request("txtHostName")
HostUrl=request("txtHostUrl")
WebMaster=request("txtWebMaster")
webmasterEmail=request("txtwebmasterEmail")
MakeJS=request("txtMakeJS")
JSDir=request("txtJSDir")
JSUrl=request("txtJSUrl")
intercept=request("txtintercept")
DayTop=request("txtDayTop")
AllTop=request("txtAllTop")
WeekTop=request("txtWeekTop")
D_newcount=request("txtD_newcount")
CopyRight=request("txtCopyRight")
Version=request("txtVersion")
countlong=request("txtcountlong")
countview=request("txtcountview")
onlineview=request("txtonlineview")
program=request("txtprogram")
updatedir=request("txtupdatedir")
filesurl=request("txtfilesurl")
updateimg=request("txtupdateimg")
imgurl=request("txtimgurl")
downdir1=request("txtdowndir1")
downdir2=request("txtdowndir2")
view_updating=request("txtview_updating")
view_commend=request("txtview_commend")
strOnlineTimedOut=request("txtstrOnlineTimedOut")
viewgoodlink=request("txtviewgoodlink")
maxgoodlink=request("txtmaxgoodlink")
maxperpage=request("txtmaxperpage")
index_perpage=request("txtindex_perpage")
newscount=request("txtnewscount")
img_upload=request("txtimg_upload")
img_size=request("txtimg_size")
file_upload=request("txtfile_upload")
file_size=request("txtfile_size")
allowdel=request("txtallowdel")

set rs=server.createobject("adodb.recordset")
sql="select * from Config"
rs.open sql,conn,1,3
rs("HostName")=HostName
rs("HostUrl")=HostUrl
rs("WebMaster")=WebMaster
rs("webmasterEmail")=webmasterEmail
rs("MakeJS")=MakeJS
rs("JSUrl")=JSUrl
rs("intercept")=intercept
rs("DayTop")=DayTop
rs("AllTop")=AllTop
rs("WeekTop")=WeekTop
rs("program")=program
rs("CopyRight")=CopyRight
rs("Version")=Version
rs("countlong")=countlong
rs("countview")=countview
rs("onlineview")=onlineview
rs("D_newcount")=D_newcount
rs("updatedir")=updatedir
rs("filesurl")=filesurl
rs("updateimg")=updateimg
rs("imgurl")=imgurl
if downdir1<>"" then
rs("downdir1")=downdir1
else
rs("downdir1")=null
end if
if downdir2<>"" then
rs("downdir2")=downdir2
else
rs("downdir2")=null
end if
rs("view_updating")=view_updating
rs("view_commend")=view_commend
rs("strOnlineTimedOut")=strOnlineTimedOut
rs("viewgoodlink")=viewgoodlink
rs("maxgoodlink")=maxgoodlink
rs("index_perpage")=index_perpage
rs("maxperpage")=maxperpage
rs("newscount")=newscount
rs("img_upload")=img_upload
rs("img_size")=img_size
rs("file_upload")=file_upload
rs("file_size")=file_size
rs("allowdel")=allowdel
rs.update
 
set rs=nothing
%>
<html>

<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="refresh" content='0; URL=config.asp'>
</head>

<body text="#000000" bgcolor="#FCFEFC">
<%
else
response.write "由于以下的原因不能保存数据："
response.write errmsg
end if
%>
</body>
</html>