رمز فئة قالب ASP

موصى به: برنامج التقويم الذي أدلى به ASP
يمكن لبرنامج التقويم النقي الذي تم إنشاؤه من ASP أن يقوم بتجميله بنفسه ، ولا يتوفر سوى أبسط نمط CSS هنا. . . نمط الجسم {font-size: 12px ؛ الهامش: 20px 0 0 20px ؛ الحشو: 0} tr ، td {text-align: center ؛} /style ٪ '======================================================================= ========================================================================= ========================================================================= =========================================================================

قالب الفصل

m_filename الخاص ، m_root ، m_unknowns ، m_lasterror ، m_haltonerr

خاص m_valuelist ، m_blocklist

M_REGEXP الخاص

sub class_initialize الخاص

تعيين m_valuelist = createObject (scripting.dictionary)

تعيين m_blocklist = createObject (scripting.dictionary)

تعيين m_regexp = جديد regexp

m_RegExp.IgnoreCase = True

m_RegExp.Global = True

m_filename =

m_Root = .

m_Unknowns = remove

m_lasterror =

m_HaltOnErr = true

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

Private Sub Class_Terminate

Set m_RegExp = Nothing

Set m_BlockMatches = Nothing

تعيين m_valuematches = لا شيء

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

Public Property Get ClassName()

className = قالب

نهاية الملكية

Public Property Get Version()

Version = 1.0

نهاية الملكية

Function Function LoadFile (Byval Chartype)

اسم الملف الخافت ، FSO ، hndfile

Filename = m_Root

إذا كان صحيحًا (اسم الملف ، 1) <>/ واليمين (اسم الملف ، 1) <>/ ثم اسم الملف = اسم الملف و/

filename = server.mappath (اسم الملف و m_filename)

تعيين StreamObject = server.createBject (adodb.stream)

StreamObject.Type = 1

StreamObject.Mode = 3

StreamObject.Open

StreamObject.Position = 0

StreamObject.LoadFromFile Filename

StreamObject.Position = 0

StreamObject.Type = 2

StreamObject.CharSet = chartype

LoadFile = StreamObject.readtext()

إذا لم تتمكن loadfile = ثم لا يمكن تحميل الدش (0x11 <br> تحميل الملف و m_filename &!)

وظيفة نهاية

Private Sub ShowError(ByVal msg)

m_LastError = msg

استجابة. write <span style = font-size: 12px ؛ color: red> error id: & msg & </span>

If m_HaltOnErr Then Response.End

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

Public Sub set_root(ByVal Value)

m_Root = Value

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

Public Function get_root()

get_root = m_Root

وظيفة نهاية

Public Property Let Root(ByVal Value)

set_root(Value)

نهاية الملكية

Public Property Get Root()

Root = m_Root

نهاية الملكية

Sub Set_file العام (مقبض Byval ، اسم ملف Byval ، Byval Chartype)

m_FileName = filename

m_BlockList.Add Handle, LoadFile(chartype)

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

Public Function get_file()

get_file = m_FileName

وظيفة نهاية

Public Sub set_unknowns(ByVal unknowns)

m_Unknowns = unknowns

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

Public Function get_unknowns()

get_unknowns = m_unknowns

وظيفة نهاية

Public Property Let Unknowns(ByVal unknown)

m_Unknowns = unknown

نهاية الملكية

Public Property Get Unknowns()

Unknowns = m_Unknowns

نهاية الملكية

Sub Set_block العامة (Byval Parent ، Byval Blocktag ، اسم Byval)

Dim Matches

m_regexp.pattern = <!-/s+begin & blocktag & /s+->( Budap/S/S.

إذا لم يكن m_blocklist.exists (الوالد) ثم دش (0x12 <br> علامة كتلة غير محددة ووالد و!)

Set Matches = m_regexp.execute (m_blocklist.item (parent))

For Each Match In Matches

m_BlockList.Add BlockTag, Match.SubMatches(0)

m_blocklist.item (parent) = استبدال (m_blocklist.item (parent) ، match.value ، {& name &})

التالي

set Matches = nothing

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

Sub Set_var العام (اسم Byval ، Byval Value ، Byval Aspend)

Dim Val

If IsNull(Value) Then Val = Else Val = Value

If m_ValueList.Exists(Name) Then

إذا تم إلحاقها ثم m_valuelist.item (name) = m_valuelist.item (name) & val _

Else m_ValueList.Item(Name) = Val

آخر

m_ValueList.Add Name, Value

إنهاء إذا

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

Public Sub unset_var(ByVal Name)

إذا m_valuelist.exists (الاسم) ثم m_valuelist.remove (الاسم)

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

Private Function InstanceValue(ByVal BlockTag)

Dim keys, i

InstanceValue = m_BlockList.Item(BlockTag)

keys = m_ValueList.Keys

For i=0 To m_ValueList.Count-1

مثيل Value = استبدال (مثيل Value ، {& Keys (i) &} ، m_valuelist.item (Keys (i)))

التالي

وظيفة نهاية

Public Sub Party (اسم Byval ، Byval Blocktag ، Byval Aspend)

إذا لم يكن m_blocklist.exists (blocktag) ثم دش (0x12 <br> علامة كتلة غير محددة ووالد و!)

If m_ValueList.Exists(Name) Then

إذا تم إلحاقها ثم m_valuelist.item (name) = m_valuelist.item (name) & eastivalue (blocktag) _

آخر m_valuelist.item (الاسم) = مثيل Value (blocktag)

آخر

m_ValueList.Add Name, InstanceValue(BlockTag)

إنهاء إذا

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

Private Function finish(ByVal content)

Select Case m_Unknowns

Case keep finish = content

Case remove

m_RegExp.Pattern = /{[^ /t/r/n}]+/}

finish = m_RegExp.Replace(content, )

Case comment

m_RegExp.Pattern = /{([^ /t/r/n}]+)/}

الانتهاء = m_regexp.replace (المحتوى ، <!-متغير القالب $ 1 غير محدد->)

Case Else finish = content

نهاية الاختيار

وظيفة نهاية

Public Sub output(ByVal Name)

إذا لم يكن m_valuelist.exists (الاسم) ثم الدش (0x13 <br> لم يستطع العثور على علامة واسم &!)

Response.Write(finish(m_ValueList.Item(Name)))

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

End Class

分享：ASP Request对象的使用
يحتوي ASP بشكل أساسي على خمسة كائنات مدمجة: الخادم والطلب والاستجابة والتطبيق والجلسة. الآن دعنا نشرح لهم من خلال إعطاء أمثلة. 首先是最常使用的 استجابة 对象。 مثال 1 باستخدام استجابة لمستندات HTML للإخراج في صفحات الويب ، يمكنك إدخال الجيل أعلاه في محرر الصفحات الأمامية ، أو في مجالس الكتابة ، والمفتحة وغيرهم من الكتاب.