موصى به: برنامج التقويم الذي أدلى به 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 للإخراج في صفحات الويب ، يمكنك إدخال الجيل أعلاه في محرر الصفحات الأمامية ، أو في مجالس الكتابة ، والمفتحة وغيرهم من الكتاب.