<!-- METADATA
JENIS=typelib
FILE=C:/Program Files/File Umum/Sistem/ADO/msado20.tlb
-->
<%@ Bahasa=VBScript %>
<%Opsi Eksplisit%>
<%
'Menambahkan file
%>
<!-- #include virtual|file=File yang akan disertakan-->
<%
'Pernyataan hak cipta kode:
' ===== = ========
'File: nama file.asp
'Versi: 1.0
'Tanggal:
' Naskah Ditulis oleh Tommy xiao
' Keterangan:
'
'Revisi:
'Tanggal:
' Pengarang:
' Keterangan:
' ===== = ========
' Hak Cipta (C) 2003 Asiagame.Com. Semua hak dilindungi undang-undang.
' Web: http://www.advancededu.com
' Butuh bantuan? Hubungi: [email protected]
' ===== = ========
%>
<%
'Kode mekanisme toleransi kesalahan
'--------------------------------
DIMNDEBUG_MSG
NDEBUG_MSG=SALAH
JIKA NDEBUG_MSG = BENAR MAKA
'Kesalahan pemfilteran
PADA EROR RESUME BERIKUTNYA
AKHIR JIKA
'Deklarasi variabel dan area definisi
'Varian kesalahan Boolean
Redupkan BlnFounderr,sErrmsg
BlnFounderr = SALAH
'Memicu pesan kesalahan
'sErrmsg=sErrmsg+<br>+<li>Informasi yang Anda perlukan tidak ditemukan, selamat menggunakan.
'BlnFounderr = BENAR
Redupkan objek ADO oConn,oRs,SQL
'Set oConn = Server.CreateObject (ADODB.Connection)
'oConn.Buka Aplikasi (sambunganStr)
'Area definisi transaksi
'Kesalahan keluaran
Jika BlnFounderr = BENAR Maka
mKesalahan()
Akhiri Jika
'Fungsi, area definisi Proc
Fungsi KesepakatanInput(exp1)
dim exp2 'Filter input untuk karakter yang tidak valid
exp2=Ganti(exp1,<,<)
exp2=Ganti(exp2,>,>)
exp2=Ganti(exp2,','')
exp2=Ganti(exp2,&,&)
Masukan Transaksi=exp2
Fungsi Akhir
Fungsi CloseDatabase ' CloseDatabase
oConn.tutup
Setel oConn = Tidak Ada
Fungsi Akhir
sub mError()
'Respon.Tulis sErrmsg&silakan hubungi administrator sistem.
respon.tulis <html> & vbCrLf
respon.tulis <head> & vbCrLf
respon.write <title>situs xxx--manajemen latar belakang WEB</title> & vbCrLf
respon.tulis <meta NAME=GENERATOR Content=Microsoft Visual Studio 6.0> & vbCrLf
respon.tulis <link rel=stylesheet type=teks/css href=css/index.css> & vbCrLf
respon.tulis <script type=text/javascript src=js/fx.js></script> & vbCrLf
respon.tulis <script type=text/javascript src=js/cooltool.js></script> & vbCrLf
respon.tulis & vbCrLf
respon.tulis </head> & vbCrLf
respon.tulis & vbCrLf
respon.tulis <body> & vbCrLf
respon.tulis <tabel cellpadding=0 spasi sel=0 batas=0 lebar=95% bgcolor=#777777 align=center> & vbCrLf
respon.tulis <tr> & vbCrLf
respon.tulis <td> & vbCrLf
respon.tulis <tabel cellpadding=3 spasi sel=1 batas=0 lebar=100%> & vbCrLf
respon.tulis <tr align=center> & vbCrLf
respon.write <td width=100% bgcolor=#EEEEEE>Pesan kesalahan operasi manajemen internal</td> & vbCrLf
respon.tulis </tr> & vbCrLf
respon.tulis <tr> & vbCrLf
respon.write <td width=100% bgcolor=#FFFFFF><b>Kemungkinan penyebab kesalahan:</b><br><br> & vbCrLf
respon.write <li>Harap menghubungi administrator sesegera mungkin untuk mendapatkan bantuan yang sesuai. </a> & vbCrLf
respon.tulis sErrmsg & vbCrLf
respon.tulis </td> & vbCrLf
respon.tulis </tr> & vbCrLf
respon.tulis <tr align=center> & vbCrLf
respon.tulis <td lebar=100% bgcolor=#EEEEEE> & vbCrLf
respon.tulis <a href=javascript:history.go(-1)> << Kembali ke halaman sebelumnya</a> & vbCrLf
respon.tulis </td> & vbCrLf
respon.tulis </tr> & vbCrLf
respon.tulis </tabel> </td></tr></tabel> & vbCrLf
respon.tulis </body> & vbCrLf
respon.tulis </html>
sub akhir
%>