📄 cnbbr_adminconfig.asp

📁 .　缓存处理技术
💻 ASP
📖 第 1 页 / 共 4 页
字号:
    .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=AucPayForAdd Type=text value="""& SYS_AucPayForAdd &""" class=inputnoinputnormal> "& 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=SysAutoDel Type=text value="""& AutoDel &""" class=inputnoinputnormal> 天"& 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=SearchHotKey Type=text value="""& Search_HotKey &""" class=inputnoinputnormal>"& 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=SysPerPage Type=text value="""& JsPerPage &""" class=inputnoinputnormal> 条"& 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=SysIndexPerPage Type=text value="""& IndexPerPage &""" class=inputnoinputnormal> 条"& 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=UpFolder Type=text value="""& Upfile_Folder &""" class=inputnormalinputnormal>"& 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"    <Select name=UpAmountLimit >"& Vbcrlf
    TempL0=Cstr(Upfile_totalNum)
    TempL1="1，2,3,4,5,6,7,8,9,10,15,20"
    TempL2="1，2,3,4,5,6,7,8,9,10,15,20"
    Call SelectOper(TempL0,TempL1,TempL2)
    .Write"    </Select> 个"& 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=UpSizeLimit Type=text value="""& Upfile_MaxSize &""" class=inputnormalinputnormal> KB"& 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

    TempL0=Replace(Cstr(Upfile_Type),"/","，")
    TempL1="gif,jpg"
    TempL2="Gif,Jpg"
    Call BoxOper(TempL0,TempL1,TempL2,"UpTypeLimit")

    .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_SENDREGEMAIL)
TempL1="0,1,2"
TempL2="不发送邮件,注册信息确认邮件,系统帐户激活邮件"

Response.Write"<select name=EmailUser>" & Vbcrlf
Call SelectOper(TempL0,TempL1,TempL2)
Response.Write"</select>" & 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

    TempL0=Cstr(SendAucEmail)
    TempL1="1,0"
    TempL2="是，否"
    Call RadioOper(TempL0,TempL1,TempL2,"EmailAuc")

    .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=EmailServer Type=text value="""& EmailServer &""" 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=EmailServerUser Type=text value="""& EmailServerUser &""" 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=EmailServerPass Type=PassWord value="""& EmailServerPass &""" 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(Out_Status)
    TempL1="1,0"
    TempL2="开，关"
    Call RadioOper(TempL0,TempL1,TempL2,"OutStatus")

    .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

    TempL0=Cstr(Out_IsSql)
    TempL1="1,0"
    TempL2="Sql，Access"
    Call RadioOper(TempL0,TempL1,TempL2,"OutIsSql")

    .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>外接用户AC数据库位置 &nbsp; <B>SQL版本</B>请填写<Span Style=""color: #EE0001"">(local)</Span></td>"& Vbcrlf
    .Write"   <td width=50% align=left>"& Vbcrlf
    .Write"     <input name=OutPath Type=password value="""& Out_Path &""" class=inputnormal title="""& Out_Path &""">"& 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>外接用户SQL数据库名(SQL版有效)</td>"& Vbcrlf
    .Write"   <td width=50% align=left>"& Vbcrlf
    .Write"     <input name=OutSqlDB Type=text value="""& Out_SqlDB &""" 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>外接SQL数据库登陆帐号(SQL版有效)</td>"& Vbcrlf
    .Write"   <td width=50% align=left>"& Vbcrlf
    .Write"     <input name=OutSqlLoginUser Type=text value="""& Out_SqlLoginUser &""" 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>外接SQL数据库登陆密码(SQL版有效)</td>"& Vbcrlf
    .Write"   <td width=50% align=left>"& Vbcrlf
    .Write"     <input name=OutSqlLoginPass Type=password value="""& Out_SqlLoginPass &""" 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=OutTable Type=text value="""& Out_Table &""" 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
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -