จะสร้าง HTML ใน ASP ได้อย่างไร?

ต่อไปนี้เป็นเนื้อหาที่ยกมา:

-

'เมื่อหน้าเป้าหมายมีไฟล์เช่นหน้า #include มีปัญหากับโปรแกรมนี้

'หมายเหตุ: ไฟล์นี้จะต้องอยู่ในไดเรกทอรีเดียวกับไฟล์ที่ชี้ไปที่ 20041227111723.htm

dim hughchiu_rtcode

ฟังก์ชั่น get_exe_code (20041227111723.htm)

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 (20041227111723.htm)))

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*/#include/s*file/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 = การตอบสนอง/.write (.)

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

execode = execode & vbcrlf & hughchiu_rtcode = hughchiu_rtcode && แทนที่ (แทนที่ (กลาง (เนื้อหา, 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 (20041227111723.HTM)

รหัสหรี่

code = แทนที่ (แทนที่ (แทนที่ (get_exe_code (20041227111723.htm), hughchiu_rtcode = hughchiu_rtcode && vbcrlf,), < %,), %/>,)

'response.write (รหัส)

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

'response.write (hughchiu_rtcode)

asp2html = hughchiu_rtcode

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

-

ต่อไปนี้เป็นเนื้อหาที่ยกมา:

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

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

F.WriteLine (ASP2HTML (youpage.asp))

f.close

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

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