Direkomendasikan: Kumpulan fungsi yang berguna dalam pengembangan ASP (3) Kumpulan fungsi yang berguna dalam pengembangan ASP cukup berguna, harap simpan! '*************************************' Slice Content-split dengan baris '************************** Fungsi splitlines (konten byval, byval contentnums) redup ts, i, l contentnums = int (
Kumpulan fungsi yang berguna dalam pengembangan ASP cukup berguna, harap simpan!
'**************************************
'Filter hyperlink
'**************************************
Function checkUrl (byval chkstr)
Redup str: str = chkstr
str = trim (str)
Jika isnull (str) lalu
checkUrl =
Fungsi keluar
Akhiri jika
Redup re
Setel RE = RegExp baru
re.ignorecase = true
re.global = true
re.pattern = (d) (ocument/.cookie)
Str = re.replace (str, cookie 1ocument)
re.pattern = (d) (ocument/.write)
Str = re.replace (str, 1ocument write)
re.pattern = (s) (skrip :)
Str = re.replace (str, 1script)
re.pattern = (s) (skrip)
Str = re.replace (str, 1script)
re.pattern = (o) (bject)
Str = re.replace (str, 1bject)
re.pattern = (a) (pplet)
Str = re.replace (str, 1pplet)
re.pattern = (e) (mbed)
Str = re.replace (str, 1mbed)
Atur re = tidak ada
Str = ganti (str,>,>)
Str = ganti (str, <, <)
checkUrl = str
fungsi akhir
'**************************************
'Filter Nama File
'**************************************
Function FixName (UpFileExt)
Jika isempty (upfileext) maka fungsi keluar
Fixname = ucase (upfilext)
Fixname = ganti (fixname, chr (0),)
Fixname = ganti (fixname ,.,)
Fixname = ganti (fixname, asp,)
Fixname = ganti (fixname, asa,)
Fixname = ganti (fixname, aspx,)
Fixname = ganti (fixname, cer,)
Fixname = ganti (fixname, cdx,)
Fixname = ganti (fixname, htr,)
Fungsi akhir
'**************************************
'Filter Karakter Khusus
'**************************************
Function Checkstr (BYVAL CHKSTR)
Redup str: str = chkstr
Jika isnull (str) lalu
Checkstr =
Fungsi keluar
Akhiri jika
Str = ganti (str, &, &)
Str = ganti (str, ',')
Str = ganti (str ,,)
Redup re
Setel RE = RegExp baru
re.ignorecase = true
re.global = true
re.pattern = (w) (di sini)
Str = re.replace (str, 1here)
re.pattern = (s) (terpilih)
Str = re.replace (str, 1 pilih)
re.pattern = (i) (nsert)
Str = re.replace (str, 1nsert)
re.pattern = (c) (reate)
Str = re.replace (str, 1reate)
re.pattern = (d) (rop)
Str = re.replace (str, 1rop)
re.pattern = (a) (lter)
Str = re.replace (str, 1lter)
re.pattern = (d) (elete)
Str = re.replace (str, 1elete)
re.pattern = (u) (pdate)
Str = re.replace (str, 1pDate)
re.pattern = (/s) (atau)
Str = re.replace (str, 1or)
Atur re = tidak ada
Checkstr = str
Fungsi akhir
'**************************************
'Kembalikan karakter khusus
'**************************************
Function unceckstr (byval str)
Jika isnull (str) lalu
Unceckstr =
Fungsi keluar
Akhiri jika
Str = ganti (str, ',')
Str = ganti (str ,,)
Redup re
Setel RE = RegExp baru
re.ignorecase = true
re.global = true
re.pattern = (w) (di sini)
str = re.replace (str, 1here)
re.pattern = (s) (terpilih)
str = re.replace (str, 1 pilih)
re.pattern = (i) (nsert)
str = re.replace (str, 1nsert)
re.pattern = (c) (reate)
str = re.replace (str, 1reate)
re.pattern = (d) (rop)
str = re.replace (str, 1rop)
re.pattern = (a) (lter)
str = re.replace (str, 1lter)
re.pattern = (d) (elete)
str = re.replace (str, 1elete)
re.pattern = (u) (pdate)
str = re.replace (str, 1pDate)
re.pattern = (/s) (atau)
Str = re.replace (str, 1or)
Atur re = tidak ada
Str = ganti (str, &, &)
Unceckstr = str
Fungsi akhir
'**************************************
'Konversi kode HTML
'**************************************
Fungsi htmlencode (ByVal Restring)
Redup str: str = pembatasan
Jika bukan isnull (str) maka
Str = ganti (str,>,>)
Str = ganti (str, <, <)
Str = ganti (str, chr (9),)
Str = ganti (str, chr (32),)
Str = ganti (str, chr (39), ')
Str = ganti (str, chr (34),)
Str = ganti (str, chr (13),)
Str = ganti (str, chr (10), <br/>)
Htmlencode = str
Akhiri jika
Fungsi akhir
'**************************************
'Kode HTML konversi terbalik
'**************************************
Fungsi htmldecode (ByVal Restring)
Redup str: str = pembatasan
Jika bukan isnull (str) maka
Str = ganti (str,>,>)
Str = ganti (str, <, <)
Str = ganti (str ,, chr (9))
Str = ganti (str ,, chr (32))
Str = ganti (str, ', chr (39))
Str = ganti (str ,, chr (34))
Str = ganti (str ,, chr (13))
Str = ganti (str, <br/>, chr (10))
Htmldecode = str
Akhiri jika
Fungsi akhir
'**************************************
'Pulihkan & Karakter
'**************************************
fungsi clearhtml (ByVal Restring)
Redup str: str = pembatasan
Jika bukan isnull (str) maka
Str = ganti (str, &, &)
Clearhtml = str
Akhiri jika
Fungsi akhir
'**************************************
'Filter TexTarea
'**************************************
Fungsi UBBFilter (ByVal Stringing)
Redup str: str = pembatasan
Jika bukan isnull (str) maka
Str = ganti (str, </textarea>, </textarea>)
Ubbfilter = str
Akhiri jika
Fungsi akhir
'**************************************
'Filter kode html
'**************************************
Fungsi EditDehtml (konten BYVAL)
Editdehtml = konten
Jika bukan isnull (editdehtml) lalu
Editdehtml = unceckstr (editdehtml)
Editdehtml = ganti (editdehtml, &, &)
Editdehtml = ganti (editdehtml, <, <)
Editdehtml = ganti (editdehtml,>,>)
Editdehtml = ganti (editdehtml, chr (34),)
Editdehtml = ganti (editdehtml, chr (39), ')
Akhiri jika
Fungsi akhir
'**************************************
'Fungsi Konversi Tanggal
'**************************************
Fungsi datetostr (datetime, showType)
Redup datemonth, dataDay, datehour, dateminute, dateweek, dateSecond
Redup fullweekday, shortweekday, fullmonth, shortmonth, timezone1, timezone2
Timezone1 =+0800
Timezone2 =+08: 00
FullWeekDay = Array (Minggu, Senin, Selasa, Rabu, Jumat, Sabtu)
Shortweekday = Array (Sun, Mon, Tue, Wed, Thu, Fri, Sat)
Fullmonth = Array (Januari, Februari, Maret, April, Mei, Juni, Juli, Agustus, September, Oktober, November, Desember)
Shortmonth = Array (Jan, Feb, Mar, Apr, Mei, Jun, Jul, Agustus, Sep, Okt, Nov, Desember)
Datemonth = bulan (datetime)
Dateday = hari (datetime)
DateHour = jam (datetime)
Dateminute = menit (datetime)
DateWeek = hari kerja (datetime)
DateSecond = Second (DateTime)
Jika len (datemonth) <2 maka datemonth = 0 & datemem
Jika len (tanggal) <2 maka tanggal = 0 & tanggal
Jika len (dateminute) <2 maka dateminute = 0 & dateminute
Pilih Case ShowType
Kasus YMD
DatetoStr = tahun (datetime)-& datemonth- & tanggal
Case ymd h: ia
Redup dateampm
Jika DateHour> 12 lalu
DETEHOUR = DateHour-12
DATEAMPM = PM
Kalau tidak
DETEHOUR = DETEHOUR
DATEAMPM = AM
Akhiri jika
Jika len (dateHour) <2 maka dateHour = 0 & dateHour
DatetoStr = tahun (datetime)-& datemonth- & tanggal & dateHour: & dateminute & dateampm
Case ymd h: i: s
Jika len (dateHour) <2 maka dateHour = 0 & dateHour
Jika len (DateSecond) <2 maka DateSecond = 0 & DateSecond
DatetoStr = tahun (datetime)-& datemonth- & tanggal & dateHour: & dateminute: & DateSecond
Kasus ymdhis
DateSecond = Second (DateTime)
Jika len (dateHour) <2 maka dateHour = 0 & dateHour
Jika len (DateSecond) <2 maka DateSecond = 0 & DateSecond
DatetoStr = tahun (datetime) & datemonth & dateday & dateHour & dateminute & dateSecond
Kasus ym
DatetoStr = kanan (tahun (datetime), 2) & datemonth
Kasus d
Datetostr = DateDay
Kasus YMD
DatetoStr = kanan (tahun (datetime), 4) & Datemonth & Dateday
Kasus mdy
Redup dayend
Pilih Case DateDay
Kasus 1
Dayend = st
Kasus 2
Dayend = nd
Kasus 3
Dayend = rd
Kasus lain
Dayend = th
Akhiri Pilih
DatetoStr = fullmonth (datemonth-1) & dateDay & dayend & right (tahun (datetime), 4)
Case W, DMY H: I: S.
DateSecond = Second (DateTime)
Jika len (dateHour) <2 maka dateHour = 0 & dateHour
Jika len (DateSecond) <2 maka DateSecond = 0 & DateSecond
DatetoStr = ShortweekDay (DateWeek-1), & Dateday & Left (Fullmonth (Datemonth-1), 3) & kanan (tahun (Datetime), 4) & DateHour: & Dateminute: & DateSecond & TimeZone1
Case ym-dth: i: s
Jika len (dateHour) <2 maka dateHour = 0 & dateHour
Jika len (DateSecond) <2 maka DateSecond = 0 & DateSecond
DatetoStr = tahun (datetime)-& datemonth- & dateDayt & dateHour: & dateminute: & DateSecond & timeZone2
Kasus lain
Jika len (dateHour) <2 maka dateHour = 0 & dateHour
DatetoStr = tahun (datetime)-& datemonth- & tanggal & dateHour: & dateminute
Akhiri Pilih
Fungsi akhir
'**************************************
'Fungsi pagination
'**************************************
redup pertama, jalan pintas
Firstshortcut = false
Multipage Fungsi (Angka, Perpage, Curpage, URL_ADD, Aname, Style)
Curpage = int (Curpage)
Angka = int (angka)
URL redup
Url = request.serverVariable (script_name) & url_add
Multipage =
Halaman redup, offset, pagei
'Jika int (angka)> int (saji) lalu
Halaman = 9
Offset = 4
Halaman redup, dari halaman, topage
Jika angka mod cint (saji) = 0 lalu
Halaman = int (angka/perpage)
Kalau tidak
Halaman = int (angka/perpage) +1
Akhiri jika
Frompage = Curpage-offset
Topage = Curpage+Page-offset-1
Jika halaman> halaman lalu
Frompage = 1
Topage = halaman
Kalau tidak
Jika dari Halaman <1 maka
Topage = Curpage+1-frompage
Frompage = 1
If (topage-frompage) <halaman dan (topage-frompage) <halaman lalu topage = halaman
Elseif Topage> halaman lalu
Frompage = Curpage-halaman +Topage
Topage = halaman
If (topage-frompage) <page dan (topage-frompage) <halaman lalu dariPage = halaman-halaman+1
Akhiri jika
Akhiri jika
Multipage = <div class = page style = & style> <ul>
'Jika Curpage <> 1 maka Multipage = Multipage & <Li Class = Pagel> <a href = & url & halaman = 1 class = pagelbutton title = halaman pertama> </a> </li>
Multipage = multipage <li class = pagenumber>
Jika Curpage <> 1 maka Multipage = Multipage <a href = & urlpage = 1 title = gaya halaman pertama = dekorasi teks: tidak ada> <</a> |
Jika tidak firstshortcut maka shortcut = accessKey =, selain shortcut =
Jika Curpage <> 1 maka Multipage = Multipage <a href = & urlpage = & Curpage-1 title = Pagestyle Sebelumnya = Teks-Dekorasi: Tidak Ada; & Shortcut> </a>
Untuk pagei = dari halaman untuk ditopang
Jika PageI <> Curpage maka
Multipage = multipage <a href = & urlpage = & pagei & aname> & pagei </a> |
Kalau tidak
Multipage = multipage <strong> & pagei </strong>
Jika PageI <> halaman maka multipage = multipage |
Akhiri jika
Berikutnya
Jika tidak FirstShortcut maka shortcut = AccessKey =. lain jalan pintas =
Jika Curpage <> halaman maka multipage = multipage <a href = & urlpage = & curpage+1 title = next pagestyle = Text-Decoration: None & Shortcut> </a>
Jika Curpage <> halaman maka multipage = multipage <a href = & urlpage = & halaman & judul aname = gaya halaman terakhir = Teks-Dekorasi: Tidak Ada >> </a>
Multipage = multipage </li>
'Jika int (halaman)> int (halaman) lalu
'Multipage = Multipage & <li> ... </li> <li> <a href = & url & halaman = & halaman & aname &> & halaman & </a> </li>
'Akhiri jika
'Jika Curpage <> halaman lalu multipage = multipage & <li class = pager> <a href = & url & halaman = & halaman & aname & class = pagerButton title = halaman terakhir> </a> </li>
Multipage = multipage </ul> </div>
'Akhiri jika
Firstshortcut = true
Fungsi akhir
Bagikan: Fungsi Umum ASP untuk menentukan apakah nilai database kosong Karena sifat yang berbeda dari berbagai bidang, metode untuk menentukan apakah bidang kosong juga berbeda. Berikut ini adalah fungsi umum, yang menghindari rasa sakit tipe lapangan. 'Periksa variabel bukan fungsi kosong isblank (byref tempvar)' secara default, anggap itu bukan blank isblank = false 'sekarang periksa dengan variabel t