Asp常用通用函数之创建MsSQLServer数据库

 '函数名：CrDb_MsSQLServer
  '作 用：创建MsSQLServer数据库
  '参 数：DbIp ---- 数据库所在IP或主机名称
  '参 数：DbSamc ---- 数据库超管用户名称
  '参 数：DbSapwd---- 数据库超管用户口令
  '参 数：DbName ---- 新建数据库名称
  '参 数：DbUpmc ---- 新建数据库所属用户名称
  '参 数：DbUpwd ---- 新建数据库所属用户密码
  '返回值：建立成功返回 True 否则 False
  '**************************************************
  Public Function CrDb_MsSQLServer(ByVal DbIp,ByVal DbSamc,ByVal DbSapwd,ByVal DbName,ByVal DbUpmc,ByVal DbUpwd)
   CrDb_MsSQLServer=False
   On Error GoTo 0
   On Error Resume Next
   DIM fu_Sa_Str,fu_Ua_Str,fu_Conn,fu_Rs,fu_Sql_Str,fxztxt
   fxztxt=Chr(60)&"%Response.end()%"&Chr(62)
   fu_Sa_Str ="DRIVER=SQL Server;UID="&DbSamc&";DATABASE=master;SERVER="&DbIp&";PWD="&DbSapwd&";"
   fu_Ua_Str ="DRIVER=SQL Server;UID="&DbUpmc&";DATABASE="&DbName&";SERVER="&DbIp&";PWD="&DbUpwd&";"
   Set fu_Conn = Server.CreateObject("ADODB.Connection")
   fu_Conn.Open fu_Sa_Str
   fu_Conn.Execute "CREATE DATABASE " &DbName
   fu_Conn.Close
   fu_DB_Conn_Str="DRIVER=SQL Server;UID="&DbSamc&";DATABASE="&DbName&";SERVER="&DbIp&";PWD="&DbSapwd&";"
   fu_Conn.Open fu_DB_Conn_Str
   fu_Sql_Str="EXEC sp_addlogin '"&DbUpmc&"','"&DbUpwd&"','"&DbName&"'"
   fu_Conn.Execute fu_Sql_Str
   fu_Sql_Str="EXEC sp_grantdbaccess '"&DbUpmc&"'"
   fu_Conn.Execute fu_Sql_Str
   fu_Sql_Str="EXEC sp_addrolemember 'db_owner', '"&DbUpmc&"'"
   fu_Conn.Execute fu_Sql_Str
   fu_Sql_Str="EXEC sp_defaultdb "&DbUpmc&","&DbName
   fu_Conn.Execute fu_Sql_Str
   fu_Conn.Close
   fu_Conn.open fu_Ua_Str
   fu_Sql_Str="CREATE TABLE [0] ([0] Text DEFAULT ('Notxt') NOT NULL,[11] int IDENTITY (1, 1) NOT NULL PRIMARY KEY)"
   fu_Conn.Execute fu_Sql_Str
   Set fu_Rs=server.createobject("ADODB.Recordset")
   fu_Sql_Str="Select * From [0]"
   fu_Rs.open fu_Sql_Str,fu_Conn,1,3
   fu_Rs.addnew
   fu_Rs("0")=fxztxt
   fu_Rs.update
   fu_Rs.Close
   fu_Conn.Close
   Set fu_Rs = Nothing
   Set fu_Conn=Nothing
   If Err.Number = 0 Then
   CrDb_MsSQLServer=True
   End If
   On Error GoTo 0
  End function