ASP yang umum digunakan koleksi fungsi

Penulis：Eve Cole Waktu Pembaruan：2025-03-01 01:16:01

Cara OLEDB untuk membuka koneksi data SQL

Sub opensqlbyoledb

Pada kesalahan resume berikutnya

Set Conn = Server.CreateObject (AdodB.Connection)

Conn.Open Penyedia = SQLOLEDB.1;

Jika err.number <> 0 lalu

err.clear

Response.write (<div align = 'center'> database terhubung ke kesalahan, silakan hubungi administrator! </div>)

Response.end ()

Akhiri jika

Akhir sub

'Fungsi terkait operasi database

'*********************************************** ********************************************** ********************************************** ********************************************** ********************************************** **************, *************

'[Sub] OpenReadrs RS, SQL, Otype

'Fungsi: Buka jenis set data yang sesuai dan hanya membaca operasi

'parameter:

Koleksi RS RS RS

'Pernyataan SQL dieksekusi

Sub OpenReadrs (RS, SQL)

Jika tidak isObject (RS) maka

Set RS = Server.CreateObject (ADODB.OLDSET)

Rs.oopen Sql, Conn, 1,1

Akhiri jika

Akhir sub

'[Sub] OpenWriters RS, SQL

'Fungsi: Buka jenis dataset yang sesuai, Anda dapat menulis operasi

'parameter:

Koleksi RS RS RS

'Pernyataan SQL dieksekusi

Sub OpenWriters (RS, SQL)

Jika tidak isObject (RS) maka

Set RS = Server.CreateObject (ADODB.OLDSET)

Rs.oopen Sql, Conn, 1,3

Akhiri jika

Akhir sub

'[Sub] endrs Rs

'Fungsi: Tutup jenis set data yang sesuai

'parameter:

Koleksi RS RS RS

Sub endrs (RS)

Jika isObject (RS) lalu

Rs.close: set rs = tidak ada

Akhiri jika

Akhir sub

'[Sub] endconn

'Fungsi: Tutup Koneksi Basis Data

'Parameter: tidak ada

Sub endnn

Jika IsObject (Conn) maka

conn.close: atur conn = tidak ada

Akhiri jika

Akhir sub

'[Sub] execsql sql

'Fungsi: Jalankan Pernyataan SQL

'parameter:

'Pernyataan SQL dieksekusi

Sub execsql (sql)

Conn.execute (SQL)

Akhir sub

'[] Selectalone SQL

'Fungsi: kueri bidang tunggal

'parameter:

'Pernyataan SQL dieksekusi

'Return: Nilai Bidang Permintaan

Selectalone (SQL)

SELFALONERS DIM

Set selectAloners = const.execute (SQL)

SelectAlone = SelectAloners (0)

SelectAnoners Endrs

Akhir

'Fungsi terkait operasi string

'[] Issafestr Str

'Fungsi: Tentukan apakah itu string yang aman, gunakan di bidang khusus seperti pendaftaran dan login

'parameter:

'String str untuk dideteksi

'Return: true = Security, false = tidak aman

Issafestr (str)

Redup s_badstr, n, i

s_badstr = '& <>?%, ;: () ~!@#$^*{} [] |+-= & chr (34) & chr (9) & chr (32)

n = len (s_badstr)

Issafestr = true

Untuk i = 1 hingga n

If instr (str, mid (s_badstr, i, 1))> 0 lalu

Issafestr = false

KELUAR

Akhiri jika

Berikutnya

Akhir

'[] Htmltoencode str

Fungsi: Kode HTML

'parameter:

'Str perlu mengkodekan string

'Return: Code String

Htmltoencode (str) '

Jika bukan isnull (str) dan str <> lalu

str = ganti (str, &, & amp;)

str = ganti (str,>, & gt;)

str = ganti (str, <, & lt;)

Str = ganti (str, chr (32),)

str = ganti (str, chr (9), & nbsp;)

str = ganti (str, chr (34), & quot;)

Str = ganti (str, chr (39), ')

str = ganti (str, chr (13),)

Str = ganti (str ,, s cript)

Str = ganti (str,#115;, s)

HtmltoEncode = str

akhiri jika

Akhir

'[] Encodetohtml str

Fungsi: kode kode html

'parameter:

'Str perlu diberi kode string

'Return: string reverse -coded

Encodetohtml (str)

Jika bukan isnull (str) dan str <> lalu

str = ganti (str, & amp; ,, &)

str = ganti (str, & gt;,>)

str = ganti (str, & lt;, <)

Str = ganti (str ,, chr (32))

str = ganti (str, & nbsp;, chr (9))

Str = ganti (str, & quot ;, chr (34))

str = ganti (str,#39 ;, chr (39))

Str = ganti (str ,, chr (13))

str = ganti (str,#115; cript,)

Str = ganti (str,#115;, s)

Encodetohtml = str

akhiri jika

Akhir

'[] Gottopic str, strlen

'Fungsi: Uji panjang string strol, karakter Cina dihitung 2 panjang

'parameter:

'Str perlu dicegat

'Strlen Intercept Length

'Return: String setelah panjang panjang strlen

Gettopic (str, strlen)

Jika str = lalu

Gottopic =

KELUAR

akhiri jika

redup l, t, c, i

l = len (str)

T = 0

untuk i = 1 hingga l

C = abs (ASC (mid (str, i, 1))))))

Jika c> 255 maka

t = t+2

kalau tidak

t = t+1

akhiri jika

Jika t> = strlen maka

Gottopic = kiri (str, i) & ...

keluar untuk

kalau tidak

Gottopic = str

akhiri jika

Berikutnya

Akhir

'[] DateFormattime TVar, gaya

'Fungsi: pemformatan waktu

'parameter:

'Tvar perlu memformat string waktu

'Jenis pemformatan stype

'Return: Formatting Time String

DateFormatTime (tvar, gaya)

redup tt, syar, smnon, sday, shour, sminute, ssecond

Jika tidak isDate (tvar) maka dateFormatTime =: Exit

TT = TVAR

Syear = Year (TT)

Smonth = kanan (0 & bulan (TT), 2)

Sday = kanan (0 & hari (TT), 2)

Shour = kanan (0 & jam (TT), 2)

Sminute = kanan (0 & menit (TT), 2)

SSecond = Right (0 & Sex (TT), 2)

Pilih gaya case

Kasus 1'2006-3-13

DateFormatTime = Syear & -& Smonth & -& Sday

Kasus 2 '13 Maret 2006

DateFormatTime = Syear & Year & Smnth & Monthly & Sday & Day

Kasus 3 '2006031313120123

DateFormatTime = Syear & Smonth & Sday & Shour & Sminute & Ssecond

Kasus lain

DateFormatTime = TT

Akhiri Pilih

Akhir

'[] Isnum str

'Fungsi: apakah itu angka

'parameter:

'Str perlu menilai string

'Return: true = number, false = non -numbers

Isnum (str) '

Jika str <> dan isnumeric (str) maka

Isnum = true

kalau tidak

Isnum = false

akhiri jika

Akhir

'Output Debugging Fungsi Terkait

'[Sub] Mesgoback Str

'Fungsi: Pop Up Informasi dan Kembalikan

'parameter:

'Str perlu menilai string

Sub Mesgoback (STR)

Response.write (<language = 'java'> alert ('& str &'); history.back (); </>)

Response.end ()

Akhir sub

'[Sub] mesgourl str, url

'Fungsi: Pop Up Informasi dan Kembalikan

'parameter:

'Str perlu menilai string

Alamat lompatan URL

Submesgourl (str, url)

Response.write (<language = 'java'> alert ('& str &'); local.href = '& url &'; </>)

Response.end ()

Akhir sub

'[Sub] debug salah

'Fungsi: output debug

'parameter:

'Salah menginginkan informasi output

'Pengembalian: Tidak Ada Nilai Pengembalian

Sub Debug (Ingrong) 'Output Debug

Response.write (ing)

Response.end ()

Akhir sub

Fungsi -fungsi terkait fungsi

'[] Getip

'Fungsi: Dapatkan User IP

'parameter:

' tidak ada

'Return: User saat ini IP

Getip ()

Redup userip

userip = request.serverVariable (http_x_forwarded_for)

Jika userip = maka userip = request.serverVariable (remote_addr)

Getip = userip

Akhir

'[] geturl

Fungsi: Dapatkan nama domain saat ini

'parameter:

' tidak ada

'Return: nama domain saat ini

getUrl ()

getUrl = request.serverVariable (server_name)

Akhir