<%
'ON ERROR RESUME NEXT

if Request.Cookies("admindj")<>"1" then
   Response.Write "<BR><BR><BR><BR><center>权限不足，你没有此功能的管理权限"
   Response.end
end if

set conndb=server.CreateObject("adodb.connection")
DBPath = Server.MapPath("../edit/db/#ewebeditor.asp")
conndb.open "provider=microsoft.jet.oledb.4.0; data source="&DBpath


%>
<!--#include file = admin_chk.asp -->
<!--#include file = admin_conn.asp -->
<!--#include file = titleb.asp -->
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<!--#include file = language.asp -->
<STYLE type="text/css">
<!--
a:link {text-decoration: none; font-family: AdobeSm; color: #000000 }
a:visited {text-decoration: none; color: #000000 }
A:hover {COLOR: green; FONT-FAMILY: "宋体,MingLiU"; TEXT-DECORATION: underline}
body {font-size: 9pt; font-family: 宋体,MingLiU, Arial;color: #000000}
TD {FONT-SIZE: 9pt; FONT-FAMILY: "宋体,MingLiU, Arial";color: #000000;line-height: 120%;table-layout:fixed;word-break:break-all}
p {FONT-SIZE: 9pt; FONT-FAMILY: "宋体,MingLiU, Arial";color: #000000}
input {FONT-SIZE: 9pt; FONT-FAMILY: "宋体,MingLiU, Arial";color: #000000}
body {margin-top: 0; margin-bottom: 0;margin-left:0;margin-right:0; color: #000000}
select {FONT-SIZE: 9PT;font-family: 宋体}
option {FONT-SIZE: 9pt;font-family: 宋体}
textarea {FONT-SIZE: 9pt;font-family: 宋体}
-->
</STYLE>
<p align="center"><br>
<b>新闻系统设置中心</b></p>
<div align="center">
	<table border="1" cellpadding="3" width="750" id="table1" style="border-collapse: collapse" bordercolor="#C0C0C0">
		<tr>
			<td bgcolor="#F8F8F8" width="136" align="center" background="../images/bj3.jpg" height="25">
			栏目模版</td>
			<td bgcolor="#F8F8F8" width="240" background="../images/bj3.jpg" height="25">
			[<a href="admin_mb.asp">进入栏目模版设置</a>]</td>
			<td bgcolor="#F8F8F8" width="353" background="../images/bj3.jpg" height="25">　</td>
		</tr>
		<tr>
			<td width="136" align="center" bgcolor="#F8F8F8" background="../images/bj3.jpg" height="25">
			搜索模版</td>
			<td width="240" bgcolor="#F8F8F8" background="../images/bj3.jpg" height="25">
			[<a href="admin_mb_so.asp">进入搜索页面模版设置</a>]&nbsp;
			<a target="_blank" href="../so.asp">so.asp</a></td>
			<td width="353" bgcolor="#F8F8F8" background="../images/bj3.jpg" height="25">　</td>
		</tr>
		<tr>
			<td bgcolor="#F8F8F8" width="136" align="center" background="../images/bj3.jpg" height="25">
			投稿模版</td>
			<td bgcolor="#F8F8F8" width="240" background="../images/bj3.jpg" height="25">
			[<a href="admin_mb_tg.asp">进入投稿页面模版设置</a>]&nbsp;
			<a target="_blank" href="../utg.asp">utg.asp</a></td>
			<td bgcolor="#F8F8F8" width="353" background="../images/bj3.jpg" height="25">
			<a href="admin_set_tglm.asp">投稿栏目设置</a></td>
		</tr>
		</table>
</div>
<BR><center>
<table border="1" cellpadding="3" width="750" id="table2" style="border-collapse: collapse" bordercolor="#C0C0C0">
<%
set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open "select * from [eWebEditor_Style]",conndb,1,1
%>
	<form method="POST" action="admin_set_edit.asp"><tr>
		<td bgcolor="#F8F8F8" width="736" align="center" background="../images/bj5.jpg" height="25" colspan="3">
		<p align="justify"><font color="#FFFFFF"><b>上传文件设置</b></font></td>
	</tr>
	<tr>
		<td bgcolor="#F8F8F8" width="136" align="center" background="../images/bj3.jpg" height="25">
		图片上传类型</td>
		<td bgcolor="#F8F8F8" width="350" background="../images/bj3.jpg" height="25">
		<input type="text" name="S_ImageExt" size="49" value="<%=ucase(rs("S_ImageExt"))%>"></td>
		<td bgcolor="#F8F8F8" width="250" background="../images/bj3.jpg" height="25">
		用 | 分开</td>
	</tr>
	<tr>
		<td bgcolor="#F8F8F8" width="136" align="center" background="../images/bj3.jpg" height="25">
		图片上传大小</td>
		<td bgcolor="#F8F8F8" width="350" background="../images/bj3.jpg" height="25">
		<input type="text" name="S_ImageSize" size="23" value="<%=rs("S_ImageSize")%>"> 
		KB</td>
		<td bgcolor="#F8F8F8" width="250" background="../images/bj3.jpg" height="25">
		0 为无限制</td>
	</tr>
	<tr>
		<td bgcolor="#F8F8F8" width="136" align="center" background="../images/bj3.jpg" height="25">
		媒体上传类型</td>
		<td bgcolor="#F8F8F8" width="350" background="../images/bj3.jpg" height="25">
		<input type="text" name="S_MediaExt" size="49" value="<%=ucase(rs("S_MediaExt"))%>"></td>
		<td bgcolor="#F8F8F8" width="250" background="../images/bj3.jpg" height="25">
		用 | 分开</td>
	</tr>
	<tr>
		<td bgcolor="#F8F8F8" width="136" align="center" background="../images/bj3.jpg" height="25">
		媒体上传大小</td>
		<td bgcolor="#F8F8F8" width="350" background="../images/bj3.jpg" height="25">
		<input type="text" name="S_MediaSize" size="23" value="<%=rs("S_MediaSize")%>"> 
		KB</td>
		<td bgcolor="#F8F8F8" width="250" background="../images/bj3.jpg" height="25">0 为无限制</td>
	</tr>
	<tr>
		<td bgcolor="#F8F8F8" width="136" align="center" background="../images/bj3.jpg" height="25">
		FLASH上传类型</td>
		<td bgcolor="#F8F8F8" width="350" background="../images/bj3.jpg" height="25">
		<input type="text" name="S_FlashExt" size="49" value="<%=ucase(rs("S_FlashExt"))%>"></td>
		<td bgcolor="#F8F8F8" width="250" background="../images/bj3.jpg" height="25">
		用 | 分开</td>
	</tr>
	<tr>
		<td bgcolor="#F8F8F8" width="136" align="center" background="../images/bj3.jpg" height="25">
		FLASH上传大小</td>
		<td bgcolor="#F8F8F8" width="350" background="../images/bj3.jpg" height="25">
		<input type="text" name="S_FlashSize" size="23" value="<%=rs("S_FlashSize")%>"> 
		KB</td>
		<td bgcolor="#F8F8F8" width="250" background="../images/bj3.jpg" height="25">0 为无限制</td>
	</tr>
	<tr>
		<td bgcolor="#F8F8F8" width="136" align="center" background="../images/bj3.jpg" height="25">
		其它文件类型</td>
		<td bgcolor="#F8F8F8" width="350" background="../images/bj3.jpg" height="25">
		<input type="text" name="S_FileExt" size="49" value="<%=ucase(rs("S_FileExt"))%>"></td>
		<td bgcolor="#F8F8F8" width="250" background="../images/bj3.jpg" height="25">
		用 | 分开</td>
	</tr>
	<tr>
		<td bgcolor="#F8F8F8" width="136" align="center" background="../images/bj3.jpg" height="25">
		其它文件大小</td>
		<td bgcolor="#F8F8F8" width="350" background="../images/bj3.jpg" height="25">
		<input type="text" name="S_FileSize" size="23" value="<%=rs("S_FileSize")%>"> 
		KB</td>
		<td bgcolor="#F8F8F8" width="250" background="../images/bj3.jpg" height="25">0 为无限制</td>
	</tr>
	<tr>
		<td bgcolor="#F8F8F8" width="136" align="center" background="../images/bj3.jpg" height="25">
		远程上传图片类型</td>
		<td bgcolor="#F8F8F8" width="350" background="../images/bj3.jpg" height="25">
		<input type="text" name="S_RemoteExt" size="49" value="<%=ucase(rs("S_RemoteExt"))%>"></td>
		<td bgcolor="#F8F8F8" width="250" background="../images/bj3.jpg" height="25">
		用 | 分开</td>
	</tr>
	<tr>
		<td bgcolor="#F8F8F8" width="136" align="center" background="../images/bj3.jpg" height="25">
		远程上传图片大小</td>
		<td bgcolor="#F8F8F8" width="350" background="../images/bj3.jpg" height="25">
		<input type="text" name="S_RemoteSize" size="23" value="<%=rs("S_RemoteSize")%>"> 
		KB</td>
		<td bgcolor="#F8F8F8" width="250" background="../images/bj3.jpg" height="25">0 为无限制</td>
	</tr>
	<tr>
		<td bgcolor="#F8F8F8" width="736" align="center" background="../images/bj3.jpg" height="25" colspan="3" align=center>
		<input type="submit" value="提交" name="B1">　　　<input type="reset" value="重置" name="B2"></td>
	</tr></form>
</table>
<br>
<table align=center border="1" cellpadding="3" width="750" id="table3" style="border-collapse: collapse" bordercolor="#C0C0C0">
		<!--webbot BOT="GeneratedScript" PREVIEW=" " startspan --><script Language="VBScript" Type="text/vbscript"><!--
function FrontPage_Form2_onsubmit()
  Set theForm = document.FrontPage_Form2

  If (theForm.Newsx.value = "") Then
    MsgBox "请在 New时效 域中输入值。", 0, "有效性验证错误"
    theForm.Newsx.focus()
    FrontPage_Form2_onsubmit = False
    Exit Function
  End If

  If (Len(theForm.Newsx.value) < 1) Then
    MsgBox "在 New时效 域中，请至少输入 1 个字符。", 0, "有效性验证错误"
    theForm.Newsx.focus()
    FrontPage_Form2_onsubmit = False
    Exit Function
  End If

  If (Len(theForm.Newsx.value) > 3) Then
    MsgBox "在 New时效 域中，请最多输入 3 个字符。", 0, "有效性验证错误"
    theForm.Newsx.focus()
    FrontPage_Form2_onsubmit = False
    Exit Function
  End If

  checkOK = "0123456789-" 
  checkStr = theForm.Newsx.value
  allValid = True
  validGroups = True
  decPoints = 0
  allNum = ""
  For i = 1 to len(checkStr)
    ch = Mid(checkStr, i, 1)
    If (InStr(checkOK, ch) = 0) Then
        allValid = False
        Exit For
    End If
    allNum = allNum & ch
  Next
  If (Not allValid) Then
    MsgBox "在 New时效 域中，只能输入 数字 字符。", 0, "有效性验证错误"
    theForm.Newsx.focus()
    FrontPage_Form2_onsubmit = False
    Exit Function
  End If

  If ((checkstr <> "" And Not IsNumeric(allNum)) Or (decPoints > 1) Or Not validGroups) Then
    MsgBox "请在 Newsx 域中输入一个有效数字。", 0, "有效性验证错误"
    theForm.Newsx.focus()
    FrontPage_Form2_onsubmit = False
    Exit Function
  End If

  If (theForm.moreline.value = "") Then
    MsgBox "请在 列表行距 域中输入值。", 0, "有效性验证错误"
    theForm.moreline.focus()
    FrontPage_Form2_onsubmit = False
    Exit Function
  End If

  If (Len(theForm.moreline.value) < 1) Then
    MsgBox "在 列表行距 域中，请至少输入 1 个字符。", 0, "有效性验证错误"
    theForm.moreline.focus()
    FrontPage_Form2_onsubmit = False
    Exit Function
  End If

  If (Len(theForm.moreline.value) > 3) Then
    MsgBox "在 列表行距 域中，请最多输入 3 个字符。", 0, "有效性验证错误"
    theForm.moreline.focus()
    FrontPage_Form2_onsubmit = False
    Exit Function
  End If

  checkOK = "0123456789-" 
  checkStr = theForm.moreline.value
  allValid = True
  validGroups = True
  decPoints = 0
  allNum = ""
  For i = 1 to len(checkStr)
    ch = Mid(checkStr, i, 1)
    If (InStr(checkOK, ch) = 0) Then
        allValid = False
        Exit For
    End If
    allNum = allNum & ch
  Next
  If (Not allValid) Then
    MsgBox "在 列表行距 域中，只能输入 数字 字符。", 0, "有效性验证错误"
    theForm.moreline.focus()
    FrontPage_Form2_onsubmit = False
    Exit Function
  End If

  If ((checkstr <> "" And Not IsNumeric(allNum)) Or (decPoints > 1) Or Not validGroups) Then
    MsgBox "请在 moreline 域中输入一个有效数字。", 0, "有效性验证错误"
    theForm.moreline.focus()
    FrontPage_Form2_onsubmit = False
    Exit Function
  End If
  FrontPage_Form2_onsubmit = True 
End Function
--></script><!--webbot BOT="GeneratedScript" endspan --><form method="POST" action="admin_set_newsxg.asp?wz=newsxg" name="FrontPage_Form2">
<%
set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open "select * from [config] ",conn,1,1
%>		
		<tr>
			<td bgcolor="#F8F8F8" width="736" align="center" background="../images/bj5.jpg" height="25" colspan="3">
			<p align="justify"><a name=newsxg></a><font color="#FFFFFF"><b>新闻相关设置</b></font></td>
		</tr>
		<tr>
			<td bgcolor="#F8F8F8" width="136" align="center" background="../images/bj3.jpg" height="25">
			<img border="0" src="../images/new.gif" width="28" height="11">时效</td>
			<td bgcolor="#F8F8F8" width="350" background="../images/bj3.jpg" height="25">
			
				<p>
				&nbsp;<!--webbot bot="Validation" s-display-name="New时效" s-data-type="Integer" s-number-separators="x" b-value-required="TRUE" i-minimum-length="1" i-maximum-length="3" --><input type="text" value='<%=rs("newsx")%>' name="Newsx" size="6" maxlength="3"> 天</p>
			
			</td>
			<td bgcolor="#F8F8F8" width="250" background="../images/bj3.jpg" height="25">
			多少天内的新添加的新闻将会显示<img border="0" src="../images/new.gif" width="28" height="11">。</td>
		</tr>
		<tr>
			<td bgcolor="#F8F8F8" width="136" align="center" background="../images/bj3.jpg" height="25">
			评论显示正文下面</td>
			<td bgcolor="#F8F8F8" width="350" background="../images/bj3.jpg" height="25">
			&nbsp;<select size="1" name="pl">
			<option value="0" <% if rs("pl")=0 then Response.Write " selected "%>>不显示</option>
			<option value="1" <% if rs("pl")=1 then Response.Write " selected "%>>显示</option>
			</select></td>
			<td bgcolor="#F8F8F8" width="250" background="../images/bj3.jpg" height="25">
			新闻评论是否显示在新闻正文的下面。</td>
		</tr>
		<tr>
			<td bgcolor="#F8F8F8" width="136" align="center" background="../images/bj3.jpg" height="25">
			显示发表评论表单</td>
			<td bgcolor="#F8F8F8" width="350" background="../images/bj3.jpg" height="25">
			&nbsp;<select size="1" name="plfb">
			<option value="1" <% if rs("plfb")=1 then Response.Write " selected "%>>显示</option>
			<option value="0" <% if rs("plfb")=0 then Response.Write " selected "%>>不显示</option>
			</select></td>
			<td bgcolor="#F8F8F8" width="250" background="../images/bj3.jpg" height="25">
			是否在后面显示评论发表的表单。</td>
		</tr>
		<tr>
			<td bgcolor="#F8F8F8" width="136" align="center" background="../images/bj3.jpg" height="25">
			新闻列表行距</td>
			<td bgcolor="#F8F8F8" width="350" background="../images/bj3.jpg" height="25">
			&nbsp;<!--webbot bot="Validation" s-display-name="列表行距" s-data-type="Integer" s-number-separators="x" b-value-required="TRUE" i-minimum-length="1" i-maximum-length="3" --><input type="text" value='<%=rs("moreline")%>' name="moreline" size="6" maxlength="3"> 
			pt</td>
			<td bgcolor="#F8F8F8" width="250" background="../images/bj3.jpg" height="25">
			更多新闻列表行间距。</td>
		</tr>
		<tr>
			<td bgcolor="#F8F8F8" width="136" align="center" background="../images/bj3.jpg" height="25">
			是否显示搜索条</td>
			<td bgcolor="#F8F8F8" width="350" background="../images/bj3.jpg" height="25">
			&nbsp;<select size="1" name="ggso">
			<option value="1" <% if rs("ggso")=1 then Response.Write " selected "%>>显示</option>
			<option value="0" <% if rs("ggso")=0 then Response.Write " selected "%>>不显示</option>
			</select></td>
			<td bgcolor="#F8F8F8" width="250" background="../images/bj3.jpg" height="25">
			是否在下方显示Google的搜索条，建议显示！</td>
		</tr>
		<tr>
			<td bgcolor="#F8F8F8" width="736" align="center" background="../images/bj5.jpg" height="25" colspan="3">
			<p align="left"><font color="#FFFFFF">广告设置(赞助)</font></td>
		</tr>
		<tr>
			<td bgcolor="#F8F8F8" width="136" align="center" background="../images/bj6.jpg" height="25">
			广告显示</td>
			<td bgcolor="#F8F8F8" width="300" background="../images/bj6.jpg" height="25">
			&nbsp;<select size="1" name="XuasGG">
			<option value="1" <% if rs("XuasGG")="1" then Response.Write " selected "%>>显示广告</option>
			<option value="0" <% if rs("XuasGG")="0" then Response.Write " selected "%>>不显示广告</option>
			</select></td>
			<td bgcolor="#F8F8F8" width="300" background="../images/bj6.jpg" height="50" rowspan="2">
			　　本系统本身不需要花费任何钱就可以免费的永久使用，如果你觉得可以，请尽量显示广告吧。</td>
		</tr>
		<tr>
			<td bgcolor="#F8F8F8" width="136" align="center" background="../images/bj6.jpg" height="25">
			广告显示位置</td>
			<td bgcolor="#F8F8F8" width="300" background="../images/bj6.jpg" height="25">
			&nbsp;<select size="1" name="XuasGGWZ">
			<option value="1" <% if rs("XuasGGWZ")="1" then Response.Write " selected "%>>正文之上</option>
			<option value="2" <% if rs("XuasGGWZ")="2" then Response.Write " selected "%>>正文之下</option>
			</select></td>
		</tr>
		<tr>
			<td bgcolor="#F8F8F8" width="136" align="center" background="../images/bj6.jpg" height="25">
			广告效果预览</td>
			<td bgcolor="#FFFFFF" width="600" height="25" colspan="2">
			<p align="center">
			<iframe name='I1' src='http://www.xuas.com/Other/GoogleAD/Google468x60-FFFFFF.asp' marginwidth='1' marginheight='1' height='60' width='468' scrolling='no' border='0' frameborder='0'></iframe></td>
		</tr>
		<tr>
			<td bgcolor="#F8F8F8" width="736" background="../images/bj5.jpg" height="25" colspan="3">
			<font color="#FFFFFF">IP过滤</font></td>
		</tr>
		<tr>
			<td bgcolor="#F8F8F8" width="136" align="center" background="../images/bj6.jpg" height="25">
			IP地址</td>
			<td bgcolor="#F8F8F8" width="300" background="../images/bj6.jpg" height="25">
			<textarea rows="5" name="ZuZiIP" cols="55"><%=rs("zuziip")%></textarea></td>
			<td bgcolor="#F8F8F8" width="300" background="../images/bj6.jpg" height="25">
			　　这里的IP将被阻止访问，用回车分隔。<br>
			不支持通配符*。</td>
		</tr>
		<tr>
			<td bgcolor="#F8F8F8" width="736" align="center" background="../images/bj5.jpg" height="25" colspan="3">
			<p align="justify"><font color="#FFFFFF">其它设置</font></td>
		</tr>
		<tr>
			<td bgcolor="#F8F8F8" width="136" align="center" background="../images/bj3.jpg" height="25">
			留言审核</td>
			<td bgcolor="#F8F8F8" width="300" background="../images/bj3.jpg" height="25">
			&nbsp;<select size="1" name="lysh">
			<option value="1" <% if rs("lysh")=1 then Response.Write " selected "%>>关闭审核</option>
			<option value="0" <% if rs("lysh")=0 then Response.Write " selected "%>>打开审核</option>
			</select></td>
			<td bgcolor="#F8F8F8" width="300" background="../images/bj3.jpg" height="25">
			打开审核后，留言不会立即显示出来！</td>
		</tr>
		<tr>
			<td bgcolor="#F8F8F8" width="136" align="center" background="../images/bj3.jpg" height="25">
			投稿设置</td>
			<td bgcolor="#F8F8F8" width="300" background="../images/bj3.jpg" height="25">
			&nbsp;<select size="1" name="htmledit">
				<option value="0" <% if rs("tghtmledit")="0" then response.write " selected "%> >不使用HTML编辑器</option>
				<option value="1" <% if rs("tghtmledit")="1" then response.write " selected "%>>使用HTML编辑器</option>
				</select>　　<a href="admin_set_tglm.asp">投稿栏目设置</a></td>
			<td bgcolor="#F8F8F8" width="300" background="../images/bj3.jpg" height="25">
			投稿是否使用HTML编辑器！(<a target="_blank" href="utg.asp">UTG.ASP</a>)</td>
		</tr>
		<tr>
			<td bgcolor="#F8F8F8" width="136" align="center" background="../images/bj3.jpg" height="25">
			录入员审核</td>
			<td bgcolor="#F8F8F8" width="300" background="../images/bj3.jpg" height="25">
			&nbsp;<select size="1" name="lrySH">
			<option value="1" <% if rs("lrySH")=1 then Response.Write " selected "%>>关闭审核</option>
			<option value="0" <% if rs("lrySH")=0 then Response.Write " selected "%>>打开审核</option>
			</select></td>
			<td bgcolor="#F8F8F8" width="300" background="../images/bj3.jpg" height="25">
			录入员的文章是否需要管理员审核？</td>
		</tr>
		<tr>
			<td bgcolor="#F8F8F8" width="736" align="center" background="../images/bj3.jpg" height="25" colspan="3">
			<input type="submit" value="提交" name="B3">　　<input type="reset" value="重置" name="B4"></td>
		</tr>
<%
rs.close
set rs=nothing
%>
		</form>
		</table>