ASP: สร้างฟังก์ชั่นหน้าคงที่

การคัดลอกรหัสมีดังนี้:

-

ifsavefile ("/htm/list.htm", "http://www.xxx.com/asp/list.asp")

Response.write "สร้าง"

อื่น

Response.write "ไม่ได้สร้าง"

endif

FunctionSaveFile (LocalFileName, RemoteFileUrl)

dimads, retrieval, getremotedata

onerrorresumenext

setRetrieval = server.createObject ("microso" & "ft.xm" & "lhttp")

เกี่ยวกับการแก้ไข

.Open "Get", Remotefileurl, False, "", ""

.ส่ง

getRemotedata = .ResponseBody

จบลงด้วย

setRetrieval = ไม่มีอะไร

setAds = server.createObject ("ADO" & "DB.STR" & "EAM")

ด้วย

.Type = 1

.เปิด

.writegetRemotedata

.savetofileserver.mappath (Localfilename), 2, 2

.ยกเลิก()

.ปิด()

จบลงด้วย

setads = ไม่มีอะไร

iferr <> 0 แล้ว

saveFile = false

err.lear

อื่น

saveFile = true

endif

endfunction

-

บทความที่อาจเป็นที่สนใจของคุณ:

ASP สร้าง HTML วิธีใหม่ ASP Paging สร้างรหัสสคริปต์โปรแกรม HTML ใช้ส่วนประกอบ FSO ใน ASP เพื่อสร้างหน้า HTML ASP สร้างวิธี HTML Methods ASP News, paginate บทความที่ยาวเกินไปสร้างหน้าคงที่ FSO ASP สร้างรหัส HTML แบบคงที่สร้างไฟล์ HTML แบบคงที่ HTML หน้าคงที่โดยไม่มีเทมเพลตใน ASP