رمز مثيل ASP: طريقة إعداد رمز الترحيل طويلة المقالة

<٪

فئة ASPXSKY_PAGE

sub class_initialize الخاص

نهاية الفرعية

تنبيه الوظيفة العامة (رسالة ، جورل)

رسالة = استبدال (رسالة ، '،/')

إذا جورل = -1 ثم

Response.write (<script language = javaScript> ALERT ('& message &') ؛ History.go (-1) </script>)

آخر

Response.write (<script language = javaScript> Alert ('& message &') ؛ location = '& gourl &' </script>)

إنهاء إذا

استجابة.

وظيفة نهاية

Public Sub Showpage (STR ، Page ، URL)

إن لم يكن isnumberic (صفحة) ثم

موجه التنبيه: معلمة غير صحيحة! ،-1

إنهاء إذا

إذا كانت الصفحة = أو صفحة = 0 أو isNull (صفحة) أو isempty (صفحة) ثم

الصفحة = 1

آخر

الصفحة = cint (صفحة)

إنهاء إذا

str = split (str ، {nextpage})

abspage = صفحة

PCount = Ubund (Str) 1

إذا كانت الصفحة> cint (ubund (str) 1) أو الصفحة <1 ثم

موجه التنبيه: معلمة غير صحيحة! ،-1

آخر

Response.write str (page-1) & <br> <br> <centre> مقسمة إلى & pcount & pages

إنهاء إذا

لـ p = 0 إلى ubund (str)

Response.write <a href = & url & p = & p 1 &> [& p 1 &] </a>

التالي

Response.write Current & Appage &/& Pcount & Page </center>

نهاية الفرعية

الطبقة النهائية

'-------------------------------------------------------------------------------------------------------------------------------

p = request.querystring (p)

STR = صفحة 1: هنا هو محتوى الصفحة الأولى {NextPage} الصفحة 2: هنا هو محتوى الصفحة الثانية

url = shownews.asp؟ id = & id &&

تعيين newPage = جديد ASPXSKY_PAGE

newPage.ShowPage Str ، P ، URL

٪>