asp下自动安装数据库

原创

xocom 2022-12-13 11:44:45 博主文章分类：web杂 ©著作权

文章标签 asp user database 数据库 javascript 文章分类 虚拟化云计算

©著作权归作者所有：来自51CTO博客作者xocom的原创作品，请联系作者获取转载授权，否则将追究法律责任

<!-- #include file="../inc/md5.asp" -->
<%
'On Error Resume Next
dbhost=request.Form("dbhost")
dbname=request.Form("dbname")
dbnew=request.Form("dbnew")
dbuser=request.Form("dbuser")
dbpw=request.Form("dbpw")
user_code=request.Form("user_code")
user_pwd=request.Form("user_pwd")
formqian=request.Form("formqian")&"_"
set conn=server.createobject("adodb.connection")
connstr="provider=sqloledb;data source="&dbhost&";User ID="&dbuser&";pwd="&dbpw&";Initial Catalog=master"
conn.open connstr 
if dbnew="1" then
conn.execute("CREATE DATABASE "&dbname&" ON (NAME = 'jxc_dat',FILENAME = '"&server.mappath("../data/"&dbname&".mdf")&"') LOG ON (NAME = 'jxc_log',FILENAME = '"&server.mappath("../data/"&dbname&"_log.ldf")&"')")
end if If Err Then
  err.Clear
  Set Conn = Nothing
%>
<script language="javascript">
alert("数据库连接失败，请检查数据库设置！")
window.history.go(-1)
</script>
<%
  Response.End
End Ifif dbnew="0" then
conn.execute("declare hcforeach cursor global for select 'kill '+rtrim(spid) from master.dbo.sysprocesses where dbid=db_id('"&dbname&"') exec sp_msforeach_worker '?'")
end if
sql="use master Restore database "&dbname&" from disk='"&server.mappath("../data/start.dat")&"' with REPLACE"
conn.execute(sql)
conn.close()connstr="provider=sqloledb;data source="&dbhost&";User ID="&dbuser&";pwd="&dbpw&";Initial Catalog="&dbname
conn.open connstr
conn.execute("update login set user_code='"&user_code&"',user_pwd='"&md5(user_pwd)&"'")
conn.close 
 set conn=nothing
set objfso = Server.CreateObject("Scripting.FileSystemObject")
set fy=objfso.createtextfile(server.mappath("../data/install.lock"),true)
set fy=objfso.OpenTextFile(server.mappath("../conn.asp"),2)
set fw=objfso.OpenTextFile(server.mappath("conn.txt"),1)
tempconn2=fw.Readall()
tempconn2=replace(tempconn2,"{$dbhost}",dbhost)
tempconn2=replace(tempconn2,"{$dbname}",dbname)
tempconn2=replace(tempconn2,"{$dbuser}",dbuser)
tempconn2=replace(tempconn2,"{$dbpw}",dbpw)
tempconn2=replace(tempconn2,"{$formqian}",formqian)
fy.WriteLine(tempconn2)
%>
<script type="text/javascript">document.getElementById("laststep").disabled=false;document.getElementById("laststep").value = '安装成功，点击进入下一步';</script>
<%end if%>