'ต่อไปนี้คือการเพิ่มฟังก์ชั่นผู้ใช้ SQLServer2000 ให้กับ ASP และเพื่อสร้างฐานข้อมูลให้สิทธิ์แก่ DBO' ***************************************************************************************** การเชื่อมต่อ '********************************** ฟังก์ชั่นนี้ผ่านการทดสอบ ************************************************************************************************************************************************************** ในอนาคตจะมีการเปิดตัวโปรแกรมการจัดการบางอย่างสำหรับ SQLServer
'พารามิเตอร์: strloginName: เพิ่มชื่อเข้าสู่ระบบ, strpwd: รหัสผ่านชื่อเข้าสู่ระบบ, strdbname: สร้างชื่อฐานข้อมูลใหม่' คำอธิบายของตัวแปรท้องถิ่นในฟังก์ชั่น: strserver: ชื่อเครื่องที่เซิร์ฟเวอร์ตั้งอยู่ ควรตั้งค่าตัวแปรสามตัวข้างต้นตามสถานการณ์ของคุณ
'ฟังก์ชั่นนี้ส่วนใหญ่เรียกขั้นตอนการจัดเก็บระบบเพื่อนำไปใช้
'หมายเหตุ: ฟังก์ชั่นนี้ไม่มีความทนทานต่อความผิดพลาด หากเกิดข้อผิดพลาดคุณสามารถมั่นใจได้ว่ามีปัญหากับการตั้งค่า SQLServer ของคุณหรือว่าบัญชีเข้าสู่ระบบหรือฐานข้อมูลมีอยู่แล้ว
subaddusertomssql (strloginname, strpwd, strdbname) 'กำหนดตัวแปรเซิร์ฟเวอร์และข้อมูลการเข้าสู่ระบบของผู้ดูแลระบบระบบแก้ไขตามสถานการณ์เฉพาะ
dimstrserver, struid, strsapwdsstrserver = "(local)" struid = "sa" strsapwd = "" การเชื่อมต่อฐานข้อมูล dimconn '
สตริงการเชื่อมต่อฐานข้อมูล dimstrdsn '
สตริงคำสั่ง dimstrcmd '
strdsn = "driver = {sqlserver}; เซิร์ฟเวอร์ =" & strserver & "; uid =" & struid & "; pwd =" & strsapwd & "; ฐานข้อมูล = master" สร้างการเชื่อมต่อกับฐานข้อมูลหลัก
'สร้างฐานข้อมูลใหม่ strcmd = "createDatabase" & strdbnameconn.execute (strcmd)' สร้างบัญชีล็อกอินใหม่ strcmd = "sp_addlogin '" & strloginname & "', '& strpwd &"' '
'สร้างการเชื่อมต่อกับฐานข้อมูลใหม่และกำหนดบัญชีล็อกอินใหม่เพื่อเข้าถึงฐานข้อมูลใหม่ strdsn = "driver = {sqlserver}; เซิร์ฟเวอร์ =" & strserver & "; uid =" & struid & ";
pwd = "& sarpwd &"; database = "& strdbnamestrcmd =" sp_grantdbaccess '"& strloginname &"' "conn.openstrdsnconn.execute (strcmd)
'สร้างบัญชีล็อกอินใหม่เจ้าของฐานข้อมูลใหม่ strcmd = "sp_addrolemember'db_owner', ','" & strloginname & "'" conn.execute (strcmd)' การเชื่อมต่อที่ใกล้ชิด conn.closesetConn = nothing oneResponse.write "strloginname &"