www.gusucode.com > 中网景企业网站源码时尚版 2009.73码程序 > 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
%>