<!-- بيانات التعريف
TYPE=typelib
FILE=C:/Program Files/Common Files/System/ADO/msado20.tlb
-->
<%@ اللغة=VBScript %>
<%الخيار الصريح%>
<%
'"الملفات المضافة
%>
<!-- #include virtual|file=الملف المراد تضمينه-->
<%
'بيان حقوق الطبع والنشر لرمز:
'======================================================================== = ========
'الملف: filename.asp
"الإصدار: 1.0
'تاريخ:
"السيناريو كتبه تومي شياو
' وصف:
'
'المراجعة:
'تاريخ:
' مؤلف:
' وصف:
'======================================================================== = ========
حقوق الطبع والنشر (C) لعام 2003 محفوظة لموقع Asiagame.Com.
"الويب: http://www.advancededu.com
هل تحتاج إلى مساعدة؟ اتصل بـ: [email protected]
'======================================================================== = ========
%>
<%
"رمز آلية التسامح مع الخطأ
'--------------------------------
DIMNDEBUG_MSG
NDEBUG_MSG=خطأ
إذا كان NDEBUG_MSG = صحيحًا
"خطأ في التصفية."
عند حدوث خطأ في الاستئناف التالي
نهاية إذا
"منطقة الإعلان والتعريف المتغيرة."
'متغير الخطأ المنطقي
Dim BlnFounderr,sErmsg
BlnFounderr = FALSE
'تشغيل رسالة الخطأ
'sErrmsg=sErrmsg+<br>+<li>لم يتم العثور على المعلومات التي تحتاجها، مرحباً بك في استخدامها.
'BlnFounderr = TRUE
كائنات Dim oConn,oRs,sSQL 'ADO
'تعيين oConn = Server.CreateObject (ADODB.Connection)
'oConn.Open التطبيق (connStr)
"منطقة تعريف المعاملة."
'خطأ في الإخراج
إذا كان BlnFounderr = TRUE إذن
خطأ ()
نهاية إذا
'Func، منطقة تعريف Proc
وظيفة صفقة الإدخال (exp1)
dim exp2 'تصفية الإدخال للأحرف غير الصالحة
exp2=استبدال(exp1,<,<)
exp2=استبدال(exp2,>,>)
exp2=استبدال(exp2,','')
exp2=استبدال(exp2,&,&)
DealInput=exp2
وظيفة النهاية
وظيفة CloseDatabase 'CloseDatabase
oConn.إغلاق
ضبط oConn = لا شيء
وظيفة النهاية
خطأ فرعي ()
'الاستجابة.اكتب sErrmsg ويرجى الاتصال بمسؤول النظام.
Response.write <html> & vbCrLf
Response.write <head> & vbCrLf
Response.write <title>موقع xxx--إدارة خلفية الويب</title> وvbCrLf
Response.write <meta NAME=GENERATOR Content=Microsoft Visual Studio 6.0> & vbCrLf
Response.write <link rel=stylesheet type=text/css href=css/index.css> & vbCrLf
Response.write <script type=text/javascript src=js/fx.js></script> & vbCrLf
Response.write <script type=text/javascript src=js/cooltool.js></script> & vbCrLf
استجابة.كتابة وvbCrLf
Response.write </head> & vbCrLf
استجابة.كتابة وvbCrLf
استجابة.كتابة <body> وvbCrLf
Response.write <جدول الخلية = 0 تباعد الخلايا = 0 الحدود = 0 العرض = 95٪ bgcolor = #777777 محاذاة = المركز> & vbCrLf
استجابة.كتابة <tr> وvbCrLf
استجابة.كتابة <td> & vbCrLf
Response.write <جدول الخلايا = 3 تباعد الخلايا = 1 حد = 0 العرض = 100٪> & vbCrLf
Response.write <tr align=center> & vbCrLf
Response.write <td width=100% bgcolor=#EEEEEE>رسالة خطأ في عملية الإدارة الداخلية</td> & vbCrLf
Response.write </tr> & vbCrLf
استجابة.كتابة <tr> وvbCrLf
Response.write <td width=100% bgcolor=#FFFFFF><b>الأسباب المحتملة للخطأ:</b><br><br> & vbCrLf
Response.write <li>يرجى الاتصال بالمسؤول في أقرب وقت ممكن للحصول على المساعدة المناسبة. </a> & vbCrLf
Response.write sErrmsg & vbCrLf
Response.write </td> & vbCrLf
Response.write </tr> & vbCrLf
Response.write <tr align=center> & vbCrLf
Response.write <td width=100% bgcolor=#EEEEEE> & vbCrLf
Response.write <a href=javascript:history.go(-1)> << العودة إلى الصفحة السابقة</a> & vbCrLf
Response.write </td> & vbCrLf
Response.write </tr> & vbCrLf
Response.write </table> </td></tr></table> & vbCrLf
Response.write </body> & vbCrLf
استجابة.كتابة </html>
النهاية الفرعية
%>