📄 cnbbr_adminconfig.asp
字号:
.Write"<table width=98% cellpadding=0 cellspacing=0 border=0 align=center>"& Vbcrlf
.Write" <tr class=titletd>"& Vbcrlf
.Write" <td align=center><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
.Write" <tr class=tdbackground"& (XTi mod 2) &">"& Vbcrlf
.Write" <td width=40% align=left>系统默认风格</td>"& Vbcrlf
.Write" <td width=50% align=left>"& Disp_DefaultSkin(SKINS_DefaultID) &"</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(Sys_Status)
TempL1="1,0"
TempL2="开，关"
Call RadioOper(TempL0,TempL1,TempL2,"SysStatus")
.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" <textarea name=""SysStatusInfo"" cols=""50"" rows=""3"" ID=""SysStatusInfo"">"& SYS_STATUSINFO &"</textarea><br><a href=""javascript:admin_Size(-3,'SysStatusInfo')""><img src=""images/minus.gif"" unselectable=""on"" border=""0""></a> <a href=""javascript:admin_Size(3,'SysStatusInfo')""><img src=""images/plus.gif"" unselectable=""on"" border=""0""></a>"& 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=SysName Type=text value="""& Sys_WEBNAME &""" class=inputinputnormal>"& 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=SysDomain Type=text value="""& Sys_WebUrl &""" class=inputinputnormal>"& 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=SysBBS Type=text value="""& SYS_WEBBBS &""" class=inputinputnormal>"& 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=SysSearchKey Type=text value="""& Sys_WEBKEY &""" class=inputinputnormal>"& 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=SysEmail Type=text value="""& Sys_WebEmail &""" class=inputinputnormal>"& 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=SysTel Type=text value="""& Sys_WebTel &""" class=inputinputnormal>"& 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=SysQQ Type=text value="""& Sys_WebOicq &""" class=inputinputnormal>"& 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_Model)
TempL1="1,2"
TempL2="拍卖,一口价"
Call BoxOper(TempL0,TempL1,TempL2,"SysModel")
.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>前台用户COOKIES加密</td>"& Vbcrlf
.Write" <td width=50% align=left>"& Vbcrlf
.Write" <input name=UserSuperUser Type=password value="""& Super_User &""" class=inputnoinputnormal title="""& Super_User &""">"& 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>后台管理员COOKIES加密</td>"& Vbcrlf
.Write" <td width=50% align=left>"& Vbcrlf
.Write" <input name=UserSuperAdmin Type=password value="""& Super_Admin &""" class=inputnoinputnormal title="""& Super_Admin &""">"& 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" <textarea name=""SysAnnounce"" cols=""50"" rows=""3"" ID=""SysAnnounce"">"& Sys_Announce &"</textarea><br><a href=""javascript:admin_Size(-3,'SysAnnounce')""><img src=""images/minus.gif"" unselectable=""on"" border=""0""></a> <a href=""javascript:admin_Size(3,'SysAnnounce')""><img src=""images/plus.gif"" unselectable=""on"" border=""0""></a>"& 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=SysMoney Type=text value="""& SYS_WEBMONEY &""" 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=SysFilterWords Type=text value="""& Sys_Str_Words &""" 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
TempL0=Cstr(Sys_RegUser)
TempL1="1,0"
TempL2="是，否"
Call RadioOper(TempL0,TempL1,TempL2,"UserAllowReg")
.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(idStatus)
TempL1="1,0"
TempL2="是，否"
Call RadioOper(TempL0,TempL1,TempL2,"UserRegCheck")
.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(SYS_UserSellCheck)
TempL1="1,0"
TempL2="是，否"
Call RadioOper(TempL0,TempL1,TempL2,"UserSellCheck")
.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(ShopAutoCheck)
TempL1="1,0"
TempL2="是，否"
Call RadioOper(TempL0,TempL1,TempL2,"UserShopRegCheck")
.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(Sys_ShopVip)
TempL1="1,0"
TempL2="开，关"
Call RadioOper(TempL0,TempL1,TempL2,"ShopVip")
.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=ShopMonthMoney type=text value="""& SYS_ShopMonthMoney &"""> "& 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=UserAppDegrade Type=text value="""& Sys_UserCredit &""" 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=UserAppIncrement Type=text value="""& CreditAdd &""" 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=UserAppPresent Type=text value="""& CreditPresent &""" 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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -