مقيد بواسطة <!#inswerfile = "filename.asp"-> Macro
يجب أن يكون الملف موجودًا وسيتم تجميعه (بغض النظر عما إذا كانت الشروط سبقها)
غالبًا ما تكون هناك مثل هذه المتطلبات ، بما في ذلك الملفات المختلفة وفقًا لمتطلبات مختلفة
إذا كانت إعدادات كل فرد مختلفة ، فيجب تضمين الملفات ديناميكيًا.
الرمز كما يلي:
وظيفة (اسم الملف)
dimre ، المحتوى ، fso ، f ، aspstart ، asepend
setfso = createObject ("scripting.filesystemObject")
setf = fso.opentextFile (server.mappath (اسم الملف))
المحتوى = F.Readall
F.Close
setf = لا شيء
setfso = لا شيء
setre = newregexp
re.pattern = "^/s*="
aspend = 1
aspstart = instr (aspend ، المحتوى ، "<٪")+2
dowhileaspstart> aspend+1
استجابة. writemid (المحتوى ، aspend ، aspstart-append-2)
aspend = instr (aspstart ، المحتوى ، "٪/>")+2
Execute (RE.Replace (Mid (Content ، Aspstart ، Aspend-Aspstart-2) ، "desponse.write")))
aspstart = instr (aspend ، المحتوى ، "<٪")+2
حلقة
استجابة. writemid (المحتوى ، asepend)
setre = لا شيء
الوظيفية
مثال على الاستخدام:
تضمين ("youinc.asp")