aspÏÂ×Ô¶¯°²×°Êý¾Ý¿â

<!-- #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 If
if 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=re