<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim Conn
dim connstr
'#####  连接SQLSERVER数据库  ######
Connstr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath("database/shenyj#@eb.com.cn#.asp")
Set Conn = Server.CreateObject("ADODB.Connection")
conn.open Connstr
If Err Then
    Set Conn = nothing
	Response.Write "数据库连接错误！"
	Response.End
End If


Public Sub CloseConn()
	Conn.Close
	Set Conn=Nothing
End Sub
%>
<!--#include file = "include/common.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" lang="UTF-8">
<head>
	<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />
	<meta http-equiv="Content-Language" content="UTF-8" />
	<title>建站宝自助建站系统安装程序 设置向导</title>
	<style>
	 body{font-size:12px;font-family:verdana;text-align:center;background:#e9f1f8;}
	 .tBody{margin:auto;width:604px;padding:4px;border:2px solid #45749e;background:#c8dbec url(bg.png);}
	 .ins{height:200px;border:1px solid #000;padding:3px;margin:3px;overflow:auto;background:#fff;text-align:left;line-height:160%}
	 .ins div{margin:0px;padding:2px;font-size:12px;text-align:left}
	 .info{padding:4px;padding-left:0px;margin:3px;text-align:left;background:url(logo.gif) no-repeat right}
	 .more{height:20px;padding:4px;padding-left:0px;margin:3px;text-align:left;}
	 .per{height:20px;border:1px solid #000;padding:1px;margin:3px;text-align:left;background:#fff}
	 .copyRight{border:1px solid #000;padding:4px;padding-left:0px;margin:3px;text-align:left}
	 h4{margin:0px;margin-bottom:6px;font-size:18px}
	 #per{height:20px;overflow:hidden;background:#0080ff url(per.png);text-align:left;}
	 #per span{color:#fff;font-weight:bold;margin:3px;display:block}
	 #ListF{height:24px;overflow:hidden}
	 .alert{color:#f00}
	 .blogSetup{text-align:left;padding:10px;}
	 .blogSetup form{margin:0px;}
	  .blogSetup h5 {
	  	margin:0;
	  	font-size:14px;
	  }
	   .blogSetup ul{
	   	list-style:none;
	   	margin:5px 5px 20px 30px;
	   	padding:0;
	   }
	    .blogSetup ul li {
	    	margin-top:5px;
	    	margin-left:0px;
	    }
	   .yellow{ color:#D19B1B}
	</style>
</head>
<body>
<br/>
<div id="tBody" class="tBody">
	<div class="info">
	<h4>建站宝自助建站系统安装程序 配置向导</h4>
	<div id="ListF"><b>安装进度:</b>
     准备安装 |
     准备安装 |
     解压文件 | 
    <span class="yellow"> 基本设置</span> | 
    登入后台</div>
	</div>
	<div class="blogSetup">
		<form action="guide2.asp" method="post" onsubmit="return checkFrom(this)">
			<h5>网站设置</h5>
			<ul>
				<li>网站标题　 <input name="blog_name" type="text" value="第一商务"/> </li>
				<li>网站副标题 <input name="blog_title" type="text" size="40" value="建站宝建站系统"/> </li>
				<li>网站网址　 <input id="blog_url" name="blog_url" type="text" size="50"/> <font style="color:#666">很重要的地址</font></li>
			</ul>
			<h5>管理员设置</h5>
			<ul>
				<li>管理员名称 <input name="username" type="text" value="admin"/> <font style="color:#666">登陆帐户名</font></li>
				<li>登陆密码　 <input name="pass1" type="password" size="16" value=""/> </li>
				<li>密码验证　 <input name="pass2" type="password" size="16" value=""/> </li>
			</ul>
			</div>
			<div id="DetailDiv" class="more"  style="text-align:right"><input type="submit" value="注册使用"/></div>
		</form>
		<script>
			document.getElementById("blog_url").value = location.href.replace(/(.*)\/guide.asp/,"$1\/");
			
			function checkFrom(o) {
				if (o.pass1.value == "") {
					alert("请输入密码");
					o.pass1.select();
					return false
				}
				
				if (o.pass1.value != o.pass2.value) {
					alert("密码验证错误,请重新输入");
					o.pass1.select();
					return false
				}
				return true
			}
		</script>	
</div>
</body>
</html>
  <% 
Conn.Close
Set Conn=Nothing

function UpdateSQL(SQLString)
 On Error Resume Next
  Conn.execute SQLString
 if err then 
   response.write "<span style=""color:#004000""><b></b> "&err.description&"</span><br/>"
  else
   response.write "<span style=""color:#0000a0""><b>执行:</b> "&SQLString&"</span><br/>"
 end if
end function

Function DeleteFiles(fileName)
	  dim upl
 	  set upl=Server.CreateObject("Scripting.FileSystemObject")
      IF upl.FileExists(fileName) Then
      	upl.DeleteFile fileName,True
      	DeleteFiles = True
      Else
      	DeleteFiles = false
      End IF
    End Function
%>
