إن مشاركة بعض وظائف ASP التي تقلد PHP هي بشكل أساسي من أجل راحة الأصدقاء الذين يتعلمون PHP أولاً ثم يتعلمون ASP. انسخ رمز الكود كما يلي:
'العملية: سلسلة الإخراج [يستبدل Response.Write]
صدى فرعي (شارع)
استجابة.اكتب (شارع)
نهاية الفرعية
'الوظيفة: الحصول على النموذج [يستبدل Request.Form]
طلب الدالة (Str)
reqf = Request.Form(Str)
وظيفة النهاية
'العملية: قم بإنهاء الصفحة وإخراج السلسلة
فرعي (شارع)
استجابة.اكتب (شارع)
استجابة. النهاية ()
نهاية الفرعية
'الوظيفة: إرجاع نتيجة تشغيل ملف ASP كسلسلة
الدالة ob_get_contents(المسار)
خافت tmp، أ، ب، ر، مباريات، م
شارع خافت
Str = file_iread(المسار)
tmp = dim htm : htm = &vbCrLf
أ = 1
ب = InStr(a, Str, <%) + 2
بينما ب> أ+1
ر = منتصف (شارع، أ، ب - أ -2)
t = استبدال (t، vbCrLf، {::vbcrlf})
t = استبدال (t، vbCr، {::vbcr})
ر = استبدال (ر،،)
tmp = tmp & htm = htm & & t & & vbCrLf
أ = InStr(b, Str, %/>) + 2
tmp = tmp & str_replace(^/s*=, Mid(Str, b, a - b -2), htm = htm & ) & vbCrLf
ب = InStr(a, Str, <%) + 2
ويند
ر = منتصف (شارع، أ)
t = استبدال (t، vbCrLf، {::vbcrlf})
t = استبدال (t، vbCr، {::vbcr})
ر = استبدال (ر،،)
tmp = tmp & htm = htm & & t & & vbCrLf
tmp = استبدال (tmp، Response.write، htm = htm &، 1، -1، 1)
tmp = استبدال (tmp، echo، htm = htm &، 1، -1، 1)
'تنفيذ (تمب)
تنفيذ العالمية (تمب)
htm = استبدال(htm, {::vbcrlf}, vbCrLf)
htm = استبدال (htm، {::vbcr}، vbCr)
ob_get_contents = htm
وظيفة النهاية
'العملية: تضمين الملفات ديناميكيًا
تضمين فرعي (المسار)
صدى ob_get_contents (المسار)
نهاية الفرعية
'الوظيفة: تشفير Base64
وظيفة base64encode (byval Str)
إذا كان IsNull(Str) ثم اخرج من الوظيفة
قاعدة خافتة64
تعيين base64 = جديد base64_class
Str = base64.encode(Str)
تعيين base64 = لا شيء
base64encode = Str
وظيفة النهاية
'الوظيفة: فك تشفير Base64
الدالة base64decode(byvalStr)
إذا كان IsNull(Str) ثم اخرج من الوظيفة
قاعدة خافتة64
تعيين base64 = جديد base64_class
Str = base64.decode(Str)
تعيين base64 = لا شيء
base64decode = Str
وظيفة النهاية
'الوظيفة: تشفير URL
وظيفة urlencode (byvalStr)
إذا كان IsNull(Str) ثم اخرج من الوظيفة
Str = server.URLEncode(Str)
كود urlencode = Str
وظيفة النهاية
'الوظيفة: الهروب من التشفير
الهروب من الوظيفة (شارع بيفال)
إذا كان IsNull(Str) ثم اخرج من الوظيفة
خافت ط، ج، أ، تمب
تمب=
لأني = 1 إلى لين (ستر)
ج = منتصف (شارع، ط، 1)
أ = أسكو (ج)
إذا كانت (a>= 48 و a<= 57) أو (a>= 65 و a<= 90) أو (a>= 97 و a<= 122) إذن
تمة = تمة&c
ElseIf InStr(@*_+-./, c) > 0 ثم
تمة = تمة&c
ElseIf a>0 وa<16 ثم
tmp = tmp & %0 & Hex(a)
ElseIf a>= 16 و a<256 ثم
tmp = tmp & % & Hex(a)
آخر
tmp = tmp & %u & Hex(a)
نهاية إذا
التالي
escape=tmp
وظيفة النهاية
'الوظيفة: الهروب من فك التشفير
وظيفة إلغاء الهروب (byval Str)
إذا كان IsNull(Str) ثم اخرج من الوظيفة
خافت ط، ج، تمب
تمب=
لأني = 1 إلى لين (ستر)
ج = منتصف (شارع، ط، 1)
إذا كان Mid(Str, i, 2) = %u وi<= Len(Str) -5 إذن
إذا كان IsNumeric(&H & Mid(Str, i + 2, 4)) إذن
tmp = tmp & chrw(CInt(&H & Mid(Str, i + 2, 4)))
ط = ط + 5
آخر
تمة = تمة&c
نهاية إذا
ElseIf c = % وi<= Len(Str) -2 إذن
إذا كان IsNumeric(&H & Mid(Str, i + 1, 2)) إذن
tmp = tmp & chrw(CInt(&H & Mid(Str, i + 1, 2)))
ط = ط + 2
آخر
تمة = تمة&c
نهاية إذا
آخر
تمة = تمة&c
نهاية إذا
التالي
unescape = tmp
وظيفة النهاية