วิธีการสร้างหน้า HTML ASP Dynamic Pages

dim hughchiu_rtcode

ฟังก์ชั่น get_exe_code (ชื่อไฟล์)

DIM Execode

dim tmp_str

Dim re, re1, เนื้อหา, fso, f, aspstart, aspend

Dim MS, M

execode =

ตั้งค่า fso = createObject (scripting.filesystemobject)

ตั้งค่า f = fso.opentextfile (server.mappath (ชื่อไฟล์)))

content = f.readall

f.close

ตั้งค่า f = ไม่มีอะไร

ตั้งค่า fso = ไม่มีอะไร

ตั้งค่า re = ใหม่ regexp

re.ignorecase = true

re.global = true

re.pattern = <%@[^%]%>

content = re.replace (เนื้อหา,)

re.global = false

re.pattern = <!-s*#รวม*ไฟล์*= s*([^]) s*->

ทำ

ตั้งค่า ms = re.execute (เนื้อหา)

ถ้า Ms.Count <> 0 แล้ว

ตั้งค่า m = ms (0)

tmp_str = get_exe_code (m.submatches (0))

content = re.replace (เนื้อหา, tmp_str)

อื่น

ออก

สิ้นสุดถ้า

วง

ตั้งค่า m = ไม่มีอะไร

ตั้งค่า ms = ไม่มีอะไร

re.pattern =^s*=

Aspend = 1

ASPSTART = Instr (Aspend, เนื้อหา, <%) 2

ตั้งค่า re1 = ใหม่ regexp

re1.ignorecase = true

re1.global = false

re1.pattern = response.write (.)

ทำในขณะที่ Aspstart> Aspend 1

execode = execode & vbcrlf & hughchiu_rtcode = hughchiu_rtcode && แทนที่ (แทนที่ (mid (เนื้อหา, aspend, aspstart-aspend-2) ,,), vbcrlf,

& vbcrlf &) && vbcrlf

ASPEND = Instr (ASPSTART, เนื้อหา,%>) 2

TMP_STR = MID (เนื้อหา, ASPSTART, ASPEND-ASPSTART-2)

ทำ

ตั้งค่า ms = re1.execute (tmp_str)

ถ้า Ms.Count <> 0 แล้ว

ตั้งค่า m = ms (0)

tmp_str = re1.replace (tmp_str, hughchiu_rtcode = hughchiu_rtcode && m.submatches (0))

อื่น

ออก

สิ้นสุดถ้า

วง

ตั้งค่า m = ไม่มีอะไร

ตั้งค่า ms = ไม่มีอะไร

execode = execode & re.replace (tmp_str, hughchiu_rtcode = hughchiu_rtcode &)

ASPSTART = Instr (Aspend, เนื้อหา, <%) 2

วง

ตั้งค่า re1 = ไม่มีอะไร

ตั้งค่า re = ไม่มีอะไร

execode = execode & vbcrlf & hughchiu_rtcode = hughchiu_rtcode && แทนที่ (แทนที่ (mid (เนื้อหา, aspend),), vbcrlf, & vbcrlf &)

&& vbcrlf

get_exe_code = <%& execode &%>

ฟังก์ชันสิ้นสุด

ฟังก์ชัน ASP2HTML (ชื่อไฟล์)

รหัสหรี่

code = แทนที่ (แทนที่ (แทนที่ (get_exe_code (ชื่อไฟล์), hughchiu_rtcode = hughchiu_rtcode && vbcrlf,), < %,), %>,)

'response.write (รหัส)

ดำเนินการ (รหัส)

'response.write (hughchiu_rtcode)

asp2html = hughchiu_rtcode

ฟังก์ชันสิ้นสุด

-

ตั้งค่า f = fso.createtextfile (server.mappath (youpage.htm), จริง)

F.WriteLine (ASP2HTML (youpage.asp))

f.close

ตั้งค่า f = ไม่มีอะไร

ตั้งค่า fso = ไม่มีอะไร