เขียนรหัส HTML ลงในไฟล์แล้วสร้างไฟล์ในรูปแบบ. html
-
filename = test.htm
หากคำขอ (ร่างกาย) <> จากนั้น
ตั้งค่า fso = server.createObject (scripting.filesystemobject)
ตั้งค่า htmlwrite = fso.createtextfile (server.mappath (ชื่อไฟล์))
htmlwrite.write <Html> <head> <title> request.form (ชื่อ) </title> </head>
htmlwrite.write <body> เนื้อหาชื่อเอาท์พุท: request.form (ชื่อ) <br/> เนื้อหาร่างกายเอาท์พุท: request.form (body) </body> </html>
htmlwrite.close
ตั้งค่า fout = ไม่มีอะไร
ตั้งค่า fso = ไม่มีอะไร
สิ้นสุดถ้า
-
<form name = method method = post action =>
<ชื่ออินพุต = title value = title size = 26>
<br>
<textarea name = body> body </textarea>
<br>
<br>
<ประเภทอินพุต = ส่งชื่อ = ส่งค่า = สร้าง html>
</form>
2. อย่างไรก็ตามมันไม่สะดวกมากที่จะสร้างไฟล์ HTML ตามวิธีการข้างต้น ในการทำฟังก์ชั่นเทมเพลตให้สมบูรณ์
template.htm '// ไฟล์เทมเพลต
<html>
<head>
<title> $ title $ by jzxue.com </title>
</head>
<body>
$ body $
</body>
</html> testmplate.asp '// สร้าง html
-
Dim fso, htmlwrite
สลัว strtital, strcontent, strout
'// สร้างวัตถุระบบไฟล์
ตั้งค่า fso = server.createObject (scripting.filesystemobject)
'// เปิดไฟล์เทมเพลตเว็บและอ่านเนื้อหาเทมเพลต
ตั้งค่า htmlwrite = fso.opentextfile (server.mappath (template.htm)))
strout = f.readall
htmlwrite.close
strtital = ชื่อเว็บเพจที่สร้างขึ้น
strContent = เนื้อหาเว็บเพจที่สร้างขึ้น
'// ใช้เนื้อหาจริงเพื่อแทนที่เครื่องหมายในเทมเพลต
strout = แทนที่ (strout, $ title $, strtitle)
strout = แทนที่ (strout, $ body $, strcontent)
'// สร้างหน้าคงที่ที่จะสร้าง
ตั้งค่า htmlwrite = fso.createtextfile (server.mappath (test.htm), จริง)
'// เขียนลงในเนื้อหาเว็บ
htmlwrite.writeline strout
htmlwrite.close
Response.write สร้างความสำเร็จของหน้าคงที่!
'// ปล่อยวัตถุระบบไฟล์
ตั้งค่า htmlWrite = ไม่มีอะไร
ตั้งค่า fso = ไม่มีอะไร
-