لقد أصبح برنامج ASP الخاص بمنتدى Dongwang، إلى حد ما، قمة ASP. رمز النسخة الرئيسية هو كما يلي:
<%@LANGUAGE=VBSCRIPT%>
<%
الخيار صريح
وقت البدء الخافت، وقت النهاية، conn، strCon، db
بداية الوقت = الموقت ()
خافت strSQLServerName
خافت strSQLDBUserName
خافت strSQLDBPassword
خافت strSQLDBName
'يرجى ملء المعلمات المحددة لقاعدة البيانات
'------------------------------------------------ - -------------------------------------------------
strSQLServerName = 127.0.0.1 'اسم الخادم أو عنوانه
strSQLDBUserName = sa 'حساب قاعدة البيانات
strSQLDBPassword = 123 'كلمة مرور قاعدة البيانات
strSQLDBName = bbsbak 'اسم قاعدة البيانات
'------------------------------------------------ - -------------------------------------------------
'برنامج تشغيل SQL Server OLE
تعيين conn = Server.CreateObject(ADODB.Connection)
strCon = Provider=SQLOLEDB;Server= & strSQLServerName & ;معرف المستخدم= & strSQLDBUserName & ;كلمة المرور= & strSQLDBPassword & ;قاعدة البيانات= & strSQLDBName & ;
conn.Open strCon
وظيفة إغلاق قاعدة البيانات
كون.كلوز
تعيين كون = لا شيء
وظيفة النهاية
%>