gusucode.com > CRM源码带手机版ASP源码程序 > install.asp
<!--#include file="data/md5.asp" --><!--#include file="data/config.asp" --><!--#include file="data/Mssql.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">
<title>EasyCrm 2015 V6.0 系统安装</title><link href="install/install.css" rel="stylesheet" type="text/css">
<table style="width:800px;margin:0 auto 10px;border-bottom:1px solid #999;">
<Tr>
<TD colspan=2 style='padding:5px;'><img src="install/VI-logo-50.png"></TD>
</Tr>
</table>
<%
Sub ADODB_SaveToFile(ByVal strBody,ByVal File)
On Error Resume Next
Dim objStream,FSFlag,fs,WriteFile
FSFlag = 1
If DEF_FSOString <> "" Then
Set fs = Server.CreateObject(DEF_FSOString)
If Err Then
FSFlag = 0
Err.Clear
Set fs = Nothing
End If
Else
FSFlag = 0
End If
If FSFlag = 1 Then
Set WriteFile = fs.CreateTextFile(Server.MapPath(File),True)
WriteFile.Write strBody
WriteFile.Close
Set Fs = Nothing
Else
Set objStream = Server.CreateObject("ADODB.Stream")
If Err.Number=-2147221005 Then
GBL_CHK_TempStr = "您的主机不支持ADODB.Stream，无法完成操作，请使用FTP等功能，将<font color=Red >data/config.asp</font>文件内容替换成框中内容"
Err.Clear
Set objStream = Noting
Exit Sub
End If
With objStream
.Type = 2
.Open
.Charset = "GB2312"
.Position = objStream.Size
.WriteText = strBody
.SaveToFile Server.MapPath(File),2
.Close
End With
Set objStream = Nothing
End If
End Sub
a = Trim(Request("a"))
Select Case a
Case "setup01"
Call setup01()
Case "setup02"
Call setup02()
Case "setup03"
Call setup03()
Case "setup04"
Call setup04()
Case Else
Call setup01()
End Select
%>
<%
Sub setup01()
%>
<table style="width:800px;margin:0 auto;">
<col width=140><col width=10>
<Tr>
<TD valign=top>
<table class="table_1" width="100%">
<Tr class="tr_t">
<TD class="td_l_l">导航</TD>
</Tr>
<Tr class="tr_f">
<TD class="td_l_l"><font color=#ff6600>一、授权协议</font></TD>
</Tr>
<Tr class="tr_f">
<TD class="td_l_l">二、参数配置 </TD>
</Tr>
<Tr class="tr_f">
<TD class="td_l_l">三、完成安装 </TD>
</Tr>
</table>
</TD>
<TD></TD>
<TD>
<table class="table_1" style="margin:0 auto;" width="100%">
<Tr class="tr_t">
<TD class="td_l_l " colspan=2>授权协议</TD>
</TR>
<Tr>
<TD class="td_l_l" style="padding:20px;font-size:12px;" colspan=2>
<div>
<B>一、本授权协议仅适用于 <font color=#ff6600>HuohoCrm V7.0</font> 商业版本， HuohoCrm 官方对本授权协议有最终解释权。</B>
</div>
<div>
<B>二、协议许可的权利</B>
<li>1. 您可以在协议规定的约束和限制范围内修改源代码或界面风格以适应您的实际要求。</li>
<li>2. 获得商业授权之后，您可以将本软件应用于商业用途，同时依据所购买的授权类型中确定的技术支持内容，自购买时刻起，在技术支持期限内拥有通过指定的方式获得指定范围内的技术支持服务。商业授权用户享有反映和提出意见的权力，相关意见将被作为首要考虑，但没有一定被采纳的承诺或保证。</li>
</div>
<div>
<B>三、协议规定的约束和限制</B>
<li>1. 未经官方许可，禁止在 HuohoCrm 的整体或任何部分基础上以发展任何派生版本、修改版本或第三方版本用于重新分发。</li>
<li>2. 如果您未遵守本协议的条款，您的授权将被终止，所被许可的权利将被收回，并承担相应法律责任。</li>
</div>
<center style='padding-top:20px;'>
<span><input type="button" class="button45" value="开始安装" onClick="window.location.href='?a=setup02'" /></span>
</center>
</TD>
</TR>
</table>
</TD>
</Tr>
</table>
<%
end Sub
%>
<%
Sub setup02()
%>
<script>
function RadioHidden(str) {
if (str=="access") {
accinfo.style.display='';
sqlinfo.style.display='none';
}
else {
accinfo.style.display='none';
sqlinfo.style.display='';
}
}
</script>
<form name="login" action="?a=setup03" method="post">
<table style="width:800px;margin:0 auto;">
<col width=140><col width=10>
<Tr>
<TD valign=top>
<table class="table_1" width="100%">
<Tr class="tr_t">
<TD class="td_l_l">导航</TD>
</Tr>
<Tr class="tr_f">
<TD class="td_l_l">一、授权协议</TD>
</Tr>
<Tr class="tr_f">
<TD class="td_l_l"><font color=#ff6600>二、参数配置</font> </TD>
</Tr>
<Tr class="tr_f">
<TD class="td_l_l">三、完成安装 </TD>
</Tr>
</table>
</TD>
<TD></TD>
<TD>
<table class="table_1" style="margin:0 auto;" width="100%">
<Tr class="tr_t">
<TD class="td_l_l " colspan=2>数据库连接</TD>
</TR>
<Tr>
<TD class="td_l_r" width="100">数据库类型</TD>
<TD class="td_l_l">
<input name="Accsql" type="radio" class="noborder" value="0" onclick="RadioHidden('access');"> Access
<input name="Accsql" type="radio" class="noborder" value="1" checked onclick="RadioHidden('mssql');"> Mssql2005（推荐：Mssql2005）
</TD>
</TR>
</table>
<table class="table_1" width="100%" id=sqlinfo >
<Tr>
<TD class="td_l_r " width="100" style="border-top:0;">数据库主机</TD>
<TD class="td_l_l" style="border-top:0;"><input name="item1" type="text" id="item1" value="<%if Data_Source<>"" then%><%=Data_Source%><%end if%>" class="setup_int" style=" width:150px;"> （例：local , SERVER\SQLEXPRESS）</TD>
</TR>
<Tr>
<TD class="td_l_r ">数据库名称</TD>
<TD class="td_l_l "><input name="item2" type="text" id="item2" value="<%if Data_Catalog<>"" then%><%=Data_Catalog%><%end if%>" class="setup_int" style=" width:150px;"> （例：HuohoCrm）</TD>
</TR>
<Tr>
<TD class="td_l_r ">数据库用户</TD>
<TD class="td_l_l "><input name="item3" type="text" id="item3" value="<%if Data_User<>"" then%><%=Data_User%><%end if%>" class="setup_int" style=" width:150px;"> （例：sa）</TD>
</TR>
<Tr>
<TD class="td_l_r ">数据库密码</TD>
<TD class="td_l_l "><input name="item4" type="text" id="item4" value="<%if Data_Password<>"" then%><%=Data_Password%><%end if%>" class="setup_int" style=" width:150px;"></TD>
</TR>
</table>
<table class="table_1" width="100%" id=accinfo style="display:none;" >
<Tr>
<TD class="td_l_r " width="100" style="border-top:0;">数据库路径</TD>
<TD class="td_l_l " style="border-top:0;"><input name="item5" type="text" id="item5" value="<%if DataPath<>"" then%><%=DataPath%><%else%><%=Left(Request.ServerVariables("script_name"),InStrRev(Request.ServerVariables("script_name"),"/"))%>data/#<%=left(UCase(md5(Lcase(date()),16)),8)%>.mdb<%end if%>" class="setup_int" style=" width:200px;"> （注：可修改）</TD>
</TR>
</table>
<table class="table_1" style="margin:10px auto 0;" width="100%">
<Tr class="tr_t">
<TD class="td_l_l " colspan=2>常规参数</TD>
</TR>
<Tr>
<TD class="td_l_r" width="100">公司名称</TD>
<TD class="td_l_l">
<input name="item7" type="text" id="item7" value="<%if title<>"" then%><%=title%><%end if%>" class="setup_int" style=" width:240px;">
</TD>
</TR>
<Tr>
<TD class="td_l_r">安装目录</TD>
<TD class="td_l_l"><input name="item8" type="text" id="item8" value="<%if SiteUrl<>"" then%><%=SiteUrl%><%else%><%=Left(Request.ServerVariables("script_name"),InStrRev(Request.ServerVariables("script_name"),"/"))%><%end if%>" class="setup_int" style=" width:150px;">（二级目录示例：/CRM/）</TD>
</TR>
<Tr>
<TD class="td_l_r">识别码</TD>
<TD class="td_l_l"><input name="item6" type="text" id="item6" value="<%if CookieKey="" then%><%=CookieKey%><%else%><%=left(UCase(md5(Lcase(Now()),16)),16)%><%end if%>" class="setup_int" style=" width:150px;" readonly>（注：不可修改）</TD>
</TR>
</table>
<table class="table_1" style="margin:10px auto 0;Border:0;" width="100%">
<Tr>
<TD colspan=2 style="margin:10px auto 0;Border:0;"> <input type="Submit" class="button45" value="下一步" /> <input name="Back" type="button" class="button43" id="Back" value="返回" onClick="location.href='?a=setup01';"></TD>
</Tr>
</table>
</TD>
</Tr>
</table>
</form>
<%
end Sub
%>
<%
Sub setup03()
Session("install_Accsql") = Trim(Request("Accsql"))
Session("install_item0") = Trim(Request("item0"))
Session("install_item1") = Trim(Request("item1"))
Session("install_item2") = Trim(Request("item2"))
Session("install_item3") = Trim(Request("item3"))
Session("install_item4") = Trim(Request("item4"))
Session("install_item5") = Trim(Request("item5"))
Session("install_item6") = Trim(Request("item6"))
Session("install_item7") = Trim(Request("item7"))
Session("install_item8") = Trim(Request("item8"))
if Session("install_Accsql") = 0 then
Set fsoS = Server.CreateObject("Scripting.FileSystemObject")
fsoS.movefile Server.MapPath("data/bak/Bak.mdb"),Server.MapPath(Session("install_item5"))
Set fsoS = Nothing
end if
Dim TempStr
TempStr = ""
TempStr = TempStr & chr(60) & "%" & VbCrLf
TempStr = TempStr & "Dim Accsql,Data_Source,Data_Catalog,Data_User,Data_Password,Data_MDBPath" & VbCrLf
TempStr = TempStr & "'数据库连接" & VbCrLf
TempStr = TempStr & "Accsql="& Session("install_Accsql") & " '数据库类型" & VbCrLf
TempStr = TempStr & "Data_Source="& Chr(34) & Session("install_item1") & Chr(34) &" 'MSSQL数据源（本机名\实例名 或 IP地址\实例名）" & VbCrLf
TempStr = TempStr & "Data_Catalog="& Chr(34) & Session("install_item2") & Chr(34) &" '数据库名称" & VbCrLf
TempStr = TempStr & "Data_User="& Chr(34) & Session("install_item3") & Chr(34) &" '数据库用户" & VbCrLf
TempStr = TempStr & "Data_Password="& Chr(34) & Session("install_item4") & Chr(34) &" '数据库密码" & VbCrLf
TempStr = TempStr & "Data_MDBPath="& Chr(34) & Session("install_item5") & Chr(34) &" 'Access数据库路径" & VbCrLf
TempStr = TempStr & "%" & chr(62) & VbCrLf
ADODB_SaveToFile TempStr,"data/Mssql.asp"
TempStrS = ""
TempStrS = TempStrS & chr(60) & "%" & VbCrLf
TempStrS = TempStrS & "Dim title,SiteUrl,Skinurl,DataPageSize,YNalert,CRTypeEnd,YnUserLog,YnDDNum,YnHTNum,YnDelReason,SaveOldUser,YNRecycler,ClientOnly,SelectCharset,language,uploadtype,Keeponline,CookieKey" & VbCrLf
TempStrS = TempStrS & "'全局配置" & VbCrLf
TempStrS = TempStrS & "title="& Chr(34) & Session("install_item7") & Chr(34) &" '系统名称" & VbCrLf
TempStrS = TempStrS & "SiteUrl="& Chr(34) & Session("install_item8") & Chr(34) &" '安装目录" & VbCrLf
TempStrS = TempStrS & "Skinurl="& Chr(34) & "Skin/default/" & Chr(34) &" '风格路径" & VbCrLf
TempStrS = TempStrS & "DataPageSize=10 '分页数量" & VbCrLf
TempStrS = TempStrS & "YNalert=1 '操作提示" & VbCrLf
TempStrS = TempStrS & "CRTypeEnd="& Chr(34) & "已合作" & Chr(34) &" '跟进流程结束状态" & VbCrLf
TempStrS = TempStrS & "YnUserLog=1 '记录登录日志" & VbCrLf
TempStrS = TempStrS & "YnDDNum=1 '订单编号生成方式" & VbCrLf
TempStrS = TempStrS & "YnHTNum=1 '合同编号生成方式" & VbCrLf
TempStrS = TempStrS & "YnDelReason=1 '删除客户档案是否需要填写原因" & VbCrLf
TempStrS = TempStrS & "SaveOldUser=1 '客户转移后，是否保留原有业务员" & VbCrLf
TempStrS = TempStrS & "YNRecycler=1 '公海申请客户是否需要审核" & VbCrLf
TempStrS = TempStrS & "ClientOnly="& Chr(34) & "100" & Chr(34) &" '判断客户唯一的标准" & VbCrLf
TempStrS = TempStrS & "SelectCharset=1 '处理乱码" & VbCrLf
TempStrS = TempStrS & "language="& Chr(34) & "zh-cn" & Chr(34) &" '系统语言" & VbCrLf
TempStrS = TempStrS & "uploadtype="& Chr(34) & "gif/jpg/png/bmp/doc/xls/ppt/rar/zip" & Chr(34) &" '上传文件后缀" & VbCrLf
TempStrS = TempStrS & "Keeponline=1 '保持在线" & VbCrLf & VbCrLf
TempStrS = TempStrS & "CookieKey="& Chr(34) & Session("install_item6") & Chr(34) &" '识别码" & VbCrLf
TempStrS = TempStrS & "%" & chr(62) & VbCrLf
ADODB_SaveToFile TempStrS,"data/Config.asp"
if Session("install_Accsql") = 1 then
Set conn = Server.CreateObject("ADODB.Connection")
Conn.open "Provider=SQLOLEDB;Data Source="&Session("install_item1")&";User ID="&Session("install_item3")&";Password="&Session("install_item4")&";Initial Catalog="&Session("install_item2")&""
dim fso,t,spath
set fso=Server.CreateObject("Scripting.FileSystemObject")
spath=Server.mapPath("data/Easycrm.txt")
set t=fso.OpenTextFile(spath,1,false)
conn.execute t.readall
t.close
conn.execute "insert into AreaData(aFId,aName)values('0','默认省份')"
conn.execute "insert into AreaData(aFId,aName)values('1','默认县市')"
conn.execute "insert into ProductClass(pClassFid,pClassname)values('0','默认大类')"
conn.execute "insert into ProductClass(pClassFid,pClassname)values('1','默认小类')"
conn.execute "insert into system_group(gId,gName)values('1','总经理室')"
conn.execute "insert into system_group(gId,gName)values('2','财务部')"
conn.execute "insert into system_group(gId,gName)values('3','人力资源部')"
conn.execute "insert into system_group(gId,gName)values('4','销售一部')"
conn.execute "insert into system_group(gId,gName)values('5','销售二部')"
conn.execute "insert into system_group(gId,gName)values('6','客服部')"
conn.execute "insert into system_group(gId,gName)values('7','技术部')"
conn.execute "insert into system_level(lId,lName,lQxfalg)values('1','操作员','1111000000100001110011100111001110011100111001110011100100001110011000111100000000000000000000000000')"
conn.execute "insert into system_level(lId,lName,lQxfalg)values('6','部门主管','1111010011110001110011100111001110011100111001110011100100001110011100111100000000000000000000000000')"
conn.execute "insert into system_level(lId,lName,lQxfalg)values('9','管理员','1111111111111111111111111111111111111111111111111111111111111111111111111111111100000000000000000000')"
conn.execute "insert into [user](uAccount,uPassword,uName,uGroup,uLevel,uQxflag,uMobile,uEmail,uAddress,uBirthday,uCard,uAddtime,uManagerange,uClientNum)values('admin','7a57a5a743894a0e','管理员','1','9','1111111111111111111111111111111111111111111111111111111111111111111111111111111100000000000000000000','','admin@crmku.com','','2013/6/6 0:00:00','','2013/6/6 0:00:00','',0)"
conn.execute "insert into Plugin(pTitle,pUrl,pAuthor,pVersion,pContent,pTime,pYn) values('数据统计','statistics','易用科技','V2.0','图表/数字统计','"&now()&"','1')"
conn.execute "insert into Plugin(pTitle,pUrl,pAuthor,pVersion,pContent,pTime,pYn) values('内部聊天','WebIM','易用科技','V2.0','员工内部聊天','"&now()&"','1')"
conn.execute("insert into SelectData(Select_Type) values('待开发')")
conn.execute("insert into SelectData(Select_Type) values('初步接触')")
conn.execute("insert into SelectData(Select_Type) values('有意向')")
conn.execute("insert into SelectData(Select_Type) values('开发中')")
conn.execute("insert into SelectData(Select_Type) values('已合作')")
conn.execute("insert into SelectData(Select_Type) values('无意向')")
conn.execute("insert into SelectData(Select_Star) values('VIP1')")
conn.execute("insert into SelectData(Select_Star) values('VIP2')")
conn.execute("insert into SelectData(Select_Star) values('VIP3')")
conn.execute("insert into SelectData(Select_Star) values('VIP4')")
conn.execute("insert into SelectData(Select_Star) values('VIP5')")
conn.execute("insert into SelectData(Select_Source) values('客户介绍')")
conn.execute("insert into SelectData(Select_Source) values('搜索引擎')")
conn.execute("insert into SelectData(Select_Source) values('其它')")
conn.execute("insert into SelectData(Select_Zhiwei) values('董事长')")
conn.execute("insert into SelectData(Select_Zhiwei) values('总经理')")
conn.execute("insert into SelectData(Select_Zhiwei) values('部门经理')")
conn.execute("insert into SelectData(Select_Zhiwei) values('业务经理')")
conn.execute("insert into SelectData(Select_Zhiwei) values('财务')")
conn.execute("insert into SelectData(Select_Zhiwei) values('技术员')")
conn.execute("insert into SelectData(Select_Sex) values('先生')")
conn.execute("insert into SelectData(Select_Sex) values('女士')")
conn.execute("insert into SelectData(Select_Records) values('电话')")
conn.execute("insert into SelectData(Select_Records) values('上门')")
conn.execute("insert into SelectData(Select_Records) values('QQ')")
conn.execute("insert into SelectData(Select_Records) values('Email')")
conn.execute("insert into SelectData(Select_Hetong) values('买卖')")
conn.execute("insert into SelectData(Select_Hetong) values('租赁')")
conn.execute("insert into SelectData(Select_Hetong) values('工程')")
conn.execute("insert into SelectData(Select_Hetong) values('技术')")
conn.execute("insert into SelectData(Select_Hetong) values('委托')")
conn.execute("insert into SelectData(Select_Hetong) values('其它')")
conn.execute("insert into SelectData(Select_Service) values('产品质量')")
conn.execute("insert into SelectData(Select_Service) values('操作问题')")
conn.execute("insert into SelectData(Select_Service) values('其它问题')")
conn.execute("insert into SelectData(Select_YN) values('是')")
conn.execute("insert into SelectData(Select_YN) values('否')")
conn.execute("insert into SelectData(Select_SoftClass) values('导出存档')")
conn.execute("insert into SelectData(Select_SoftClass) values('共享文件')")
conn.execute("insert into SelectData(Select_SoftClass) values('我的文档')")
conn.execute("insert into SelectData(Select_NoticeClass) values('公告')")
conn.execute("insert into SelectData(Select_NoticeClass) values('规章')")
conn.execute("insert into SelectData(Select_NoticeClass) values('其它')")
conn.execute("insert into SelectData(Select_ExpenseIN) values('订单预付款')")
conn.execute("insert into SelectData(Select_ExpenseIN) values('合同款')")
conn.execute("insert into SelectData(Select_ExpenseIN) values('维护费')")
conn.execute("insert into SelectData(Select_ExpenseIN) values('产品续费')")
conn.execute("insert into SelectData(Select_ExpenseIN) values('其它')")
conn.execute("insert into SelectData(Select_ExpenseOUT) values('交通费')")
conn.execute("insert into SelectData(Select_ExpenseOUT) values('通讯费')")
conn.execute("insert into SelectData(Select_ExpenseOUT) values('餐饮住宿')")
conn.execute("insert into SelectData(Select_ExpenseOUT) values('赠送礼品')")
conn.execute("insert into SelectData(Select_ExpenseOUT) values('硬件采购')")
conn.execute("insert into SelectData(Select_ExpenseOUT) values('其它')")
conn.execute("insert into Field_Name(DataTable,Field,Name,Shows) values('Products','pItemA','自定义属性A','1')")
conn.execute("insert into Field_Name(DataTable,Field,Name,Shows) values('Products','pItemB','自定义属性B','1')")
conn.execute("insert into Field_Name(DataTable,Field,Name,Shows) values('Products','pItemC','自定义属性C','1')")
conn.execute("insert into Field_Name(DataTable,Field,Name,Shows) values('Products','pItemD','自定义属性D','1')")
conn.execute("insert into Field_Name(DataTable,Field,Name,Shows) values('Products','pItemE','自定义属性E','1')")
conn.execute("insert into QuickMenu(Sort,Title,Url,QuickYN)values('1','所有客户','../main/Listall.asp','0')")
conn.execute("insert into QuickMenu(Sort,Title,Url,QuickYN)values('2','跟单管理','../main/Records.asp','0')")
conn.execute("insert into QuickMenu(Sort,Title,Url,QuickYN)values('3','订单管理','../main/Order.asp','0')")
conn.execute("insert into QuickMenu(Sort,Title,Url,QuickYN)values('4','合同管理','../main/Hetong.asp','0')")
conn.execute("insert into QuickMenu(Sort,Title,Url,QuickYN)values('5','售后管理','../main/Service.asp','0')")
conn.execute("insert into QuickMenu(Sort,Title,Url,QuickYN)values('6','费用管理','../main/Expense.asp','0')")
conn.execute("insert into QuickMenu(Sort,Title,Url,QuickYN)values('7','数据导出','../main/Export.asp','0')")
conn.execute("insert into QuickMenu(Sort,Title,Url,QuickYN)values('8','数据导入','../main/Import.asp','0')")
conn.execute("insert into QuickMenu(Sort,Title,Url,QuickYN)values('9','系统公海','../main/Recycler.asp','0')")
conn.execute("insert into QuickMenu(Sort,Title,Url,QuickYN)values('10','内部公文','../OA/Notice.asp','0')")
conn.execute("insert into QuickMenu(Sort,Title,Url,QuickYN)values('11','站内短信','../OA/Receive.asp','0')")
conn.execute("insert into QuickMenu(Sort,Title,Url,QuickYN)values('12','工作报告','../OA/Report.asp','0')")
conn.execute("insert into QuickMenu(Sort,Title,Url,QuickYN)values('13','文 件 柜','../Soft/Index.asp','0')")
conn.execute("insert into QuickMenu(Sort,Title,Url,QuickYN)values('14','通 讯 录','../OA/Contact.asp','0')")
conn.execute("insert into QuickMenu(Sort,Title,Url,QuickYN)values('15','个人日历','../OA/Calendar.asp','0')")
end if
%>
<table style="width:800px;margin:0 auto;">
<col width=140><col width=10>
<Tr>
<TD valign=top>
<table class="table_1" width="100%">
<Tr class="tr_t">
<TD class="td_l_l">导航</TD>
</Tr>
<Tr class="tr_f">
<TD class="td_l_l">一、授权协议</TD>
</Tr>
<Tr class="tr_f">
<TD class="td_l_l">二、参数配置 </TD>
</Tr>
<Tr class="tr_f">
<TD class="td_l_l"><font color=#ff6600>三、完成安装</font> </TD>
</Tr>
</table>
</TD>
<TD></TD>
<TD >
<table class="table_1" style="margin:0px auto;" width="100%">
<col width=100>
<Tr class="tr_t">
<TD class="td_l_l" colspan=2>数据库连接</TD>
</TR>
<Tr>
<TD class="td_l_r">数据库类型</TD>
<TD class="td_l_l"><%if Session("install_Accsql")=1 then%>Mssql2005<%else%>Access<%end if%></TD>
</TR>
<%if Session("install_Accsql")=1 then%>
<Tr>
<TD class="td_l_r" width="100">数据库主机</TD>
<TD class="td_l_l"><%=Session("install_item1")%></TD>
</TR>
<Tr>
<TD class="td_l_r">数据库名称</TD>
<TD class="td_l_l"><%=Session("install_item2")%></TD>
</TR>
<Tr>
<TD class="td_l_r">数据库用户</TD>
<TD class="td_l_l"><%=Session("install_item3")%></TD>
</TR>
<Tr>
<TD class="td_l_r">数据库密码</TD>
<TD class="td_l_l"><%=Session("install_item4")%></TD>
</TR>
<%else%>
<Tr>
<TD class="td_l_r">数据库路径</TD>
<TD class="td_l_l"><%=Session("install_item5")%></TD>
</TR>
<%end if%>
</table>
<table class="table_1" style="margin:10px auto 0;" width="100%">
<col width=100>
<Tr class="tr_t">
<TD class="td_l_l" colspan=2>管理员帐号</TD>
</TR>
<Tr>
<TD class="td_l_r">用户名</TD>
<TD class="td_l_l">admin</TD>
</TR>
<Tr>
<TD class="td_l_r">密码</TD>
<TD class="td_l_l">admin</TD>
</TR>
<Tr>
<TD class="td_l_l" colspan=2><input name="Back" type="button" class="button45" id="Back" value="登录系统" onClick="location.href='main/login.asp';"> <font color="#DD0000">恭喜，安装成功！</font>
<%
if IsObjInstalled("Scripting.FileSystemObject")=False then
%>
请手动删除Install.asp 文件。
<%
else
s= Server.MapPath("Install.asp")
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(s) Then
fso.Deletefile(s)
End If
Set fso = Nothing
end if
%>
</TD>
</Tr>
</table>
</TD>
</Tr>
</table>
<%
end Sub
Function IsObjInstalled(strClassString)
On Error Resume Next
IsObjInstalled = False
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If Err = 0 Then IsObjInstalled = True
If Err = -2147352567 Then IsObjInstalled = True
Set xTestObj = Nothing
Err = 0
End Function
%>