Fungsi pemrosesan file ASP FSO

Komponen FSO di ASP sangat kuat. Jika Anda tidak memiliki fungsi ini, Anda tidak tahu seperti apa ASP. Faktanya, teman-teman yang ingin belajar pemrograman ASP pasti akan terpapar operasi terkait FSO. Saluran teknologi baru berikut akan memberi Anda koleksi lengkap fungsi pemrosesan file ASP FSO.

<%

'Buat fungsi folder

Parameter Function CreateFolder (Strfolder) 'adalah jalur relatif

'Pilihan pertama adalah menentukan apakah folder yang akan dibuat sudah ada

Redup strtestfolder, objfso

strtestfolder = server.mappath (strfolder)

Set ObjFSO = CreateObject ("Scripting.FilesystemObject")

'Periksa apakah ada folder

Jika tidak objfso.folderexists (strtestfolder)

'Jika tidak ada, buat folder

objfso.createFolder (strtestfolder)

Akhiri jika

Atur objfso = tidak ada

Fungsi akhir

'Hapus foldernya

Fungsi Delfolder (strfolder) 'Parameter adalah jalur relatif

strtestfolder = server.mappath (strfolder)

Set ObjFSO = CreateObject ("Scripting.FilesystemObject")

'Periksa apakah ada folder

Jika objfso.folderexists (strtestfolder) maka

Objfso.DeleteFolder (StrtestFolder)

akhiri jika

Atur objfso = tidak ada

Fungsi akhir

'Buat file teks

Parameter Function CreateTextFile (FileUrl, FileContent) adalah jalur relatif dan konten yang akan ditulis ke file

Set ObjFSO = Server.CreateObject ("Scripting.FilesystemObject")

Setel fout = objfso.createTextFile (server.mappath (fileurl))

Fout.WriteLine Filecontent

fout.close

Atur objfso = tidak ada

Fungsi akhir

'Hapus file (cocok untuk semua file)

Parameter fungsi deltextfile (fileurl) adalah jalur relatif

Set ObjFSO = CreateObject ("Scripting.FilesystemObject")

fileurl = server.mappath (fileurl)

Jika objfso.fileexists (FileUrl) lalu periksa apakah ada file

objfso.deleteFile (server.mappath (fileurl))

akhiri jika

Atur objfso = tidak ada

Fungsi akhir

'Buat file gambar dan simpan aliran data gambar

Function createImage (FileUrl, ImageContent) 'Parameter adalah jalur relatif dan konten file

Set ObjStream = Server.CreateObject ("AdodB.Stream") 'untuk membuat objek adodb.stream, ADO Versi 2.5 atau di atas harus dibuat

objstream.type = 1 'buka dalam mode biner

objstream.open

objstream.write imagecontent 'tulis konten string ke buffer

objstream.savetofile server.mappath (fileurl), 2 '-write konten buffered untuk file

objstream.close () 'Tutup objek

atur objstream = tidak ada

Fungsi akhir

'Dapatkan data file dari jarak jauh

Function getHttppage (URL)

'Pada kesalahan resume berikutnya

redup http

Setel http = server.createObject ("microsoft.xmlhttp")

Http.open "get", url, false

Http.send ()

Jika http.readystate <> 4 lalu

fungsi keluar

akhiri jika

getHttppage = bytestoBstr (http.responseBody, "GB2312")

atur http = tidak ada

Jika err.number <> 0 lalu

getHttppage = "Server mendapat kesalahan konten file"

Err.clear

Akhiri jika

Fungsi akhir

Fungsi bytestoBstr (body, cset)

redup objstream

Set ObjStream = Server.CreateObject ("AdodB.Stream")

objstream.type = 1

objstream.mode = 3

objstream.open

Objstream.write Body

objstream.position = 0

objstream.type = 2

objstream.charset = cset

BytestoBstr = objstream.readtext

objstream.close

atur objstream = tidak ada

Fungsi akhir

'Dapatkan aliran data gambar

Fungsi getpic (url)

pada kesalahan resume berikutnya

redup http

Setel http = server.CreateObject ("msxml2.xmlhttp") 'Gunakan metode xmlhttp untuk mendapatkan konten gambar

Http.open "get", url, false

Http.send ()

Jika http.readystate <> 4 lalu

fungsi keluar

akhiri jika

getpic = http.responseBody

atur http = tidak ada

Jika err.number <> 0 lalu

getpic = "Server mendapat kesalahan dalam mendapatkan konten file"

err.clear

Akhiri jika

Fungsi akhir

'Buka File (Formulir Teks)

Function OpenFile (FileUrl) 'File Relative Path

Nama file redup, fso, hndfile

FileName = FileUrl

FileName = server.mappath (nama file)

Set ObjFSO = CreateObject ("Scripting.FilesystemObject")

Jika objfso.fileexists (nama file) lalu

Setel hndfile = objfso.opentextFile (nama file)

OpenFile = hndfile.readall

Kalau tidak

OpenFile = "Kesalahan Baca File"

Akhiri jika

Atur hndfile = tidak ada

Atur objfso = tidak ada

Fungsi akhir

'Dapatkan nama akhiran file

fungsi getFileExtName (nama file)

redup pos

POS = instrrev (nama file, ".")

Jika pos> 0 lalu

getFileExtName = mid (nama file, pos+1)

kalau tidak

getFileExtName = ""

akhiri jika

fungsi akhir

%>

Di atas adalah kumpulan lengkap fungsi pemrosesan file ASP FSO yang diperkenalkan oleh editor Foxin Technology Channel. Saya percaya setiap orang memiliki pemahaman tertentu. Foxin Technology Channel akan berbagi lebih banyak pengetahuan dengan Anda, membuat Anda lebih baik dan lebih baik di industri ini.