'函数名：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