<!--#include file="Include/Const.Asp"-->
<!--#include file="Include/ConnSiteData.Asp" -->
<!--#include file="Include/Version.Asp"-->
<!--#include file="Include/Md5.Asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html;charset=utf-8">
<title>千博企业网站管理系统在线安装程序</title>
<style type="text/css">
<!--
.versioninfo {
    color:#666666;
    font-size: 12px;
}
form {
    display:inline;
}
body {
    color: #000000;
    font-size: 12px;
    font-family: "宋体", arial, helvetica, sans-serif;
}
.inputdata {
    color: #000000;
    background-color: #dddddd;
    font-size: 12px;
    font-weight: bold;
    font-family: "宋体", arial, helvetica, sans-serif;
}
pre {
    color: #000000;
    font-size: 12px;
    font-family: "宋体", arial, helvetica, sans-serif;
}
td, textarea {
    color: #000000;
    font-size: 12px;
    font-family: "宋体", arial, helvetica, sans-serif;
}
li {
    list-style-type: circle;
    font-size: 12px;
}
.error {
    font-weight: normal;
    color: #ff0000;
    font-size: 12px;
}
.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: 12px;
}
.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;
    font-family: "宋体", arial, helvetica, sans-serif;
    border-width:1px;
}
-->
</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="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"><b>
                <li>发布说明</li>
                </b><br />
                <br />
                <font color="red">欢迎使用“千博企业网站管理系统”。当前系统版本号：<font color="blue"><%=Str_Soft_Version%></font></font><br />
                <br />
                <b>
                <li>程序介绍</li>
                </b><br />
                欢迎您安装使用“千博企业网站管理系统”。<br />
                千博企业网站管理系统是一款具有强大的功能的通用企业网站管理系统。系统具有极强的扩展性、可伸缩性，在灵活的产品架构基础上具有可靠的性能和卓越的功能。<br />
                <br />
                <b>
                <li>请确认服务器支持以下配置</li>
                </b><br />
                基本配置：Windows 2000及更高版本，IIS 5.0及更高版本，SQL SERVER 7.0及更高版本。<br />
                推荐配置：Windows 2000＋IIS 5.0＋SQL SERVER 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.Qianbo.com.cn" target="_blank"><font color="#000000">千博网络</font></a> 独立开发。<br />
                在使用本产品中，如果您有任何方面的建议和意见，请与我们联系。<br />
                <br />
                <br />
                官方网站：<a href="http://www.Qianbo.com.cn" target="_blank">http://www.Qianbo.com.cn</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.Qianbo.com.cn
              &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.Qianbo.com.cn)
独立开发软件，千博网络依法享有该软件之版权和着作权。

协议内容如下：

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

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

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

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

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

六、不得将一份商业授权安装于不同 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.Qianbo.com.cn
              &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 />
        请您务必仔细设置好您系统的各项参数，初次安装只需设置用户名、密码、认证码。<font color="red">(含 * 为必填项目)</font></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; background-color: #EEF1C2;">
                <font color="red">*</font></td>
            </tr>
            <tr height="28">
              <td align="right">管理员密码：</td>
              <td><input name="Adminpass" value="" type="password" style="width: 120; background-color: #EEF1C2;">
                <font color="red">*</font></td>
            </tr>
            <tr height="28">
              <td align="right">重复管理员密码：</td>
              <td><input name="Adminpassc" value="" type="password" style="width: 120; background-color: #EEF1C2;">
                <font color="red">*</font></td>
            </tr>
            <tr height="28">
              <td align="right">管理员认证码：</td>
              <td><input name="SiteManageCode" type="text" id="SiteManageCode" style="width: 120; background-color: #EEF1C2;" value="" maxlength="6"> 区分大小写(后台登录必须)
                <font color="red">*</font></td>
            </tr>
            <tr height="28">
              <td align="right" width="30%">系统安装目录：</td>
              <td width="80%"><input name="SysRootDir" type="text" id="SysRootDir" style="width: 120" value="<%=SysRootDir%>" style="background:#F7F7F7" readonly></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">
                不启用</td>
            </tr>
            <tr height="28">
              <td align="right">是否启用管理员认证码：</td>
              <td><input name="EnableSiteManageCode" type="radio" value="True" checked>
                启用(初始化安装，强制启用！)</td>
            </tr>
            <tr height="28">
              <td align="right">页面防刷新时间：</td>
              <td><input name="Refresh" type="text" id="Refresh" style="width: 80;" value="<%=Refresh%>">
                秒 <font color="red">*</font></td>
            </tr>
            <tr height="28">
              <td align="right">新闻模块单页调用条数：</td>
              <td><input name="NewInfo" type="text" id="NewInfo" style="width: 80;" value="<%=NewInfo%>">
                <font color="red">*</font></td>
            </tr>
            <tr height="28">
              <td align="right">产品模块单页调用条数：</td>
              <td><input name="ProInfo" type="text" id="ProInfo" style="width: 80;" value="<%=ProInfo%>">
                <font color="red">*</font></td>
            </tr>
            <tr height="28">
              <td align="right">人才模块单页调用条数：</td>
              <td><input name="JobInfo" type="text" id="JobInfo" style="width: 80;" value="<%=JobInfo%>">
                <font color="red">*</font></td>
            </tr>
            <tr height="28">
              <td align="right">下载模块单页调用条数：</td>
              <td><input name="DownInfo" type="text" id="DownInfo" style="width: 80;" value="<%=DownInfo%>">
                <font color="red">*</font></td>
            </tr>
            <tr height="28">
              <td align="right">其他信息单页调用条数：</td>
              <td><input name="OtherInfo" type="text" id="OtherInfo" style="width: 80;" value="<%=OtherInfo%>">
                <font color="red">*</font></td>
            </tr>
            <tr height="28">
              <td align="right">留言模块单页调用条数：</td>
              <td><input name="MessageInfo" type="text" id="MessageInfo" style="width: 80;" value="<%=MessageInfo%>">
                <font color="red">*</font></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=0 then%> checked<%end if%>>
                不生成</td>
            </tr>
            <tr height="28">
              <td align="right">生成静态页面后缀：</td>
              <td><select style="width: 80;" name="HTMLName">
                  <option value="html" <%if HTMLName="html" then response.write "selected"%>>html</option>
                  <option value="htm" <%if HTMLName="htm" then response.write "selected"%>>htm</option>
                  <option value="shtml" <%if HTMLName="shtml" then response.write "selected"%>>shtml</option>
                  <option value="asp" <%if HTMLName="asp" then response.write "selected"%>>asp</option>
                </select>
                如：New.html中“html”即为后缀 <font color="red">*</font></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”即为前缀 <font color="red">*</font></td>
            </tr>
            <tr height="28">
              <td align="right">新闻详细页生成前缀：</td>
              <td><input name="NewName" type="text" id="NewName" style="width: 180" value="<%=NewName%>">
                <font color="red">*</font></td>
            </tr>
            <tr height="28">
              <td align="right">产品分类生成前缀：</td>
              <td><input name="ProSortName" type="text" id="ProSortName" style="width: 180" value="<%=ProSortName%>">
                <font color="red">*</font></td>
            </tr>
            <tr height="28">
              <td align="right">产品详细页生成前缀：</td>
              <td><input name="ProName" type="text" id="ProName" style="width: 180" value="<%=ProName%>">
                <font color="red">*</font></td>
            </tr>
            <tr height="28">
              <td align="right">下载分类生成前缀：</td>
              <td><input name="DownSortName" type="text" id="DownSortName" style="width: 180" value="<%=DownSortName%>">
                <font color="red">*</font></td>
            </tr>
            <tr height="28">
              <td align="right">下载详细页生成前缀：</td>
              <td><input name="DownNameDiy" type="text" id="DownNameDiy" style="width: 180" value="<%=DownNameDiy%>">
                <font color="red">*</font></td>
            </tr>
            <tr height="28">
              <td align="right">其他信息分类生成前缀：</td>
              <td><input name="OtherSortName" type="text" id="OtherSortName" style="width: 180" value="<%=OtherSortName%>">
                <font color="red">*</font></td>
            </tr>
            <tr height="28">
              <td align="right">其他信息详细页生成前缀：</td>
              <td><input name="OtherName" type="text" id="OtherName" style="width: 180" value="<%=OtherName%>">
                <font color="red">*</font></td>
            </tr>
            <tr height="28">
              <td align="right">人才分类生成前缀：</td>
              <td><input name="JobSortName" type="text" id="JobSortName" style="width: 180" value="<%=JobSortName%>">
                <font color="red">*</font></td>
            </tr>
            <tr height="28">
              <td align="right">人才详细页生成前缀：</td>
              <td><input name="JobNameDiy" type="text" id="JobNameDiy" style="width: 180" value="<%=JobNameDiy%>">
                <font color="red">*</font></td>
            </tr>
            <tr height="28">
              <td align="right">企业信息生成前缀：</td>
              <td><input name="AboutNameDiy" type="text" id="AboutNameDiy" style="width: 180" value="<%=AboutNameDiy%>">
                <font color="red">*</font></td>
            </tr>
            <tr height="28">
              <td align="right">产品询价生成前缀：</td>
              <td><input name="AdvisoryNameDiy" type="text" id="AdvisoryNameDiy" style="width: 180" value="<%=AdvisoryNameDiy%>">
                <font color="red">*</font></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中的“-”即为分隔符 <font color="red">*</font></td>
            </tr>
            <tr height="28">
              <td align="right">是否启用浮动客户咨询：</td>
              <td><input name="JMailDisplay" type="radio" value="1" <%if JMailDisplay = 1 then%> checked<%end if%>>
                启用
                <input name="JMailDisplay" type="radio" value="0" <%if JMailDisplay = 0 then%> checked<%end if%>>
                不启用 <font color="red">*</font> 启用后客户咨询问题会自动记录到后台</td>
            </tr>
            <tr height="28">
              <td align="right">是否将咨询同步发送到信箱：</td>
              <td><input name="JMailPubDisplay" type="radio" value="1" <%if JMailPubDisplay = 1 then%> checked<%end if%>>
                启用
                <input name="JMailPubDisplay" type="radio" value="0" <%if JMailPubDisplay = 0 then%> checked<%end if%>>
                不启用 <font color="red">*</font> 咨询内容同步发送到信箱</td>
            </tr>
            <tr height="28">
              <td align="right">SMTP服务器：</td>
              <td><input name="JMailSMTP" type="text" id="JMailSMTP" style="width: 180" value="<%=JMailSMTP%>">
                <font color="red">*</font></td>
            </tr>
            <tr height="28">
              <td align="right">SMTP服务器用户名：</td>
              <td><input name="JMailUser" type="text" id="JMailUser" style="width: 180" value="<%=JMailUser%>">
                <font color="red">*</font></td>
            </tr>
            <tr height="28">
              <td align="right">SMTP服务器密码：</td>
              <td><input name="JMailPass" type="text" id="JMailPass" style="width: 180" value="<%=JMailPass%>">
                <font color="red">*</font></td>
            </tr>
            <tr height="28">
              <td align="right">发送人：</td>
              <td><input name="JMailName" type="text" id="JMailName" style="width: 180" value="<%=JMailName%>">
                <font color="red">*</font></td>
            </tr>
            <tr height="28">
              <td align="right">接收信箱：</td>
              <td><input name="JMailInFrom" type="text" id="JMailInFrom" style="width: 180" value="<%=JMailInFrom%>">
                <font color="red">*</font></td>
            </tr>
            <tr height="28">
              <td align="right">发送信箱：</td>
              <td><input name="JMailOutFrom" type="text" id="JMailOutFrom" style="width: 180" value="<%=JMailOutFrom%>">
                <font color="red">*</font></td>
            </tr>
            <tr height="28">
              <td align="right">反馈标题头：</td>
              <td><input name="JMailTitle" type="text" id="JMailTitle" style="width: 200" value="<%=JMailTitle%>">
                <font color="red">*</font></td>
            </tr>
          </table>
          <table width="100%" border="0" cellpadding="2" cellspacing="0">
            <tr>
              <td width="4%" nowrap="nowrap" class="versioninfo">http://www.Qianbo.com.cn&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("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") = "" Or request.Form("JMailSMTP") = "" Or request.Form("JMailUser") = "" Or request.Form("JMailPass") = "" Or request.Form("JMailName") = "" Or request.Form("JMailInFrom") = "" Or request.Form("JMailOutFrom") = "" Or request.Form("JMailTitle") = "" 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
        Call SiteInfo()
        Set rs = server.CreateObject("adodb.recordset")
        rs.Open "select top 1 * from Qianbo_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 ASM = server.CreateObject("Adod" & "b.St" & "ream")
        ASM.Type = 2
        ASM.mode = 3
        ASM.charset = "utf-8"
        ASM.Open
        ASM.WriteText "<!--#include file=""Charset.Asp"" -->" & vbCrLf
        ASM.WriteText "<" & "%" & vbCrLf
        ASM.WriteText "Const SysRootDir = " & Chr(34) & ReplaceConstChar(Trim(request("SysRootDir"))) & Chr(34) & "" & vbCrLf
        ASM.WriteText "Const SiteDataPath = " & Chr(34) & ReplaceConstChar(Trim(request("SiteDataPath"))) & Chr(34) & "" & vbCrLf
        ASM.WriteText "Const EnableStopInjection = " & ReplaceConstChar(Trim(request("EnableStopInjection"))) & "" & vbCrLf
        ASM.WriteText "Const EnableSiteManageCode = " & ReplaceConstChar(Trim(request("EnableSiteManageCode"))) & "" & vbCrLf
        ASM.WriteText "Const SiteManageCode = " & Chr(34) & ReplaceConstChar(Trim(request("SiteManageCode"))) & Chr(34) & "" & vbCrLf
        ASM.WriteText "Const Refresh = " & ReplaceConstChar(Trim(request("Refresh"))) & "" & vbCrLf
        ASM.WriteText "Const NewInfo = " & ReplaceConstChar(Trim(request("NewInfo"))) & "" & vbCrLf
        ASM.WriteText "Const ProInfo = " & ReplaceConstChar(Trim(request("ProInfo"))) & "" & vbCrLf
        ASM.WriteText "Const JobInfo = " & ReplaceConstChar(Trim(request("JobInfo"))) & "" & vbCrLf
        ASM.WriteText "Const DownInfo = " & ReplaceConstChar(Trim(request("DownInfo"))) & "" & vbCrLf
        ASM.WriteText "Const OtherInfo = " & ReplaceConstChar(Trim(request("OtherInfo"))) & "" & vbCrLf
        ASM.WriteText "Const MessageInfo = " & ReplaceConstChar(Trim(request("MessageInfo"))) & "" & vbCrLf
        ASM.WriteText "Const ISHTML = " & ReplaceConstChar(Trim(request("ISHTML"))) & "" & vbCrLf
        ASM.WriteText "Const HTMLName = " & Chr(34) & ReplaceConstChar(Trim(request("HTMLName"))) & Chr(34) & "" & vbCrLf
        ASM.WriteText "Const NewSortName = " & Chr(34) & ReplaceConstChar(Trim(request("NewSortName"))) & Chr(34) & "" & vbCrLf
        ASM.WriteText "Const NewName = " & Chr(34) & ReplaceConstChar(Trim(request("NewName"))) & Chr(34) & "" & vbCrLf
        ASM.WriteText "Const ProSortName = " & Chr(34) & ReplaceConstChar(Trim(request("ProSortName"))) & Chr(34) & "" & vbCrLf
        ASM.WriteText "Const ProName = " & Chr(34) & ReplaceConstChar(Trim(request("ProName"))) & Chr(34) & "" & vbCrLf
        ASM.WriteText "Const DownSortName = " & Chr(34) & ReplaceConstChar(Trim(request("DownSortName"))) & Chr(34) & "" & vbCrLf
        ASM.WriteText "Const DownNameDiy = " & Chr(34) & ReplaceConstChar(Trim(request("DownNameDiy"))) & Chr(34) & "" & vbCrLf
        ASM.WriteText "Const OtherSortName = " & Chr(34) & ReplaceConstChar(Trim(request("OtherSortName"))) & Chr(34) & "" & vbCrLf
        ASM.WriteText "Const OtherName = " & Chr(34) & ReplaceConstChar(Trim(request("OtherName"))) & Chr(34) & "" & vbCrLf
        ASM.WriteText "Const JobSortName = " & Chr(34) & ReplaceConstChar(Trim(request("JobSortName"))) & Chr(34) & "" & vbCrLf
        ASM.WriteText "Const JobNameDiy = " & Chr(34) & ReplaceConstChar(Trim(request("JobNameDiy"))) & Chr(34) & "" & vbCrLf
        ASM.WriteText "Const AboutNameDiy = " & Chr(34) & ReplaceConstChar(Trim(request("AboutNameDiy"))) & Chr(34) & "" & vbCrLf
        ASM.WriteText "Const AdvisoryNameDiy = " & Chr(34) & ReplaceConstChar(Trim(request("AdvisoryNameDiy"))) & Chr(34) & "" & vbCrLf
        ASM.WriteText "Const Separated = " & Chr(34) & ReplaceConstChar(Trim(request("Separated"))) & Chr(34) & "" & vbCrLf
        ASM.WriteText "Const JMailDisplay = " & ReplaceConstChar(Trim(request("JMailDisplay"))) & "" & vbCrLf
        ASM.WriteText "Const JMailPubDisplay = " & ReplaceConstChar(Trim(request("JMailPubDisplay"))) & "" & vbCrLf
        ASM.WriteText "Const JMailSMTP = " & Chr(34) & ReplaceConstChar(Trim(request("JMailSMTP"))) & Chr(34) & "" & vbCrLf
        ASM.WriteText "Const JMailUser = " & Chr(34) & ReplaceConstChar(Trim(request("JMailUser"))) & Chr(34) & "" & vbCrLf
        ASM.WriteText "Const JMailPass = " & Chr(34) & ReplaceConstChar(Trim(request("JMailPass"))) & Chr(34) & "" & vbCrLf
        ASM.WriteText "Const JMailName = " & Chr(34) & ReplaceConstChar(Trim(request("JMailName"))) & Chr(34) & "" & vbCrLf
        ASM.WriteText "Const JMailInFrom = " & Chr(34) & ReplaceConstChar(Trim(request("JMailInFrom"))) & Chr(34) & "" & vbCrLf
        ASM.WriteText "Const JMailOutFrom = " & Chr(34) & ReplaceConstChar(Trim(request("JMailOutFrom"))) & Chr(34) & "" & vbCrLf
        ASM.WriteText "Const JMailTitle = " & Chr(34) & ReplaceConstChar(Trim(request("JMailTitle"))) & Chr(34) & "" & vbCrLf
        ASM.WriteText "%" & ">"
        ASM.SaveToFile Server.mappath("Include/Const.Asp"), 2
        ASM.flush
        ASM.Close
        Set ASM = Nothing
        Set fso = Server.CreateObject("Scripting.FileSystemObject")
        Dim tempAdmin, tempUrl
        tempAdmin = Gen_Key(5)
        tempUrl = "http://" & Request.ServerVariables("HTTP_HOST") & Mid(Request.ServerVariables("URL"), 1, InStrRev(Request.ServerVariables("URL"), "/"))
        fso.CopyFolder Server.MapPath("System"), Server.MapPath("System_" & tempAdmin)
        fso.DeleteFolder server.mappath("System")
        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('安装成功，系统将自动转向网站后台目录！\n系统后台路径：" & tempUrl & "System_" & tempAdmin & "/');window.location='System_" & tempAdmin & "/Admin_Login.Asp';</script>")
        Response.End
    End If
End Sub

Function Gen_Key(Digits)
    Dim Char_Array(80)
    For i = 0 To 9
        Char_Array(i) = CStr(i)
    Next
    For i = 10 To 35
        Char_Array(i) = Chr(i + 55)
    Next
    For i = 36 To 61
        Char_Array(i) = Chr(i + 61)
    Next
    Randomize
    Do While Len(output) < Digits
        num = Char_Array(Int((61 - 0 + 1) * Rnd + 0))
        output = output + num
    Loop
    Gen_Key = output
End Function
%>
</body>
</html>