cnbbr_adminconfig.asp

. 缓存处理技术

<!-- #include file="sysconfig.asp" -->
<!-- #include file="CheckAdmin.asp" -->
<!-- #include file="../inc/showdiv.asp" -->
<script language="javascript" src="js/admin.js"></script>
<Style type="text/css">
<!--
  .inputnormal { width: 280px; border: 1px #DDDDEF solid; }
  .tdbackground0 { background: #FFFFFF; }
  .tdbackground1 { background: #ccddff; }
  .titlespan { font-weight: bold; }
-->
</Style>
<%

Dim Act:Act=CheckStr(Trim(Request.Form("Act")))
if isNum(Act) then 
   if Act=1 then

	Session("SysDefaultSkinsID")=""

      Call CheckAdminFlag(TempAdminFlag,3)
      Call Cnbbr_CheckPost(0)
      Dim RsConfig
      Sql="Select * from Cnbbr_SysConfig Where CnbbrID=1"
      Set RsConfig=Server.CreateObject("ADODB.RecordSet")
      RsConfig.Open Sql,conn,1,3
      if RsConfig.Eof or RsConfig.Bof then
	 Response.Write"<BR><BR><Center>对不起，没有找到系统配置信息记录！</Center>"
      else


  SYS_WEBNAME=CheckStr(Trim(Request.Form("SysName")))
  SYS_WEBURL=CheckStr(Trim(Request.Form("SysDomain")))
  SYS_WEBKEY=CheckStr(Trim(Request.Form("SysSearchKey")))
  SYS_WEBBBS=CheckStr(Trim(Request.Form("SysBBS")))
  SYS_STATUS=CheckStr(Trim(Request.Form("SysStatus")))
  if not IsNum(SYS_STATUS) then Call AlertInfo("系统状态开关参数有误，请重新选择！","",0)
  SYS_STATUSINFO=CheckStr(Trim(Request.Form("SysStatusInfo")))


  SKINS_DefaultID=CheckStr(Trim(Request.Form("SysSkinsID")))
  if not IsNum(Skins_DefaultID) then Call AlertInfo("系统皮肤参数选项有误，请重新选择！","",0)
  SYS_WEBMONEY=CheckStr(Trim(Request.Form("SysMoney")))
  SYS_Str_Words=Trim(Request.Form("SysFilterWords"))
  SYS_ANNOUNCE=CheckStr(Trim(Request.Form("SysAnnounce")))


  SYS_WEBEMAIL=CheckStr(Trim(Request.Form("SysEmail")))
  SYS_WEBTEL=CheckStr(Trim(Request.Form("SysTel")))
  SYS_WEBOICQ=CheckStr(Trim(Request.Form("SysQQ")))
  if (not IsNum(SYS_WEBOICQ)) and Len(SYS_WEBOICQ) then Call AlertInfo("系统管理员联系ＱＱ有误，请重新填写！","",0)



  SYS_MODEL=Replace(CheckStr(Trim(Request.Form("SysModel")))," ","")

  SYS_AucPayForAdd=CheckStr(Trim(Request.Form("AucPayForAdd")))
  if not IsNum(SYS_AucPayForAdd) then Call AlertInfo("商品登陆收费值必须为数字，不收费请填写0，请返回！","",0)
  AutoDel=CheckStr(Trim(Request.Form("SysAutoDel")))
  if not IsNum(AutoDel) then Call AlertInfo("系统过期商品自动清理周期必须为数字，请重新填写！","",0)
  Search_HotKey=CheckStr(Trim(Request.Form("SearchHotKey")))
  JsPerPage=CheckStr(Trim(Request.Form("SysPerPage")))
  if not IsNum(JsPerPage) then Call AlertInfo("信息查询每页显示数量必须为数字，请重新填写！","",0)
  IndexPerPage=CheckStr(Trim(Request.Form("SysIndexPerPage")))
  if not IsNum(IndexPerPage) then Call AlertInfo("首页信息列表显示信息条数必须为数字，请重新填写！","",0)


  Super_User=CheckStr(Trim(Request.Form("UserSuperUser")))
  Super_Admin=CheckStr(Trim(Request.Form("UserSuperAdmin")))


  SYS_REGUSER=CheckStr(Trim(Request.Form("UserAllowReg")))
  if not IsNum(SYS_REGUSER) then Call AlertInfo("是否允许新用户注册选项的设置有误，请重新选择！","",0)

  IdStatus=CheckStr(Trim(Request.Form("UserRegCheck")))
  if not IsNum(IdStatus) then Call AlertInfo("是否对新用户注册进行人工审核项设置有误，请重新选择！","",0)

  SYS_UserSellCheck=CheckStr(Trim(Request.Form("UserSellCheck")))
  if not IsNum(SYS_UserSellCheck) then Call AlertInfo("用户是否需要通过身份认证才能出售商品项设置有误，请重新选择！","",0)

  ShopAutoCheck=CheckStr(Trim(Request.Form("UserShopRegCheck")))
  if not IsNum(ShopAutoCheck) then Call AlertInfo("是否对新注册店铺进行人工审核项设置有误，请重新选择！","",0)

  SYS_ShopVip=CheckStr(Trim(Request.Form("ShopVip")))
  if not IsNum(SYS_ShopVip) then Call AlertInfo("用户店铺收费功能状态选项有误！","",0)


  SYS_ShopMonthMoney=CheckStr(Trim(Request.Form("ShopMonthMoney")))
  if not IsNum(SYS_ShopMonthMoney) then Call AlertInfo("用户店铺每月收费值必须为数字！","",0)



  Sys_UserCredit=CheckStr(Trim(Request.Form("UserAppDegrade")))


  creditadd=CheckStr(Trim(Request.Form("UserAppIncrement")))
  if not IsNum(CreditAdd) then Call AlertInfo("交易信用评价增值必须为数字，请重新填写！","",0)




  CreditPresent=CheckStr(Trim(Request.Form("UserAppPresent")))
  if not IsNum(CreditPresent) then Call AlertInfo("用户身份认证后赠送的信用积分值必须为数字，请重新填写！","",0)



  UPFILE_FOLDER=CheckStr(Trim(Request.Form("UpFolder")))
  UPFILE_TOTALNUM=CheckStr(Trim(Request.Form("UpAmountLimit")))
  if not IsNum(UPFILE_TOTALNUM) then Call AlertInfo("图片上传数量限制必须为数字，请重新填写！","",0)

  UPFILE_MAXSIZE=CheckStr(Trim(Request.Form("UpSizeLimit")))
  if not IsNum(UPFILE_MAXSIZE) then Call AlertInfo("图片上传大小限制必须为数字，请重新填写！","",0)


  UPFILE_TYPE=Replace(Replace(CheckStr(Trim(Request.Form("UpTypeLimit")))," ",""),",","/")


  SENDAUCEMAIL=CheckStr(Trim(Request.Form("EmailAuc")))
  if not IsNum(SENDAUCEMAIL) then Call AlertInfo("是否发送交易确认邮件选项有误，请重新选择！","",0)

  SYS_SENDREGEMAIL=CheckStr(Trim(Request.Form("EmailUser")))
  EmailServer=CheckStr(Trim(Request.Form("EmailServer")))
  EmailServerUser=CheckStr(Trim(Request.Form("EmailServerUser")))
  EmailServerPass=CheckStr(Trim(Request.Form("EmailServerPass")))
  EmailSender=CheckStr(Trim(Request.Form("SysEmail")))


  Out_Status=CheckStr(Trim(Request.Form("OutStatus")))
  if not IsNum(Out_Status) then Call AlertInfo("是否开启外接用户数据库功能选项有误，请重新选择！","",0)

  out_IsSql=CheckStr(Trim(Request.Form("OutIsSql")))
  if not IsNum(Out_IsSql) then Call AlertInfo("外接用户数据库类型选项有误，请重新选择！","",0)


  Out_Path=CheckStr(Trim(Request.Form("OutPath")))

  Out_SqlDB=CheckStr(Trim(Request.Form("OutSqlDB")))
  Out_SqlLoginUser=CheckStr(Trim(Request.Form("OutSqlLoginUser")))
  Out_SqlLoginPass=CheckStr(Trim(Request.Form("OutSqlLoginPass")))

  Out_Table=CheckStr(Trim(Request.Form("OutTable")))
  Out_User=CheckStr(Trim(Request.Form("OutUser")))
  Out_Pass=CheckStr(Trim(Request.Form("OutPass")))
  Out_RegUrl=CheckStr(Trim(Request.Form("OutRegUrl")))
  Out_GetPassUrl=CheckStr(Trim(Request.Form("OutGetPassUrl")))




  StarAucBidUnit=CheckStr(Trim(Request.Form("StarAucBidUnit")))
  if not IsNum(StarAucBidUnit) then Call AlertInfo("首页商品推荐的最低消费值必须为数字，请重新填写！","",0)


  StarshopBidUnit=CheckStr(Trim(Request.Form("StarShopBidUnit")))
  if not IsNum(StarShopBidUnit) then Call AlertInfo("首页店铺推荐的最低消费值必须为数字，请重新填写！","",0)


  Cnbbr_IndexStarAucPerRow=CheckStr(Trim(Request.Form("StarAucPerRow")))
  Cnbbr_IndexStarAucRow=CheckStr(Trim(Request.Form("StarAucRow")))
  if not IsNum(Cnbbr_IndexStarAucPerRow) then Call AlertInfo("首页商品推荐每行显示商品个数必须为数字，请重新填写！","",0)
  if not IsNum(Cnbbr_IndexStarAucRow) then Call AlertInfo("首页商品推荐显示行数必须为数字，请重新填写！","",0)


  Cnbbr_IndexStarShopPerRow=CheckStr(Trim(Request.Form("StarShopPerRow")))
  Cnbbr_IndexStarShopRow=CheckStr(Trim(Request.Form("StarShopRow")))
  if not IsNum(Cnbbr_IndexStarShopPerRow) then Call AlertInfo("首页店铺推荐每行显示商品个数必须为数字，请重新填写！","",0)
  if not IsNum(Cnbbr_IndexStarShopRow) then Call AlertInfo("首页店铺推荐显示行数必须为数字，请重新填写！","",0)

  Sys_OnlinePayStaus=CheckStr(Trim(Request.Form("OnlinePayStaus")))
  if not isNum(Sys_OnlinePayStaus) then Call AlertInfo("是否开启系统在线支付功能选项有误，请重新填写！","",0)

  Sys_MoneyChangeScale=CheckStr(Trim(Request.Form("MoneyChangeScale")))
  if not isNum(Sys_MoneyChangeScale) then Call AlertInfo("用户在线充值兑换比例(1:x)，其中X必须为数字，请重新填写！","",0)


  LimitStarLargerTime=CheckStr(Trim(Request.Form("FreshComInfo")))
  if not IsNum(LimitStarLargerTime) then Call AlertInfo("首页自助推荐刷新周期必须为数字，请重新填写！","",0)



  Update_TempAucTimes=CheckStr(Trim(Request.Form("FreshIndexInfo")))
  if not IsNum(Update_TempAucTimes) then Call AlertInfo("首页信息列表调用刷新时间必须为数字，请重新填写！","",0)


  Update_SysTimes=CheckStr(Trim(Request.Form("FreshSysInfo")))
  if not IsNum(Update_SysTimes) then Call AlertInfo("系统自动更新处理刷新周期必须为数字，请重新填写！","",0)

  cBBRMd5Byte=CheckStr(Trim(Request.Form("cnBBR_Md5Byte")))
  cBBROutMd5Byte=CheckStr(Trim(Request.Form("cnBBR_OutMd5Byte")))
  cBBRPayMd5Byte=CheckStr(Trim(Request.Form("cnBBR_PayMd5Byte")))
  if not IsNum(cBBRMd5Byte) then Call AlertInfo("系统内部MD5加密位数必须为数字，请重新填写！","",0)
  if not IsNum(cBBROutMd5Byte) then Call AlertInfo("外接用户数据库MD5加密位数必须为数字，请重新填写！","",0)
  if not IsNum(cBBRPayMd5Byte) then Call AlertInfo("在线支付接口MD5加密位数必须为数字，请重新填写！","",0)
  if cBBRMd5Byte=0 or (cBBRMd5Byte mod 16<>0) then Call AlertInfo("系统内部MD5加密位数必须16的倍数，请重新填写！","",0)
  if cBBROutMd5Byte=0 or (cBBROutMd5Byte mod 16<>0) then Call AlertInfo("外接用户数据库MD5加密位数必须16的倍数，请重新填写！","",0)
  if cBBRPayMd5Byte=0 or (cBBRPayMd5Byte mod 16<>0) then Call AlertInfo("在线支付接口MD5加密位数必须16的倍数，请重新填写！","",0)



	RsConfig("cnBBR_SysName")=Sys_WEBName
	RsConfig("cnBBR_SysDomain")=Sys_WEBUrl
	RsConfig("cnBBR_SysSearchKey")=Sys_WEBKey
	RsConfig("cnBBR_SysBBS")=Sys_WEBBBS
	RsConfig("cnBBR_SysStatus")=Sys_Status
	RsConfig("cnBBR_SysStatusInfo")=Sys_StatusInfo
	RsConfig("cnBBR_SysSkinsID")=SKINS_DefaultID

	RsConfig("cnBBR_SysMoney")=Sys_WEBMoney
	RsConfig("cnBBR_SysFilterWords")=Sys_Str_Words
	RsConfig("cnBBR_SysAnnounce")=Sys_Announce
	RsConfig("cnBBR_SysEmail")=Sys_WebEmail
	RsConfig("cnBBR_SysTel")=Sys_WebTel
	RsConfig("cnBBR_SysQQ")=Sys_WebOicq
	RsConfig("cnBBR_AucModel")=Sys_Model
	RsConfig("cnBBR_AucPayForAdd")=SYS_AucPayForAdd
	RsConfig("cnBBR_AucAutoDel")=AutoDel
	RsConfig("cnBBR_AucHotSearch")=Search_HotKey
	RsConfig("cnBBR_AucPerPageNum")=JsPerPage
	RsConfig("cnBBR_AucIndexNum")=IndexPerPage
	RsConfig("cnBBR_UserSuperUser")=Super_user
	RsConfig("cnBBR_UserSuperAdmin")=Super_Admin
	RsConfig("cnBBR_UserAllowReg")=SYS_RegUser
	RsConfig("cnBBR_UserRegCheck")=IdStatus
	RsConfig("cnBBR_UserSellCheck")=SYS_UserSellCheck
	RsConfig("cnBBR_UserShopRegCheck")=ShopAutoCheck
	RsConfig("cnBBR_ShopVip")=SYS_ShopVip
	RsConfig("cnBBR_ShopMonthMoney")=Sys_ShopMonthMoney
	RsConfig("cnBBR_UserCreditDegrade")=Sys_UserCredit
	RsConfig("cnBBR_UserAppIncrement")=CreditAdd
	RsConfig("cnBBR_UserIntPresent")=CreditPresent
	RsConfig("cnBBR_UpFolder")=Upfile_Folder
	RsConfig("cnBBR_UpNumLimit")=Upfile_TotalNum
	RsConfig("cnBBR_UpSizeLimit")=Upfile_MaxSize
	RsConfig("cnBBR_UpTypeLImit")=Upfile_Type
	RsConfig("cnBBR_EmailServer")=EmailServer
	RsConfig("cnBBR_EmailServerUser")=EmailServerUser
	RsConfig("cnBBR_EmailServerPass")=EmailServerPass
	RsConfig("cnBBR_EmailSender")=Sys_WebEmail
	RsConfig("cnBBR_EmailUser")=SYS_SendRegEmail
	RsConfig("cnBBR_EmailAuc")=SendAucEmail
	RsConfig("cnBBR_OutStatus")=Out_Status
	RsConfig("cnBBR_OutIsSql")=Out_IsSql
	RsConfig("cnBBR_OutPath")=Out_Path
	RsConfig("cnBBR_OutSqlDB")=Out_SqlDB
	RsConfig("cnBBR_OutSqlLoginUser")=Out_SqlLoginUser
	RsConfig("cnBBR_OutSqlLoginPass")=Out_SqlLoginPass
	RsConfig("cnBBR_OutTable")=Out_Table
	RsConfig("cnBBR_OutUser")=Out_User
	RsConfig("cnBBR_Outpass")=Out_Pass
	RsConfig("cnBBR_OutRegUrl")=Out_RegUrl
	RsConfig("cnBBR_OutGetPassUrl")=Out_GetPassUrl
	RsConfig("cnBBR_CommAucBidUnit")=StarAucBidUnit
	RsConfig("cnBBR_CommAucRow")=Cnbbr_IndexStarAucRow
	RsConfig("cnBBR_CommAucPerRow")=Cnbbr_IndexStarAucPerRow
	RsConfig("cnBBR_CommShopBidUnit")=StarShopBidUnit
	RsConfig("cnBBR_CommShopRow")=Cnbbr_IndexStarShopRow
	RsConfig("cnBBR_CommShopPerRow")=CnBBR_IndexStarShopPerRow
	RsConfig("cnBBR_OnlinePayStaus")=Sys_OnlinePayStaus
	RsConfig("cnBBR_MoneyChangeScale")=Sys_MoneyChangeScale
	RsConfig("cnBBR_CommTimeLimit")=LimitStarLargerTime
	RsConfig("cnBBR_AppliUpdateIndex")=Update_TempAucTimes
	RsConfig("cnBBR_AppliUpdateSys")=Update_SysTimes
	RsConfig("cnBBR_Md5Byte")=cBBRMd5Byte
	RsConfig("cnBBR_OutMd5Byte")=cBBROutMd5Byte
	RsConfig("cnBBR_PayMd5Byte")=cBBRPayMd5Byte

	RsConfig.Update
        if Err then
	   Call ALertInfo("参数配置有误，请返回重新填写！","",0)
	else
	   HelpTitle="成功了！"
	   HelpInfo="系统参数配置更新成功！"
	   HelpList="<Ul>" & Vbcrlf
	   HelpList=HelpList & "<LI><a href=""Cnbbr_AdminConfig.asp"">查看系统配置信息</a></LI>" & Vbcrlf
	   HelpList=HelpList & "<LI><a href=""javascript: history.back(-1);"">返回上页</a></LI>" & Vbcrlf
	   HelpList=HelpList & "</Ul>" & Vbcrlf
	   Cnbbr_Helper HelpTitle,HelpInfo,HelpList,368
	   Response.End
	end if


      end if
   end if
end if
Dim XTi:XTi=0


Dim TempL0,TempL1,TempL2

With Response
  .Write"<form name=configform method=post action="""" onsumbit=""this.submit.disabled=true;"">"& Vbcrlf