熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> SQL Server >> 正文

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

2013-11-15 14:34:41  來源: SQL Server 

   以下為在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
    推薦文章
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.