<!--#include file="../../fy.Function.asp"-->
<html xmlns="http://www.w3.org/1999/xhtml">
<head><meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>fycms来源</title>
<link href="../../Images/style.css" rel="stylesheet" type="text/css">
</head>
<body>
<table width="99%" border="0" align="center"  class="table">
  <tr>
    <td  class="bg_tr"><strong>您现在的位置：您现在的位置：系统中心 &gt;&gt; 插件中心 &gt;&gt;<a href="?">digg管理</a></td>
  </tr>

  <tr>
    <td > 
	
	查看选项： <a href="sys.asp"><font color=red>Digg管理</font></a>  
	<%
	Dim MX_Sys,ii
	MX_Sys=fycms.Act_MX_Sys_Arr()
	If IsArray(MX_Sys) Then
		For iI=0 To Ubound(MX_Sys,2)
		echo "<a href=""index.asp?ModeID="&MX_Sys(0,Ii)&""">"&MX_Sys(1,Ii)&"系统</a> ┆" 
		Next
	End If
	%>
</td>
  </tr>
</table>
<%	If Not fycms.fycms_QXYZ(0,"digg_fy","") Then   Call fycms.Alert("对不起，你没有操作权限！","") 
	Dim Rs,A,fycms_Digg,I,BookSetting
	Set Rs=server.CreateObject("adodb.recordset") 
	Rs.OPen "Select PlusConfig from Plus_fy  where PlusID='digg_fy'",Conn,1,3
	If request("A") ="save" Then 
		For I=0 To 2
			BookSetting=BookSetting& Replace(request.Form("fycms_Digg" & I &""),"^@$@^","") & "^@$@^"
		Next
		Rs("PlusConfig")=BookSetting
		Rs.Update:Application.Contents.RemoveAll
		Rs.Close:Set Rs = Nothing	
		Call fycms.ActErr("修改成功","Sys_fy/Digg/Sys.asp","")
 	Else
	fycms_Digg=Split(Rs("PlusConfig"),"^@$@^")
%>
<table width="99%" align="center" border="0" cellpadding="1" cellspacing="1" class="table">
<form name="form1" method="post" action="?A=save">
	<tr>
      <td width="34%" height="30" align="left" >是否允许游客DIGG：</td>
	  <td width="66%" height="30" ><input <% IF fycms_Digg(0)  = "0" Then echo "Checked" %>  type="radio"  id="radio3" name="fycms_Digg0" value="0">
	      <label for="radio3"><font color="green">允许 &nbsp;</font></label>
          <input  <% IF  fycms_Digg(0)  = "1" Then echo "Checked" %>  id="radio4" type="radio" name="fycms_Digg0" value="1">
	    <label for="radio4"><font color="red">禁止 &nbsp;</font></label></td>
    </tr>
 
  <tr>
    <td colspan="2" align="center"><input type=button onclick=CheckForm() class="btn btn_primary"  name=Submit1 value="  保存  " />
        &nbsp;&nbsp;&nbsp;&nbsp;<input name="Submit2" type="reset" class="btn btn_primary" value="  重置  ">
      &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</td>
    </tr>
</form>
</table>

<%	End If 
CloseConn %>
<script language="javascript">
function OpenWindowAndSetValue(Url,Width,Height,WindowObj,SetObj)
{
	var ReturnStr=showModalDialog(Url,WindowObj,'dialogWidth:'+Width+'pt;dialogHeight:'+Height+'pt;status:yes;help:no;scroll:yes;');
	if (ReturnStr!='') SetObj.value=ReturnStr;
	return ReturnStr;
}	
function CheckForm()
{ var form=document.form1;
		form.Submit1.value="正在提交数据,请稍等...";
		form.Submit1.disabled=true;
		form.Submit2.disabled=true;		
	    form.submit();
        return true;
	}</script> 

</body>
</html>
