نظرًا لقيود <!#includefile = "filename.asp"-> ، يجب أن يكون الملف موجودًا وسيتم تجهيزه (بغض النظر عما إذا كانت الشروط قد تم تطبيقها مسبقًا)
غالبًا ما تكون هناك مثل هذه المتطلبات. مطلوب ملفات مختلفة لتضمينها وفقًا للاحتياجات المختلفة ، مثل الإعدادات المختلفة لكل فرد ، وبالتالي فإن المتطلبات لتضمين الملفات بشكل ديناميكي.
الرمز كما يلي:
نسخة الكود كما يلي:
وظيفة (اسم الملف)
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")