Direkomendasikan: Kiat untuk menggunakan untuk loop di ASP Artikel ini terutama berbagi tip untuk loop di ASP. Saya benar -benar tidak memperhatikannya. Saya berharap teman -teman yang memahami ASP dapat merujuknya.
<%
'=============================================
Daftar fungsi:
'1: Tetapkan koneksi koneksi database (DataBaseConnectSTST, DBType, Conn_Object)
'2: Lepaskan konklose basis data (Conn_Object)
'3: Cegah SQL Injection of SafeRequest (Paraname, Paratype)
'4: Format Tanggal Tanggal Format (DateStr, Datetype)
'5: Tampilkan pesan kesalahan showerr (errstr)
'6: Cari data spesifik dalam string kueri SelectSTST (ContentSTR, Patternstr, PatterNum)
'7: Saring karakter LEACH yang ditentukan (Contentstr, Badwords)
'8: Konten File Jarak Jauh Merayap Sambar (URLSTR)
'9: Pemrosesan Pengkodean Aliran Data BytestObstr (Body, CSET)
'10: Encode Cookies Codecookie (ContentSTR)
'11: Decode Cookies Decodecookie (ContentSTR)
'12: Periksa apakah sumber pengiriman data legal chkpost ()
'13: Enkripsi yang dipersonalisasi myencrypt (strpassword)
'14: nobuffer () dilarang di -cache di halaman ini
'15: Halaman Web Format Input Teks HTMLencode (FString)
'16: mencegat panjang string yang ditentukan dari kepala (dengan jumlah karakter) gottopic (strlen)
'17: Periksa kode verifikasi checkradompass (radompass)
'18: Hasilkan kode verifikasi getCode ()
'19: Dapatkan Versi Sistem Operasi Klien GetSystem ()
'20: Database Transaction ConnManage (Conn_Object)
'21: Quicksort (Rekursif) Quicksort (ARR, Low, High)
'22: Hubungkan elemen array dalam string spesifik arr_join (arr, karakter)
'23: Mengembalikan jumlah string yang dibagi dengan karakter split tertentu count_character (str, karakter)
'24: mencegat jumlah string yang ditentukan dalam string yang berisi splitter inter_str_by_character_num (str, karakter, start, num)
'25: Gunakan Stream untuk mengunduh File Downloadfile (Strfile)
'26: kembalikan pesan send_back (wordswords)
'27: Dapatkan pesan kesalahan get_err ()
'28: bertentangan dengan respons (konten)
'29: Simpan RemoteFile (LocalFileName, RemoteFileUrl)
'30: ...
Dim Language_arr (10)
language_arr (0) = Pengaturan parameter koneksi database salah!
language_arr (1) = Pengaturan parameter tipe koneksi database salah!
language_arr (2) = Koneksi database gagal!
language_arr (3) = nilai parameter ilegal!
language_arr (4) = Nilai parameter bukan format tanggal yang valid!
language_arr (5) = Operasi gagal!
language_arr (6) = kolom memiliki nama duplikat!
language_arr (7) = Nama kolom kosong!
language_arr (8) = Pembuatan folder kolom gagal!
language_arr (9) = Anda tidak memiliki izin ini!
'
'ID Fungsi: 1
Fungsi fungsi: Membangun koneksi ke database
'Waktu modifikasi:
'Parameter Penerus:
'Connectstr: String koneksi database
'ConnectType: Jenis kategori-numerik database, 0 adalah akses, 1 adalah MS SQL
'Nilai pengembalian:
'
Sub Connopen (DataBaseConnectSTST, DBType, Conn_Object)
Set Conn_Object = Server.CreateObject (AdodB.Connection)
Jika DataBaseConnectST = maka hubungi showerr (language_arr (0))
Jika dBtype = 0 lalu
Conn_object.open driver = {Microsoft Access Driver (*.mdb)}; dbq = & DataBaseConnectStrST
elseif dBtype = 1 lalu
Conn_object.open penyedia = sqloledb.1; & DatabaseConnectStr
kalau tidak
Call Showerr (language_arr (1))
akhiri jika
err.clear
akhir sub
'
'ID Fungsi: 2
'Fungsi: Putuskan sambungan database
'Waktu modifikasi:
'Parameter Penerus:
'Nilai pengembalian:
'
Sub Connclose (Conn_Object)
Conn_object.close
atur conn_object = tidak ada
Akhir sub
'
'ID Fungsi: 3
Fungsi fungsi: Cegah injeksi SQL
'Waktu modifikasi:
'Parameter Penerus:
'Paraname: Paraname-karakter
'Paratype: Paratype: Tipe tipe-numerik parameter (1 berarti bahwa parameter di atas adalah angka, dan 0 berarti bahwa parameter di atas adalah karakter)
'Nilai pengembalian:
'String yang difilter
'
Fungsi SafeRequest (paraname, paratype)
redup paravalue
paravalue = permintaan (paraname)
Pilih Paratype Case
Kasus 0
Paravalue = ganti (paravalue, ', [Sistem: 34])
Paravalue = ganti (paravalue, =, [Sistem: 61])
Kasus 1
Jika tidak isnumeric (paravalue) maka hubungi showerr (language_arr (3))
kasus -1
Jika tidak isnumeric (paravalue) maka hubungi showerr (language_arr (3))
Jika paravalue = maka paravalue = 0
kasus lain
if len (paravalue)> paratipe lalu hubungi showerr (language_arr (3))
Paravalue = ganti (paravalue, ', [Sistem: 34])
Paravalue = ganti (paravalue, =, [Sistem: 61])
Akhiri Pilih
SafeRequest = paravalue
Fungsi akhir
'=========================================' ID Fungsi: 4
'Fungsi Fungsi: Tanggal Format
'Waktu modifikasi:
'Parameter Penerus:
'DataStr: DataStr:
'Paratype: tipe tipe-numerik tanggal
'Nilai pengembalian:
'Tanggal yang diformat
Function dateFormat (dateStr, datetype)
Redup datatring
if isDate (dateStr) = false kemudian
Call Showerr (language_arr (4))
akhiri jika
Pilih case datetype
Kasus 1
DateString = Year (DateStr) &-& Month (DateStr) &-& Day (DataStr)
Kasus 2
DateString = Year (DateStr) &. & Month (DateStr) &. & Day (DataStr)
Kasus 3
DateString = Year (DateStr) &/& Month (DateStr) &/& Day (DataStr)
Kasus 4
DATESTRING = Bulan (DATEST) &/& Day (DATEST) &/& Year (DATEST)
Kasus 5
DATESTRING = DAY (DATEST) &/& BULAN (DATEST) &/& YEAR (DATEST)
Kasus 6
DATESTRING = Bulan (DATEST) &-& Day (DATEST) &-& YEAR (DATEST)
Kasus 7
DateString = Bulan (DATEST) &. & Day (DATEST) &. & Year (DATEST)
Kasus 8
DateString = Bulan (DATEST) &-& Day (DATEST)
Kasus 9
DateString = Bulan (DATEST) &/& Day (DATEST)
Kasus 10
DateString = Bulan (DATEST) &. & Day (DATEST)
Kasus 11
DATESTRING = Bulan (DATEST) & Bahasa_ARR (6) & Day (DATEST) & Language_arr (7)
Kasus 12
DateString = Day (DateStr) & Language_arr (7) & Hour (DateStr) & Language_arr (8)
Kasus 13
DateString = Day (DateStr) & Language_arr (7) & Hour (DateStr) & Language_arr (8)
Kasus 14
DateString = Hour (DateStr) & Language_arr (8) & Minute (DateStr) & Language_arr (9)
Kasus 15
DateString = Hour (DateStr) &: & Minute (DataStr)
Kasus 16
DateString = Year (DateStr) & Language_arr (5) & Bulan (DATEST) & Language_ARR (6) & hari (DATEST) & Language_ARR (7)
Kasus lain
DataString = DataString
Akhiri Pilih
DateFormat = DataString
Fungsi akhir
'
'ID Fungsi: 5
'Fungsi fungsi: prompt tampilan kesalahan
'Waktu modifikasi:
'Parameter Penerus:
'errstr: prompt kesalahan - tipe karakter
'Nilai pengembalian: kembali ke halaman pengiriman
'
Bagikan: Direktori Kolom Eweditor V3.8 Judul: ASP EWEDITOR V3.8 Kolom Direktori Kerentanan (Versi Lainnya Adalah Uji) File Kerentanan: Asp/Browse.asp Rentan terjadi: Sub initParam () stype = uCase (trim (request.querystring (type))) sstylename = riming (request.querystring (style)) scrusdir (trim.
2 halaman Total halaman sebelumnya halaman berikutnya