หลายวิธีในการสร้าง HTML โดย ASP

บทความนี้บอกวิธีการหลายวิธีสำหรับ ASP ในการสร้าง HTML เพื่อนที่ต้องการมันสามารถอ้างถึงรายละเอียดของเนื้อหาด้านล่าง

วิธีที่ 1: FSO

ตั้งค่า fs = createObject ("Scripting.filesystemObject")

newFile = server.mappath ("/asp/chap06/at/newfile.html")

'สร้างไฟล์ใหม่/newfile.html หากไฟล์มีอยู่แล้วเขียนทับไฟล์

ตั้งค่า a = fs.createtextfile (newfile, true)

Response.write "ไฟล์ใหม่ถูกสร้างขึ้นแล้ว!"

a.lose

file = server.mappath ("newfile.html"))

set txt = fs.opentextfile (ไฟล์, 8, true) 'เปิดเป็นไฟล์ที่สามารถเขียนข้อมูลได้ในตอนท้าย

data1 = "ประโยคนี้เขียนโดยใช้วิธีการเขียน! ~~"

txt.writeline data1

data2 = "ประโยคนี้เขียนโดยใช้วิธีการเขียน! ~~"

txt.write data2

txt.close

วิธีที่ 2: xmlhttp

ตั้งค่า xml = server.createObject ("Microsoft.xmlhttp"))

'แทนที่ที่อยู่ต่อไปนี้ด้วยที่อยู่ไฟล์ของหน้าแรกของคุณ ตรวจสอบให้แน่ใจว่าใช้เส้นทางสัมบูรณ์เริ่มต้นด้วย http: // และคุณไม่สามารถเขียนเส้นทางสัมพัทธ์ได้

xml.open "get", "http://www.phpup.com", false

xml.send

bodytext = xml.responsebody

bodytext = bytestobstr (bodytext, "GB2312")

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

สลัว fso, myfile

ตั้งค่า fso = createObject ("Scripting.filesystemObject")

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

MyFile.WriteLine (BodyText)

myfile.close

อื่น:

1

ตัวอย่างต่อไปนี้คือสามไดนามิก: index.asp? id = 1/index.asp? id = 2/index.asp? id = 3/

หน้าสร้าง ndex1.htm, index2.htm, index3.htm ตามลำดับและอยู่ในไดเรกทอรีราก:

Dim strurl, item_classid, id, ชื่อไฟล์, filepath, do_url, html_temp

html_temp = "

-

สำหรับ i = 1 ถึง 3

html_temp = html_temp & "

• -

  item_classid = i

  filename = "index" & item_classid & ". htm"

  filePath = server.mappath ("/") & "/" & filename html_temp = html_temp & filepath & "

-

do_url = "http: //"

do_url = do_url & request.serverVariables ("server_name") & "/main/index.asp"

do_url = do_url & "? item_classid =" & item_classid

strurl = do_url

dim objxmlhttp

ตั้งค่า objxmlhttp = server.createObject ("microsoft.xmlhttp"))

objxmlhttp.open "get", strurl, false

objxmlhttp.send ()

สลัว binfiledata

binfiledata = objxmlhttp.responsebody

สลัว objadostream

ตั้งค่า objadostream = server.createObject ("adodb.stream"))

objadostream.type = 1

objadostream.open ()

objadostream.write (binfiledata)

objadostream.savetofile filepath, 2

objadostream.close ()

ต่อไป

html_temp = html_temp & "

-

-

Response.write ("ไฟล์ที่สร้างขึ้นสำเร็จ:")

Response.write ("

-

Response.write html_temp

-

ฟังก์ชั่น bytestobstr (body, cset)

สลัว objstream

ตั้งค่า objstream = server.createObject ("adodb.stream"))

objstream.type = 1

objstream.mode = 3

objstream.open

objstream.write ร่างกาย

objstream.position = 0

objstream.type = 2

objstream.charset = cset

bytestobstr = objstream.readText

objstream.close

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

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

-

2

templatefile สาธารณะ tmpdata

sub ofile () 'เปิดไฟล์และใส่เนื้อหาไฟล์ลงใน tmpData

เมื่อเกิดข้อผิดพลาดต่อไป

tmpdata = ""

ตั้งค่า assTream = server.createObject ("adodb.stream"))

assTream.type = 2'File Type Text

assTream.mode = 3 'อ่านและเขียน

assstream.open

ชุดอักขระ assTream.Charset = "GB2312"

assstream.loadfromfile (tempelateFile) 'โหลดจากไฟล์

assp = astream.size

ถ้า err.number0 แล้ว

xz = -18

Response.write TemplateFile & "

-

err.lear

tmpdata = ""

อื่น

tmpdata = astream.readtext (assp)

สิ้นสุดถ้า

สิ้นสุดย่อย

ย่อย save_file ()

OFILE ()

recfilen = server.mappath (DTS)

assstream.flush

assstream.close

assTream.type = 2

assTream.Mode = 3

assstream.open

assTream.Charset = "GB2312"

Assstream.position = 0

assTream.writeText tmpdata, 1'write data เพื่อสตรีม

assstream.savetofile Recfilen, 2'Save to file

สิ้นสุดย่อย

ฟังก์ชัน dts () 'สร้างชื่อไฟล์แบบสุ่ม

ถ้า len (เดือน (ตอนนี้ ()))> 1 แล้ว

mm = เดือน (ตอนนี้ ())

อื่น

mm = "0" & เดือน (ตอนนี้ ())

สิ้นสุดถ้า

ถ้า len (วัน (ตอนนี้ ()))> 1 แล้ว

d = วัน (ตอนนี้ ())

อื่น

d = "0" & day (ตอนนี้ ())

สิ้นสุดถ้า

ถ้า len (ชั่วโมง (ตอนนี้ ()))> 1 แล้ว

h = ชั่วโมง (ตอนนี้ ())

อื่น

h = "0" & ชั่วโมง (ตอนนี้ ())

สิ้นสุดถ้า

ถ้า len (นาที (ตอนนี้ ()))> 1 แล้ว

m = นาที (ตอนนี้ ())

อื่น

m = "0" & นาที (ตอนนี้ ())

สิ้นสุดถ้า

ถ้า len (วินาที (ตอนนี้ ()))> 1 แล้ว

s = วินาที (ตอนนี้ (ตอนนี้ ())

อื่น

s = "0" & วินาที (ตอนนี้ ())

สิ้นสุดถ้า

สุ่ม

Upperbound = 9999

ล่าง = 1,000

rds = int ((บน bound - ล่าง + 1) * rnd + ล่าง)

dts = "htm/" & ปี (ตอนนี้ ()) & mm & d & h & m & s & rds & ". htm"

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

title = request.form ("title")

content = request.form ("เนื้อหา")

tmpdata = แทนที่ (tmpdata, " ", title) 'เพื่อสนับสนุนการส่ง

tmpdata = แทนที่ (tmpdata, " ",เนื้อหา)

templateFile = server.mappath ("tempelate/1.htm") 'ไฟล์เทมเพลต

save_file ()

-

ข้างต้นเป็นวิธีการหลายวิธีในการสร้าง HTML โดย ASP ฉันเชื่อว่าคุณได้เรียนรู้เกี่ยวกับเรื่องนี้ สำหรับเนื้อหาที่เกี่ยวข้องเพิ่มเติมโปรดดำเนินการต่อเพื่อให้ความสนใจกับช่องเทคโนโลยี Wuxin