"ما يلي هو إضافة وظيفة مستخدم SQLServer2000 إلى ASP ، وإنشاء قاعدة بيانات ، وإعطائها أذونات إلى dbo '************************************** لا ينبغي اختيار طريقة التحقق من sqlserver على أنها Windows فقط ،' *********************** الاتصال "************************************ لقد اجتازت هذه الوظيفة الاختبار ************************************************************* إذا كان لديك أي أسئلة ، يرجى التواصل معي. في المستقبل ، سيتم إطلاق بعض برامج التشغيل الإدارية لـ SQLServer.
"المعلمات: strloginname: تم إضافة اسم تسجيل الدخول ، StrPWD: اسم تسجيل الدخول إلى كلمة مرور ، strdbname: إنشاء اسم قاعدة بيانات جديدة" وصف المتغيرات المحلية في الوظيفة: StrServer: اسم الجهاز حيث يوجد الخادم (محلي) Struid: SQL Administrator ، 'StrsapWD: SQL Password. يجب ضبط المتغيرات الثلاثة أعلاه وفقًا لموقفك
هذه الوظيفة تستدعي بشكل أساسي الإجراء المخزن النظام لتنفيذها
ملاحظة: هذه الوظيفة لا تحتوي على تحمل خطأ. في حالة حدوث خطأ ، يمكنك التأكد من وجود مشكلة في إعداد SQLServer الخاص بك ، أو أن حساب تسجيل الدخول أو قاعدة البيانات موجودة بالفعل.
subaddusertomssql (strloginname ، strpwd ، strdbname) 'تحديد متغيرات الخادم ومعلومات تسجيل الدخول إلى مسؤول النظام ، وتعديلها وفقًا للموقف المحدد
dimstrserver ، struid ، strsapwdstrserver = "(محلي)" struid = "sa" strsapwd = "" dimconn 'database connection
سلسلة اتصال قاعدة بيانات DIMSTRDSN
سلسلة الأوامر dimstrcmd
strdsn = "driver = {sqlserver} ؛ server =" & strserver & "؛ uid =" & struid & "؛ pwd =" & strsapwd & "
"إنشاء قاعدة بيانات جديدة strcmd =" createAtabase "& strdbnameconn.execute (strcmd) 'إنشاء حساب تسجيل الدخول جديد strcmd =" sp_addlogin' "& strloginname &" '' "و strpwd &" '، "& strdbname &" "conn.execute (strcmd)
"قم بإنشاء اتصال بقاعدة البيانات الجديدة وتعيين حساب تسجيل الدخول الجديد للوصول إلى قاعدة البيانات الجديدة strdsn =" driver = {sqlserver} ؛ server = "& strserver &" ؛ uid = "& struid &" ؛
pwd = "& sarpwd &" ؛ database = "& strdbnamestrcmd =" sp_grantdbaccess '"& strloginname &"' "conn.openstrdsnconn.execute (strcmd)
"اجعل حساب تسجيل الدخول الجديد صاحب قاعدة البيانات الجديدة strcmd =" sp_addrolemmember'db_owner "،" و strloginname و "" conn.execute (strcmd) 'connection relection connection conn.closedconn = nothingresponse.write