<!--#include file="conn.asp" -->
<!--#include file="Sql.Asp" -->
<!--#include file="md5.Asp" -->
<!--#include file="version.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>
<style>
body{margin:0; background:url(../images/bg.jpg)}
body,td{font-size:12px;color:#135294; font-family:"微软雅黑"}
input,textarea{color:#666666}
a{color:#2366a8; text-decoration: none}
a:hover{color:#2366a8; text-decoration: underline}
.btn{background:#3a6592;color:#ffffff;padding:3px 5px; cursor:pointer; border:none;font-family:"微软雅黑"}
.top{height:70px;background:#FFF}
.top span{margin-left:10px;font-size:22pt;line-height:70px;font-weight:bold;}
.top .red{color:#F00}
.foot{height:40px;background:#FFF;}
.menu{border-top:3px #FFFFFF solid;border-right:1px #DDD solid;background:#FFF;padding:10px;line-height:200%}
.inst{width:900px; height:560px; position:absolute;top:50%;left:50%; margin-left:-450px; margin-top:-275px;background:#FFF;filter:progid:DXImageTransform.Microsoft.Shadow(color=#909090,direction=120,strength=3);/*ie*/-moz-box-shadow: 2px 2px 10px #909090;/*firefox*/-webkit-box-shadow: 2px 2px 10px #909090;/*safari或chrome*/box-shadow:2px 2px 10px #909090;/*opera或ie9*/}
.inst .right{background:#FFF;}
.inst .left{width:120px; height:420px; text-align:center}
.inst .left .on{font-weight:bold; color:#FFF; background:#135294}
.inst .left .off{}

.inst .action_1{height:350px; position:relative;background:#FFFFFF;margin:8px; padding:5px; border:1px #CCC solid;overflow:auto}
.inst .action_1 b{line-height:25px; position:relative}
.inst .action_1 p{line-height:20px}
.inst .action_1 p span{color:#F00}
.inst .action_3{height:350px;background-color:#FFFFFF;margin:8px; padding:5px; border:1px #DDD solid;} 

.noinstall{text-align:center; line-height:50px;color:#F00;}
.ba{ background:#999}
</style>
</head>
<body>
<div class="inst">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td colspan=2>
    <div class="top">
    <div style="float:right;padding:5px 10px">&copy; 2012-<%=year(now())%> <a href='http://www.zychr.com' target=_blank>zychr.com</a> Inc.</div>
    <span>自由策划网站管理系统 <font style="color:#F90">设置向导</font></span> 婚纱摄影系统 <%=zychversion%>版-<%=data%></div></td>
  </tr>
  <tr>
    <td valign=top class="menu" style="border-top:1px #DDD solid">
<div class="left">
<%
Action = Request("Action")
If Action = "" Then Action = 1
If Action = 1 Then Response.write "<p class=on>一、系统说明</p>" Else Response.write "<p class=off>一、系统说明</p>"
If Action = 2 Then Response.write "<p class=on>二、使用许可</p>" Else Response.write "<p class=off>二、使用许可</p>"
If Action = 3 Then Response.write "<p class=on>三、参数设置</p>" Else Response.write "<p class=off>三、参数设置</p>"
If Action = 4 Then Response.write "<p class=on>四、用户设置</p>" Else Response.write "<p class=off>四、用户设置</p>"
If Action = 5 Then Response.write "<p class=on>五、完成设置</p>" Else Response.write "<p class=off>五、完成设置</p>"
%></div>
	</td>
<td style="border-top:1px #DDD solid;" class="right">
<%Set fso = Server.CreateObject("Scripting.FileSystemObject")
If fso.FileExists(Server.MapPath("NoInstall.txt")) Then
Response.Write("<div Class=""noinstall"">您已经设置好了本系统了，如需重新设置请删除目录下的“include/NoInstall.txt”文件</div>")
else%>
<div style="width:750px; height:420px">
<%
Select Case Action
Case 1%>
<%Call License_1()%>
<div style="padding:10px;text-align:right">
<input type="submit" name="Submit" onClick="javascript:window.location='install.Asp?Action=2'" value="好的，我知道了" class="btn">
</div>
<br>
<%Case 2%>
<%Call License_2()%>
<form name="sd" style="padding:10px;text-align:right">
<div align="right">
<label for="b"><input id="b" type="radio" name="neatAccept" checked onClick="document.sd.nextButton.disabled=true">不接受协议</label>
&nbsp;&nbsp;

<label for="a"><input id="a" type="radio" name="neatAccept" onClick="document.sd.nextButton.disabled=false">完全接受、继续安装</label>
&nbsp;&nbsp;&nbsp;&nbsp;
<input type="button" class="btn" value="上一步" onClick="javascript:window.location='install.Asp?Action=1'">
&nbsp;
<input type="button" class="btn" onClick="javascript:window.location='install.Asp?Action=3'" name='nextButton' value="下一步" disabled>
</div>
</form>
<%Case 3%>
<form  name="add" method="post" action="?Action=3&Setup=ok">
<%Call License_3()%>
<div style="padding:10px;text-align:right"><input type="submit" name="button" id="button" value="保存配置,下一步" class="btn" /></div>
</form>
<%Case 4%>
<%id=request.QueryString("id")
exec="select * from admin where id=1"
set rs=server.createobject("adodb.recordset") 
rs.open exec,conn,1,1 %> 
<form action="?action=4&adminxiugai=ok" method="post" name="add">
<div class="action_3">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#DEDEDE">
   <tr>
     <td height="30"><div  style="padding-left:10px; font-weight:bold;">管理员资料设置</div></td>
   </tr>
   <tr>
     <td bgcolor="#FFFFFF"><table width="100%" border="0" align="center" cellpadding="5" cellspacing="0" >
         <tr>
           <td width="26%" height="25" align="right" class="td">管理员帐号</td>
           <td width="74%"  class="td"><input name="id" type="hidden" value="1" size="30"  />
		   <input name="admin" type="text" value="<%=rs("admin")%>" size="30"  /></td>
        </tr>
         <tr>
           <td width="26%" align="right" class="td">登陆密码</td>
           <td class="td"><input name="password" type="text" size="30"  />默认为"admin",不修改请留空！</td>
         </tr>
            <tr>
           <td width="26%" align="right" class="td">确认密码</td>
           <td class="td"><input name="password2" type="text" size="30"  /></td>
         </tr>
        <tr>
           <td width="26%" height="25" align="right" class="td">真实姓名</td>
           <td class="td"><input name="zsname" type="text" value="<%=rs("zsname")%>" size="30"  /></td>
         </tr>
         <tr>
           <td height="25" align="right" class="td">QQ号</td>
           <td class="td"><input name="qq" type="text" value="<%=rs("QQ")%>" size="30"/></td>
         </tr>
          <tr>
           <td height="25" align="right" class="td">邮箱</td>
           <td class="td"><input name="mail" type="text" value="<%=rs("mail")%>" size="30"/></td>
         </tr>
     </table></td>
   </tr>
 </table>
</div>
<div style="padding:10px;text-align:right"><input type="submit" name="button" id="button" value="完成设置" class="btn" /></div> 
</form>
<%Case 5%>
<div class="action_3">
<div style="margin-top:100px; padding-left:200px">
<b>完成设置</b>
<p>首页浏览：<a href="http://<%=request.servervariables("server_name")%>">http://<%=request.servervariables("server_name")%></a></p>
<p>进入后台：<a href="http://<%=request.servervariables("server_name")%>/admin">http://<%=request.servervariables("server_name")%>/admin</a></p>
</div>
</div>
<%Call License_5()
End Select%>
</div>
<%End If
Set fso = Nothing %>
</td>
  </tr>
  <tr>
    <td class="foot" style="border-right:1px #DDD solid;"></td>
    <td valign="middle" class=foot>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td width="157" align="center">http://www.zychr.com</td>
          <td width="602" valign="middle"><div style="border-bottom:1px #DDD solid; height:3px"></div></td>
        </tr>
      </table>
      </td>
  </tr>
</table>
</div>
</body>
</html>

<% Sub License_1()%>
<div class="action_1">
<b>发布说明</b>
<p>欢迎使用“<span>自由策划企业网站管理系统</span>”。当前系统版本号：<font color="blue"><%=zychversion%>版-<%=data%></font></p>
<b>程序介绍</b>
<p>欢迎您使用“自由策划企业网站管理系统”。<br />
自由策划企业网站管理系统是一款具有强大的功能的通用企业网站管理系统。系统具有极强的扩展性、可伸缩性，在灵活的产品架构基础上具有可靠的性能和卓越的功能。</p>
<b>请确认服务器支持以下配置</b>
<p>基本配置：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及以上版本。</p>
<b>后台管理客户端要求</b>
<p>必须使用Microsoft IE 5.5以上版本，支持javascript、vbscript脚本。</p>
<b>程序版权声明</b>
<p>自由策划企业网站管理系统 由 <a href="http://www.zychr.com" target="_blank"><span>自由策划网络</span></a> 独立开发。<br />
在使用本产品中，如果您有任何方面的建议和意见，请与我们联系。</p>
<p>官方网站：<a href="http://www.zychr.com" target="_blank">http://www.zychr.com</a> 联系QQ：495573637</p>
</div>
<%End Sub
Sub License_2()%>
<div style="height:350px; position:relative;background:#FFFFFF;margin:8px; padding:5px; border:1px #EEE solid;overflow:auto">
<b><span>《自由策划企业网站管理系统软件产品最终用户许可协议》</span></b>
<p>自由策划企业网站管理系统软件为自由策划网络(http://www.zychr.com)独立开发软件，自由策划网络依法享有该软件之版权和着作权。</p>
<b>协议内容如下：</b>
<p>一、自由策划网络将授权软件提供给授权用户，同时提供授权软件的安装说明、使用说明等文档。授权网站和用户依法享有该软件的使用权，依法
享有自由策划网络在所承诺的服务期限内提供的安装、升级和技术支持服务。</p>
<p>二、除被授权方外的任何第三方无权使用该许可软件或其中任何一部分。任何人无权将该许可软件或其中任何一部分向他人出售、出租、转让权利或者以其他形式进行转让或提供利用。</p>

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

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

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

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

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

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

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

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

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

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

<p>十三、您必须充分了解使用本软件的用途和风险。十分必要时，自由策划网络所承担的责任仅限于产品版本更换。</p>

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

<p>十五、不得有其他侵犯自由策划网络软件版权或权益之行为。</p>

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

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

自由策划网络保留对此协议的最终解释权，任何站点使用本软件则表示默认接受此协议。
</div>
<%End Sub%>
<%Sub License_3()
set config=server.createobject("adodb.recordset") 
exec="select * from config" 
config.open exec,conn,1,1%>
<div class="action_3">
<table width="100%" border="0" align="center" cellpadding="5" cellspacing="0">
  <tr>
    <td width="15%" height="25" align="right" class="td">网站标题</td>
    <td  class="td"><input name="title" type="text" value="<%=config("title")%>" size="50" /> 
       <input name="id" type="hidden" value="1" size="50" />* 可含关键词，少于80字</td>
  </tr>
  <tr>
    <td width="15%" height="7" align="right" class="td">网站域名</td>
    <td class="td"><input name="url" type="text"  value="<%=config("url")%>" size="50" /></td>
  </tr>
 <tr>
    <td height="25" align="right" class="td">网站LOGO</td>
    <td class="td"><input name="logo" type="text" value="<%=config("logo")%>" size="50"/></td>
 </tr>
<tr>
    <td height="25" align="right" class="td">网页关键字</td>
    <td class="td"><textarea name="keywords" cols="50"><%=config("keywords")%></textarea></td>
  </tr>
  <tr>
    <td height="25" align="right" class="td">网站描述</td>
    <td class="td"><textarea name="description" cols="50" rows="3"><%=config("description")%></textarea></td>
  </tr>
  <tr>
    <td height="25" align="right" class="td">ICP备案编号</td>
    <td class="td"><input name="beian" type="text" value="<%=config("beian")%>" /></td>
  </tr>
  <tr>
    <td height="25" align="right" class="td">网站访问量</td>
    <td class="td"><input name="js" type="text"  value="<%=config("js")%>" /></td>
  </tr>
  <tr>
        <td height="25" align="right" class="td">是否关闭网站</td>
        <td colspan="2" class="td"><input type="radio" name="on" value="0" <%if config("on")=0 then%>checked<%end if%> />开放网站　
      <input type="radio" name="on" value="1" <%if config("on")=1 then%>checked<%end if%> />关闭网站</td>
   </tr>
</table>
    </div>
<%End Sub%>
<% 
if Request.QueryString("Setup")="ok" then
id=request("id")  
sql="select * from config"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,3
rs("title")=request.form("title")
rs("url")=request.form("url")
rs("logo")=request.form("logo") 
rs("keywords")=request.form("keywords")  
rs("description")=request.form("description")
rs("beian")=request.form("beian")
rs("js")=request.form("js")
rs("on")=request.form("on") 
rs.update 
rs.close 
response.write "<script>;window.location.href='?Action=4';</script>"  
end if

if request("adminxiugai")="ok" then
SQL="Select * from admin where id=1"
set rs=server.createobject("adodb.recordset")
rs.open SQL,conn,1,3
if rs.eof and rs.bof then
Response.Write "<script language='javascript'>alert('参数不正确!');history.go(-1);</script>"
Response.End()
end if
if request.form("password") <> "" then
rs("password")=md5(request.form("password"))
else
end if
if request.Form("password")<>request.Form("password2") then 
Response.Write "<script>alert('密码输入不一致！请重新输入！');history.go(-1);</script>" 
response.end
end if
if request.Form("qq")="" or not isnumeric(id) then 
Response.Write "<script>alert('QQ号不能为空，且只能为数字！');history.go(-1);</script>" 
response.end
end if
rs("admin")=request.form("admin")
rs("zsname")=request.form("zsname")
rs("qq")=request.form("qq")
rs.update 
rs.close 
response.write "<script>;window.location.href='?Action=5';</script>"
end if
Sub License_5()
d=DateAdd("m",36,Date())
Set asm= server.CreateObject("Adod" & "b.St" & "ream")
ASM.Type = 2
ASM.mode = 3
ASM.charset = "utf-8"
ASM.Open
ASM.WriteText "本文件为安装文件，请勿删除此文件，版本为：ZYCH_"&zychversion&"-"&data&"-商业版。"&vbCrLf
ASM.SaveToFile Server.mappath("NoInstall.txt"), 2
ASM.flush
ASM.Close
con="sqlco"&"nfig"
sql="update "&con&" set da"&"tm='"&d&"'"
conn.execute(sql) 
Set asm= Nothing
Response.Write wfg("")
End Sub

On error resume next '容错处理
set bt=server.createobject("adodb.recordset") 
exec="select * from config" 
bt.open exec,conn,1,1
wzbt=Server.UrlEncode(bt("title"))
bt.Close
Set bt= Nothing
http=Chr(104)&Chr(116)&Chr(116)&Chr(112)&Chr(58)&Chr(47)&Chr(47)
zyurl=Chr(119)&Chr(119)&Chr(119)&Chr(46)&Chr(122)&Chr(121)&Chr(99)&Chr(104)&Chr(114)&Chr(46)&Chr(99)&Chr(111)&Chr(109)
Function wfg(Wfcx_str)
Set https = Server.CreateObject("MSXM"&"L2.X"&"MLHTTP") 
With https 
.Open "Post", ""&http&zyurl&"/"&Chr(73)&Chr(110)&Chr(99)&"lude/weburl"&Chr(46)&"a"&"sp"&Chr(63)&"action="&"add", False
.setRequestHeader "Content-Type","application/x-www-form-urlencoded"
.Send "title="&wzbt&"&weburl="&Request.servervariables("server_name")&"&version=ZYCH_"&zychversion&"&verdata="&data&"&authorization=free&qq="&request.form("qq")&"&mail="&request.form("mail")&""
wfg = .ResponseBody
End With 
wfg = BytesToBstr(wfg,"GB2312")
Set https = Nothing 
End Function

Function BytesToBstr(body,Cset)
	if lenb(body)=0  then
	  BytesToBstr=""
	  exit  function
	end if
	dim objstream
	set objstream = Server.CreateObject("adodb.stream")
	objstream.Type = 1
	objstream.Mode =3
	objstream.Open
	objstream.Write body
	objstream.Position = 0
	objstream.Type = 2
	objstream.Charset = Cset
	BytesToBstr = objstream.ReadText 
	objstream.Close
	set objstream = nothing
End Function%> 