<!--#include file="inc/system.asp" -->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>易达企业建站系统安装中... ...</title>
<script type="text/javascript" src="template/user/js/jquery-1.4.2.min.js"></script>
<script type="text/javascript" src="template/user/js/validate.pack.js"></script>
<link  href="template/user/images/validate.css" rel="stylesheet" type="text/css" />
<style type="text/css">
* {margin:0 auto; padding:0;list-style:none}
a { color:#0268cd; text-decoration:none}
a:hover { color:#ff0000; text-decoration:underline }
a img { border:none }
.clear {clear:both;}
body {margin:0 auto; font-size:12px;}
div, ul, li, dl, dt, dd, form {list-style:none;}
tr,td {padding:10px;}

.yida_w { width:800px;}
h1 { width:800px; font-size:36px; color:#FF0000; text-align:center; margin-top:50px;}
.font1 {width:800px; height:30px; text-align:center; font-size:14px; color:#000000; margin-top:35px;}
#h { width:800px; border-bottom:2px #FF0000 solid; margin-top:7px; margin-bottom:25px;}
.font {font-size:14px; line-height:25px;}
.STYLE1 {color: #FF0000; font-size:14px;}
.STYLE2 {color: #0099FF; font-size:16px;}
.STYLE3 {color: #CC33CC; font-size:18px;}
.win {width:500px; height:30px; line-height:30px;}
.inanniu {width:120px; height:30px;}
.yida_wz {font-size:14px; font-weight:700;}
#yida_w {font-size:14px; text-align:center; width:800px; color:#CCCCCC;}
</style>
</head>
<%
Dim steps
steps = Request("steps")
If steps = "" Then steps = "step8" End If
Select Case steps
    Case "step1"
        session("step1") = "step1"
        Call step1
    Case "step2"
        session("step2") = "step2"
        Call step2
    Case "step3"
        session("step3") = "step3"
        Call step3	
    Case "step4"
        session("step4") = "step4"
        Call step4		
    Case "step5"
        session("step5") = "step5"
        Call step5		
    Case "step6"
        session("step6") = "step6"
        Call step6	
    Case "step7"
        session("step7") = "step7"
        Call step7		
    Case "step8"
        session("step8") = "step8"
        Call step8			
End Select
 Sub step8()
%>
<body>
<div class="yida_w">
<h1>感谢使用易达企业建站系统</h1>
<div class="font1">前 <font color="#FF0000">★</font> 言</div>
<div id="h"></div>
<div class="font">
  <p>&nbsp;</p>
  <p>　　首先感谢您使用易达企业建站系统软件，当前版本为：<%=Version%> 更新日期为：<%=Versiondate%></p>
  <p>&nbsp;</p>
  <p>　　易达企业建站系统在业内被评为<span class="STYLE1">最稳定</span>，<span class="STYLE2">最安全</span>，<span class="STYLE3">使用率最高</span>的企业建站系统之一，当前已有数万家以上的中小企业网站采用易达企业建站系统制作网站。易达从2.0版本以后对安全性做出了重大的调整，到目前为止易达企业建站系统被黑客破解次数为零。</p>
  <p>　　我们一直秉承免费，开源的信念开发系统，但总有些人利用免费开源的漏洞为自已谋取利益，所以在这里我严重声明一下，禁止用我们的免费版本系统给其它客户制作网站或是用在以盈利为目的的商业行为上，一但发现后果自负。如果您使用易达企业建站系统觉得很好或用在商业用途中，请购买我们的商业版。</p><p>易达企业建站系统享受著作权保护<font color="#ff0000">(软件著作权登记号:2012SR001955)</font></p>
  <p>&nbsp;</p>
  <p align="center"><iframe width="325" height="100" marginwidth=0 marginheight=0 hspace=0 vspace=0 frameborder=0 scrolling=no src="http://yidacms.com/htdocs/web/e-zhoubianchanpin.html"></iframe></p>
  <p>&nbsp;</p>
  <p align="center"><a href="http://yidacms.com/" target="_blank">查看最新版本</a> | <a href="帮助文档/官方使用说明.txt" target="_blank">查看官方帮助文件</a> | <a href="帮助文档/版权.txt" target="_blank">查看版权及使用协议</a></p>
  
  <p><form action="install.asp?steps=step1" method="post" name="register_form" id="register_form" onsubmit="return validate_register(this);">
  填写一个可用的QQ邮箱<br /><input name="qqemail" type="text" class="win" id="groupname" reg="^\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*$" tip="QQ邮箱地址，如:993141000@qq.com" /> <font color=red>(必填)</font> <br /><input name="submitv" type="submit" value="开 始 安 装" class="inanniu"/> ← 这个按钮如果无法下一步,那就是你的邮箱格式不正确,请认真填写 要含有 @ </form>
  </p>
</div>
<div id="h"></div>
 <div id="yida_w">易达企业建站系统 by yidacms.com</div>
</div>
<%
 End Sub
 Sub step1()
 if Request.Form("qqemail")="" then 
  response.write "<script language=javascript> alert('QQ邮箱不能不填写!');history.go(-1);</script>"
  response.end
 end if
 if Request.Form("qqemail") = "" then
 qqemail = "无获取"
 else
 qqemail = Request.Form("qqemail")
 end if
 banben = Version & "/" & Versiondate
%>
<div class="yida_w">
<h1>感谢使用易达企业建站系统</h1>
<div class="font1">使用协议 2012年1月6日修订</div>
<div id="h"></div>
<div class="font">
<p>使用协议：</p>
<p><form action="install.asp?steps=step2&qqemail=<%=qqemail%>&banben=<%=banben%>" method="post" name="register_form" id="register_form" onsubmit="return validate_register(this);">　　本《易达企业建站系统软件最终用户授权许可协议》(以下简称“协议”)是您(自然人、法人、个人或单位企业等其他组织)与易达企业建站系统软件有关复制、下载、安装、使用易达企业建站系统软件产品以及任何相关材料、补丁更新(统一称作“软件”)的法律协议，同时本协议亦适用于任何有关本软件的后期更新和升级。一旦复制、下载、安装或以其他方式使用本软件，即表明您同意接受本协议各项条款的约束。如果您不同意本协议中的条款，请勿复制、下载、安装或以其他方式使用易达企业建站系统软件。</p>
<p><U class="yida_wz">许可您的权利：</U><br />
  1.您可以在完全遵守最终用户授权协议的基础上，将本软件免费应用于个人非商业用途网站。 <br />
  2.您可以在协议规定的约束和限制范围内根据需要对本软件进行必要的修改和美化，以适应您的网站要求。<br />
  3.您拥有使用本软件构建的网站中收集到的全部会员资料、文章、下载、图片、留言及相关信息的所有权，并独立承担与内容相关的法律义务。<br />
  4.获得商业授权之后，您可以将本软件应用于商业用途，同时依据所购买的授权类型中确定的技术支持服务期限、服务方式和服务内容，自购买时刻起，在技术支持服务期限内拥有通过指定的方式获得指定范围内的技术支持服务。</p>
<p><U class="yida_wz">约束和限制：</U><br />
  1.未获我公司商业授权之前，不得将本软件用于商业用途(包括但不限于企业网站、政府、金融、教育机构、学校、社会团体及其他经营性网站、以营利为目或实现盈利的网站)。 <br />
  2.不得对本软件或与之关联的商业授权进行出租、出售、抵押或发放子许可证。<br />
  3.无论如何，即无论用途如何、是否经过修改或美化、修改程度如何，只要使用本软件的整体或任何部分，未经书面授权许可，系统中的页面标题处会有 powered by YidaCms 字样必须保留，而不能清除或修改。<br />
  4.禁止在本软件的整体或任何部分基础上以发展任何派生版本、修改版本或第三方版本用于重新分发。<br />
  5.如果您未能遵守本协议的条款，您的授权将被终止，所被许可的权利将被收回，并承担相应法律责任。</p>
<p><U class="yida_wz">测试版“软件”：</U><br />
  1.测试版“软件”其性能和兼容性均未能达到最终全面发布版本的级别，将来也存在对“软件”进行重大更改的可能，其仅供测试“软件”之用，<br />
  2.软件可用来学习，研究，或个人建站，不可以使用本软件给其它客户建设网站赚取利益，如果发现后果自负。如果您是网建公司请订购我们的授权版本。<br />
  3.易达企业建站系统软件在 <%=Version%> 系统中的页面标题处会有 powered by YidaCms 字样，该字样为易达企业建站系统软件版权标志，未经软件作者同意不能随意删除！  </p>
<p><U class="yida_wz">有限担保和免责声明：</U><br />
  1.本软件及所附带的文件是作为不提供任何明确的或隐含的赔偿或担保的形式提供的。<br />
  2.用户出于自愿而使用本软件，您必须了解使用本软件的风险，在尚未购买产品技术服务之前，我们不承诺提供任何形式的技术支持、使用担保，也不承担任何因使用本软件而产生问题的相关责任。<br />
  3.易达企业建站系统软件不对使用本软件构建的网站的任何信息内容以及导致的任何版权纠纷和法律争议及后果承担责任。<br />
  4.有关   本软件   最终用户授权协议、商业授权与技术服务的详细内容，均由世纪伟成官方网站(http://yidacms.com)和官方论坛(http://yidacms.com/htdocs/web)提供唯一的解释和官方价目表。易达企业建站系统软件拥有在不提前通知的情况下，修改授权协议和价目表的权力，修改后的协议或价目表对自改变之日起的新授权用户生效。
<Br /> 
5.您一旦开始安装本软件，即被视为完全理解并接受本协议的各项条款，在享有上述条款授予的权力的同时，受到相关的约束和限制。
<br />6.协议许可范围以外的行为，将直接违反本授权协议并构成侵权，我们有权随时终止授权，责令停止损害，并保留追究相关责任的权力。<br />
</p>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  </tr>
    <td>&nbsp;<input name="agree" type="checkbox" value="agree" onclick="this.form.submitv.disabled=this.checked ? false : true" style="border-width:0px"/>
<font color="red">我同意以上协议</font></td>
    <td id="agreebtn">&nbsp;
      <input name="submitv" type="submit" value=">>下一步" disabled="true" class="inanniu"/> 浏览器可能导致代码不兼容,如果无法下一步.请点同意在点<a href="install.asp?steps=step2">这里</a></td>
  </tr>
</table></form>
</div>
<div id="h"></div>
 <div id="yida_w">易达企业建站系统 by yidacms.com</div>
</div>
<%
 End Sub
Sub step2()

		dim rs,sql
		set rs = server.createobject("adodb.recordset")
		sql="select * from shuaiweb_system"
		rs.open sql,dbok,1,1
		
		Webtitle=rs("Webtitle")
		weburl=rs("weburl")

		Dim Url,Key,WwwName 
		Url=Request.ServerVariables("SERVER_NAME") 
		If InStr(Url,"")>0 Then 
		Key=Split(Url,"") 
		WwwName=Key(0) 
		WwwName=Replace(WwwName,"http://","www")
		end if
                qqemail = request("qqemail")
                banben= request("banben")
%>
<div class="yida_w">
<h1>感谢使用易达企业建站系统</h1>
<div class="font1">基本 <font color="#FF0000">★</font> 信息</div>
<div id="h"></div>
<div class="font">
<table width="800 "border="0" cellpadding="10" cellspacing="0" style="border-collapse:collapse" align="center" style="margin-top:50px;">
<form id="form1" name="form1" method="POST" action="install.asp?steps=step3&qqemail=<%=qqemail%>&banben=<%=banben%>">
  <tr>
    <td colspan="2">第一步：创建网站名称和地址</td>
  </tr>
		  <tr>
			<td>网站标题<br /><input name="webtitle" type="text" id="webtitle" value="<%=webtitle%>" class="win"/> <font color=red>(必填)</font></td>
		  </tr>
		  <tr>
			<td>网站地址<br /><input name="weburl" type="text" id="weburl" value="<%=weburl%>" class="win"/><font color="#ff0000"> * (很重要)(必填)</font><br />1.请以 http:// 开头 — 用 / 结尾 <br />2.当前的域名是：http://<%=WwwName%>/<br />3.注：( 如果程序放在二级目录使用，请输入目录名以 / 结尾。例如:http://<%=WwwName%>/demo/ )<br /><br /><br  /></td>
		  </tr>
  <tr>
    <td>
      <input type="submit" name="submit" value=">>下一步" class="inanniu"/></td>
  </tr>
  </form>
</table>
</div>
<div id="h"></div>
 <div id="yida_w">易达企业建站系统 by yidacms.com</div>
</div>
<%
 End Sub
 Sub step3()
		if len(trim(request.Form("webtitle")))<1 then
		response.write ("<script language=javascript> alert('网站标题必填且不能少于1个字符！');history.go(-1);</script>")
		response.end
		end if
		  
		if len(trim(request.Form("weburl")))<1 then
		response.write ("<script language=javascript> alert('网站网址不能为空，且不少于1个字符！');history.go(-1);</script>")
		response.end
		end if
%>
<table width="800" border="0" align="center" cellpadding="10" cellspacing="10" style="font-size:14px;">
  <tr>
    <td><p align="center" style="font-size:16px; color:#FF0000; font-weight:600;">安装失败！</p>
      <p>原因可能是你所存放网站程序的硬盘是NTFS分区，最简单的解决办法是用记事本打开/inc/db.asp文件，</p>
      <p>把TXW_install = &quot;open&quot;改为TXW_install = &quot;close&quot; 然后关闭浏览器，在从新打开直接进入后台可省略安装这一步，但这不是一个有效的解决办法． </p>
      <p>因为硬盘如果是NTFS分区的话，那么每一个网站目录都要添写IIS权限．这是必须的！只要有这样才能发挥好ASP的作用． </p>
      <p>解决办法1:把程序移动到FAT32分区中，在FAT32分区的硬盘中是不须要写权限的．</p>
    <p>解决办法2:给NTFS分区下的网站目录添写IIS权限！<a href="http://yidacms.com/htdocs/web/my/dispbbs.asp?boardid=7&replyID=1256&ID=816&skin=1" target="_blank">查看添写权限的方法</a></p></td>
  </tr>
</table>
<%
                qqemail = request("qqemail")
                banben= request("banben")
		exec="select * from shuaiweb_system" 
		set rs=server.createobject("adodb.recordset")
		rs.open exec,dbok,1,3
		rs("webtitle")=request.form("webtitle")
		rs("weburl")=request.form("weburl")		
		rs.update
		rs.close
		response.redirect "install.asp?steps=step4&qqemail="&qqemail&"&banben="&banben
End Sub
Sub step4()
%>
<div class="yida_w">
<h1>感谢使用易达企业建站系统</h1>
<div class="font1">基本 <font color="#FF0000">★</font> 信息</div>
<div id="h"></div>
<div class="font">
<%
                qqemail = request("qqemail")
                banben= request("banben")
		response.write " <table width=""800"" border=""0"" cellpadding=""10"" cellspacing=""0"" style=""border-collapse:collapse"" align=""center"" style=""margin-top:50px;"">"&vbcrlf
		response.write " <form id=""form1"" name=""form1"" method=""post"" action=""install.asp?steps=step5&qqemail="&qqemail&"&banben="&banben&""">"&vbcrlf
		response.write "   <tr>"&vbcrlf
		response.write "   <td colspan=""2"">第二步：修改管理员目录"&vbcrlf
		response.write "   </td>"&vbcrlf
		response.write "   </tr>"&vbcrlf								
		response.write "   <tr>"&vbcrlf
		response.write "     <td width=""70"" valign=""top""><font color=red>*</font>更改为？</td>"&vbcrlf
		response.write "     <td>/<input name=""adminpath"" id=""adminpath"" type=""text"" onkeyup=""value=value.replace(/[^\w\.\/]/ig,'')"">/<br /> <font color=red>(为了网站安全不可以使用 admin 或 admin888 等常用的名称来定义管理员目录！)</font></td>"&vbcrlf
		response.write "   </tr>"&vbcrlf
		response.write "   <tr>"&vbcrlf
		response.write "     <td>&nbsp;</td>"&vbcrlf
		response.write "     <td><input type=""submit"" name=""Submit"" value="">>下一步"" class=""inanniu""/></td>"&vbcrlf
		response.write "   </tr>"&vbcrlf
		response.write "  </form>"&vbcrlf
		response.write " </table>"&vbcrlf
%>
</div>
<div id="h"></div>
 <div id="yida_w">易达企业建站系统 by yidacms.com</div>
</div>
<%
End Sub
Sub step5()
		if len(trim(request.Form("adminpath")))<1 then
		response.write ("<script language=javascript>alert('目录名必填且不能少于1个字符！');history.go(-1);</script>")
		response.end
		end if
		qqemail = request("qqemail")
                banben= request("banben")
		exec="select * from book_management" 
		set rs=server.createobject("adodb.recordset")
		rs.open exec,dbok,1,3
		rs("adminpath") = trim(request.form("adminpath"))
		rs.update
		rs.close
		response.redirect "install.asp?steps=step6&qqemail="&qqemail&"&banben="&banben

End Sub
Sub step6()
		qqemail = request("qqemail")
                banben= request("banben")
		Dim fso,folder 
		set rs = server.createobject("adodb.recordset")
		sql="select * from book_management"
		rs.open sql,dbok,1,1
		txw_yida = rs("adminpath")

		if txw_yida = "admin" then
		response.write "<br /><br /><center>创建失败，原因(因为管理员目录不可以是 admin )<a href=""javascript:history.go(-1)"">返回从添</a></center>"&vbcrlf
		response.end
		end if
	        response.redirect "install.asp?steps=step7&qqemail="&qqemail&"&banben="&banben	
		
End Sub
Sub step7()
%>
<div class="yida_w">
<h1>感谢使用易达企业建站系统</h1>
<div class="font1">创建 <font color="#FF0000">★</font> 成功</div>
<div id="h"></div>
<div class="font">
<%
		qqemail = request("qqemail")
                banben= request("banben")
		set rs = server.createobject("adodb.recordset")
		sql="select * from book_management"
		rs.open sql,dbok,1,1
		txw_yida = rs("adminpath")
		
		response.write " <table width=""800"" border=""0"" cellpadding=""10"" cellspacing=""0""style=""border-collapse:collapse"" align=""center"" style=""margin-top:50px;"">"&vbcrlf
		response.write "   <tr>"&vbcrlf
		response.write "   <td colspan=""3"" >第三步：恭喜您创建成功！"&vbcrlf
		response.write "   </td>"&vbcrlf
		response.write "   </tr>"&vbcrlf								
		response.write "   <tr>"&vbcrlf
		response.write "     <td  rowspan=""4"" width=""50"" bgcolor=""#999999"" >&nbsp;提示：</td>"&vbcrlf
		response.write "     <td>1.请劳记您的管理员后台路径由原来的<br />“/admin/admin_login.asp” <br /><font color=red> 变更为<br />“/"&txw_yida&"/admin_login.asp ”</font> <a href="""&txw_yida&"/admin_login.asp"" target=""_blank"">现在登陆?</a></td>"&vbcrlf
		response.write "   </tr>"&vbcrlf
		response.write "   <tr>"&vbcrlf
		response.write "     <td>2.初次使用易达，默认的<br />账号为:admin <br />密码为：admin888  可在后台修改！</td>"&vbcrlf
		response.write "   </tr>"&vbcrlf
		response.write "   <tr>"&vbcrlf
		response.write "     <td>3.口令码默认为：12345 <Br />请在/inc/db.asp 中修改，为了安全请修改！</td>"&vbcrlf
		response.write "   </tr>"&vbcrlf
		response.write "   <tr>"&vbcrlf
		response.write "     <td>4.安装文件已删除！</td>"&vbcrlf
		response.write "   </tr>"&vbcrlf		
		response.write " </table>"&vbcrlf
%><IFRAME frameBorder="0" id="frmright" name="frmright" scrolling="yes" src="http://yidacms.com/htdocs/web/yidae3user.asp?qqemail=<%=qqemail%>&banben=<%=banben%>" WIDTH="100%" HEIGHT="1" allowTransparency="true"></IFRAME>
</div>
<div id="h"></div>
 <div id="yida_w">易达企业建站系统 by yidacms.com</div>
</div>
	<script language="javascript"> 
		<!-- 
		function closewin(){ 
		self.opener=null; 
		self.close();} 
		function clock(){i=i-1 
		document.title="本窗口将在"+i+"秒后自动关闭!"; 
		if(i>0)setTimeout("clock();",1000); 
		else closewin();} 
		var i=25 
		clock(); 
		//--> 
		</script>
		<%			
		htm = "install.asp"
		set fso = server.createobject("scripting.FileSystemObject")
		arrFile = split(htm,",")
		
		for i = 0 to ubound(arrFile)
		   if fso.FileExists(server.mappath(arrFile(i)))then
		   fso.DeleteFile(server.mappath(arrFile(i)))
		end if
		next
		
		Set fso=Server.CreateObject( "scripting.filesystemobject") 
		Set folder=fso.getfolder(Server.Mappath( "admin")) 
		folder.name = txw_yida
		rs.update
		rs.close
		set rs=nothing
		dbok.close
		set conn=nothing
				
		response.end

End Sub
%>
</body>
</html>
