موصى به: مثال تراجع الإجراء ASP+SQL2000 1. إرجاع الإجراء المخزن لإجمالي عدد مجموعات السجلات: إنشاء إجراءات dbo.recordCount (tablename nvarchar (100) ،-اسم جدول database namestrwhere nvarchar (500) ،-Query intrance int intor --- قيمة الإخراج ، إجمالي عدد السجلات).
- <٪
- '-------------------------------------------------------------------------
- مقدمة البرنامج: أكمل الإضافة والحذف والتعديل وعرض نص العقدة المحدد في مستند XML بواسطة لغة ASP
- معلمات الدخول: لا شيء
- معلمات التصدير: لا شيء
- '------------------------------------------------
- اسم الوظيفة: connectxml ()
- 'معلمات المشاركة: اسم الملف يتطلب الاتصال أو فتح اسم ملف XML
- معلمات التصدير: لا شيء
- 'قيمة الإرجاع: connectxml = 0 ، xmlmorntekdocument هو كائن يقوم بنجاح بتحميل مستندات XML.
- 'connectxml <> 0 ، طباعة رسالة خطأ strerror
- '------------------------------------------------
- DIMXMLMORNTEKDOCUMITY
- FunctionConnectxml (اسم الملف)
- DimstrSourceFile
- StrSourceFile = server.mappath (اسم الملف)
- setxmlmorntekdocument = server.createBject (microsoft.xmldom)
- xmlmorntekdocument.async = false
- xmlmorntekdocument.load (StrSourceFile)
- connectxml = xmlmorntekdocument.parseerror.errorcode
- ifxmlmorntekdocument.parseerror.errorcode <> 0then
- strerror = <h2> خطأ و xmlmorntekdocument.parseerror.errorcode & </h2>
- StrerRorsTrerRorSRRORRRERRRORROR = strerror & xmlmorntekdocument.parseerror.reason & <br>
- StrerRorsTrerRorSRRORRERRRORROR = Strerror & XMLMORNTEKDOCUMITY.Parseerror.url & <br>
- StrerrorStrerRorsRorRorRorRorror = strerror & xmlmorntekdocument.parseerror.line & <br>
- StrerrorStrerRorsRrorrorRorror = strerror & xmlmorntekdocument.parseerror.filepos & <br>
- StrerrorStrerRorSRRORRRORRRORR = Strerror & xmlmorntekdocument.parseerror.srctext & <br>
- استجابة. writestrerror
- Endif
- الوظيفية
- '------------------------------------------------
- اسم الوظيفة: closexml ()
- معلمات الدخول: لا شيء
- معلمات التصدير: لا شيء
- '------------------------------------------------
- وظيفة cclosexml (xmlmorntekdocument)
- IfisObject (xmlmorntekdocument) ثم
- setxmlmorntekdocument = لا شيء
- Endif
- الوظيفية
- '------------------------------------------------
- اسم الوظيفة: selectxmlnodeText (elementName)
- معلمة الإدخال: اسم عنصر العنصر
- معلمات التصدير: لا شيء
- '------------------------------------------------
- وظيفة selectxmlnodetext (elementName)
- elementName = // & elementName
- temp = xmlmorntekdocument.selectsinglenode (elementName) .text
- selectxmlnodetext = server.htmlencode (temp)
- الوظيفية
- '------------------------------------------------
- اسم الوظيفة: insertxmlnodetext (befelementName ، elementName ، elementText)
- معلمة الإدخال: اسم العنصر الذي تم إدخاله بواسطة ElementName
- 'befelementName insert عنصر قبل اسم هذا العنصر
- "نص elementtext للعنصر المدرج
- معلمات التصدير: لا شيء
- '------------------------------------------------
- functionInsertXMLNODETEXT (befelementName ، elementName ، elementText)
- dimbefelement ، عنصر
- setBefelement = xmlmorntekdocument.selectsinglenode (// & befelementname)
- setElement = xmlmorntekdocument.createElement (elementName)
- خطأ
- element.text = elementText
- الوظيفية
- '------------------------------------------------
- اسم الوظيفة: updatexmlnodeText (elementName ، newElementText)
- معلمة الإدخال: اسم عنصر العنصر
- "نص العنصر الجديد"
- معلمات التصدير: لا شيء
- '------------------------------------------------
- functionupdatexmlnodetext (elementName ، newelementText)
- Dimelement
- setElement = xmlmorntekdocument.selectinglenode (// & elementname)
- element.text = newElementText
- الوظيفية
- '------------------------------------------------
- اسم الوظيفة: DELETEXMLNODETEXT (elementName)
- معلمة الإدخال: اسم عنصر العنصر
- معلمات التصدير: لا شيء
- '------------------------------------------------
- FunctionDeletexmlnodeText (elementName)
- xmlmorntekdocument.selectsinglenode (// & elementName) .text =
- الوظيفية
- ٪>
مشاركة: ASP انقر لتحديث رمز مثيل رمز التحقق معظم رموز التحقق على موقع الويب هي رموز التحقق من الصور ، تمامًا مثل تلك الموجودة أدناه http://dwww.cn/books.asp. قد يبقى المستخدمون على الصفحة لفترة طويلة ، وقد ينتهي رمز التحقق عند إرسال التقديم الأخير أخيرًا. لذلك تحتاج إلى إضافة وظيفة تحديث. رمز التحقق: اسم الإدخال = 'checkimg' type = 'text' class = 'input' id = 'che