<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
'****************************************************************
'**   版权所有：烈火工作室  演示网站http://www.strongfire.cn   **
'**   QQ:839225572   邮箱：strongfire2008@163.com              **
'**   非正版用户不得擅自非法修改用于商业用途！查出必究。       **
'****************************************************************
%>
<!--#include file="islogin.asp"-->
<!--#include file="Check_SqlIn.asp"-->
<!--#include file="admin_conn.asp"-->
<!--#include file="config.asp" -->
<%
action =trim(Request("action"))
Const ForReading =1, ForWriting = 2
if action="ok" then
     website = trim(Request.form("website"))
	 weburl = trim(Request.form("weburl"))
	 
	 'wDescription = trim(Request.form("wDescription"))
	 beianhao = trim(Request.form("beianhao"))
	 rownum = trim(Request.form("rownum"))
	 zinum = trim(Request.form("zinum"))
	 tjrownum = trim(Request.form("tjrownum"))
	 tjzinum = trim(Request.form("tjzinum")) 
	 newsperpage = trim(Request.form("newsperpage")) 
	 
	voteincdir = server.mappath("config.asp")
	set fs = CreateObject("Scripting.FileSystemObject")
	set ts = fs.OpenTextFile(voteincdir,ForWriting, True)
	ts.Write ""
	ts.Write "<"
	ts.Write "%"& vbCrLf
	ts.Write " website= "&""""&website&""""& vbCrLf 
	ts.Write " weburl= "&""""&weburl&""""& vbCrLf
	'ts.Write " wKeywords= "&""""&wKeywords&""""& vbCrLf
	'ts.Write " wDescription= "&""""&wDescription&""""& vbCrLf
	ts.Write " beianhao= "&""""&beianhao&""""& vbCrLf
	ts.Write " rownum="&rownum& vbCrLf
	ts.Write " zinum="&zinum& vbCrLf	
	ts.Write " tjrownum="&tjrownum& vbCrLf
	ts.Write " tjzinum="&tjzinum& vbCrLf	
	ts.Write " newsperpage="&newsperpage& vbCrLf	
	ts.Write "%"
	ts.Write ">"
	ts.close
	response.write "<script language=javascript>"
	response.write "alert('系统设置成功！');"
	response.write "</script>"
end if


%>
<html>
<head>
<LINK href="admin_Css.css" type=text/css rel=stylesheet>

<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>系统设置</title>

<style type="text/css">
<!--
.STYLE1 {
	font-size: 14px;
	color: #0000FF;
	font-weight: bold;
}
-->
</style>
</head>


<body>
<div align="center">
  <form name="form1" method="post" action="sysset.asp?action=ok">
  
  
  <table class="list" width="90%" border="0" cellspacing="1" cellpadding="0">
    <tr><th>系统设置</th></tr>

	
    <tr>
      <td width="665" colspan="5" ><div align="left">本站站名：&nbsp;&nbsp;&nbsp;
        <input name="website" type="text" value="<%=website%>" size="30">
      </div>
      <div align="center"></div>        <div align="center"></div></td>
    </tr>
    <tr>
      <td colspan="5" ><div align="left">本站网址：&nbsp;&nbsp;&nbsp;
        <input name="weburl" type="text" value="<%=weburl%>" size="30">
例（http://www.strongfire.cn）      </div></td>
    </tr>
    <tr>
      <td colspan="5" >备 案 号：&nbsp;&nbsp;&nbsp;
        <input name="beianhao" type="text" id="beianhao" value="<%=beianhao%>" size="30"></td>
    </tr>
    <tr>
      <td colspan="5" class="table_td2">列表页所显示的条数：
        <input type="text" name="newsperpage" value="<%=newsperpage%>" size="5" maxlength="2"></td>
    </tr>
    <tr>
      <td colspan="5" class="table_td2"><div align="left">分类信息生成显示条数：
          <input name="rownum" type="text" id="rownum" value="<%=rownum%>" size="5" maxlength="2">
      </div></td>
    </tr>
    <tr>
      <td colspan="5" class="table_td2"><div align="left">分类信息标题显示的字数：
          <input name="zinum" type="text" id="zinum" value="<%=zinum%>" size="5" maxlength="2">
      超出时会以...结束</div></td>
    </tr>
    <tr>
      <td colspan="5" class="table_td2"><div align="left">推荐信息、热门信息、最新信息显示条数
          <input name="tjrownum" type="text" id="tjrownum" value="<%=tjrownum%>" size="5" maxlength="2">
      </div></td>
    </tr>
    <tr>
      <td colspan="5" class="table_td2"><div align="left">推荐信息、热门信息、最新信息标题显示的字数：
          <input name="tjzinum" type="text" id="tjzinum" value="<%=tjzinum%>" size="5" maxlength="2">
超出时会以...结束</div></td>
    </tr>
  </table>
  <p>
    <input type="submit" name="Submit" value="  设 置  ">
     &nbsp;&nbsp;&nbsp;<br>
  </form>
  </p>
</div>
</body>

</html>
