'The following is to add a SQLServer2000 user function to Asp, and to create a database, give it permissions to dbo'************************************Note: The verification method of SQLServer should not be selected as Windows only, '************************************ This function has passed the Tes ************************************************** 'Jika Anda memiliki pertanyaan, silakan berkomunikasi dengan saya. Di masa depan, beberapa program operasi manajemen untuk SQLServer akan diluncurkan.
'Parameter: StrloginName: Menambahkan Nama Login, Strpwd: Nama Login Kata Sandi, StrdbName: Buat Nama Basis Data Baru' Deskripsi Variabel Lokal Dalam Fungsi: Strserver: Nama Mesin tempat server berada (lokal) Struid: SQL Administrator, 'StrsapWD: SQL Administrator AMPORMENTOR. Tiga variabel di atas harus ditetapkan sesuai dengan situasi Anda
'Fungsi ini terutama memanggil sistem yang tersimpan sistem untuk mengimplementasikannya
'Catatan: Fungsi ini tidak memiliki toleransi kesalahan. Jika terjadi kesalahan, Anda dapat yakin bahwa ada masalah dengan pengaturan SQLServer Anda, atau bahwa akun login atau database sudah ada.
Subaddusertomssql (Strloginname, Strpwd, strdbname) 'Tentukan variabel server dan informasi login administrator sistem, modifikasinya sesuai dengan situasi tertentu
DIMSTRSERVER, STRUID, STRSAPWDSTRSERVER = "(Lokal)" Struid = "SA" STRSAPWD = "Koneksi database" DimConn '
String koneksi basis data DIMSTRDS
String perintah dimstrcmd '
Strdsn = "driver = {sqlserver}; server =" & strserver & "; uid =" & struid & "; pwd =" & strsapwd & "; database = master" 'Buat koneksi ke database master setconn = server.createObject ("adodb.conconection") conn.openstrePn = server.createObject ("adodb.conconection") conn.opensprspr = server.createBject ("adodb.conconection") conn.openstrePr = server.createObject ("adodb.conconection") conn.openstrePRSN = server
'Create a new database StrCmd="CREATEDATABASE"&StrDBNameConn.execute(StrCmd)'Create a new login account StrCmd="sp_addlogin'"&StrLoginName&"','"&StrPwd&"','"&StrDBName&"'"Conn.execute(StrCmd)Conn.Close
'Buat koneksi ke database baru dan tetapkan akun login baru untuk mengakses database baru strdsn = "driver = {sqlServer}; server =" & strserver & "; uid =" & struid & ";
pwd = "& sarpwd &"; database = "& strdbnamestrcmd =" sp_grantdbaccess '"& strloginname &"' "conn.openstrdsnconn.execute (strcmd)
'Jadikan Akun Login Baru Pemilik basis data baru strcmd = "sp_addrolemember'db_owner', '" & strloginname & "'" conn.execute (strcmd) 'Tutup rilis koneksi conn. dia "endsub