Tangkap dan simpan kode fungsi untuk kesalahan berjalan ASP. Teman yang perlu mendapatkan kesalahan berjalan kode asp dapat merujuk ke nama proses: catch(str)
Cara menggunakan:
Copy kode kodenya sebagai berikut:
pada kesalahan lanjutkan berikutnya
'Kode Anda, seperti koneksi database
call catch (pesan cepat ditampilkan kepada pengguna)
Fungsi: Menghapus pesan kesalahan IIS, menyesuaikan pesan kesalahan dan mengembalikannya ke pengguna, dan menyimpan pesan kesalahan ke file txt (tentu saja Anda juga dapat melakukan sedikit modifikasi untuk mengarahkan ke halaman khusus, dll.)
Kode:
Copy kode kodenya sebagai berikut:
<%
pilihan eksplisit
'Contoh 1 --------------------------
'Harus digunakan bersamaan dengan resume kesalahan berikutnya, tetapi yang terbaik adalah memberi komentar sebelum halaman web dirilis secara resmi, agar tidak melihat detail kesalahan selama debugging
pada kesalahan lanjutkan berikutnya
'i tidak ditentukan dan kesalahan akan terjadi. Gunakan catch untuk menghapus kesalahan dan simpan ke Notepad.
Saya
panggilan tangkap (halaman tidak dapat diakses)
'---------------------------------
'Contoh 2 ---------------------------
fungsikonn()
'Harus digunakan bersamaan dengan error resume berikutnya
pada kesalahan lanjutkan berikutnya
'.........kode Anda untuk terhubung ke database
panggilan tangkapan (kesalahan pembukaan basis data)
fungsi akhir
'---------------------------------
sub tangkapan(str)
jika err.number <> 0 maka
redup tmp, jalur
'Jalur absolut dari log kesalahan, seperti /error_log.txt
jalur = /tabel/error_log.txt
tmp = tmp & halaman kesalahan: & geturl & vbcrlf
tmp = tmp & waktu kesalahan: & sekarang() & vbcrlf
tmp = tmp & mengunjungi IP: & ip & vbcrlf
tmp = tmp & pesan cepat: & str & vbcrlf
tmp = tmp & kode kesalahan: & err.number & vbcrlf
tmp = tmp & pesan kesalahan: & err.deskripsi & vbcrlf
tmp = tmp & aplikasi: & err.source & vbcrlf & vbcrlf & vbcrlf
tmp = tmp & file_read(jalur)
panggil file_save(tmp,jalur,1)
err.hapus()
mati (str)
berakhir jika
sub akhir
'Berikut ini adalah fungsi yang digunakan oleh catch--------------------
sub gema(str)
respon.tulis(str)
sub akhir
subdie(str)
echo(str): respon.akhir()
sub akhir
fungsiip()
ip = permintaan.variabel server(remote_addr)
fungsi akhir
'Dapatkan URL saat ini
fungsi geturl()
redup tmp
jika lcase(request.servervariables(https)) = mati maka
tmp = http://
kalau tidak
tmp=https://
berakhir jika
tmp = tmp & permintaan.variabel server(nama_server)
jika request.servervariables(server_port) <> 80 maka
tmp = tmp & : & permintaan.variabel server(server_port)
berakhir jika
tmp = tmp & permintaan.variabel server(url)
jika trim(request.querystring) <> lalu
tmp = tmp & ? & potong(permintaan.queryString)
berakhir jika
geturl = tmp
fungsi akhir
'Fungsi: membaca konten file menjadi string
fungsi file_read(jalur)
redup tmp : tmp = salah
jika bukan file_exists(path) maka file_read = tmp : fungsi keluar
aliran redup : setel aliran = server.CreateObject(ADODB.Stream)
dengan aliran
.type = 2 'Jenis teks
.mode = 3 'Mode baca dan tulis
.charset = gb2312
.membuka
.loadfromfile(server.MapPath(jalur))
tmp = .bacateks()
diakhiri dengan
stream.close : setel aliran = tidak ada
file_baca = tmp
fungsi akhir
'Fungsi: menyimpan string ke file
fungsi file_save(str,jalur,model)
jika model<>0 dan model<>1 maka model=1
jika model=0 dan file_exists(path) maka file_save=true : keluar dari fungsi
aliran redup : setel aliran = server.CreateObject(ADODB.Stream)
dengan aliran
.type = 2 'Jenis teks
.charset = gb2312
.membuka
.writeteks str
.savetofile(server.MapPath(jalur)),model+1
diakhiri dengan
stream.close : setel aliran = tidak ada
file_save = file_exists(jalur)
fungsi akhir
'Fungsi: mendeteksi apakah file/folder itu ada
fungsi file_exists(jalur)
redup tmp : tmp = salah
redupkan fso : setel fso = server.CreateObject(Scripting.FilesyStemObject)
jika fso.fileexists(server.MapPath(path)) maka tmp = true
jika fso.folderexists(server.MapPath(path)) maka tmp = true
atur fso = tidak ada
file_exists = tmp
fungsi akhir
%>