<!--#Include File="Include.asp"--><%
'--------------------------------------
'Power By 580Web @2010-2014 f02
'URL:http://www.580Web.Cn/
'EMail:wsok85@qq.com
'QQ:253819801
'版权所有 未经允许不得去除本版权信息
'--------------------------------------

Call CheckAdminType("0,1",UType)

Types=Clng(Request.QueryString("Type"))

Select Case Types
	Case 1
		Call HideLinkSetBox() '功能隐藏设置表单
	Case 2
		Call HideLinkSetDo() '功能隐藏保存
	Case 3
		Call CloseHideLinkDo() '暂时关闭功能隐藏
	Case 4
		Call OpenHideLinkDo() '启动功能隐藏
	Case Else
		Call FKFun.ShowErr("未发现功能项！",1)
End Select

'==========================================
'函 数 名：HideLinkSetBox()
'作    用：功能隐藏设置表单
'==========================================
Sub HideLinkSetBox()
%>
<form id="HideLinkSet" name="HideLinkSet" method="post" action="HideLink.asp?Type=2" target="ajax" boxClose="1" showStr="保存成功，刷新后生效！">
<div id="title">功能设置</div>
<div id="box">
	<table width="95%" id="t1" class="t" border="1" bordercolor="#CCCCCC" align="center" cellpadding="0" cellspacing="0">
		<tr>
			<td width="100" height="30" align="right">功能设置列表：</td>
			<td>
                <ul class="triState">
                    <li><span class="title">系统功能</span>
                        <ul>
                            <li><span class="title">站点设置</span>
                                <ul>
                                    <li><span class="fleft">├</span><input type="checkbox" name="Fk_Site_HideLink" value="hide_SiteSet_2"<%If Instr(Fk_Site_HideLink,",hide_SiteSet_2,")>0 Then%> checked="checked"<%End If%> /><label href="#" class="label">生成选项</label></li>
                                    <li><span class="fleft">├</span><input type="checkbox" name="Fk_Site_HideLink" value="hide_SiteSet_3"<%If Instr(Fk_Site_HideLink,",hide_SiteSet_3,")>0 Then%> checked="checked"<%End If%> /><label href="#" class="label">上传格式选项</label></li>
                                    <li><span class="fleft">├</span><input type="checkbox" name="Fk_Site_HideLink" value="hide_SiteSet_4"<%If Instr(Fk_Site_HideLink,",hide_SiteSet_4,")>0 Then%> checked="checked"<%End If%> /><label href="#" class="label">调试选项</label></li>
                                </ul>
                            </li>
                            <li><span class="title">功能项</span>
                                <ul>
                                    <li><span class="fleft">├</span><input type="checkbox" name="Fk_Site_HideLink" value="hide_Template"<%If Instr(Fk_Site_HideLink,",hide_Template,")>0 Then%> checked="checked"<%End If%> /><label href="#" class="label">模板管理</label></li>
                                    <li><span class="fleft">├</span><input type="checkbox" name="Fk_Site_HideLink" value="hide_LabelBuilder"<%If Instr(Fk_Site_HideLink,",hide_LabelBuilder,")>0 Then%> checked="checked"<%End If%> /><label href="#" class="label">模板标签生成器</label></li>
                                    <li><span class="fleft">├</span><input type="checkbox" name="Fk_Site_HideLink" value="hide_AspJpeg"<%If Instr(Fk_Site_HideLink,",hide_AspJpeg,")>0 Then%> checked="checked"<%End If%> /><label href="#" class="label">图片水印缩略设置</label></li>
                                    <li><span class="fleft">├</span><input type="checkbox" name="Fk_Site_HideLink" value="hide_JMail"<%If Instr(Fk_Site_HideLink,",hide_JMail,")>0 Then%> checked="checked"<%End If%> /><label href="#" class="label">邮件发送设置</label></li>
                                    <li><span class="fleft">├</span><input type="checkbox" name="Fk_Site_HideLink" value="hide_SiteMap"<%If Instr(Fk_Site_HideLink,",hide_SiteMap,")>0 Then%> checked="checked"<%End If%> /><label href="#" class="label">生成网站地图</label></li>
                                    <li><span class="fleft">├</span><input type="checkbox" name="Fk_Site_HideLink" value="hide_Menu"<%If Instr(Fk_Site_HideLink,",hide_Menu,")>0 Then%> checked="checked"<%End If%> /><label href="#" class="label">菜单管理</label></li>
                                    <li><span class="fleft">├</span><input type="checkbox" name="Fk_Site_HideLink" value="hide_Info"<%If Instr(Fk_Site_HideLink,",hide_Info,")>0 Then%> checked="checked"<%End If%> /><label href="#" class="label">独立信息管理</label></li>
                                    <li><span class="fleft">├</span><input type="checkbox" name="Fk_Site_HideLink" value="hide_Vote"<%If Instr(Fk_Site_HideLink,",hide_Vote,")>0 Then%> checked="checked"<%End If%> /><label href="#" class="label">投票管理</label></li>
                                    <li><span class="fleft">├</span><input type="checkbox" name="Fk_Site_HideLink" value="hide_Friends"<%If Instr(Fk_Site_HideLink,",hide_Friends,")>0 Then%> checked="checked"<%End If%> /><label href="#" class="label">友情链接管理</label></li>
                                    <li><span class="fleft">├</span><input type="checkbox" name="Fk_Site_HideLink" value="hide_FriendsType"<%If Instr(Fk_Site_HideLink,",hide_FriendsType,")>0 Then%> checked="checked"<%End If%> /><label href="#" class="label">友情链接类型管理</label></li>
                                    <li><span class="fleft">├</span><input type="checkbox" name="Fk_Site_HideLink" value="hide_Focus"<%If Instr(Fk_Site_HideLink,",hide_Focus,")>0 Then%> checked="checked"<%End If%> /><label href="#" class="label">独立轮换管理</label></li>
                                    <li><span class="fleft">├</span><input type="checkbox" name="Fk_Site_HideLink" value="hide_Subject"<%If Instr(Fk_Site_HideLink,",hide_Subject,")>0 Then%> checked="checked"<%End If%> /><label href="#" class="label">专题管理</label></li>
                                    <li><span class="fleft">├</span><input type="checkbox" name="Fk_Site_HideLink" value="hide_Recommend"<%If Instr(Fk_Site_HideLink,",hide_Recommend,")>0 Then%> checked="checked"<%End If%> /><label href="#" class="label">推荐类型管理</label></li>
                                    <li><span class="fleft">├</span><input type="checkbox" name="Fk_Site_HideLink" value="hide_Word"<%If Instr(Fk_Site_HideLink,",hide_Word,")>0 Then%> checked="checked"<%End If%> /><label href="#" class="label">站内关键字管理</label></li>
                                    <li><span class="fleft">├</span><input type="checkbox" name="Fk_Site_HideLink" value="hide_Model"<%If Instr(Fk_Site_HideLink,",hide_Model,")>0 Then%> checked="checked"<%End If%> /><label href="#" class="label">模型管理</label></li>
                                    <li><span class="fleft">├</span><input type="checkbox" name="Fk_Site_HideLink" value="hide_Field"<%If Instr(Fk_Site_HideLink,",hide_Field,")>0 Then%> checked="checked"<%End If%> /><label href="#" class="label">自定义字段管理</label></li>
                                </ul>
                            </li>
                        </ul>
                    </li>
                </ul>
                <div class="cal"></div>
			</td>
		</tr>
	</table>
</div>
<div id="bottom">
	<input type="submit" class="button" name="Enter" id="Enter" value="设 置" />
	<input type="button" onclick="dialogClose();" class="button" name="button" id="button" value="关 闭" />
</div>
</form>
<%
End Sub

'==========================================
'函 数 名：HideLinkSetDo()
'作    用：功能隐藏保存
'==========================================
Sub HideLinkSetDo()
	Fk_Site_HideLink=FKFun.HTMLEncode(Trim(Replace(Request.Form("Fk_Site_HideLink")," ","")))
	Fk_Site_HideLink=","&Fk_Site_HideLink&","	
	Sqlstr="Select Top 1 Fk_Site_HideLink From [Fk_Site]"
	Rs.Open Sqlstr,Conn,1,3
	Application.Lock()
	If Not Rs.Eof Then
		Rs("Fk_Site_HideLink")=Fk_Site_HideLink
		Rs.Update()
	End If
	Application.UnLock()
	Rs.Close
	Call FKFun.JsonSuccess()
End Sub

'==========================================
'函 数 名：CloseHideLinkDo()
'作    用：暂时关闭功能隐藏
'==========================================
Sub CloseHideLinkDo()
	Response.Cookies("h_c_f_k")="is_Close"
End Sub

'==========================================
'函 数 名：OpenHideLinkDo()
'作    用：启动功能隐藏
'==========================================
Sub OpenHideLinkDo()
	Response.Cookies("h_c_f_k")=""
End Sub

Call FKFun.PageEnd()
%>
