<!--#include file="Include/Const.asp"-->
<!--#include file="Include/Version.asp"-->
<!--#include file="Include/Md5.asp"-->
<!--#include file="Include/Function.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html;charset=gb2312">
<title>良精企业网站管理系统在线安装程序</title>
<LINK href="images/favicon.ico" rel="Shortcut Icon">
<style type="text/css">
<!--
.versioninfo {
	color:#666666;
	font-size:11px
}
form {
	display:inline
}
body {
	font-family:  verdana, arial, helvetica, sans-serif;
	color: #000000;
	font-size: 12px;
}
.inputdata {
	font-family: geneva, arial, helvetica, sans-serif;
	background-color: #dddddd;
 font-size:11.5 font-weight: bold;
	color: #000000;
}
pre {
	font-family:  verdana, arial, helvetica, sans-serif;
	color: #000000;
	font-size: 12px;
}
td, textarea {
	color: #000000;
	font-size: 11px;
	font-family:  verdana, arial, helvetica, sans-serif;
}
li {
	list-style-type: circle;
	font-size: 11px;
}
.error {
	font-weight: normal;
	color: #ff0000;
	font-size: 11px;
}
.tableborder {
	background-color: #d8dbd7;
	border-top: 1px solid #bbbbbb;
	border-right: 1px solid #737373;
	border-bottom: 1px solid #737373;
	border-left: 1px solid #bbbbbb;
}
.setupheader {
	background-color: #454545;
	font-size: 14px;
	font-weight: bold;
	color: #ffffff;
}
.setupbody {
	background-color: buttonface;
}
a, a.link, a.visited {
	color: #003366;
}
.ok {
	color: #003366;
	font-size: 11px;
}
.topheader {
	background-color: #336699;
	padding: 3px;
	font-weight: bold;
	color: #ffffff;
}
.header_box {
	background-color: #ffffff;
	padding: 15px 10px 10px;
	height: 40px;
	vertical-align: middle;
}
.header_box1 {
	background-color: #ffffff;
	padding: 15px 10px 10px;
	height: 12px;
	vertical-align: middle;
}
.install_box {
	background-color: #d4d0c8;
	padding: 10px;
}
.firsthr {
	background-color: #808080;
}
.secondhr {
	background-color: #ffffff;
}
input, textarea, button, select {
	font-size: 12px;
	border-width:1px
}
.STYLE1 {color: #FF0000}
-->
</style>
</head>

<body topmargin="30">
<%
Dim steps
steps = Request("steps")
If steps="" Then steps="step1" End if
Select Case steps
	Case "step1"
		session("step1")="step1"
		Call step1
	Case "step2"
		If session("step1")="step1" Then
			session("step2")="step2"
			Call step2
		Else
			Session.Abandon
			Response.write "<script language='javascript'>alert('安装出错，请重新安装！');window.location='install.asp';</script>"
			Response.Redirect "install.asp"
		End if
	Case "step3"
		If session("step1")="step1" And session("step2")="step2" Then
			session("step3")="step3"
			Call step3
		Else
			Session.Abandon
			Response.write "<script language='javascript'>alert('安装出错，请重新安装！');window.location='install.asp';</script>"
			Response.Redirect "install.asp"
		End if
	Case "step4"
		If session("step1")="step1" And session("step2")="step2" And session("step3")="step3" Then
			session("step4")="step4"
			Call step4
		Else
			Session.Abandon
			Response.write "<script language='javascript'>alert('安装出错，请重新安装！');window.location='install.asp';</script>"
			Response.Redirect "install.asp"
		End if
	Case Else
		Session.Abandon
		Response.write "<script language='javascript'>alert('安装出错，请重新安装！');window.location='install.asp';</script>"
End Select

Sub step1()
%>
<table width="600" border="0" align="center" cellpadding="0" cellspacing="1" class="tableborder">
  <tr>
    <td class="setupbody"><div class="topheader">&nbsp;&nbsp;良精企业网站管理系统安装向导</div>
      <div class="header_box"><strong>安装说明</strong><br />
        在开始安装程序前，请您仔细阅读下面说明。</div>
      <div class="install_box">
        <table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td width="10" valign="top"><img src="images/bar.jpg" alt="" width="148" height="218"></td>
            <td width="10"></td>
            <td valign="top"><div style="background-color:#FFFFFF;margin:0px; padding:5px; border:1px inset; width:420px; height:217px; overflow:auto"><b>
                <li>发布说明</li>
                </b><br />
                <br />
                <font color="red">欢迎使用“良精企业网站管理系统”。<font color="blue">软件著作权登记号:2009SRB3516</font></font><br />
                <br />
                <b>
                <li>程序介绍</li>
                </b><br />
                欢迎您安装使用“良精企业网站管理系统”。<br />
                良精企业网站管理系统是一款具有强大的功能的通用企业网站管理系统。系统具有极强的扩展性、可伸缩性，在灵活的产品架构基础上具有可靠的性能和卓越的功能。<br />
                <br />
                <b>
                <li>请确认服务器支持以下配置</li>
                </b><br />
                基本配置：Windows 2000及更高版本，IIS 5.0及更高版本，IE 6.0及更高版本。<br />
                推荐配置：Windows 2000＋IIS 5.0＋Access 2000 以上<br />
                其他设置：支持ADODB.Connection、FSO、Microsoft.XMLHTTP、ADODB.Stream等组件，IE要求5.5及以上版本。<br />
                <br />
                <li><b>后台管理客户端要求<br />
                  <br />
                  </b>必须使用Microsoft IE 5.5以上版本，支持javascript、vbscript脚本。<br />
                  <b><br />
                  </b></li>
                <b>
                <li>程序版权声明</li>
                </b> <br />
                良精企业网站管理系统 由 <a href="http://www.liangjing.org" target="_blank"><font color="#000000">良精科技</font></a> 独立开发。<br />
                在使用本产品中，如果您有任何方面的建议和意见，请与我们联系。<br />
                <br />
                <br />
                官方网站：<a href="http://www.liangjing.org" target="_blank">http://www.liangjing.org</a><br />
              </div></td>
          </tr>
        </table>
        <br />
        <br />
        <table width="100%" border="0" cellpadding="2" cellspacing="0">
          <tr>
            <td width="4%" nowrap="nowrap" class="versioninfo">http://www.liangjing.org
              &nbsp;</td>
            <td><div class="firsthr" style="height:1px"><img src="#" height="1" width="1" alt=""></div>
              <div class="secondhr" style="height:1px"><img src="#" height="1" width="1" alt=""></div></td>
          </tr>
        </table>
        <div align="right">
          <input type="submit" onClick="javascript:window.location='install.asp?steps=step2'" class="button" name='nextButton' value="我明白了，继续安装… ">
          &nbsp;&nbsp;&nbsp;&nbsp; </div>
      </div></td>
  </tr>
</table>
<%
End Sub
Sub step2()
%>
<table width="600" border="0" align="center" cellpadding="0" cellspacing="1" class="tableborder">
  <tr>
    <td class="setupbody"><div class="topheader">&nbsp;&nbsp;良精企业网站管理系统安装向导</div>
      <div class="header_box"> <b>软件产品最终用户许可协议</b><br />
        请您在安装本程序前，务必仔细阅读下面的许可协议。 </div>
      <div class="install_box">
        <table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td width="10" valign="top"><img src="images/bar.jpg" alt="" width="148" height="229"></td>
            <td width="10"></td>
            <td valign="top"><div style="background-color:#FFFFFF;margin:0px; padding:5px; border:1px inset; width:420px; height:217px; overflow:auto">
                <pre><b><font color="#FF0000">《良精企业网站管理系统软件产品最终用户许可协议》</font></b>
良精企业网站管理系统软件为良精网络(http://www.liangjing.org) 
独立开发软件，良精网络依法享有该软件之版权和著作权。

协议内容如下：

一、良精网络将授权软件提供给授权用户，同时提供授权软件的安装说
明、使用说明等文档。授权网站和用户依法享有该软件的使用权，依法
享有良精网络在所承诺的服务期限内提供的安装、升级和技术支持服务。

二、除被授权方外的任何第三方无权使用该许可软件或其中任何一部分。
任何人无权将该许可软件或其中任何一部分向他人出售、出租、转让权
利或者以其他形式进行转让或提供利用。

三、授权用户拥有其系统内全部会员资料、商品资料、订单资料及相关
信息的所有权，并独立承担与其的相关法律义务。

四、利用本授权软件发生的商业行为均由授权用户自行负责，因利用本
软件进行商业行为所产生的一切纠纷均与良精网络无关。

五、为方便用户使用，软件内置了譬如网上支付网关等诸多第三方系统。
但您应自行评估使用这些系统的风险。这些系统的具体开通与服务由相
应第三方公司提供，由此而产生的任何商业纠纷，均与良精网络无关。

六、不得将一份商业授权安装于不同 IP 的并且不在同一主域名下的服
务器空间上，也不得在同一 IP 或同一域名下将一份授权安装为两个以
上的拷贝使用。

七、依据所购买的授权类型中确定的免费升级期限、技术支持期限、技
术支持方式和技术支持内容，自购买时刻起，用户可在免费升级期限内
获得并安装使用最新的授权软件；在技术支持期限内通过指定的方式获
得指定范围内的技术支持内容。被授权用户享有反映和提出意见的权力
，相关意见将被作为首要考虑，但没有一定被采纳的承诺或保证。

八、许可软件的技术支持是指在本协议所许可的技术支持年限内对许可
软件提供必要的支持，支持范围包括软件安装、调试、升级和使用过程
中出现的问题，或是因为软件本身的错误引起的问题提供必要的支持。
技术支持的内容并不包括授权用户因为自身需要而要求调整、增加或者
定制功能的内容，授权如有这方面的需要，可另行和良精网络共同制定
一个双方都同意的补充协议。

九、授权软件的升级：升级前授权应备份数据，升级过程中造成的授权
用户数据丢失良精网络不承担责任。对于授权软件使用过程中出现问题
需要重新安装或修复者，良精网络将提供予必要的支持，但此修复或重
新安装不能保证软件恢复到损坏前的状态，所造成的数据丢失良精网络
不承担责任。

十、良精网络不对因授权软件使用错误、软件错误等问题所引起的授权
用户损失而承担任何责任，但良精网络将尽量避免此类情况的发生且对
授权用户在出现此类问题的情况下提供必要的支持服务。

十一、未经良精网络书面授权许可，授权用户不得向任何第三方提供为
适应自身需要而改进的软件。如果为授权用户所进行的这种改进涉及到
许可软件，则良精网络将有权对该改进进行再发展的非独占权，以及将
其产品投放市场或许可给第三方的优先取舍权。

十二、有关软件授权包含的服务范围，付费方式等，良精网络官方网站
提供唯一的解释和官方价目表。良精网络拥有在不事先通知的情况下，
修改授权协议和价目表的权力，修改后的协议或价目表对自改变之日起
的新授权用户生效。

十三、您必须充分了解使用本软件的用途和风险。十分必要时，良精网
络所承担的责任仅限于产品版本更换。

十四、电子文本形式的授权协议如同双方书面签署的协议一样，具有完
全的和等同的法律效力。您一旦开始安装良精网络软件，即被视为完全
理解并接受本协议的各项条款，在享有上述条款授予的权力的同时，受
到相关的约束和限制。协议许可范围以外的行为，将直接违反本授权协
议并构成侵权，我们有权随时终止授权，责令停止损害，并保留追究相
关责任的权力。

十五、不得有其他侵犯良精网络软件版权或权益之行为。

十六、如果授权用户未能遵守本协议的条款，授权用户的授权将被终止，
所被许可的权利将被收回。

对违反此授权协议行为的个人、法人或其它组织，必须立即停止其行为
造成的一切不良后果承担全部责任。对此前，尤其是此后的行为，将依
据《著作权法》、《计算机软件保护条例》等相关法律、法规追究其经
济和法律责任。

良精网络保留对此协议的最终解释权，任何站点使用本软件则表示默认
接受此协议。
	</pre>
              </div></td>
          </tr>
        </table>
        <br />
        <br />
        <table width="100%" border="0" cellpadding="2" cellspacing="0">
          <tr>
            <td width="4%" nowrap="nowrap" class="versioninfo">http://www.liangjing.org
              &nbsp;</td>
            <td><div class="firsthr" style="height:1px"><img src="#" height="1" width="1" alt=""></div>
              <div class="secondhr" style="height:1px"><img src="#" height="1" width="1" alt=""></div></td>
          </tr>
        </table>
        <form name="sd">
          <div align="right">
            <input id="b" type="radio" name="neatAccept" checked onClick="document.sd.nextButton.disabled=true">
            <label for='b'>不接受协议</label>
            &nbsp;&nbsp;
            <input id="a" type="radio" name="neatAccept" onClick="document.sd.nextButton.disabled=false">
            <label for="a">完全接受、继续安装</label>
            &nbsp;&nbsp;&nbsp;&nbsp;
            <input type="button" class="button" value="上一步" onClick="javascript:window.location='install.asp?steps=step1'">
            &nbsp;
            <input type="button" class="button" onClick="javascript:window.location='install.asp?steps=step3'" name='nextButton' value="下一步" disabled>
          </div>
        </form>
      </div></td>
  </tr>
</table>
<%
End Sub
Sub step3()
%>
<table width="600" border="0" align="center" cellpadding="0" cellspacing="1" class="tableborder">
  <tr>
    <td class="setupbody"><div class="topheader">&nbsp;&nbsp;良精企业网站管理系统安装向导</div>
      <div class="header_box1"><strong>软件产品参数设置</strong><br />
        请您务必仔细设置好您系统的各项参数</div>
      <div class="install_box">
        <form action="install.asp?steps=step4" method="post" name="installparam">
          <table width="590" border="0" cellspacing="0" cellpadding="0" valign="top">
            <tr height="28">
              <td align="right" width="30%">管理员用户名：</td>
              <td><input name="Adminuser" value="" style="width:120">
                <span class="STYLE1">*</span>              </td>
            </tr>
            <tr height="28">
              <td align="right">管理员密码：</td>
              <td><input name="Adminpass" value="" type="password" style="width:120">
                <span class="STYLE1">*              </span></td>
            </tr>
            <tr height="28">
              <td align="right">重复管理员密码：</td>
              <td><input name="Adminpassc" value="" type="password" style="width:120">
                <span class="STYLE1">*</span>              </td>
            </tr>
            <tr height="28">
              <td align="right" width="30%">系统安装目录：</td>
              <td width="80%"><input name="SysRootDir" type="text" id="SysRootDir" style="width: 280" value="<%=SysRootDir%>"></td>
            </tr>
            <tr height="28">
              <td align="right">数据库目录：</td>
              <td><input name="SiteDataPath" type="text" id="SiteDataPath" style="width: 280" value="<%=SiteDataPath%>" style="background:#F7F7F7" readonly></td>
            </tr>
            <tr height="28">
              <td align="right">是否启用防注入系统：</td>
              <td><input name="EnableStopInjection" type="radio" value="True" <%if EnableStopInjection=True then%> checked<%end if%>>启用 <input name="EnableStopInjection" type="radio" value="False" <%if EnableStopInjection=false then%> checked<%end if%>>不启用</td>
            </tr>
            <tr height="28">
              <td align="right">是否启用管理员认证码：</td>
              <td><input name="EnableSiteManageCode" type="radio" value="True" <%if EnableSiteManageCode=True then%> checked<%end if%>>启用 <input name="EnableSiteManageCode" type="radio" value="False" <%if EnableSiteManageCode=false then%> checked<%end if%>>不启用</td>
            </tr>
            <tr height="28">
              <td align="right">管理员认证码：</td>
              <td><input name="SiteManageCode" type="text" id="SiteManageCode" style="width: 80" value="<%=SiteManageCode%>" maxlength="6"></td>
            </tr>
            <tr height="28">
              <td align="right">页面防刷新时间：</td>
              <td><input name="Refresh" type="text" id="Refresh" style="width: 80" value="<%=Refresh%>">
                秒</td>
            </tr>
            <tr height="28">
              <td align="right">新闻模块单页调用条数：</td>
              <td><input name="NewInfo" type="text" id="NewInfo" style="width: 80" value="<%=NewInfo%>"></td>
            </tr>
            <tr height="28">
              <td align="right">产品模块单页调用条数：</td>
              <td><input name="ProInfo" type="text" id="ProInfo" style="width: 80" value="<%=ProInfo%>"></td>
            </tr>
            <tr height="28">
              <td align="right">人才模块单页调用条数：</td>
              <td><input name="JobInfo" type="text" id="JobInfo" style="width: 80" value="<%=JobInfo%>"></td>
            </tr>
            <tr height="28">
              <td align="right">下载模块单页调用条数：</td>
              <td><input name="DownInfo" type="text" id="DownInfo" style="width: 80" value="<%=DownInfo%>"></td>
            </tr>
            <tr height="28">
              <td align="right">其他信息单页调用条数：</td>
              <td><input name="OtherInfo" type="text" id="OtherInfo" style="width: 80" value="<%=OtherInfo%>"></td>
            </tr>
            <tr height="28">
              <td align="right">留言模块单页调用条数：</td>
              <td><input name="MessageInfo" type="text" id="MessageInfo" style="width: 80" value="<%=MessageInfo%>"></td>
            </tr>
            <tr height="28">
              <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<>1 Or ISHTML="" then%> checked<%end if%>>不生成</td>
            </tr>
            <tr height="28">
              <td align="right">生成静态页面后缀：</td>
              <td><input name="HTMLName" type="text" id="HTMLName" style="width: 80" value="<%=HTMLName%>">如：New.html中“html”即为后缀</td>
            </tr>
            <tr height="28">
              <td align="right">新闻分类生成前缀：</td>
              <td><input name="NewSortName" type="text" id="NewSortName" style="width: 180" value="<%=NewSortName%>">
                如：New-1.html中“New”即为前缀</td>
            </tr>
            <tr height="28">
              <td align="right">新闻详细页生成前缀：</td>
              <td><input name="NewName" type="text" id="NewName" style="width: 180" value="<%=NewName%>"></td>
            </tr>
            <tr height="28">
              <td align="right">产品分类生成前缀：</td>
              <td><input name="ProSortName" type="text" id="ProSortName" style="width: 180" value="<%=ProSortName%>"></td>
            </tr>
            <tr height="28">
              <td align="right">产品详细页生成前缀：</td>
              <td><input name="ProName" type="text" id="ProName" style="width: 180" value="<%=ProName%>"></td>
            </tr>
            <tr height="28">
              <td align="right">下载分类生成前缀：</td>
              <td><input name="DownSortName" type="text" id="DownSortName" style="width: 180" value="<%=DownSortName%>"></td>
            </tr>
            <tr height="28">
              <td align="right">下载详细页生成前缀：</td>
              <td><input name="DownNameDiy" type="text" id="DownNameDiy" style="width: 180" value="<%=DownNameDiy%>"></td>
            </tr>
            <tr height="28">
              <td align="right">其他信息分类生成前缀：</td>
              <td><input name="OtherSortName" type="text" id="OtherSortName" style="width: 180" value="<%=OtherSortName%>"></td>
            </tr>
            <tr height="28">
              <td align="right">其他信息详细页生成前缀：</td>
              <td><input name="OtherName" type="text" id="OtherName" style="width: 180" value="<%=OtherName%>"></td>
            </tr>
            <tr height="28">
              <td align="right">人才分类生成前缀：</td>
              <td><input name="JobSortName" type="text" id="JobSortName" style="width: 180" value="<%=JobSortName%>"></td>
            </tr>
            <tr height="28">
              <td align="right">人才详细页生成前缀：</td>
              <td><input name="JobNameDiy" type="text" id="JobNameDiy" style="width: 180" value="<%=JobNameDiy%>"></td>
            </tr>
            <tr height="28">
              <td align="right">企业信息生成前缀：</td>
              <td><input name="AboutNameDiy" type="text" id="AboutNameDiy" style="width: 180" value="<%=AboutNameDiy%>"></td>
            </tr>
            <tr height="28">
              <td align="right">分隔符：</td>
              <td><input name="Separated" type="text" id="Separated" style="width: 80" value="<%=Separated%>">
                如：New-1.html中的“-”即为分隔符</td>
            </tr>
          </table>
          <table width="100%" border="0" cellpadding="2" cellspacing="0">
            <tr>
              <td width="4%" nowrap="nowrap" class="versioninfo">http://www.liangjing.org&nbsp;</td>
              <td><div class="firsthr" style="height:1px"><img src="#" height="1" width="1" alt=""></div>
                <div class="secondhr" style="height:1px"><img src="#" height="1" width="1" alt=""></div></td>
            </tr>
          </table>
          <div align="right">
            <input type="button" class="button" value="上一步" onClick="javascript:window.location='install.asp?steps=step2'">
            &nbsp;
            <input type="submit" class="button"  name='nextButton' value="下一步">
            <input name="install" type="hidden" id="install" value="finish">
          </div>
        </form>
      </div></td>
  </tr>
</table>
<%
End Sub
Sub step4
	If Request.Form("install") = "finish" Then
		If request.Form("SysRootDir")="" Or request.Form("SiteDataPath")="" Or request.Form("SiteManageCode")="" Or request.Form("Adminpass")="" Or request.Form("Adminpassc")="" Or request.Form("Refresh")="" Or request.Form("NewInfo")="" Or request.Form("ProInfo")="" Or request.Form("JobInfo")="" Or request.Form("DownInfo")="" Or request.Form("OtherInfo")="" Or request.Form("MessageInfo")="" Or request.Form("HTMLName")="" Or request.Form("NewSortName")="" Or request.Form("NewName")="" Or request.Form("ProSortName")=""Or request.Form("ProName")="" Or request.Form("DownSortName")=""Or request.Form("DownNameDiy")=""  Or request.Form("OtherSortName")=""  Or request.Form("OtherName")="" Or request.Form("JobSortName")="" Or request.Form("JobNameDiy")="" Or request.Form("AboutNameDiy")="" Or request.Form("Separated")=""  then
			Response.Write("<script language='javascript'>alert('请完整填写安装程序各项内容！');history.back();</script>")
			Response.End
		end if
		If len(request.Form("Adminpass"))<6 then
			Response.Write("<script language='javascript'>alert('密码请保持在6位以上！');history.back();</script>")
			Response.End
		end if
		If request.Form("Adminpass")<> request.Form("Adminpassc") then
			Response.Write("<script language='javascript'>alert('密码与重复密码不同！');history.back();</script>")
			Response.End
		end If
	If trim(request("ISHTML"))="" then
			Response.Write("<script language='javascript'>alert('请选择你网站动态静态其中一个！');history.back();</script>")
			Response.End
		end If
		Set Conn=Server.CreateObject("Adodb.Connection")
		ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(SiteDataPath)
		Conn.open ConnStr
		If err Then
		   err.clear
		   Set Conn = Nothing
		   Response.Write "数据库连接错误，请检查连接参数！"
		   Response.End
		End If
		set rs=server.CreateObject("adodb.recordset")
		rs.Open "select top 1 * from liangjing_Admin",conn,1,3
		rs("AdminName")=Trim(Request.Form("Adminuser"))
		rs("Password")=md5(Trim(Request.Form("Adminpass")))
		rs.update
		rs.close
		set rs = Nothing
		set fso=Server.CreateObject("Scripting.FileSystemObject")
		set hf=fso.CreateTextFile(Server.mappath("Include/Const.asp"),true)
		hf.write "<" & "%" & vbcrlf
		hf.write "Const SysRootDir = " & chr(34) & ReplaceConstChar(trim(request("SysRootDir"))) & chr(34) & "" & vbcrlf
		hf.write "Const SiteDataPath = " & chr(34) & ReplaceConstChar(trim(request("SiteDataPath"))) & chr(34) & "" & vbcrlf
		hf.write "Const EnableStopInjection = " & ReplaceConstChar(trim(request("EnableStopInjection"))) & "" & vbcrlf
		hf.write "Const EnableSiteManageCode = " & ReplaceConstChar(trim(request("EnableSiteManageCode"))) & "" & vbcrlf
		hf.write "Const SiteManageCode = " & chr(34) & ReplaceConstChar(trim(request("SiteManageCode"))) & chr(34) & "" & vbcrlf
		hf.write "Const Refresh = " & ReplaceConstChar(trim(request("Refresh"))) & "" & vbcrlf
		hf.write "Const NewInfo = " & ReplaceConstChar(trim(request("NewInfo"))) & "" & vbcrlf
		hf.write "Const ProInfo = " & ReplaceConstChar(trim(request("ProInfo"))) & "" & vbcrlf
		hf.write "Const JobInfo = " & ReplaceConstChar(trim(request("JobInfo"))) & "" & vbcrlf
		hf.write "Const DownInfo = " & ReplaceConstChar(trim(request("DownInfo"))) & "" & vbcrlf
		hf.write "Const OtherInfo = " & ReplaceConstChar(trim(request("OtherInfo"))) & "" & vbcrlf
		hf.write "Const MessageInfo = " & ReplaceConstChar(trim(request("MessageInfo"))) & "" & vbcrlf
		hf.write "Const ISHTML = " & ReplaceConstChar(trim(request("ISHTML"))) & "" & vbcrlf
		hf.write "Const HTMLName = " & chr(34) & ReplaceConstChar(trim(request("HTMLName"))) & chr(34) & "" & vbcrlf
		hf.write "Const NewSortName = " & chr(34) & ReplaceConstChar(trim(request("NewSortName"))) & chr(34) & "" & vbcrlf
		hf.write "Const NewName = " & chr(34) & ReplaceConstChar(trim(request("NewName"))) & chr(34) & "" & vbcrlf
		hf.write "Const ProSortName = " & chr(34) & ReplaceConstChar(trim(request("ProSortName"))) & chr(34) & "" & vbcrlf
		hf.write "Const ProName = " & chr(34) & ReplaceConstChar(trim(request("ProName"))) & chr(34) & "" & vbcrlf
		hf.write "Const DownSortName = " & chr(34) & ReplaceConstChar(trim(request("DownSortName"))) & chr(34) & "" & vbcrlf
		hf.write "Const DownNameDiy = " & chr(34) & ReplaceConstChar(trim(request("DownNameDiy"))) & chr(34) & "" & vbcrlf
		hf.write "Const OtherSortName = " & chr(34) & ReplaceConstChar(trim(request("OtherSortName"))) & chr(34) & "" & vbcrlf
		hf.write "Const OtherName = " & chr(34) & ReplaceConstChar(trim(request("OtherName"))) & chr(34) & "" & vbcrlf
		hf.write "Const JobSortName = " & chr(34) & ReplaceConstChar(trim(request("JobSortName"))) & chr(34) & "" & vbcrlf
		hf.write "Const JobNameDiy = " & chr(34) & ReplaceConstChar(trim(request("JobNameDiy"))) & chr(34) & "" & vbcrlf
		hf.write "Const AboutNameDiy = " & chr(34) & ReplaceConstChar(trim(request("AboutNameDiy"))) & chr(34) & "" & vbcrlf
		hf.write "Const Separated = " & chr(34) & ReplaceConstChar(trim(request("Separated"))) & chr(34) & "" & vbcrlf
		hf.write "%" & ">"
		hf.close
		set hf=nothing
		set fso=nothing
		Set fso=Server.CreateObject("Scripting.FileSystemObject")
		If fso.FileExists(Server.MapPath(""&SysRootDir&"install.asp")) Then
			fso.DeleteFile Server.MapPath(""&SysRootDir&"install.asp")
		End If
		If fso.FileExists(Server.MapPath(""&SysRootDir&"images/bar.jpg")) Then
			fso.DeleteFile Server.MapPath(""&SysRootDir&"images/bar.jpg")
		End If
		If fso.FileExists(Server.MapPath(""&SysRootDir&"NoInstall.txt")) Then
			fso.DeleteFile Server.MapPath(""&SysRootDir&"NoInstall.txt")
		End If
		set fso=Nothing
		Response.Write("<script>alert('安装完成！系统将自动删除安装文件！');window.location='admin/Admin_Login.asp';</script>")
		Response.End
	End If
End Sub
%>
</body>
</html>