Set Fungsi Operasi File Asp

Direkomendasikan: Tip Pengaturan ASP untuk Menggunakan FckEditor
1. Buka file fckconfig.js dalam bahasa default (relatif ke folder fckeditor, sama di bawah), ubah bahasa deteksi otomatis menjadi non-deteksi, dan ubah bahasa default menjadi Cina yang disederhanakan: kode program fckconfig.autodetectLanguage = false; Fckconfig.defaultLanguage = 'zh-cn'; 2. Buka file fckconfig.js di daftar font, dalam daftar font

<% '===================================================================

'Disusun oleh: Zhang Hui

Kode Programmer: WJ008

'Waktu Kompilasi: 1 Juni 2008

'Ikuti alamat: www.wj008.net

'Semua alamat file yang digunakan oleh fungsi menggunakan alamat absolut

'==========================================================================================================================================================================

'LoadFile (file BYVAL) memuat file yang ada dan menghasilkan string untuk mengembalikan konten file.

'Savetofile (byval strbody, file byval) simpan file yang diubah, strbody adalah string baru

'Delfile (file Byval) Hapus file yang ada

'Muat file yang ada, file adalah jalur file

'-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Function LoadFile (file BYVAL)

Redup objstream

Pada kesalahan resume berikutnya

Set ObjStream = Server.CreateObject (adodb.stream)

Jika err.number = -2147221005 maka

Response.write Sayangnya, host Anda tidak mendukung adodb.stream dan tidak dapat menggunakan program ini

Err.clear

Respons.end

Akhiri jika

Dengan objstream

.Type = 2

.Mode = 3

.Membuka

File .LoadFromFile

Jika err.number <> 0 lalu

Response.Write File & File & tidak dapat dibuka, silakan periksa apakah ada!

Err.clear

Respons.end

Akhiri jika

.Charset = GB2312

.Posisi = 2

LoadFile = .readtext

.Menutup

Berakhir dengan

Atur objstream = tidak ada

Fungsi akhir

'-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Function savetofile (byval strbody, byval file) 'simpan file terbuka, file adalah jalur file yang disimpan, strbody adalah konten yang disimpan

Redup objstream

Pada kesalahan resume berikutnya

Set ObjStream = Server.CreateObject (adodb.stream)

Jika err.number = -2147221005 maka

Response.write <div align = 'center'> Sayangnya, host Anda tidak mendukung adodb.stream, dan Anda tidak dapat menggunakan program ini </div>

Err.clear

Respons.end

Akhiri jika

Dengan objstream

.Type = 2

.Membuka

.Charset = GB2312

.Posisi = objstream.size

.Writetext = strbody

File .savetofile, 2

.Menutup

Berakhir dengan

Atur objstream = tidak ada

Fungsi akhir

'-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Fungsi delfile (file byval)

Redup objfilesys

Pada kesalahan resume berikutnya

Set ObjFilesys = Server.CreateObject (Scripting.FilesystemObject)

Jika ObjFilesys.FileExists (File) maka 'Jika ada file, hapus file sebagai jalur file

File ObjFileSys.DeleteFile

Akhiri jika

Jika err.number <> 0 lalu

Response.Write File & File & tidak dapat dihapus, file mungkin digunakan oleh sistem!

Err.clear

Respons.end

Akhiri jika

Atur objfilesys = tidak ada

Fungsi akhir

'Periksa apakah ada file

Function CheckFile (SFilename)

Checkfile = false

Redup objfilesys

Pada kesalahan resume berikutnya

Set ObjFilesys = Server.CreateObject (Scripting.FilesystemObject)

Jika ObjFilesys.FileExists (SFileName) maka 'Jika file ada, hapus file sebagai jalur file

Checkfile = true

Akhiri jika

Atur objfilesys = tidak ada

Fungsi akhir

'Periksa apakah ada folder

Function Checkfolder (chk_path)

atur fso = server.createObject (scripting.filesystemObject)

jika fso.folderexists (chk_path) = false maka

Checkfolder = false

kalau tidak

Checkfolder = true

akhiri jika

Fungsi akhir

'Dapatkan nama file sufiks

function getFileExt (sfilename)

GetFileExt = uCase (mid (sfilename, instrrev (sfilename ,.)+1))

Fungsi akhir

'********************************************************

Fungsi: Asp mengunggah kerentanan/0 perlindungan

'Nama fungsi: Truestr (Filetrue)

'Parameter: nama file sfilename

'Nilai Pengembalian: Pengembalian Benar untuk File Hukum, jika tidak, Kembalikan False

'********************************************************

Fungsi isTruefileName (SFileName)

redup str_len, pos

str_len = len (sfilename)

POS = Instr (SFileName, Chr (0))

Jika pos = 0 atau pos = str_len maka

IsTruefileName = true

kalau tidak

IsTruefileName = false

Akhiri jika

Fungsi akhir

'********************************************************

'Fungsi: Deteksi apakah file gambar yang diunggah (jpeg, gif, bmp, png) benar -benar gambar

'Nama fungsi: Truestr (Filetrue)

'Parameter: Nama File SFilename (di sini nama file adalah jalur lengkap fisik folder)

'Nilai pengembalian: Jika memang merupakan file gambar, itu akan mengembalikan true, jika tidak, ia akan mengembalikan false

'********************************************************

Fungsi isimgfile (sfilename)

const adtypeBinary = 1

redup kembali

DIM JPG (1): jpg (0) = cbyte (& hff): jpg (1) = cbyte (& hd8)

DIM BMP (1): BMP (0) = CBYTE (& H42): BMP (1) = CBYTE (& H4D)

Dim Png (3): png (0) = cbyte (& h89): png (1) = cbyte (& h50): png (2) = cbyte (& h4e): png (3) = cbyte (& h47)

Dim gif (5): gif (0) = cbyte (& h47): gif (1) = cbyte (& h49): gif (2) = cbyte (& h46): gif (3) = cbyte (& h39): gif (4) = cbyte (& h38): gif (5) = cby (4) = cbyte (& h38): gif (5) = cby (4) = cbyte (& h38): gif (5) = cby (4) = cbyte (& h38): gif (5)

pada kesalahan resume berikutnya

Bagikan: Antarmuka Basis Data untuk Versi ASP Nama Domain
% on error resume next PRivate d_exsit Dim Retrieval Dim Domain Dim TakenHTML Function GetURL(url) Set Retrieval = Server.CreateObject(Microsoft.xmlHTTP) With Retrieval .Open GET, url, False, , .Send GetURL = .ResponseText End With Set Retrieval = N