cnbbr_adminconfig.asp

. 缓存处理技术

    .Write"  <tr class=tdbackground"& (XTi mod 2) &">"& Vbcrlf
    .Write"   <td width=40% align=left>外接用户数据库登陆用户名</td>"& Vbcrlf
    .Write"   <td width=50% align=left>"& Vbcrlf
    .Write"     <input name=OutUser Type=text value="""& Out_User &""" class=inputnormal>"& Vbcrlf
    .Write"   </td>"& Vbcrlf
    .Write"   <td width=10% align=center><a href=""AdminConfigHelp.asp#"&XTi&"""><img src=""Images/Help.gif"" border=""0"" alt=""查看此功能帮助""></a></td>"& Vbcrlf
    .Write"  </tr>"& Vbcrlf

  XTi=XTi+1
    .Write"  <tr class=tdbackground"& (XTi mod 2) &">"& Vbcrlf
    .Write"   <td width=40% align=left>外接用户数据库登陆用户密码</td>"& Vbcrlf
    .Write"   <td width=50% align=left>"& Vbcrlf
    .Write"     <input name=OutPass Type=text value="""& Out_Pass &""" class=inputnormal>"& Vbcrlf
    .Write"   </td>"& Vbcrlf
    .Write"   <td width=10% align=center><a href=""AdminConfigHelp.asp#"&XTi&"""><img src=""Images/Help.gif"" border=""0"" alt=""查看此功能帮助""></a></td>"& Vbcrlf
    .Write"  </tr>"& Vbcrlf

  XTi=XTi+1
    .Write"  <tr class=tdbackground"& (XTi mod 2) &">"& Vbcrlf
    .Write"   <td width=40% align=left>外接用户注册地址</td>"& Vbcrlf
    .Write"   <td width=50% align=left>"& Vbcrlf
    .Write"     <input name=OutRegUrl Type=text value="""& Out_RegUrl &""" class=inputnormal>"& Vbcrlf
    .Write"   </td>"& Vbcrlf
    .Write"   <td width=10% align=center><a href=""AdminConfigHelp.asp#"&XTi&"""><img src=""Images/Help.gif"" border=""0"" alt=""查看此功能帮助""></a></td>"& Vbcrlf
    .Write"  </tr>"& Vbcrlf

  XTi=XTi+1
    .Write"  <tr class=tdbackground"& (XTi mod 2) &">"& Vbcrlf
    .Write"   <td width=40% align=left>外接用户找回密码地址</td>"& Vbcrlf
    .Write"   <td width=50% align=left>"& Vbcrlf
    .Write"     <input name=OutGetPassUrl Type=text value="""& Out_GetPassUrl &""" class=inputnormal>"& Vbcrlf
    .Write"   </td>"& Vbcrlf
    .Write"   <td width=10% align=center><a href=""AdminConfigHelp.asp#"&XTi&"""><img src=""Images/Help.gif"" border=""0"" alt=""查看此功能帮助""></a></td>"& Vbcrlf
    .Write"  </tr>"& Vbcrlf
    .Write"</table>"& Vbcrlf

  .Write"   </td>"& Vbcrlf
  .Write"  </tr>"& Vbcrlf
  .Write"</table>"& Vbcrlf



  .Write"<BR>"& Vbcrlf





  .Write"<table width=98% cellpadding=0 cellspacing=0 border=0 align=center class=tablebg>"& Vbcrlf
  .Write"  <tr class=titletd>"& Vbcrlf
  .Write"   <td align=center colspan=3><Span onclick=""javascript: showsubmenu("&XTi&");"" class=titleSpan>首页推荐设置</Span></td>"& Vbcrlf
  .Write"  </tr>"& Vbcrlf
  .Write"  <tr id=submenu"&XTi&" class=titletd>"& Vbcrlf
  .Write"   <td align=center>"& Vbcrlf
    .Write"<table width=100% cellpadding=2 cellspacing=1 border=0 align=center>"& Vbcrlf

  XTi=XTi+1
    .Write"  <tr class=tdbackground"& (XTi mod 2) &">"& Vbcrlf
    .Write"   <td width=40% align=left>首页商品推荐的最低消费值</td>"& Vbcrlf
    .Write"   <td width=50% align=left>"& Vbcrlf
    .Write"     <input name=StarAucBidUnit Type=text value="""& StarAucBidUnit &""" class=inputnormal> "& Sys_WEBMoney &""& Vbcrlf
    .Write"   </td>"& Vbcrlf
    .Write"   <td width=10% align=center><a href=""AdminConfigHelp.asp#"&XTi&"""><img src=""Images/Help.gif"" border=""0"" alt=""查看此功能帮助""></a></td>"& Vbcrlf
    .Write"  </tr>"& Vbcrlf

  XTi=XTi+1
    .Write"  <tr class=tdbackground"& (XTi mod 2) &">"& Vbcrlf
    .Write"   <td width=40% align=left>首页商品推荐的行数</td>"& Vbcrlf
    .Write"   <td width=50% align=left>"& Vbcrlf
    .Write"     <input name=StarAucRow Type=text value="""& Cnbbr_IndexStarAucRow &""" class=inputnormal> 行"& Vbcrlf
    .Write"   </td>"& Vbcrlf
    .Write"   <td width=10% align=center><a href=""AdminConfigHelp.asp#"&XTi&"""><img src=""Images/Help.gif"" border=""0"" alt=""查看此功能帮助""></a></td>"& Vbcrlf
    .Write"  </tr>"& Vbcrlf

  XTi=XTi+1
    .Write"  <tr class=tdbackground"& (XTi mod 2) &">"& Vbcrlf
    .Write"   <td width=40% align=left>首页商品推荐每行商品个数</td>"& Vbcrlf
    .Write"   <td width=50% align=left>"& Vbcrlf
    .Write"     <input name=StarAucPerRow Type=text value="""& Cnbbr_IndexStarAucPerRow &""" class=inputnormal> 个"& Vbcrlf
    .Write"   </td>"& Vbcrlf
    .Write"   <td width=10% align=center><a href=""AdminConfigHelp.asp#"&XTi&"""><img src=""Images/Help.gif"" border=""0"" alt=""查看此功能帮助""></a></td>"& Vbcrlf
    .Write"  </tr>"& Vbcrlf

  XTi=XTi+1
    .Write"  <tr class=tdbackground"& (XTi mod 2) &">"& Vbcrlf
    .Write"   <td width=40% align=left>首页店铺推荐的最低消费值</td>"& Vbcrlf
    .Write"   <td width=50% align=left>"& Vbcrlf
    .Write"     <input name=StarShopBidUnit Type=text value="""& StarShopBidUnit &""" class=inputnormal> "& Sys_WEBMoney &""& Vbcrlf
    .Write"   </td>"& Vbcrlf
    .Write"   <td width=10% align=center><a href=""AdminConfigHelp.asp#"&XTi&"""><img src=""Images/Help.gif"" border=""0"" alt=""查看此功能帮助""></a></td>"& Vbcrlf
    .Write"  </tr>"& Vbcrlf

  XTi=XTi+1
    .Write"  <tr class=tdbackground"& (XTi mod 2) &">"& Vbcrlf
    .Write"   <td width=40% align=left>首页店铺推荐的行数</td>"& Vbcrlf
    .Write"   <td width=50% align=left>"& Vbcrlf
    .Write"     <input name=StarShopRow Type=text value="""& Cnbbr_IndexStarShopRow &""" class=inputnormal> 行"& Vbcrlf
    .Write"   </td>"& Vbcrlf
    .Write"   <td width=10% align=center><a href=""AdminConfigHelp.asp#"&XTi&"""><img src=""Images/Help.gif"" border=""0"" alt=""查看此功能帮助""></a></td>"& Vbcrlf
    .Write"  </tr>"& Vbcrlf

  XTi=XTi+1
    .Write"  <tr class=tdbackground"& (XTi mod 2) &">"& Vbcrlf
    .Write"   <td width=40% align=left>首页店铺推荐每行商品个数</td>"& Vbcrlf
    .Write"   <td width=50% align=left>"& Vbcrlf
    .Write"     <input name=StarShopPerRow Type=text value="""& Cnbbr_IndexStarShopPerRow &""" class=inputnormal> 个"& Vbcrlf
    .Write"   </td>"& Vbcrlf
    .Write"   <td width=10% align=center><a href=""AdminConfigHelp.asp#"&XTi&"""><img src=""Images/Help.gif"" border=""0"" alt=""查看此功能帮助""></a></td>"& Vbcrlf
    .Write"  </tr>"& Vbcrlf
    .Write"</table>"& Vbcrlf

  .Write"   </td>"& Vbcrlf
  .Write"  </tr>"& Vbcrlf
  .Write"</table>"& Vbcrlf



  .Write"<BR>"& Vbcrlf




  .Write"<table width=98% cellpadding=0 cellspacing=0 border=0 align=center class=tablebg>"& Vbcrlf
  .Write"  <tr class=titletd>"& Vbcrlf
  .Write"   <td align=center colspan=3><Span onclick=""javascript: showsubmenu("&XTi&");"" class=titleSpan>系统在线支付设置</Span></td>"& Vbcrlf
  .Write"  </tr>"& Vbcrlf
  .Write"  <tr id=submenu"&XTi&" class=titletd>"& Vbcrlf
  .Write"   <td align=center>"& Vbcrlf
    .Write"<table width=100% cellpadding=2 cellspacing=1 border=0 align=center>"& Vbcrlf

  XTi=XTi+1
    .Write"  <tr class=tdbackground"& (XTi mod 2) &">"& Vbcrlf
    .Write"   <td width=40% align=left>是否开启在线支付功能</td>"& Vbcrlf
    .Write"   <td width=50% align=left>"& Vbcrlf

    TempL0=Cstr(Sys_OnlinePayStaus)
    TempL1="1,0"
    TempL2="开，关"
    Call RadioOper(TempL0,TempL1,TempL2,"OnlinePayStaus")

    .Write"   </td>"& Vbcrlf
    .Write"   <td width=10% align=center><a href=""AdminConfigHelp.asp#"&XTi&"""><img src=""Images/Help.gif"" border=""0"" alt=""查看此功能帮助""></a></td>"& Vbcrlf
    .Write"  </tr>"& Vbcrlf

  XTi=XTi+1
    .Write"  <tr class=tdbackground"& (XTi mod 2) &">"& Vbcrlf
    .Write"   <td width=40% align=left>用户在线充值虚拟币兑换比例x(1:x)</td>"& Vbcrlf
    .Write"   <td width=50% align=left>"& Vbcrlf
    .Write"     1 比 <input name=MoneyChangeScale Type=text value="""& Sys_MoneyChangeScale &""" class=inputnormal>"& Vbcrlf
    .Write"   </td>"& Vbcrlf
    .Write"   <td width=10% align=center><a href=""AdminConfigHelp.asp#"&XTi&"""><img src=""Images/Help.gif"" border=""0"" alt=""查看此功能帮助""></a></td>"& Vbcrlf
    .Write"  </tr>"& Vbcrlf
    .Write"</table>"& Vbcrlf

  .Write"   </td>"& Vbcrlf
  .Write"  </tr>"& Vbcrlf
  .Write"</table>"& Vbcrlf




  .Write"<BR>"& Vbcrlf




  .Write"<table width=98% cellpadding=0 cellspacing=0 border=0 align=center class=tablebg>"& Vbcrlf
  .Write"  <tr class=titletd>"& Vbcrlf
  .Write"   <td align=center colspan=3><Span onclick=""javascript: showsubmenu("&XTi&");"" class=titleSpan>系统公共变量(Application)刷新时间设置</Span></td>"& Vbcrlf
  .Write"  </tr>"& Vbcrlf
  .Write"  <tr id=submenu"&XTi&" class=titletd>"& Vbcrlf
  .Write"   <td align=center>"& Vbcrlf
    .Write"<table width=100% cellpadding=2 cellspacing=1 border=0 align=center>"& Vbcrlf

  XTi=XTi+1
    .Write"  <tr class=tdbackground"& (XTi mod 2) &">"& Vbcrlf
    .Write"   <td width=40% align=left>首页信息列表调用刷新时间</td>"& Vbcrlf
    .Write"   <td width=50% align=left>"& Vbcrlf
    .Write"     <input name=FreshIndexInfo Type=text value="""& Update_TempAucTimes &""" class=inputnormal> 秒"& Vbcrlf
    .Write"   </td>"& Vbcrlf
    .Write"   <td width=10% align=center><a href=""AdminConfigHelp.asp#"&XTi&"""><img src=""Images/Help.gif"" border=""0"" alt=""查看此功能帮助""></a></td>"& Vbcrlf
    .Write"  </tr>"& Vbcrlf

  XTi=XTi+1
    .Write"  <tr class=tdbackground"& (XTi mod 2) &">"& Vbcrlf
    .Write"   <td width=40% align=left>系统自动更新处理的刷新时间</td>"& Vbcrlf
    .Write"   <td width=50% align=left>"& Vbcrlf
    .Write"     <input name=FreshSysInfo Type=text value="""& Update_SysTimes &""" class=inputnormal> 秒"& Vbcrlf
    .Write"   </td>"& Vbcrlf
    .Write"   <td width=10% align=center><a href=""AdminConfigHelp.asp#"&XTi&"""><img src=""Images/Help.gif"" border=""0"" alt=""查看此功能帮助""></a></td>"& Vbcrlf
    .Write"  </tr>"& Vbcrlf

  XTi=XTi+1
    .Write"  <tr class=tdbackground"& (XTi mod 2) &">"& Vbcrlf
    .Write"   <td width=40% align=left>首页自助推荐刷新周期</td>"& Vbcrlf
    .Write"   <td width=50% align=left>"& Vbcrlf
    .Write"     <input name=FreshComInfo Type=text value="""& LimitStarLargerTime &""" class=inputnormal> 天"& Vbcrlf
    .Write"   </td>"& Vbcrlf
    .Write"   <td width=10% align=center><a href=""AdminConfigHelp.asp#"&XTi&"""><img src=""Images/Help.gif"" border=""0"" alt=""查看此功能帮助""></a></td>"& Vbcrlf
    .Write"  </tr>"& Vbcrlf

    .Write"</table>"& Vbcrlf


  .Write"   </td>"& Vbcrlf
  .Write"  </tr>"& Vbcrlf
  .Write"</table>"& Vbcrlf



  .Write"<BR>"& Vbcrlf




  .Write"<table width=98% cellpadding=0 cellspacing=0 border=0 align=center class=tablebg>"& Vbcrlf
  .Write"  <tr class=titletd>"& Vbcrlf
  .Write"   <td align=center colspan=3><Span onclick=""javascript: showsubmenu("&XTi&");"" class=titleSpan>MD5加密位数设置</Span></td>"& Vbcrlf
  .Write"  </tr>"& Vbcrlf
  .Write"  <tr id=submenu"&XTi&" class=titletd>"& Vbcrlf
  .Write"   <td align=center>"& Vbcrlf
    .Write"<table width=100% cellpadding=2 cellspacing=1 border=0 align=center>"& Vbcrlf

  XTi=XTi+1
    .Write"  <tr class=tdbackground"& (XTi mod 2) &">"& Vbcrlf
    .Write"   <td width=40% align=left>系统内部MD5加密位数</td>"& Vbcrlf
    .Write"   <td width=50% align=left>"& Vbcrlf
    .Write"     <input name=cnBBR_Md5Byte Type=text value="""& cBBRMd5Byte &""" class=inputnormal> 位"& Vbcrlf
    .Write"   </td>"& Vbcrlf
    .Write"   <td width=10% align=center><a href=""AdminConfigHelp.asp#"&XTi&"""><img src=""Images/Help.gif"" border=""0"" alt=""查看此功能帮助""></a></td>"& Vbcrlf
    .Write"  </tr>"& Vbcrlf

  XTi=XTi+1
    .Write"  <tr class=tdbackground"& (XTi mod 2) &">"& Vbcrlf
    .Write"   <td width=40% align=left>外接用户数据库MD5加密位数</td>"& Vbcrlf
    .Write"   <td width=50% align=left>"& Vbcrlf
    .Write"     <input name=cnBBR_OutMd5Byte Type=text value="""& cBBROutMd5Byte &""" class=inputnormal> 位"& Vbcrlf
    .Write"   </td>"& Vbcrlf
    .Write"   <td width=10% align=center><a href=""AdminConfigHelp.asp#"&XTi&"""><img src=""Images/Help.gif"" border=""0"" alt=""查看此功能帮助""></a></td>"& Vbcrlf
    .Write"  </tr>"& Vbcrlf

  XTi=XTi+1
    .Write"  <tr class=tdbackground"& (XTi mod 2) &">"& Vbcrlf
    .Write"   <td width=40% align=left>在线支付接口MD5加密位数</td>"& Vbcrlf
    .Write"   <td width=50% align=left>"& Vbcrlf
    .Write"     <input name=cnBBR_PayMd5Byte Type=text value="""& cBBRPayMd5Byte &""" class=inputnormal> 位"& Vbcrlf
    .Write"   </td>"& Vbcrlf
    .Write"   <td width=10% align=center><a href=""AdminConfigHelp.asp#"&XTi&"""><img src=""Images/Help.gif"" border=""0"" alt=""查看此功能帮助""></a></td>"& Vbcrlf
    .Write"  </tr>"& Vbcrlf

  XTi=XTi+1
    .Write"  <tr class=tdbackground"& (XTi mod 2) &">"& Vbcrlf
    .Write"   <td width=100% height=32 colspan=3 align=center><input name=act type=hidden value=1><input type=submit name=submit value=""更新系统配置""></td>"& Vbcrlf
    .Write"  </tr>"& Vbcrlf
    .Write"</table>"& Vbcrlf


  .Write"   </td>"& Vbcrlf
  .Write"  </tr>"& Vbcrlf
  .Write"</table>"& Vbcrlf

  .Write"</Form>"& Vbcrlf
End With

Function Disp_DefaultSkin(SkinsID)

  Dim RsAdminSkins,TempSkins
  Sql="Select Cnbbr_Skins.BBR_SkinsID,Cnbbr_Skins.BBR_TemplateID,Cnbbr_Skins.BBR_SkinsCssName,Cnbbr_Skins.BBR_SkinsCssPath,Cnbbr_Skins.BBR_SkinsCssUrl,Cnbbr_Template.BBR_TemplateName,Cnbbr_Template.BBR_TemplatePath from Cnbbr_Skins left join Cnbbr_Template on Cnbbr_Skins.BBR_TemplateID=Cnbbr_Template.BBR_TemplateID"
  Set RsAdminSkins=Conn.Execute(Sql)
  if RsAdminSkins.Bof or RsAdminSkins.Eof then
     TempSkins="没有找到相应的系统模板，请先<a href=""Cnbbr_AddTemplate.asp"">添加系统模板</a>"
  else
     
     TempSkins="<Select name=SysSkinsID>"& Vbcrlf
     Do While Not RsAdminSkins.Eof
        TempSkins=TempSkins &"<option value="""& RsAdminSkins("BBR_SkinsID") &""""
	if Clng(SkinsID)=Clng(RsAdminSkins("BBR_SkinsID")) then TempSkins=TempSkins &" Selected"
	TempSkins=TempSkins &">"& RsAdminSkins("BBR_SKinsCssName") &"---"& RsAdminSkins("BBR_TemplateName") &"</option>"& Vbcrlf
     RsAdminSkins.MoveNext
     Loop
     TempSkins=TempSkins &"</Select>"& Vbcrlf
     
  end if
  RsAdminSkins.Close
  Set RsAdminSkins=nothing
  Disp_DefaultSkin=TempSkins
End Function
%>