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
3 halaman total halaman sebelumnya 123 halaman berikutnya