sys_config.asp

. 缓存处理技术

<%
Response.Buffer=True
Server.ScriptTimeOut=60
Session.TimeOut=60

Dim StartTime,EndTime
StartTime=1000*Timer()

Dim ConnTimesCount
ConnTimesCount=0
Sub CnbbrConnTimes()
  ConnTimesCount=ConnTimesCount+1
End Sub


Dim SYS_BodyWidth,SYS_BodyCenterWidth
SYS_Bodywidth="992"
SYS_BodyCenterWidth="98%"

Dim OldNewStr
OldNewStr="全新，二手，陈旧，古董"

Dim InfoClassStr
InfoClassStr="求购，出售，合作"

Dim PayStyleStr
PayStyleStr="款到发货，货到付款，见面交易"

Dim PayForTMStr
PayForTMStr="卖家承担运费，买家承担运费"

Dim i,j,k

Dim RsSysConfig
sql="Select * From Cnbbr_SysConfig Where Cnbbrid=1"
set RsSysConfig=conn.execute(sql)
CnbbrConnTimes
If RsSysConfig.eof then
   Response.write"<BR><BR><Center>系统配置信息无效！请联系开发人员进行故障恢复！</Center>"
   Response.end
Else

  Dim SYS_WEBNAME,SYS_WEBURL,SYS_WEBKEY,SYS_WEBBBS,SYS_STATUS,SYS_STATUSINFO
  Dim SKINS_FOLDER,SKINS_CSS,SKINS_DefaultID,SYS_WEBMONEY
  Dim SYS_Str_Words,SYS_ANNOUNCE

  SYS_WEBNAME=RsSysConfig("cnBBR_SysName")
  SYS_WEBURL=RsSysConfig("cnBBR_SysDomain")
  SYS_WEBKEY=RsSysConfig("cnBBR_SysSearchKey")
  SYS_WEBBBS=RsSysConfig("cnBBR_SysBBS")
  SYS_STATUS=RsSysConfig("cnBBR_SysStatus")
  SYS_STATUSINFO=RsSysConfig("cnBBR_SysStatusInfo")
  SKINS_DefaultID=RsSysConfig("cnBBR_SysSkinsID")


  Dim TempSkins_DefaultID
  TempSkins_DefaultID=Trim(Session("SysDefaultSkinsID"))
  if isNumBBR(TempSkins_DefaultID) then SKINS_DefaultID=TempSkins_DefaultID

  Dim RsDefaultSkin
  Sql="Select * from Cnbbr_Skins Where BBR_SkinsID="& Skins_DefaultID
  Set RsDefaultSkin=Conn.execute(Sql)
  CnbbrConnTimes
  if RsDefaultSkin.Eof or RsDefaultSkin.Bof then
    Response.write"<BR><BR><Center>系统默认模板配置信息无效！请联系管理员进行默认模板设置！</Center>"
    Response.end
  else
    SKINS_FOLDER=RsDefaultSkin("BBR_SkinsCssPath")
    SKINS_CSS=RsDefaultSkin("BBR_SKinsCssUrl")
  end if
  RsDefaultSkin.Close
  Set RsDefaultSkin=nothing
  SYS_WEBMONEY=RsSysConfig("cnBBR_SysMoney")
  SYS_Str_Words=RsSysConfig("cnBBR_SysFilterWords")
  SYS_ANNOUNCE=RsSysConfig("cnBBR_SysAnnounce")

  Dim SYS_WEBEMAIL,SYS_WEBTEL,SYS_WEBOICQ
  SYS_WEBEMAIL=RsSysConfig("cnBBR_SysEmail")
  SYS_WEBTEL=RsSysConfig("cnBBR_SysTel")
  SYS_WEBOICQ=RsSysConfig("cnBBR_SysQQ")

  Dim SYS_MODEL,auctype1,auctype2,auctype3

  SYS_MODEL=RsSysConfig("cnBBR_AucModel")

  auctype1="拍卖"
  auctype2="一口价"

  Dim SYS_AucPayForAdd
  SYS_AucPayForAdd=RsSysConfig("cnBBR_AucPayForAdd")

  Dim AutoDel,Search_HotKey,JsPerPage,IndexPerPage
  AutoDel=RsSysConfig("cnBBR_AucAutoDel")
  Search_HotKey=RsSysConfig("cnBBR_AucHotSearch")
  JsPerPage=RsSysConfig("cnBBR_AucPerPageNum")
  IndexPerPage=RsSysConfig("cnBBR_AucIndexNum")

  Dim Super_User,Super_Admin
  Super_User=RsSysConfig("cnBBR_UserSuperUser")
  Super_Admin=RsSysConfig("cnBBR_UserSuperAdmin")

  Dim SYS_REGUSER,IdStatus,SYS_UserSellCheck
  SYS_REGUSER=RsSysConfig("cnBBR_UserAllowReg")
  IdStatus=RsSysConfig("cnBBR_UserRegCheck")
  SYS_UserSellCheck=RsSysConfig("cnBBR_UserSellCheck")

  Dim ShopAutoCheck,SYS_ShopVip,SYS_ShopMonthMoney
  ShopAutoCheck=RsSysConfig("cnBBR_UserShopRegCheck")
  SYS_ShopVip=RsSysConfig("CnBBR_ShopVip")
  SYS_ShopMonthMoney=RsSysConfig("cnBBR_ShopMonthMoney")

  Public SysUserCredit
  Dim Sys_UserCredit

  Sys_UserCredit=RsSysConfig("cnBBR_UserCreditDegrade")

  Dim Sys_OnlinePayStaus,Sys_MoneyChangeScale
  Sys_OnlinePayStaus=RsSysConfig("cnBBR_OnlinePayStaus")
  Sys_MoneyChangeScale=RsSysConfig("cnBBR_MoneyChangeScale")

  Dim creditadd

  creditadd=RsSysConfig("cnBBR_UserAppIncrement")

  Dim CreditPresent


  CreditPresent=RsSysConfig("cnBBR_UserIntPresent")

  Dim UPFILE_FOLDER,UPFILE_TOTALNUM,UPFILE_MAXSIZE,UPFILE_TYPE

  UPFILE_FOLDER=RsSysConfig("cnBBR_UpFolder")
  UPFILE_TOTALNUM=RsSysConfig("cnBBR_UpNumLimit")
  UPFILE_MAXSIZE=RsSysConfig("cnBBR_UpSizeLimit")

  UPFILE_TYPE=RsSysConfig("cnBBR_UpTypeLimit")


  Dim SENDAUCEMAIL,SYS_SENDREGEMAIL,EmailServer,EmailSender,EmailServerUser,EmailServerPass
  SENDAUCEMAIL=RsSysConfig("cnBBR_EmailAuc")
  SYS_SENDREGEMAIL=RsSysConfig("cnBBR_EmailUser")
  EmailServer=RsSysConfig("cnBBR_EmailServer")
  EmailServerUser=RsSysConfig("cnBBR_EmailServerUser")
  EmailServerPass=RsSysConfig("cnBBR_EmailServerPass")
  EmailSender=RsSysConfig("cnBBR_SysEmail")


  Dim Out_Status,out_IsSql
  Out_Status=RsSysConfig("cnBBR_OutStatus")
  out_IsSql=RsSysConfig("cnBBR_OutIsSql")


  Dim Out_Path,Out_SqlDB,Out_SqlLoginUser,Out_SqlLoginPass,Out_Table,Out_User,Out_Pass,Out_RegUrl,Out_GetPassUrl
  Out_Path=RsSysConfig("cnBBR_OutPath")
  Out_SqlDB=RsSysConfig("cnBBR_OutSqlDB")
  Out_SqlLoginUser=RsSysConfig("cnBBR_OutSqlLoginUser")
  Out_SqlLoginPass=RsSysConfig("cnBBR_OutSqlLoginPass")
  Out_Table=RsSysConfig("cnBBR_OutTable")
  Out_User=RsSysConfig("cnBBR_OutUser")
  Out_Pass=RsSysConfig("cnBBR_OutPass")
  Out_RegUrl=RsSysConfig("cnBBR_OutRegUrl")
  Out_GetPassUrl=RsSysConfig("cnBBR_OutGetPassUrl")




  Dim StarAucBidUnit
  StarAucBidUnit=RsSysConfig("cnBBR_CommAucBidUnit")


  Dim StarshopBidUnit
  StarshopBidUnit=RsSysConfig("cnBBR_CommShopBidUnit")


  Dim Cnbbr_IndexStarAucPerRow,Cnbbr_IndexStarAucRow
  Cnbbr_IndexStarAucPerRow=RsSysConfig("cnBBR_CommAucPerRow")
  Cnbbr_IndexStarAucRow=RsSysConfig("cnBBR_CommAucRow")


  Dim Cnbbr_IndexStarShopPerRow,Cnbbr_IndexStarShopRow
  Cnbbr_IndexStarShopPerRow=RsSysConfig("cnBBR_CommShopPerRow")
  Cnbbr_IndexStarShopRow=RsSysConfig("cnBBR_CommShopRow")


  Dim LimitStarLargerTime
  LimitStarLargerTime=RsSysConfig("cnBBR_CommTimeLimit")




  Dim Update_TempAucTimes
  Update_TempAucTimes=RsSysConfig("cnBBR_AppliUpdateIndex")


  Dim Update_SysTimes
  Update_SysTimes=RsSysConfig("cnBBR_AppliUpdateSys")


  Dim cBBRMd5Byte,cBBROutMd5Byte,cBBRPayMd5Byte
  cBBRMd5Byte=RsSysConfig("cnBBR_Md5Byte")
  cBBROutMd5Byte=RsSysConfig("cnBBR_OutMd5Byte")
  cBBRPayMd5Byte=RsSysConfig("cnBBR_PayMd5Byte")


  Const BBR_StrLen=32

  Const MsgLength=250

  Const DisplayQQ=1

End if
RsSysConfig.Close
Set RsSysConfig=nothing


Function IsNumBBR(stri)
  IsNumBBR=True
  if stri="" or isNull(stri) then
     IsNumBBR=False
  else
   For i=1 to len(stri)
    if isNumeric(mid(stri,i,1)) or mid(stri,i,1)="." then 
  	IsNumBBR=True
    else
	IsNumBBR=False
	Exit For
    end if
   Next
  end if
End Function
%>