ASP在SQL Server2k中新建帳號和權限

　　 以下為在asp中增加一個sql server用戶函數並為建立一個數據庫給他dbo的權限
　　 ****************注意sql server的驗證方式不要選僅為windows方式
　　 **************** 允許遠程sql server連接
　　 ****************該函數已通過測試****************************
　　 有什麼問題歡迎和我交流以後會推出對sql server的一些管理操作程序
　　
　　 參數StrLoginName:新增登錄名StrPwd登錄名的密碼StrDBName:新建數據庫名
　　 函數內局部變量說明:StrServer:服務器所在機器名(本機為local)StrUid:sql管理員
　　 StrSaPwd:sql管理員密碼以上三個變量應根據你的情況設置
　　
　　 該函數主要調用系統存儲過程來實現的
　　
　　 注意本函數沒有容錯處理如出現錯誤可以確定是你的sql server設置有問題或已存在該login帳號或該數據庫
　　 call AddUserToMSSQL(testloginiamheredb_test)
　　
　　Sub AddUserToMSSQL(StrLoginNameStrPwdStrDBName)
　　定義服務器變量和系統管理員登錄信息根據具體情況修改
　　Dim StrServerStrUidStrSaPwd
　　StrServer=(local)
　　StrUid=sa
　　StrSaPwd=
　　Dim Conn 數據庫連接
　　Dim StrDSN 數據庫連接字符串
　　Dim StrCmd 命令字符串
　　StrDSN=driver={SQL server};server=&StrServer&;uid=&StrUid&;pwd=&StrSaPwd&;database=master
　　建立和數據庫master的連接
　　set Conn = ServerCreateObject(ADODBConnection)
　　ConnOpen StrDSN
　　新建一數據庫
　　StrCmd=CREATE DATABASE &StrDBName
　　Connexecute(StrCmd)
　　新建一登錄帳號
　　StrCmd=sp_addlogin &StrLoginName&&StrPwd&&StrDBName&
　　Connexecute(StrCmd)
　　ConnClose
　　建立與新建數據庫的連接並賦給新登錄帳號訪問新建數據庫的權利
　　StrDSN=driver={SQL server}; server=&StrServer&;uid=&StrUid&;pwd=&StSarPwd&;database=&StrDBName
　　StrCmd=sp_grantdbaccess &StrLoginName&
　　ConnOpen StrDSN
　　Connexecute(StrCmd)
　　使新登錄帳號成為新建數據庫的擁有者
　　StrCmd=sp_addrolemember db_owner&StrLoginName&
　　Connexecute(StrCmd)
　　關閉釋放連接
　　ConnClose
　　Set Conn=Nothing
　　ResponseWrite 用戶 &StrLoginName& 成功建立!並且已為他建立了一個數據庫 &StrDBName&!
　　End Sub
From:http://tw.wingwit.com/Article/program/SQLServer/201311/22005.html