<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312" />
<TITLE>网站信息设置</TITLE>
<META NAME="Keywords" CONTENT="" />
<META NAME="Description" CONTENT="" />
<link rel="stylesheet" href="../Images/CssAdmin.css">
<script language="javascript" src="../inc/Admin.js"></script>
<script type="text/javascript" src="../../js/jquery-1.4.4.min.js"></script>
<style type="text/css">
<!--
.STYLE1 {color: #FF0000}
-->
</style>
<link rel="stylesheet" href="../../kindeditor4110/themes/default/default.css" />
<link rel="stylesheet" href="../../kindeditor4110/plugins/code/prettify.css" />
<script charset="utf-8" src="../../kindeditor4110/kindeditor.js"></script>
<script charset="utf-8" src="../../kindeditor4110/lang/zh_CN.js"></script>
<script charset="utf-8" src="../../kindeditor4110/plugins/code/prettify.js"></script>
</HEAD>
<!--#include file="../../Include/Const.asp" -->
<!--#include file="../../Include/Conn1.asp" -->
<!--#include file="../CheckAdmin.asp"-->
<body>
<%
select case request.QueryString("Action")
  case "Save"
    SaveSiteInfo
  case "SaveConst"
    SaveConstInfo
end Select

%>
<table width="100%" border="0" cellpadding="3" cellspacing="1" bgcolor="#628AE1">
  <tr>
    <td height="24" nowrap><font color="#FFFFFF"><img src="../Images/Explain.gif" width="18" height="18" border="0" align="absmiddle">&nbsp;<strong>系统管理：添加，修改站点的相关信息</strong></font></td>
  </tr>
  <tr>
    <td height="24" align="center" nowrap bgcolor="#FFFFFF"><A  href="AdminList.asp" target="mainFrame">网站管理员</A><font color="#0000FF"> | </font><a href="PassUpdate.asp" target="mainFrame" >修改密码</a> <font color="#0000FF">&nbsp;|&nbsp;</font> <a href="SetSite.asp" target="mainFrame" >网站信息设置</a><font color="#0000FF">&nbsp;|&nbsp;</font></td>
  </tr>
</table>
<br>
<div id="Language">
<div style="height:37px;background:#ffffff;border:1px #628ae1 solid;padding-top:5px; width:100%; padding-left:10px;clear:both;">
<h2>简体中文</h2>
</div>
<br/>
<%
  set rs = server.createobject("adodb.recordset")
  sql="select * from Angel_Language order by Lorder desc"
  rs.open sql,conn,1,3
  do while not rs.eof
  if request("m")<>"" then
  showm=request("m")
  else
  showm=n
  end if
set rsb = server.createobject("adodb.recordset")
sqlb="select * from Angel_Site where Angel_languageid="&rs("id")&""
rsb.open sqlb,conn,1,1
if not rsb.eof Then
%>
<script type="text/javascript">
		KindEditor.ready(function(K) {
			var editor1 = K.create('textarea[name="content<%=rs("id")%>"]', {
				cssPath : '../../kindeditor4110/plugins/code/prettify.css',
				uploadJson : '../../kindeditor4110/asp/upload_json.asp',
				fileManagerJson : '../../kindeditor4110/asp/file_manager_json.asp',
				allowFileManager : true,
				afterCreate : function() {
					var self = this;
					K.ctrl(document, 13, function() {
						self.sync();
						K('form[name=editForm<%=rs("id")%>]')[0].submit();
					});
					K.ctrl(self.edit.doc, 13, function() {
						self.sync();
						K('form[name=editForm<%=rs("id")%>]')[0].submit();
					});
				}
			});
			prettyPrint();
		});
</script>
<ul>
<table width="100%" border="0" cellpadding="3" cellspacing="1" bgcolor="#628AE1">
  <form name="editForm<%=rs("id")%>" method="post" action="SetSite.asp?Action=Save&m=<%=showm%>" >
  <tr>
    <td height="24" nowrap bgcolor="#FFFFFF">
	<table width="100%" border="0" cellpadding="0" cellspacing="0" id="editProduct" width="100%">
    <tr>
    <td height="22" colspan="2" align="center" >【网站信息设置】</td>
    </tr>
      <tr>
        <td height="20" align="right" width="160">网站标题：</td>
        <td><input name="SiteTitle" type="text" class="textfield" id="SiteTitle" style="WIDTH: 400;" value="<%=rsb("SiteTitle")%>" >&nbsp;*</td>
      </tr>

      <tr>
        <td height="20" align="right">网站域名：</td>
        <td><input name="SiteUrl" type="text" class="textfield" id="SiteUrl" style="WIDTH: 400;" value="<%=rsb("SiteUrl")%>" >&nbsp;*</td>
      </tr>
      <tr>
        <td height="20" align="right">联系电话：</td>
        <td><input name="SiteTel" type="text" class="textfield" id="SiteTel" style="WIDTH: 400;" value="<%=rsb("SiteTel")%>" >&nbsp;*</td>
      </tr>
      <tr>
        <td height="20" align="right">联系地址：</td>
        <td><input name="SiteAddress" type="text" class="textfield" id="SiteAddress" style="WIDTH: 400;" value="<%=rsb("SiteAddress")%>" >&nbsp;*</td>
      </tr>
      <tr>
        <td height="20" align="right">网站客服QQ：</td>
        <td><input name="SiteQQ" type="text" class="textfield" id="SiteQQ" style="WIDTH: 400;" value="<%=rsb("SiteQQ")%>" >&nbsp;*</td>
      </tr>
      <tr>
        <td height="20" align="right">联系人：</td>
        <td><input name="SiteContact" type="text" class="textfield" id="SiteContact" style="WIDTH: 400;" value="<%=rsb("SiteContact")%>" >&nbsp;*</td>
      </tr>
      <tr>
        <td height="20" align="right">联系手机号：</td>
        <td><input name="SiteTelephone" type="text" class="textfield" id="SiteTelephone" style="WIDTH: 400;" value="<%=rsb("SiteTelephone")%>" >&nbsp;*</td>
      </tr>
      <tr>
        <td height="20" align="right">联系人邮箱：</td>
        <td><input name="SiteEmail" type="text" class="textfield" id="SiteEmail" style="WIDTH: 400;" value="<%=rsb("SiteEmail")%>" >&nbsp;*</td>
      </tr>
      <tr>
        <td height="20" align="right">IPC备案信息：</td>
        <td><input name="SiteIcp" type="text" class="textfield" id="SiteIcp" style="WIDTH: 400;" value="<%=rsb("SiteIcp")%>" >&nbsp;*</td>
      </tr>
      <tr>
        <td height="20" align="right" valign="top">关 键 字：</td>
        <td><textarea name="Keywords" rows="3"  class="textfield" id="Keywords" style="WIDTH: 400;"><%=rsb("Keywords")%></textarea>&nbsp;关键字设置有利于网站的搜索</td>
      </tr>
      <tr>
        <td height="20" align="right" valign="top">网站描述：</td>
        <td><textarea name="Description" rows="6" class="textfield" id="Description" style="WIDTH: 400;"><%=rsb("Description")%></textarea>
&nbsp;网站描述设置有利于网站的搜索</td>
      </tr>

 <tr>
        <td height="20" align="right" valign="top">版权信息：</td>
        <td><textarea name="copyright" rows="6" class="textfield" id="copyright" style="WIDTH: 400;"><%=rsb("copyright")%></textarea>
&nbsp;网站底部版权信息</td>
      </tr>


      <tr>
        <td height="20" align="right" valign="top">网站简短公告：</td>
        <td><textarea name="Vodeostring" rows="6" class="textfield" id="Vodeostring" style="WIDTH: 400;"><%=rsb("Vodeostring")%></textarea>
          请将公告信息复制到这里格式如： html代码等</td>
      </tr>

    <tr>
      <td align="right" class="forumRow">首页-企业简介</td>
      <td class="forumRowHighlight"><input type="button" onClick="doDisplay(this, '<%=rs("id")%>')" value="显示编辑器">
      <div id="table_display_<%=rs("id")%>" style="display: none">
     <textarea name="content1" style="width:660px;height:300px;" id="content<%=rs("id")%>"><%=rsb("AboutContent")%></textarea>
      </div></td>
    </tr>


      <tr>
        <td height="30" align="right">&nbsp;<input type="hidden" value="<%=rs("id")%>" name="Angel_languageid"></td>
        <td valign="bottom"><input name="submitSaveEdit" type="submit" class="button"  id="submitSaveEdit" value="保存" style="WIDTH: 60;" ></td>
      </tr>
      <tr>
        <td height="20" align="right">&nbsp;</td>
        <td valign="bottom">&nbsp;</td>
      </tr>
    </table></td>
  </tr>
  </form>
</table>
</ul>
<%else%>
<ul>
<table width="100%" border="0" cellpadding="3" cellspacing="1" bgcolor="#628AE1">
  <form name="editForm<%=rs("id")%>" method="post" action="SetSite.asp?Action=Save&m=<%=showm%>" >
  <tr>
    <td height="24" nowrap bgcolor="#FFFFFF">
	<table width="100%" border="0" cellpadding="0" cellspacing="0" id=editProduct width="100%">
    <tr>
    <td height="22" colspan="2" align="center" >【网站信息设置】</td>
    </tr>
      <tr>
        <td height="20" align="right" width="160">网站标题：</td>
        <td><input name="SiteTitle" type="text" class="textfield" id="SiteTitle" style="WIDTH: 400;" value="<%=rsb("SiteTitle")%>" >&nbsp;*</td>
      </tr>

      <tr>
        <td height="20" align="right">网站域名：</td>
        <td><input name="SiteUrl" type="text" class="textfield" id="SiteUrl" style="WIDTH: 400;" value="<%=rsb("SiteUrl")%>" >&nbsp;*</td>
      </tr>
      <tr>
        <td height="20" align="right">联系电话：</td>
        <td><input name="SiteTel" type="text" class="textfield" id="SiteTel" style="WIDTH: 400;" value="<%=rsb("SiteTel")%>" >&nbsp;*</td>
      </tr>
      <tr>
        <td height="20" align="right">联系地址：</td>
        <td><input name="SiteAddress" type="text" class="textfield" id="SiteAddress" style="WIDTH: 400;" value="<%=rsb("SiteAddress")%>" >&nbsp;*</td>
      </tr>
      <tr>
        <td height="20" align="right">网站客服QQ：</td>
        <td><input name="SiteQQ" type="text" class="textfield" id="SiteQQ" style="WIDTH: 400;" value="<%=rsb("SiteQQ")%>" >&nbsp;*</td>
      </tr>
      <tr>
        <td height="20" align="right">联系人：</td>
        <td><input name="SiteContact" type="text" class="textfield" id="SiteContact" style="WIDTH: 400;" value="<%=rsb("SiteContact")%>" >&nbsp;*</td>
      </tr>
      <tr>
        <td height="20" align="right">联系手机号：</td>
        <td><input name="SiteTelephone" type="text" class="textfield" id="SiteTelephone" style="WIDTH: 400;" value="<%=rsb("SiteTelephone")%>" >&nbsp;*</td>
      </tr>
      <tr>
        <td height="20" align="right">联系人邮箱：</td>
        <td><input name="SiteEmail" type="text" class="textfield" id="SiteEmail" style="WIDTH: 400;" value="<%=rsb("SiteEmail")%>" >&nbsp;*</td>
      </tr>
      <tr>
        <td height="20" align="right">IPC备案信息：</td>
        <td><input name="SiteIcp" type="text" class="textfield" id="SiteIcp" style="WIDTH: 400;" value="<%=rsb("SiteIcp")%>" >&nbsp;*</td>
      </tr>

      <tr>
        <td height="20" align="right" valign="top">关 键 字：</td>
        <td><textarea name="Keywords" rows="3"  class="textfield" id="Keywords" style="WIDTH: 400;"><%=rsb("Keywords")%></textarea>&nbsp;关键字设置有利于网站的搜索</td>
      </tr>
      <tr>
        <td height="20" align="right" valign="top">网站描述：</td>
        <td><textarea name="Description" rows="6" class="textfield" id="Description" style="WIDTH: 400;"><%=rsb("Description")%></textarea>
&nbsp;网站描述设置有利于网站的搜索</td>
      </tr>

 <tr>
        <td height="20" align="right" valign="top">版权信息：</td>
        <td><textarea name="copyright" rows="6" class="textfield" id="copyright" style="WIDTH: 400;"><%=rsb("copyright")%></textarea>
&nbsp;网站底部版权信息</td>
      </tr>
      <tr>
        <td height="20" align="right" valign="top">网站简短公告：</td>
        <td><textarea name="Vodeostring" rows="6" class="textfield" id="Vodeostring" style="WIDTH: 400;"><%=rsb("Vodeostring")%></textarea>
          请将公告信息复制到这里格式如： html代码等</td>
      </tr>
    <tr>
      <td align="right" class="forumRow">首页-企业简介</td>
      <td class="forumRowHighlight"><input type="button" onClick="doDisplay(this, '<%=rs("id")%>')" value="显示编辑器">
      <div id="table_display_<%=rs("id")%>" style="display: none">
     <textarea name="content1" style="width:600px;height:300px;" id="content<%=rs("id")%>"><%=rsb("AboutContent")%></textarea>
      </div></td>
    </tr>
      <tr>
        <td height="30" align="right">&nbsp;<input type="hidden" value="<%=rs("id")%>" name="Angel_languageid"></td>
        <td valign="bottom"><input name="submitSaveEdit" type="submit" class="button"  id="submitSaveEdit" value="保存" style="WIDTH: 60;" ></td>
      </tr>
      <tr>
        <td height="20" align="right">&nbsp;</td>
        <td valign="bottom">&nbsp;</td>
      </tr>
    </table></td>
  </tr>
  </form>
</table>
</ul>
<%
End If
rsb.close
rs.movenext
loop
rs.close
%>
</div>
<br/>
<table width="100%" border="0" cellpadding="3" cellspacing="1" bgcolor="#628AE1">
  <form name="editForm" method="post" action="SetSite.asp?Action=SaveConst" >
  <tr>
    <td height="24" nowrap bgcolor="#FFFFFF">
	<table width="100%" border="0" cellpadding="0" cellspacing="0" id=editProduct width="100%">
     <tr>
    <td height="22" colspan="2" align="center" >【附加参数设置】</td>
     </tr>
  <tr>
    <td width="160" align="right">系统安装目录：</td>
    <td ><input name="AngelSysRootDir" type="text" id="AngelSysRootDir" style="width: 280" value="<%=AngelSysRootDir%>"> 
      <font color="red">*</font>绝对根路径,空间根目录下的<font color="red">AngelSysRootDir</font>目录下,这里应该填<font color="red">/AngelSysRootDir/</font>必须以<font color="red">/</font>开头和结尾</td>
  </tr>

  <tr>
    <td align="right">是否生成静态页面：</td>
    <td><input name="ishtml" type="radio" value="1" <%if ishtml=1 then%> checked<%end if%>>生成静态HTML <input name="ISHTML" type="radio" value="0" <%if ishtml=0 then%> checked<%end if%>>不生成 <font color="red">*</font></td>
  </tr> 

  <tr style="display:none">
    <td align="right">新闻分类生成前缀：</td>
    <td><input name="NewSortName" type="text" id="NewSortName" style="width: 280" value="<%=NewSortName%>"> <font color="red">*</font> 如：Newslist.html中“Newslist.html”即为前缀</td>
  </tr>
  <tr style="display:none">
    <td align="right">新闻详细页生成前缀：</td>
    <td><input name="NewName" type="text" id="NewName" style="width: 280" value="<%=NewName%>"> <font color="red">*</font> 如：News_show-1.html中“NewNews_show”即为前缀</td>
  </tr>
 <tr style="display:none">
    <td align="right">生成静态页面后缀：</td>
    <td><input name="HTMLName" type="text" id="HTMLName" style="width: 280" value="<%=HTMLName%>"> <font color="red">*</font> 如：index.html中“html”即为后缀。可设置如：html</td>
  </tr>

  <tr style="display:none">
    <td align="right">静态分隔符：</td>
    <td><input name="Separated" type="text" id="Separated" style="width: 280" value="<%=Separated%>"> <font color="red">*</font> 如：Newslist-1.html中的“-”即为分隔符</td>
  </tr>

  <tr>
    <td width="160" align="right">上传目录：</td>
    <td ><input name="siteup" type="text" id="siteup" style="width: 280" value="<%=siteup%>"> 
      <font color="red">*</font></td>
  </tr>
  <tr><td height="10px"></td><td></td></tr>
  <tr>
    <td width="160" align="right">网站颜色选择：</td>
    <td><select name="SiteStyle" id="SiteStyle" style="width:200px;">
          <option value="style1" <%if SiteStyle="style1" then response.Write("selected='selected'")%>>黑色背景网站</option>
		   
          <option value="style2" <%if SiteStyle="style2" then response.Write("selected='selected'")%>>白色背景网站</option>	    
        </select>
      <font color="red">*</font></td>
  </tr>
  <tr><td height="10px"></td><td></td></tr>
  <tr>
    <td align="right" class="forumRow"></td>
    <td class="forumRowHighlight"><input name="submitSaveEdit" class="button"  type="submit" id="submitSaveEdit" value="保存附加参数设置">      </td>
  </tr>
</table>
<script language='javascript'> 
function $(id){return document.getElementById(id);}
function $tag(id,tagName){return $(id).getElementsByTagName(tagName)}
var onum=0;//用于控制默认打开的标签
var Ds=$tag("Language","ul");
var Ts=$tag("Language","h2");
for(var i=0; i<Ds.length;i++){
if(i==onum){
Ds[i].style.display="block";
Ts[i].className = "title_current";
}
else{
Ds[i].style.display="none";
Ts[i].className = "title_normal";
}
Ts[i].value=i;
Ts[i].onmousedown=function(){
if(onum==this.value){return false;};
Ts[onum].className="title_normal";
Ts[this.value].className="title_current";
Ds[onum].style.display="none";
Ds[this.value].style.display="block";
onum=this.value;
}
}
</script>
</body>
</html>


<%
function SaveSiteInfo()
  if len(trim(request.Form("SiteTitle")))<3 then
    response.write ("<script language=javascript> alert('网站标题必填且不能少于3个字符！');history.back(-1);</script>")
    response.end
  end If
 
  dim rs,sql
  set rs = server.createobject("adodb.recordset")
  sql="select top 1 * from Angel_Site where Angel_languageid="&Request.Form("Angel_languageid")
  rs.open sql,conn,1,3
  rs("SiteTitle")=trim(Request.Form("SiteTitle"))
  rs("SiteUrl") =Trim(Request.Form("SiteUrl"))
  rs("SiteTel") =Trim(Request.Form("SiteTel"))
  rs("SiteQQ") =Trim(Request.Form("SiteQQ"))
  rs("SiteIcp")=Trim(Request.Form("SiteIcp"))
  rs("SiteTelephone")=trim(Request.Form("SiteTelephone"))
  rs("SiteEmail")=trim(Request.Form("SiteEmail"))
  rs("SiteContact")=trim(Request.Form("SiteContact"))
  rs("SiteAddress")=Trim(Request.Form("SiteAddress"))
  rs("Keywords")=trim(Request.Form("Keywords"))
  rs("Description")=trim(Request.Form("Description"))
  rs("AboutContent")=trim(Request.Form("content"&Request.Form("Angel_languageid")&""))
  rs("copyright")=trim(Request.Form("copyright"))
  rs("Vodeostring")=trim(Request.Form("Vodeostring"))
  rs("Angel_languageid")=Request.Form("Angel_languageid")
  rs.update
  rs.close
  set rs=nothing 
  response.write "<script language=javascript> alert('成功编辑网站信息！');location.replace('SetSite.asp');</script>"
end function







Function SaveConstInfo()
Set objStream = Server.CreateObject("ADODB.Stream") 
With objStream 
.Open 
.Charset = "gb2312" 
.Position = objStream.Size 
 hf = "<" & "%" & vbcrlf
hf = hf &"Const AngelSysRootDir = " & chr(34) & ReplaceConstChar(trim(request("AngelSysRootDir"))) & chr(34) & "" & vbcrlf
hf = hf & "dim UserUpload" & vbcrlf
hf = hf & "'是否允许前台会员上传图片" & vbcrlf
hf = hf & "UserUpload = 1" & vbcrlf
hf = hf & ""& vbcrlf
hf = hf & "Dim ishtml" & vbcrlf
hf = hf & "'是否静态" & vbcrlf
hf = hf & "ishtml=" & ReplaceConstChar(trim(request("ISHTML"))) & "" & vbcrlf
hf = hf & ""& vbcrlf
hf = hf & "Dim NewSortName"& vbcrlf
hf = hf & "'新闻生成静态分类"& vbcrlf
hf = hf & "NewSortName=" & chr(34) & ReplaceConstChar(trim(request("NewSortName"))) & chr(34) & "" & vbcrlf
hf = hf & ""& vbcrlf
hf = hf & "Dim SiteStyle"& vbcrlf
hf = hf & "'新闻详细前缀"& vbcrlf
hf = hf & "SiteStyle=" & chr(34) & ReplaceConstChar(trim(request("SiteStyle"))) & chr(34) & "" & vbcrlf
hf = hf & ""& vbcrlf
hf = hf & "Dim NewName"& vbcrlf
hf = hf & "'新闻详细前缀"& vbcrlf
hf = hf & "NewName=" & chr(34) & ReplaceConstChar(trim(request("NewName"))) & chr(34) & "" & vbcrlf
hf = hf & ""& vbcrlf
hf = hf & "Dim HTMLName"& vbcrlf
hf = hf & "'静态后缀名字"& vbcrlf
hf = hf & "HTMLName=" & chr(34) & ReplaceConstChar(trim(request("HTMLName"))) & chr(34) & "" & vbcrlf
hf = hf & ""& vbcrlf
hf = hf & "Dim Separated"& vbcrlf
hf = hf & "'文章分割符号"& vbcrlf
hf = hf & "Separated=" & chr(34) & ReplaceConstChar(trim(request("Separated"))) & chr(34) & "" & vbcrlf
hf = hf & "Dim siteup"& vbcrlf
hf = hf & "'上传目录"& vbcrlf
hf = hf & "siteup = " & chr(34) & ReplaceConstChar(trim(request("siteup"))) & chr(34) & "" & vbcrlf
hf = hf & "dim isaspjpeg"& vbcrlf
hf = hf & "'水印及缩略图开关"& vbcrlf
hf = hf & "isaspjpeg = 1"& vbcrlf
hf = hf & "dim fontsize"& vbcrlf
hf = hf & "'水印文字大小"& vbcrlf
hf = hf & "fontsize = 12"& vbcrlf
hf = hf & ""& vbcrlf
hf = hf & "dim fontfamily"& vbcrlf
hf = hf & "'水印文字字体"& vbcrlf
hf = hf & "fontfamily = ""宋体"""& vbcrlf
hf = hf & "dim color1"& vbcrlf
hf = hf & "'水印文字颜色"& vbcrlf
hf = hf & "color1 = ""FFFFFF"""& vbcrlf
hf = hf & ""& vbcrlf
hf = hf & "dim color2"& vbcrlf
hf = hf & "'文字背景颜色"& vbcrlf
hf = hf & "color2 = ""000000"""& vbcrlf
hf = hf & ""& vbcrlf
hf = hf & "dim fonttext"& vbcrlf
hf = hf & "'水印文字内容"& vbcrlf
hf = hf & "fonttext = ""Angel工作室"""& vbcrlf
hf = hf & ""& vbcrlf
hf = hf & "dim angelpostgetime"& vbcrlf
hf = hf & "'发表文章，评论等时间间隔(秒)"& vbcrlf
hf = hf & "angelpostgetime = 15"& vbcrlf
hf = hf & ""& vbcrlf
hf = hf & "dim userword"& vbcrlf
hf = hf & "'禁止注册的字符"& vbcrlf
hf = hf & "userword = ""!,@,#,$,%,^,&,*,(,),{,},[,],|,\,.,/,\,?,`,~,',=,<,>,admin,管理,妈,操,游客,注册,屁,垃圾,你,测试,test"""& vbcrlf 
hf = hf & ""& vbcrlf
hf = hf & "dim SiteDataPath"& vbcrlf
hf = hf & "'数据库路径"& vbcrlf
hf = hf & "SiteDataPath = ""Database/#Angel_asp_Database.mdb"""& vbcrlf 
hf = hf & ""& vbcrlf
hf = hf & "Dim SiteDataBakPath"& vbcrlf
hf = hf & "'数据库备份路径"& vbcrlf
hf = hf & "SiteDataBakPath = ""Database/Bak_Angel_asp.mdb"""& vbcrlf 
hf = hf & "%" & ">"
.WriteText=hf 
.SaveToFile Server.mappath("../../Include/Const.asp"),2 
.Close 
End With 
Set objStream = Nothing
 If trim(request("ishtml")) = 0 Then Call FsoDelHtml(trim(request("HTMLName")))
 response.Write "<script language=javascript>alert('附加参数设置成功！');location.href='SetSite.asp';</script>"
End Function






'Function SaveConstInfo()
' set fso=Server.CreateObject("Scripting.FileSystemObject")
' set hf=fso.CreateTextFile(Server.mappath("../../Include/Const.asp"),true)
' hf.write "<" & "%" & vbcrlf
' hf.write "Const AngelSysRootDir = " & chr(34) & ReplaceConstChar(trim(request("AngelSysRootDir"))) & chr(34) & "" & vbcrlf
' hf.write "dim UserUpload" & vbcrlf
' hf.write "'是否允许前台会员上传图片" & vbcrlf
' hf.write "UserUpload = 1" & vbcrlf
' hf.write ""& vbcrlf
' hf.write "Dim ishtml" & vbcrlf
' hf.write "'是否静态" & vbcrlf
' hf.write "ishtml=" & ReplaceConstChar(trim(request("ISHTML"))) & "" & vbcrlf
' hf.write ""& vbcrlf
' hf.write "Dim NewSortName"& vbcrlf
' hf.write "'新闻生成静态分类"& vbcrlf
' hf.write "NewSortName=" & chr(34) & ReplaceConstChar(trim(request("NewSortName"))) & chr(34) & "" & vbcrlf
 'hf.write ""& vbcrlf
' hf.write "Dim NewName"& vbcrlf
' hf.write "'新闻详细前缀"& vbcrlf
' hf.write "NewName=" & chr(34) & ReplaceConstChar(trim(request("NewName"))) & chr(34) & "" & vbcrlf
' hf.write ""& vbcrlf
' hf.write "Dim HTMLName"& vbcrlf
' hf.write "'静态后缀名字"& vbcrlf
' hf.write "HTMLName=" & chr(34) & ReplaceConstChar(trim(request("HTMLName"))) & chr(34) & "" & vbcrlf
' hf.write ""& vbcrlf
' hf.write "Dim Separated"& vbcrlf
 'hf.write "'文章分割符号"& vbcrlf
 'hf.write "Separated=" & chr(34) & ReplaceConstChar(trim(request("Separated"))) & chr(34) & "" & vbcrlf
 'hf.write "Dim siteup"& vbcrlf
 'hf.write "'上传目录"& vbcrlf
 'hf.write "siteup = " & chr(34) & ReplaceConstChar(trim(request("siteup"))) & chr(34) & "" & vbcrlf
 'hf.write "dim isaspjpeg"& vbcrlf
 'hf.write "'水印及缩略图开关"& vbcrlf
 'hf.write "isaspjpeg = 1"& vbcrlf
 'hf.write "dim fontsize"& vbcrlf
 'hf.write "'水印文字大小"& vbcrlf
 'hf.write "fontsize = 12"& vbcrlf
 'hf.write ""& vbcrlf
 'hf.write "dim fontfamily"& vbcrlf
 'hf.write "'水印文字字体"& vbcrlf
 'hf.write "fontfamily = ""宋体"""& vbcrlf
 'hf.write "dim color1"& vbcrlf
 'hf.write "'水印文字颜色"& vbcrlf
 'hf.write "color1 = ""FFFFFF"""& vbcrlf
 'hf.write ""& vbcrlf
 'hf.write "dim color2"& vbcrlf
 'hf.write "'文字背景颜色"& vbcrlf
 'hf.write "color2 = ""000000"""& vbcrlf
 'hf.write ""& vbcrlf
 'hf.write "dim fonttext"& vbcrlf
 ''hf.write "'水印文字内容"& vbcrlf
 'hf.write "fonttext = ""Angel工作室"""& vbcrlf
 'hf.write ""& vbcrlf
 'hf.write "dim angelpostgetime"& vbcrlf
 'hf.write "'发表文章，评论等时间间隔(秒)"& vbcrlf
 'hf.write "angelpostgetime = 15"& vbcrlf
 'hf.write ""& vbcrlf
 'hf.write "dim userword"& vbcrlf
 'hf.write "'禁止注册的字符"& vbcrlf
 'hf.write "userword = ""!,@,#,$,%,^,&,*,(,),{,},[,],|,\,.,/,\,?,`,~,',=,<,>,admin,管理,妈,操,游客,注册,屁,垃圾,你,测试,test"""& vbcrlf 
' hf.write ""& vbcrlf
' hf.write "dim SiteDataPath"& vbcrlf
' hf.write "'数据库路径"& vbcrlf
' hf.write "SiteDataPath = ""Database/#Angel_asp_Database.mdb"""& vbcrlf 
' hf.write ""& vbcrlf
' hf.write "Dim SiteDataBakPath"& vbcrlf
' hf.write "'数据库备份路径"& vbcrlf
' hf.write "SiteDataBakPath = ""Database/Bak_Angel_asp.mdb"""& vbcrlf 

 'hf.write "%" & ">"
 'hf.close
 'set hf=nothing
 'set fso=Nothing
 'If trim(request("ishtml")) = 0 Then Call FsoDelHtml(trim(request("HTMLName")))
 'response.Write "<script language=javascript>alert('附加参数设置成功！');location.href='SetSite.asp';</script>"
'End Function


Sub FsoDelHtml(HTMLName)
Dim Fso,FsoOut,File
Set Fso = Server.CreateObject("Scripting.FileSystemObject")
SysRootDir="/"
Response.Write "<table class=""tableborder"" width=""95%"" border=""0"" align=""center"" cellpadding=""3"" cellspacing=""1"">"
Set FsoOut = Fso.GetFolder(Server.Mappath(SysRootDir))
    For Each File In FsoOut.Files
        If LCase(Mid(File.Name,InStrRev(File.Name,".")))="."&HTMLName&"" And HTMLName <> "asp" Then
 Response.Write "  <tr>"
 Response.Write "    <td width=""20%"" align=""right"" class=""forumRow"">" & File.Name & "</td>"
 Response.Write "   <td width=""80%"" class=""forumRowHighlight"">删除成功</td>"
 Response.Write "  </tr>"
            Fso.DeleteFile File.Path,True
        End If
    Next
Set FsoOut = Nothing
Set Fso = Nothing
Response.Write "</table>"
End Sub


%>
