<!--
############################  智思留言本 版权声明  ##############################
#####  智思留言本系统（版本：ZSBS v3.0 构建于 2005/11/01）                  #####
#####  智思网络（zhisi.net) （2004-2024）版权所有！                         #####
#####  此留言本为自由源码版，你可以自由传播和使用而不用交纳任何款项，       #####
#####  你也可以进行更改，但必须本保留版权信息！                             #####
#####  如需删除版权信息，则必须经授权，并交纳版权费，否则将会诉诸于法律！   #####
#####  电子邮箱：zhisi@126.com  QQ：122178250  POPO：simonda                #####
#################################################################################
#####  此版权信息不会妨碍你正常使用本留言本，我们承诺完全免费，但保留版权！ #####
################ 请访问http://www.zhisi.net 查看新版本信息 ######################
-->
<!-- #include file="common.asp" -->
<!-- #include file="isadm.asp" -->
<%
	Dim zsb_auth, hasAuth
	hasAuth = False
	zsb_auth = Split( Trim( session("zsb_auth") ), ",", -1, 1 )
	For Each auth In zsb_auth
		If ( auth = "config" ) Then
				hasAuth = True
			Exit For
		End If
	Next
	
	If hasAuth = false Then
		Response.Write("<script language=javascript>alert('对不起，你没有权限，请联系超级管理员！');location.href='manage.asp';</script>")
	End If
%>
<html>
<head>
	<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
	<title>留言本设置</title>
	<link href="<%=GBCss%>/common.css" rel="stylesheet" type="text/css">
	<script language="javascript">
	function AddLink(LinkID)
	{
		try
		{
			var LinkObj = document.getElementById(LinkID);
			var LinkNam = prompt("请输入网站名称：","网吧留言本");
			var LinkUrl = prompt("请输入网站地址：","http://HotMovie/");
			LinkObj.value = "<a href='"+LinkUrl+"' target='_blank'>"+LinkNam+"</a>"
		}
		catch(err)
		{}
	}
	function DelLink(LinkID)
	{
		try
		{
			document.getElementById(LinkID).value = "";
		}
		catch(err)
		{}
	}
	</script>
</head>

<body>
<%
  set rs=Server.CreateObject("ADODB.Recordset")
  sqlstr="select * from Config"

  rs.open sqlstr,conn,1,3
  if not rs.eof then
%>
<table width="650" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr><td height="20">&nbsp;</td></tr>
  <tr>
    <td height="30" bgcolor="#FFFFFF" align="center" style="background-image:url(<% =GBSkin %>/guest_top.gif) "><b>留言本系统设置</b></td>
  </tr>
</table>
<table width="650" border="0" align="center" cellpadding="0" cellspacing="5" bgcolor="#FFFFFF" style="background-image:url(<% =GBSkin %>/guest_bg.gif) ">
  <form name="lyform" method="POST" action="ConfigSave.asp">
  <tr>
    <td height="20">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;留言本名称：
      <input name="GBName" type="text" id="GBName" class="input_common" style="width: 300px; height:18px;" value="<%=rs("GB_Name")%>"></td>
    </tr>
  <tr>
    <td height="20">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;顶部图像：
      <input name="LogoIMG" type="text" id="LogoIMG" class="input_common" style="width:200px;height:18px;" value="<%=rs("Logo_IMG")%>" size="15">
      （默认：730 x 65）</td>
    </tr>
  <tr>
    <td height="20">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;版权说明： 
      <input name="CopyTXT" type="text" id="CopyTXT" class="input_common" style="width:350px;height:18px;" value="<%=rs("CopyRight")%>" size="15"></td>
    </tr>
	<tr>
    <td height="20">&nbsp;首页显示区域宽度： 
      <input id="GAreaWidth" name="GAreaWidth" type="text" class="input_common" style="width:50px;height:18px;" value="<%=rs("GAreaWidth")%>" size="12"><font style="color:#f00;">注：推荐设置为>=730（默认）的数字，需要全屏请填100%</font></td>
    </tr>
  <tr>
    <td height="20">&nbsp;留言是否需要审核：
	<% if rs("ifNeedAuditing")=True Then %><input name="ifNeedAuditing" type="checkbox" id="ifNeedAuditing" value="1" checked><%Else%><input name="ifNeedAuditing" type="checkbox" id="ifNeedAuditing" value="1"><%End If%>
	</td>
  </tr>
  <tr>
    <td height="20">&nbsp;是否开放网友回复：
	<% if rs("RepEnabled")=True Then %><input name="RepEnabled" type="checkbox" id="RepEnabled" value="1" checked><%Else%><input name="RepEnabled" type="checkbox" id="RepEnabled" value="1"><%End If%>
	</td>
  </tr>
	<tr>
    <td height="20">&nbsp;回复是否需要审核：
	<%If rs("IfRepNeedAud")=True Then%><input id="IfRepNeedAud" name="IfRepNeedAud" type="checkbox" value="1" checked><%Else%><input id="IfRepNeedAud" name="IfRepNeedAud" type="checkbox" value="1"><%End If%>
	</td>
  </tr>
  <tr>
    <td height="20">&nbsp;每页显示留言条数：
      <input name="GNum" type="text" id="GNum" class="input_common" style="width: 50px; height:18px;" value="<% =rs("Guest_Num") %>" size="15"></td>
  </tr>
  <tr>
    <td height="20">&nbsp;留言回复显示条数：
      <input name="GRNum" type="text" id="GRNum" class="input_common" style="width: 50px; height:18px;" value="<% =rs("RepListNum") %>" size="15"></td>
  </tr>
  <tr>
    <td height="20">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;置顶公告：
      <% if rs("News_View")=True then %><input name="NewsV" type="checkbox" id="NewsV" value="1" checked><%Else%><input name="NewsV" type="checkbox" id="NewsV" value="1"><%End If%>
      （选上为显示）</td>
    </tr>
  <tr>
    <td height="20">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;公告签名：
      <input name="NewsLabel" type="text" id="NewsLabel" class="input_common" style="width: 480px; height:18px;" value="<% =rs("News_Label") %>" size="28"></td>
    </tr>
  <tr>
    <td height="20">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;留言本风格：
      <select name="skin" id="skin">
	    <% if Trim(rs("SkinStr"))="red" then %>
         <option value="blue" selected>浅蓝色调</option>
		 <option value="red" selected>粉红之梦</option>
         <option value="green">绿色风情</option>
		<% elseif Trim(rs("SkinStr"))="blue" then %>
         <option value="blue" selected>浅蓝色调</option>
		 <option value="red">粉红之梦</option>
         <option value="green">绿色风情</option>
		<% elseif Trim(rs("SkinStr"))="green" then %>
         <option value="blue">浅蓝色调</option>
		 <option value="red">粉红之梦</option>
         <option value="green" selected>绿色风情</option>
		<%End If%>
      </select></td>
    </tr>
  <tr>
    <td height="20"> &nbsp;刷新自动改变风格：<% if rs("AlterSkin")=True then%>
      <input name="ASkin" type="checkbox" id="ASkin" value="1" checked>
      <%Else%>
	  <input name="ASkin" type="checkbox" id="ASkin" value="1">
	  <%End If%> 
	  （取消后不自动改变风格）</td>
  </tr>
  <tr>
    <td height="20">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;页面链接一：
	<input type="button" value="添加" onClick="AddLink('Link_one');" class="button_common" style="height:18px;">
	<input type="button" value="删除" onClick="DelLink('Link_one');" class="button_common" style="height:18px;">
      <input id="Link_one" name="Link_one" readOnly type="text" class="input_common" style="width: 400px; height:18px;" value="<% =rs("Link_one") %>" size="28"></td>
  </tr>
  <tr>
    <td height="20">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;页面链接二：
	<input type="button" value="添加" onClick="AddLink('Link_two');" class="button_common" style="height:18px;">
	<input type="button" value="删除" onClick="DelLink('Link_two');" class="button_common" style="height:18px;">
      <input id="Link_two" name="Link_two" readOnly type="text" class="input_common" style="width: 400px; height:18px;" value="<% =rs("Link_two") %>" size="28"></td>
  </tr>
  <tr>
    <td height="20">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;页面链接三：
	<input type="button" value="添加" onClick="AddLink('Link_three');" class="button_common" style="height:18px;">
	<input type="button" value="删除" onClick="DelLink('Link_three');" class="button_common" style="height:18px;">
      <input id="Link_three" name="Link_three" readOnly type="text" class="input_common" style="width: 400px; height:18px;" value="<% =rs("Link_three") %>" size="28"></td>
  </tr>
  <tr>
    <td height="20">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;阻止非法字符（请用&nbsp;|&nbsp;分隔字符，但不要以&nbsp;|&nbsp;为开始和结尾字符）：
      </td>
  </tr>
  <tr>
    <td height="20">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
      <textarea id="FilterKeyWord" name="FilterKeyWord" type="text" class="input_common" style="width: 570px; height:80px;"><% =rs("FilterKeyWord") %></textarea></td>
  </tr>
  <tr align="center">
    <td height="30">
	<input type="button" value="返  回" onClick="javascript:history.back(-1);" class="button_common" style="width: 80px; height:18px;">&nbsp;&nbsp;
	<input type="reset" value="重新填写" class="button_common" style="width: 80px; height:18px;">&nbsp;&nbsp;
	<input name="按钮" type="button" onClick="javascript:lysubmit()" value="保存设置" class="button_common" style="width: 80px; height:18px;">
	</td>
  </tr>
  </form>
</table>
<%End If%>
<script language=javascript>
<!--
function lysubmit() {  
	if (lyform.GBName.value=="") {
		alert("请输入留言本名称!");
		lyform.GBName.focus();
		return false;  
	}   
	 
	if (lyform.CopyTXT.value=="") {
		alert("请输入版权信息!");
		lyform.CopyTXT.focus();
		return false;  
	}   
	  lyform.submit();
	 return true;
}
//-->
</script>
</body>
</html>
