www.gusucode.com > 中网景企业网站管理系统 2008源码程序 > admin/Display.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <!--#include file="opendb.asp" --> <% Call CheckAdmin() Call CnkAdminRight(4) Dim i,action,ObjInstalled,FoundErr,ErrMsg ObjInstalled=IsObjInstalled("Scripting.FileSystemObject") Call Head() Action=request("action") Select Case action Case "save" call SaveConfig() Response.Redirect "Display.asp" Case "" call ShowConfig() End Select Call Foot() sub ShowConfig() %> <body> <form name="form1" method="post" action=""> <div class="cnkbox"> <div class="title">显示设置</div> <div class="content"> <div id="list"> <!--<ul> <li class="t1 strong">:</li> <li class="t2"> </li> </ul>--> <ul> <li class="t1">显示边栏用户登录:</li> <li class="t2"> <label for="islogin1"><input type="radio" name="isLogin" id="islogin1" value="1" <% If isLogin=1 Then Response.Write("checked=""checked""")%> /> 是</label> <label for="islogin0"><input type="radio" name="isLogin" id="islogin0" value="0" <% If isLogin=0 Then Response.Write("checked=""checked""")%> /> 否</label> (注意各栏目管理里的左栏设置必须同时打开才会在各栏页面显示,下同)</li> </ul> <ul> <li class="t1">显示边栏搜索:</li> <li class="t2"> <label for="isearch1"><input type="radio" name="isSearch" id="isearch1" value="1" <% If isSearch=1 Then Response.Write("checked=""checked""")%> /> 是</label> <label for="isearch0"><input type="radio" name="isSearch" id="isearch0" value="0" <% If isSearch=0 Then Response.Write("checked=""checked""")%> /> 否</label> </li> </ul> <ul> <li class="t1">显示边栏产品列表:</li> <li class="t2"> <label for="isProList1"><input type="radio" name="isProList" id="isProList1" value="1" <% If isProList=1 Then Response.Write("checked=""checked""")%> /> 是</label> <label for="isProList0"><input type="radio" name="isProList" id="isProList0" value="0" <% If isProList=0 Then Response.Write("checked=""checked""")%> /> 否</label> </li> </ul> <ul> <li class="t1">显示边栏联系方式:</li> <li class="t2"> <label for="iscontact1"><input type="radio" name="isContact" id="iscontact1" value="1" <% If isContact=1 Then Response.Write("checked=""checked""")%> /> 是</label> <label for="iscontact0"><input type="radio" name="isContact" id="iscontact0" value="0" <% If isContact=0 Then Response.Write("checked=""checked""")%> /> 否</label> </li> </ul> <ul> <li class="t1">首页边栏产品点击排行:</li> <li class="t2"> <label for="isHitSort1"><input type="radio" name="isHitSort" id="isHitSort1" value="1" <% If isHitSort=1 Then Response.Write("checked=""checked""")%> /> 是</label> <label for="isHitSort0"><input type="radio" name="isHitSort" id="isHitSort0" value="0" <% If isHitSort=0 Then Response.Write("checked=""checked""")%> /> 否</label> </li> </ul> <ul> <li class="t1">首页边栏产品销售排行:</li> <li class="t2"> <label for="isSaleSort1"><input type="radio" name="isSaleSort" id="isSaleSort1" value="1" <% If isSaleSort=1 Then Response.Write("checked=""checked""")%> /> 是</label> <label for="isSaleSort0"><input type="radio" name="isSaleSort" id="isSaleSort0" value="0" <% If isSaleSort=0 Then Response.Write("checked=""checked""")%> /> 否</label> </li> </ul> <ul> <li class="t1">显示边栏调查投票:</li> <li class="t2"> <label for="isVote1"><input type="radio" name="isVote" id="isVote1" value="1" <% If isVote=1 Then Response.Write("checked=""checked""")%> /> 是</label> <label for="isVote0"><input type="radio" name="isVote" id="isVote0" value="0" <% If isVote=0 Then Response.Write("checked=""checked""")%> /> 否</label> </li> </ul> <ul> <li class="t1">首页友情链接显示:</li> <li class="t2"> <label for="isHomeLinks0"><input type="radio" name="isHomeLinks" id="isHomeLinks0" value="0" <% If isHomeLinks=0 Then Response.Write("checked=""checked""")%> /> 不显示</label> <label for="isHomeLinks1"><input type="radio" name="isHomeLinks" id="isHomeLinks1" value="1" <% If isHomeLinks=1 Then Response.Write("checked=""checked""")%> /> 先文字后图片 </label> <label for="isHomeLinks2"><input type="radio" name="isHomeLinks" id="isHomeLinks2" value="2" <% If isHomeLinks=2 Then Response.Write("checked=""checked""")%> /> 先图片后文字 </label> <label for="isHomeLinks3"><input type="radio" name="isHomeLinks" id="isHomeLinks3" value="3" <% If isHomeLinks=3 Then Response.Write("checked=""checked""")%> /> 只显示文字链接 </label> <label for="isHomeLinks4"><input type="radio" name="isHomeLinks" id="isHomeLinks4" value="4" <% If isHomeLinks=4 Then Response.Write("checked=""checked""")%> /> 只显示图片链接 </label> <label for="isHomeLinks5"><input type="radio" name="isHomeLinks" id="isHomeLinks5" value="5" <% If isHomeLinks=5 Then Response.Write("checked=""checked""")%> /> 文字下拉框跳转 </label> </li> </ul> <br /> <ul> <li class="t1 strong">产品:</li> <li class="t2"> </li> </ul> <ul> <li class="t1">产品首页:</li> <li class="t2"> <label for="iscl0"><input type="radio" name="isdispclass" id="iscl0" value="0" <% If isdispclass=0 Then Response.Write("checked=""checked""")%> /> 显示所有产品</label> <label for="iscl1"><input type="radio" name="isdispclass" id="iscl1" value="1" <% If isdispclass=1 Then Response.Write("checked=""checked""")%> /> 显示产品类别</label> </li> </ul> <ul> <li class="t1">产品下拉菜单:</li> <li class="t2"> <label for="promenu1"><input type="checkbox" name="isnewpro" value="1" id="promenu1" <% If isnewpro=1 Then Response.Write("checked=""checked""")%> /> 最新产品</label> <label for="promenu2"><input type="checkbox" name="isrecompro" value="1" id="promenu2" <% If isrecompro=1 Then Response.Write("checked=""checked""")%> /> 推荐产品</label> <label for="promenu3"><input type="checkbox" name="ishotpro" value="1" id="promenu3" <% If ishotpro=1 Then Response.Write("checked=""checked""")%> /> 热门产品</label> <label for="promenu4"><input type="checkbox" name="istjpro" value="1" id="promenu4" <% If istjpro=1 Then Response.Write("checked=""checked""")%> /> 特价产品</label> </li> </ul> <ul> <li class="t1">购物/询价功能:</li> <li class="t2"> <input type="radio" name="isShop" id="isShop2" value="2" <% If isShop=2 Then Response.Write("checked=""checked""")%> /> <label for="isShop2">购物(可网上支付)</label> <input type="radio" name="isShop" id="isShop1" value="1" <% If isShop=1 Then Response.Write("checked=""checked""")%> /> <label for="isShop1">询价(提交询价)</label> <input type="radio" name="isShop" id="isShop0" value="0" <% If isShop=0 Then Response.Write("checked=""checked""")%> /> <label for="isShop0">关闭</label> </li> </ul> <ul> <li class="t1">会员收藏功能:</li> <li class="t2"> <input type="radio" name="isFavorite" value="1" id="isFavorite1" <% If isFavorite=1 Then Response.Write("checked=""checked""")%> /> <label for="isFavorite1">启用</label> <input type="radio" name="isFavorite" id="isFavorite0" value="0" <% If isFavorite=0 Then Response.Write("checked=""checked""")%> /> <label for="isFavorite0">关闭</label> </li> </ul> <ul> <li class="t1">显示价格:</li> <li class="t2"> <input type="radio" name="isDispPrice" value="2" id="isDispPrice2" <% If isDispPrice=2 Then Response.Write("checked=""checked""")%> /> <label for="isDispPrice2">显示所有会员级别的价格</label> <input type="radio" name="isDispPrice" value="1" id="isDispPrice1" <% If isDispPrice=1 Then Response.Write("checked=""checked""")%> /> <label for="isDispPrice1">只显示会员所在级别的价格</label> <input type="radio" name="isDispPrice" id="isDispPrice0" value="0" <% If isDispPrice=0 Then Response.Write("checked=""checked""")%> /> <label for="isDispPrice0">不显示价格</label> </li> </ul> <ul> <li class="t1">非登录用户可以下订单:</li> <li class="t2"> <input type="radio" name="isNoLoginOrder" value="1" id="isNoLoginOrder1" <% If isNoLoginOrder=1 Then Response.Write("checked=""checked""")%> /> <label for="isNoLoginOrder1">是</label> <input type="radio" name="isNoLoginOrder" id="isNoLoginOrder0" value="0" <% If isNoLoginOrder=0 Then Response.Write("checked=""checked""")%> /> <label for="isNoLoginOrder0">否</label> </li> </ul> <div class="clearboth"></div> </div> </div> </div> <div align="center"> <input name="action" type="hidden" id="action" value="save" /> <input name="提交" type="submit" class="button" value="提交保存" /> <input name="重置" type="reset" class="button" value="恢复" /> </div> </form> <% end sub Sub SaveConfig() If ObjInstalled=false Then Response.Write("<br><li>你的服务器不支持 FSO(Scripting.FileSystemObject)! </li>") Response.End() exit sub End If Dim isnewpro,isrecompro,ishotpro,istjpro isnewpro=Request.Form("isnewpro") isrecompro=Request.Form("isrecompro") ishotpro=Request.Form("ishotpro") istjpro=Request.Form("istjpro") if isnewpro="" then isnewpro=0 if isrecompro="" then isrecompro=0 if ishotpro="" then ishotpro=0 if istjpro="" then istjpro=0 dim fso,hf set fso=Server.CreateObject("Scripting.FileSystemObject") set hf=fso.CreateTextFile(Server.mappath("../common/Display.asp"),true) hf.write "<" & "%" & vbcrlf hf.write "const isLogin="&Request.Form("isLogin")& vbcrlf hf.write "const isProList="&Request.Form("isProList")& vbcrlf hf.write "const isSearch="&Request.Form("isSearch")& vbcrlf hf.write "const isContact="&Request.Form("isContact")& vbcrlf hf.write "const isHitSort="&Request.Form("isHitSort")& vbcrlf hf.write "const isSaleSort="&Request.Form("isSaleSort")& vbcrlf hf.write "const isVote="&Request.Form("isVote")& vbcrlf hf.write "const isHomeLinks="&Request.Form("isHomeLinks")& vbcrlf hf.write "const isdispclass="&Request.Form("isdispclass")& vbcrlf hf.write "const isShop="&Request.Form("isShop")& vbcrlf hf.write "const isFavorite="&Request.Form("isFavorite")& vbcrlf hf.write "const isDispPrice="&Request.Form("isDispPrice")& vbcrlf hf.write "const isNoLoginOrder="&Request.Form("isNoLoginOrder")& vbcrlf hf.write "const isnewpro="&isnewpro& vbcrlf hf.write "const isrecompro="&isrecompro& vbcrlf hf.write "const ishotpro="&ishotpro& vbcrlf hf.write "const istjpro="&istjpro& vbcrlf hf.write "%" & ">" hf.close set hf=nothing set fso=nothing Call alertmsg("设置成功") end sub Function guolv(Str) Str=Replace(Str,chr(10),"<br />") '过滤换行 Str=Replace(Str,chr(13),"") '过滤回车 Str=Replace(Str,chr(34),"""""") '过滤" Str=Replace(Str,chr(39),"""""") '过滤' guolv=Str End Function %>