<%
Rem ################################################# ## ####################
Rem ## Sembunyikan waktu eksekusi
Sub s__HideTimeOver()
Redupkan TimeOver
tTimeOver = FormatNumber((Timer() - tStartTime) * 1000, 3, benar)
respon.Write(vbCrLf & "<!--Waktu eksekusi: " & tTimeOver & " milidetik-->")
Akhiri Sub
Rem ################################################# ## ####################
Rem ################################################# ## ####################
Rem ## Buka koneksi database
fungsi f__OpenConn()
Konsentrasi redup
connstr = "Penyedia=Microsoft.Jet.OLEDB.4.0;Sumber Data="
koneksi = koneksi & Server.MapPath(GBL__STR_DB_PATH)
Setel samb = Server.CreateObject("Adodb.Connection")
koneksi.buka koneksi
Fungsi akhir
Rem ################################################# ## ###################
Rem ############################ ### #########################################
Rem ## Tutup koneksi database
fungsi f__CloseConn()
Jika IsObject(sambungan) Lalu
Setel samb = tidak ada
Akhiri Jika
Fungsi akhir
Rem ################################################# ## ####################
Rem ################################################# ## ####################
Rem ## Konversi HTML
fungsi keHtml(str)
Hasil Redup
Hasil = str & ""
Hasil = ganti(Hasil, ">", ">")
Hasil = ganti(Hasil, "<", "<")
Hasil = ganti(Hasil, " ", " ")
Hasil = ganti(Hasil, """", """)
Hasil = ganti(Hasil, CHR(13), "")
Hasil = ganti(Hasil, CHR(10), "<br>")
Hasil = ganti(Hasil, CHR(39), "'")
toHtml = Hasil
Fungsi akhir
Rem ################################################# ## ####################
Rem ################################################# ## ####################
Rem ## konversi bilangan bulat panjang
fungsi toLng(strNum, Default)
Hasil Redup
Jika strNum <> "" Dan IsNumeric(strNum) Lalu
Hasil = CLng(strNum)
Kalau tidak
toNum = Default
Akhiri Jika
toLng = Hasil
Fungsi akhir
Rem ################################################# ## ####################
http://bizhi.downcodes.com/
Rem ################################################# ## ####################
Rem ## Konversi jenis mata uang
fungsi toCur(strNum, Default)
Hasil Redup
Jika strNum <> "" Dan IsNumeric(strNum) Lalu
Hasil = CCur(strNum)
Kalau tidak
toNum = Default
Akhiri Jika
toCur = Hasil
Fungsi akhir
Rem ################################################# ## ####################
Rem ################################################# ## ####################
Rem ## pengkodean pengganti SQL
fungsi keSqlr(str)
str = str & ""
str = ganti(str, "'", "")
str = ganti(str, """", "")
keSqlr = str
Fungsi akhir
Rem ################################################# ## ###################
Rem ############################ ### #########################################
Rem ## pengkodean SQL
fungsi keSql(str)
str = str & ""
str = ganti(str, "'", "''")
toSql = str
Fungsi akhir
Rem ################################################# ## ###################
Rem ############################ ### #########################################
Rem ## Ubah suatu angka menjadi sejumlah digit tetap, dan isi digit yang hilang dengan 0
fungsi ConvertNumber (strNum)
strNum = strNum & ""
Redupkan iLen, iMaxL, iLdiv, Hasil
iLen = Len(strNum)
iMaxL=8
iLdiv = iMaxL - iLen
Hasil = string(iLdiv, "0") & strNum
ConvertNumber = Hasil
Fungsi akhir
Rem ################################################# ## ####################
%>