Dim MM_conn_STRING
MM_conn_STRING = "driver={SQL Server};SERVER=police;uid=police;password=police;database=master"
dim dbconn
Set dbconn=Server.CreateObject("ADODB.Connection")
dbconn.open MM_conn_STRING
sql="restore database police2 from disk='e:\back' with place"
dbconn.execute(sql)
你这样当然不行了!你已经占用了POLICE数据库,又想对它进行替换!!!
你改成如下的吧:
Dim MM_conn_STRING
MM_conn_STRING = "driver={SQL Server};SERVER=police;uid=police;password=police;database=master"
dim dbconn
Set dbconn=Server.CreateObject("ADODB.Connection")
dbconn.open MM_conn_STRING
sql="restore database police from disk='e:\back' with place"
dbconn.execute(sql)