Teman-teman yang menggunakan ASP untuk mengembangkan website dapat belajar dari fungsi ASP-nya untuk memfasilitasi pembelajaran dan meningkatkan efisiensi pengembangan . Salin kode sebagai berikut:
<%
'－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
'Tianfeng ASP class v1.0, mengintegrasikan fungsi asp umum menjadi satu
'Hak Cipta Tianfeng Dilindungi Undang-Undang
'QQ:76994859 EMAIL:[email protected]
'Semua nama fungsi adalah sebagai berikut:
' StrLength(str) mendapatkan panjang string
' CutStr(str,strlen) pemotongan panjang senar
' CheckIsEmpty(tstr) memeriksa apakah kosong
' isInteger(para) pengujian bilangan bulat
' PeriksaNama(str) pemeriksaan karakter nama
' Periksa Kata Sandi (str) pemeriksaan kata sandi
' PeriksaEmail(email) Periksa format email
'Alert(msg,goUrl) memunculkan prompt kotak dialog
' Pesan kesalahan GoBack(Str1,Str2,isback).
' Prompt pesan sukses operasi suc(str1,str2,url).
' ChkPost() mendeteksi apakah formulir dikirimkan di luar situs
' PSql() mencegah injeksi sql
' FiltrateHtmlCode(Str) mencegah pembuatan HTML
' Kode Html(str) memfilter HTML
'Gantihtml(tstr) HTML Bersih
'GetIP() Dapatkan IP klien
'GetBrowser Mendapatkan informasi browser klien
' GetSystem mendapatkan sistem operasi klien
'GetUrl() Mendapatkan URL halaman saat ini termasuk parameter
'CUrl() Dapatkan URL halaman saat ini
' GetExtend mendapatkan ekstensi file
' CheckExist(tabel,nama bidang,isi bidang,isblur) mendeteksi apakah konten bidang dalam tabel ada
' GetNum(table,fieldname,resulttype,args) mendeteksi berapa banyak field yang ada dalam tabel, nilai maksimum, nilai minimum, dll.
' GetFolderSize(Folderpath) menghitung ukuran folder
' GetFileSize(Nama File) menghitung ukuran file
' IsObjInstalled(strClassString) mendeteksi apakah komponen diinstal
'Kirim Email JMAILKirim email
'ResponseCookies menulis cookie
' CleanCookies Hapus cookie
' GetTimeover mendapatkan waktu eksekusi halaman program
'FormatSize ukuran format
'Pemformatan waktu FormatTime
' Zodiak mendapat tanda zodiak
' Rasi bintang mendapatkan konstelasi
'－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
Kelas Cls_fun
'－－－－－－－－Pemrosesan karakter－－－－－－－－－－－－－－－－－－－－－－－－－
'******************************************************* **
'Nama fungsi: StrLength
'Fungsi: Mendapatkan panjang string (karakter Cina ada 2)
'Parameter: str ---- konten string
'Nilai kembalian: panjang string
'******************************************************* **
Fungsi publik StrLength(str)
Redupkan Rep,lensa,i
Tetapkan rep=regexp baru
rep.Global=benar
rep.IgnoreCase=benar
rep.Pola=[/u4E00-/u9FA5/uF900-/uFA2D]
Untuk setiap i di rep.Execute(str)
lensa=lensa+1
Berikutnya
Tetapkan Rep=Tidak Ada
lensa=lensa + len(str)
strPanjang=lensa
Fungsi Akhir
'******************************************************* **
'Nama fungsi: CutStr
'Fungsi: Memotong panjang senar, dan menampilkan elips jika melebihi panjangnya
'Parameter: str ---- konten string
' strlen ------Panjang yang akan ditampilkan
'Nilai kembalian: konten string setelah dipotong
'******************************************************* **
Fungsi Publik CutStr(str,strlen)
Redupkan l,t,i,c
Jika str= Maka
pemotongantr=
Fungsi Keluar
Akhiri Jika
str=Ganti(Ganti(Ganti(Ganti(Ganti(str, , ),,Chr(34)),>,>),<,<),|,|)
aku=Len(str)
t=0
Untuk saya=1 Ke l
c=Abs(Asc(Tengah(str,i,1)))
Jika c>255 Maka
t=t+2
Kalau tidak
t=t+1
Akhiri Jika
Jika t>=strlen Maka
cutstr=Kiri(str,i) & ...
Keluar Untuk
Kalau tidak
pemotongantr=str
Akhiri Jika
Berikutnya
cutstr=Ganti(Ganti(Ganti(Ganti(ganti(potongstr, , ),Chr(34),),>,>),<,<),|,|)
Fungsi Akhir
'－－－－－－－－－－－－－－Verifikasi seri－－－－－－－－－－－－－－－－－－－－－－－－－ －－
'******************************************************* **
'Nama fungsi: CheckIsEmpty
'Fungsi: Periksa apakah kosong
'Parameter: tstr ---- string
'Nilai kembalian: benar tidak kosong, salah kosong
'******************************************************* **
Fungsi Publik CheckIsEmpty(tstr)
CheckIsEmpty=salah
Jika IsNull(tstr) atau Tstr= Kemudian Keluar dari Fungsi
Redupkan Str, kembali
Str=Tstr
Setel ulang=RegExp baru
re.IgnoreCase = Benar
re.Global=Benar
str= Ganti(str, vbNewLine, )
str = Ganti(str, Chr(9), )
str = Ganti(str, , )
str = Ganti(str, , )
re.Pattern=<img(.[^>]*)>
str =re.Ganti(Str,94kk)
re.Pola=<(.[^>]*)>
Str=re.Ganti(Str,)
Tetapkan Re=Tidak Ada
Jika Str<> Maka CheckIsEmpty=benar
Fungsi Akhir
'******************************************************* **
'Nama fungsi: isInteger
'Fungsi: Tes bilangan bulat
'Parameter: tstr ---- karakter
'Nilai kembalian: benar adalah bilangan bulat, salah bukan bilangan bulat
'******************************************************* **
Fungsi publik adalahInteger(para)
pada kesalahan lanjutkan Berikutnya
Dimtr
Redupkan aku
Jika isNUll(para) maka
isInteger=salah
fungsi keluar
Berakhir jika
str=cstr(para)
Jika trim(str)= maka
isInteger=salah
fungsi keluar
Berakhir jika
aku=len(str)
Untuk i=1 sampai l
Jika mid(str,i,1)>9 atau mid(str,i,1)<0 maka
isInteger=salah
fungsi keluar
Berakhir jika
Berikutnya
adalah bilangan bulat = benar
Jika err.number<>0 maka err.clear
Fungsi Akhir
'******************************************************* **
'Nama fungsi: Nama Periksa
'Fungsi: Pemeriksaan karakter nama
'Parameter: str ---- string
'Nilai kembalian: benar benar, salah salah
'******************************************************* **
Nama Periksa Fungsi Publik (Str)
Nama periksa=benar
Redupkan Rep, lulus
Tetapkan Rep=RegExp Baru
Rep.Global=Benar
Rep.IgnoreCase=Benar
'Cocokkan huruf, angka, garis bawah, karakter Cina dan harus diawali dengan huruf atau garis bawah atau karakter Cina
Pola Rep.=^[a-zA-Z_u4e00-/u9fa5][/w/u4e00-/u9fa5]+$
Setel pass=Rep.Execute(Str)
Jika pass.count=0 Maka CheckName=false
Tetapkan Rep=Tidak Ada
Fungsi Akhir
'******************************************************* **
'Nama fungsi: Periksa Kata Sandi
'Fungsi: Verifikasi kata sandi
'Parameter: str ---- string
'Nilai kembalian: benar benar, salah salah
'******************************************************* **
Kata Sandi Periksa Fungsi Publik (Str)
Lulus redup
Periksa Kata Sandi=benar
Jika Str <> Lalu
Redupkan Rep
Tetapkan Rep = RegExp Baru
Rep.Global = Benar
Rep.IgnoreCase = Benar
'Cocokkan huruf, angka, garis bawah, titik
Rep.Pattern=[a-zA-Z0-9_/.]+$
Lulus=rep.Test(Str)
Tetapkan Rep=tidak ada
Jika tidak Lulus Maka PeriksaPassword=salah
Akhiri Jika
Fungsi Akhir
'******************************************************* **
'Nama fungsi: PeriksaEmail
'Fungsi: Deteksi format email
'Parameter: str ---- Alamat email
'Nilai kembalian: benar benar, salah salah
'******************************************************* **
Fungsi publik CheckEmail (email)
PeriksaEmail=benar
Redupkan Rep
Tetapkan Rep = RegExp baru
rep.pattern=([/.a-zA-Z0-9_-]){2,10}@([a-zA-Z0-9_-]){2,10}(/.([a-zA- Z0-9]){2,}){1,4}$
lulus=rep.Tes(email)
Tetapkan Rep=Tidak Ada
Jika tidak lulus Maka CheckEmail=false
Fungsi akhir
'－－－－－－－－－－－－－－Permintaan informasi－－－－－－－－－－－－－－－－－－－－－－－－－ －－
'******************************************************* **
'Nama fungsi: Peringatan
'Fungsi: Memunculkan prompt kotak dialog
'Parameter: pesan ---- informasi kotak dialog
' gourl ---- ke mana harus berpaling setelah prompt
'Nilai pengembalian: Tidak ada
'******************************************************* **
Peringatan Fungsi Publik (pesan, goUrl)
pesan = ganti(pesan,',/')
Jika goUrl= Lalu
goUrl=history.go(-1);
Kalau tidak
goUrl=jendela.lokasi.href='&goUrl&'
Akhir JIKA
Response.Write (<script bahasa=JavaScript type=text/javascript>&vbNewLine&alert(' & msg & ');&goUrl&vbNewLine&</script>)
Respon.Akhir
Fungsi Akhir
'******************************************************* **
'Nama fungsi: GoBack
'Fungsi: prompt pesan kesalahan
'Parameter: str1 ---- judul prompt informasi
' str2 ---- konten informasi cepat
'isback----Apakah akan menampilkan pengembalian
'Nilai pengembalian: Tidak ada
'******************************************************* **
Fungsi Publik GoBack(Str1,Str2,isback)
Jika Str1= Maka Str1=Pesan kesalahan
Jika Str2= Maka Str2=Harap isi semua kolom yang wajib diisi
Jika kembali= Lalu
Str2=Str2& <a href=javascript:history.go(-1)>Kembali untuk mengisi ulang</a></li>
kalau tidak
Str2=Str2
berakhir jika
Response.Tulis<div style=margin-left:5px;border:1px solid #0066cc;width:98%><div style=height:22px;font-weight:bold;color : putih;ukuran font:14px;latar belakang:#799AE1;latar belakang:url(images/th.gif);;text-align:left;line-height:20px;padding:3px;>&Str1& </div><div style=line-height:50px;background:#F7F7F7;vertical-align:middle;font-size:14px;width:100%><div style=color:red;font:50px/50px 宋体;float:left;width :5%>×</div><div style=margin-top:8px;float:right;width:90%;text-align:left;padding-left:3px;>&str2&</div></div></div>
respon.akhir
Fungsi Akhir
'******************************************************* **
'Nama fungsi: Suc
'Fungsi: informasi cepat sukses
'Parameter: str1 ---- judul prompt informasi
' str2 ---- konten informasi cepat
'url ---- alamat pengirim
'Nilai pengembalian: Tidak ada
'******************************************************* **
Fungsi Publik Suc(str1,str2,url)
Jika str1= Maka Str1=Operasi berhasil
Jika str2= Maka Str2=Operasi ini berhasil diselesaikan!
Jika url= Maka url=javascript:history.go(-1)
str2=str2& <a href=&url& >Kembali untuk melanjutkan pengelolaan</a>
Response.Tulis<div style=margin-left:5px;border:1px solid #0066cc;width:98%><div style=height:22px;font-weight:bold;color : putih;ukuran font:14px;latar belakang:#799AE1;latar belakang:url(images/th.gif);;text-align:left;line-height:20px;padding:3px;>&Str1& </div><div style=line-height:50px;background:#F7F7F7;vertical-align:middle;font-size:14px;width:100%><div style=color:red;font:50px/50px 宋体;float:left;width :5%>√</div><div style=margin-top:8px;float:right;width:90%;text-align:left;padding-left:3px;>&str2&</div></div></div>
Fungsi Akhir
'－－－－－－－－－－－－－－Penanganan yang aman－－－－－－－－－－－－－－－－－－－－－－－－－ －－
'******************************************************* **
'Nama fungsi: ChkPost
'Fungsi: melarang pengiriman formulir di luar situs
'Nilai yang dikembalikan: benar untuk pengiriman di tempat, salah untuk pengiriman di luar lokasi
'******************************************************* **
Fungsi Publik ChkPost()
Redupkan url1,url2
chkpost=benar
url1=Cstr(Permintaan.ServerVariables(HTTP_REFERER))
url2=Cstr(Permintaan.ServerVariables(SERVER_NAME))
Jika Pertengahan(url1,8,Len(url2))<>url2 Lalu
chkpost=salah
fungsi keluar
Akhiri Jika
Fungsi akhir
'******************************************************* **
'Nama fungsi: PSql
'Fungsi: Mencegah injeksi SQL
'Nilai kembalian: Jika kosong, tidak akan ada injeksi. Jika tidak kosong, maka akan disuntikkan dan karakter yang disuntikkan akan dikembalikan.
'******************************************************* **
Fungsi publik PSql()
Psql=
badwords= 'anti' anti; anti dan anti exec anti insert anti pilih anti update anti delete anti count anti * anti % anti chr anti mid anti master anti truncate anti char anti menyatakan anti |
kata buruk=split(kata buruk,pertahanan)
Jika Permintaan.Formulir<> Lalu
Untuk Setiap TF_Post Dalam Permintaan.Formulir
Untuk i=0 Ke Ubound(kata buruk)
Jika Instr(LCase(Request.Form(TF_Post)),badword(i))>0 Maka
Psql=kata buruk(i)
fungsi keluar
Akhiri Jika
Berikutnya
Berikutnya
Akhiri Jika
Jika Permintaan.QueryString<> Lalu
Untuk Setiap TF_Dapatkan Di Permintaan.QueryString
Untuk i=0 Ke Ubound(kata buruk)
Jika Instr(LCase(Request.QueryString(TF_Get)),badword(i))>0 Kemudian
Psql=kata buruk(i)
fungsi keluar
Akhiri Jika
Berikutnya
Berikutnya
Akhiri Jika
Fungsi Akhir
'******************************************************* **
'Nama fungsi: FiltrateHtmlCode
'Fungsi: Mencegah pembuatan kode html
'Parameter: str ---- string
'******************************************************* **
Filtrat Fungsi PublikKodeHtml(Str)
Jika Bukan isnull(str) Dan str<> maka
Str=Ganti(Str,Chr(9),)
Str=ganti(Str,|,|)
Str=ganti(Str,chr(39),')
Str=ganti(Str,<,<)
Str=ganti(Str,>,>)
Str = Ganti(str, CHR(13),)
Str = Ganti(str, CHR(10),)
FiltratHtmlCode=Str
Akhiri Jika
Fungsi Akhir
'******************************************************* **
'Nama fungsi: HtmlCode
'Fungsi: memfilter tag Html
'Parameter: str ---- string
'******************************************************* **
Fungsi publik HtmlCode(str)
Jika Bukan isnull(str) Dan str<> maka
str = ganti(str, >, >)
str = ganti(str, <, <)
str = Ganti(str, CHR(32), )
str = Ganti(str, CHR(9), )
str = Ganti(str, CHR(34), )
str = Ganti(str, CHR(39), ')
str = Ganti(str, CHR(13), )
str = Ganti(str, CHR(10), )
str = Ganti(str, skrip, skrip)
Kode Html = str
Akhiri Jika
Fungsi Akhir
'******************************************************* **
'Nama fungsi: Gantihtml
'Fungsi: membersihkan html
'Parameter: tstr ---- string
'******************************************************* **
Ganti Fungsi Publikhtml(tstr)
Redupkan Str, kembali
Str=Tstr
Setel ulang=RegExp baru
re.IgnoreCase = Benar
re.Global=Benar
re.Pola=<(p|//p|br)>
Str=re.Replace(Str,vbNewLine)
re.Pattern=<img.[^>]*src(=| )(.[^>]*)>
str=re.replace(str,[img]$2[/img])
re.Pola=<(.[^>]*)>
Str=re.Ganti(Str,)
Tetapkan Re=Tidak Ada
Gantihtml=Str
Fungsi Akhir
'------------Dapatkan beberapa informasi tentang klien dan server------------------
'******************************************************* **
'Nama fungsi: GetIP
'Fungsi: Dapatkan alamat IP klien
'Nilai pengembalian: alamat IP klien
'******************************************************* **
Fungsi Publik GetIP()
Suhu redup
Temp = Permintaan.ServerVariables(HTTP_X_FORWARDED_FOR)
Jika Temp = atau isnull(Temp) atau isEmpty(Temp) Maka Temp = Request.ServerVariables(REMOTE_ADDR)
Jika Instr(Temp,')>0 Maka Temp=0.0.0.0
DapatkanIP=Temp
Fungsi Akhir
'******************************************************* **
'Nama fungsi: GetBrowser
'Fungsi: Mendapatkan informasi browser klien
'Nilai pengembalian: informasi browser klien
'******************************************************* **
Fungsi Publik GetBrowser()
info=Permintaan.Variabel Server(HTTP_USER_AGENT)
jika Instr(info,NetCaptor 6.5.0)>0 maka
peramban=NetCaptor 6.5.0
elseif Instr(info,MyIe 3.1)>0 lalu
browser=MyIe 3.1
elseif Instr(info,NetCaptor 6.5.0RC1)>0 lalu
peramban=NetCaptor 6.5.0RC1
elseif Instr(info,NetCaptor 6.5.PB1)>0 lalu
peramban=NetCaptor 6.5.PB1
elseif Instr(info,MSIE 5.5)>0 lalu
peramban=Internet Explorer 5.5
elseif Instr(info,MSIE 6.0)>0 lalu
peramban=Internet Explorer 6.0
elseif Instr(info,MSIE 6.0b)>0 lalu
peramban=Internet Explorer 6.0b
elseif Instr(info,MSIE 5.01)>0 lalu
peramban=Internet Explorer 5.01
elseif Instr(info,MSIE 5.0)>0 lalu
peramban=Internet Explorer 5.00
elseif Instr(info,MSIE 4.0)>0 lalu
peramban=Internet Explorer 4.01
kalau tidak
browser=lainnya
berakhir jika
Fungsi Akhir
'******************************************************* **
'Nama fungsi: GetSystem
'Fungsi: Dapatkan sistem operasi klien
'Nilai pengembalian: sistem operasi klien
'******************************************************* **
Fungsi DapatkanSistem()
info=Permintaan.Variabel Server(HTTP_USER_AGENT)
jika Instr(info,NT 5.1)>0 maka
sistem=Windows XP
elseif Instr(info,Tel)>0 lalu
sistem = Teleportasi
elseif Instr(info,webzip)>0 lalu
sistem=webzip
elseif Instr(info,flashget)>0 lalu
sistem=flashget
elseif Instr(info,offline)>0 lalu
sistem=luring
elseif Instr(info,NT 5)>0 lalu
sistem=Windows 2000
elseif Instr(info,NT 4)>0 lalu
sistem=Windows NT4
elseif Instr(info,98)>0 lalu
sistem=Windows 98
elseif Instr(info,95)>0 lalu
sistem=Windows 95
elseif instr(info,unix) atau instr(info,linux) atau instr(info,SunOS) atau instr(info,BSD) lalu
sistem=seperti Unix
elseif instr(thesoft,Mac) lalu
sistem=Mac
kalau tidak
sistem=lainnya
berakhir jika
Fungsi Akhir
'******************************************************* **
'Nama fungsi: GetUrl
'Fungsi: Dapatkan url termasuk parameter
'Nilai pengembalian: Dapatkan url termasuk parameter
'******************************************************* **
Fungsi Publik GetUrl()
Redupkan strTemp
strTemp=Permintaan.Variabel Server(Nama_Script)
Jika Memangkas(Request.QueryString)<> Lalu
strTemp=strTemp&?
Untuk Setiap M_item Di Request.QueryString
strTemp=strTemp&M_item&=&Server.UrlEncode(Trim(Request.QueryString(&M_item&)))
Berikutnya
berakhir jika
DapatkanUrl=strTemp
Fungsi Akhir
'******************************************************* **
'Nama fungsi: CUrl
'Fungsi: berfungsi untuk mendapatkan URL halaman saat ini
'Nilai kembalian: fungsi URL halaman saat ini
'******************************************************* **
FungsiCUrl()
Nama_Domain = LCase(Permintaan.Variabel Server(Nama_Server))
Nama_Halaman = LCase(Permintaan.Variabel Server(Nama_Script))
Quary_Name = LCase(Permintaan.ServerVariables(Quary_String))
Jika Quary_Name = Lalu
CUrl = http://&Nama_Domain&Nama_Halaman
Kalau tidak
CUrl = http://&Nama_Domain&Nama_Halaman&?&Nama_Kuari
Akhiri Jika
Fungsi Akhir
'******************************************************* **
'Nama fungsi: GetExtend
'Fungsi: Dapatkan ekstensi file
'Parameter: nama file ---- nama file
'******************************************************* **
Fungsi Publik GetExtend (nama file)
redup tmp
jika nama file<> maka
tmp=mid(nama file,instrrev(nama file,.)+1,len(nama file)-instrrev(nama file,.))
tmp=LCase(tmp)
jika instr(1,tmp,asp)>0 atau instr(1,tmp,php)>0 atau instr(1,tmp,php3)>0 atau instr(1,tmp,aspx)>0 maka
getextend=txt
kalau tidak
getextend=tmp
berakhir jika
kalau tidak
dapatkan perpanjangan=
berakhir jika
Fungsi Akhir
'－－－－－－－－－－－－－－－－－－Operasi basis data－－－－－－－－－－－－－－－－－－－－－ －
'******************************************************* **
'Nama fungsi: CheckExist
'Fungsi: Mendeteksi apakah konten tertentu ada di bidang tertentu dalam tabel tertentu
'Parameter: tabel ---- nama tabel
'nama bidang ---- nama bidang
'isi lapangan ---- Konten bidang
' isblur ---- apakah akan cocok dengan fuzzy
'Nilai kembalian: salah tidak ada, benar ada
'******************************************************* **
Fungsi CheckExist (tabel, nama bidang, isi bidang, isblur)
Periksa Ada = salah
Jika isblur=1 Maka
setel rsCheckExist=conn.execute(pilih * dari &tabel& di mana &namabidang& seperti '%&isi bidang&%')
kalau tidak
set rsCheckExist=conn.execute(pilih * dari &tabel& di mana &namabidang&= '&kontenbidang&')
Berakhir jika
jika tidak (rsCheckExist.eof dan rsCheckExist.bof) maka CheckExist=true
rsCheckExist.tutup
atur rsCheckExist=tidak ada
Fungsi Akhir
'******************************************************* **
'Nama fungsi: GetNum
'Fungsi: Mendeteksi angka, nilai maksimum atau minimum dari suatu bidang tertentu dalam sebuah tabel
'Parameter: tabel ---- nama tabel
'nama bidang ---- nama bidang
'resulttype ---- Mengembalikan hasil (hitungan/maks/mnt)
' args ---- partisipasi tambahan (dipesan berdasarkan ...)
'Nilai pengembalian: nilai numerik
'******************************************************* **
Fungsi GetNum (tabel, nama bidang, tipe hasil, argumen)
DapatkanFieldContentNum=0
jika nama bidang= maka nama bidang=*
sqlGetFieldContentNum=pilih &resulttype&(&fieldname&) dari &table& args
atur rsGetFieldContentNum=sambungan.eksekusi(sqlGetFieldContentNum)
jika tidak (rsGetFieldContentNum.eof dan rsGetFieldContentNum.bof) maka GetFieldContentNum=rsGetFieldContentNum(0)
rsGetFieldContentNum.close
atur rsGetFieldContentNum=tidak ada
Fungsi Akhir
'******************************************************* **
'Nama fungsi: UpdateValue
'Fungsi: Memperbarui nilai bidang tertentu dalam tabel
'Parameter: tabel ---- nama tabel
'nama bidang ---- nama bidang
'nilai bidang----nilai yang diperbarui
'ya
'url -------alamat dialihkan setelah pembaruan
'Nilai pengembalian: Tidak ada
'******************************************************* **
Nilai Pembaruan Fungsi Publik (tabel, nama bidang, nilai bidang, id, url)
samb.Jalankan(perbarui &tabel& setel &namabidang&=&nilai bidang& di mana id=&CLng(trim(id)))
jika url<> maka respon.redirect url
Fungsi Akhir
'－－－－－－－－－－－－－Informasi dan operasi server－－－－－－－－－－－－－－－－－－－－－
'******************************************************* **
'Nama fungsi: GetFolderSize
'Fungsi: Menghitung ukuran folder
'Parameter: Nama File ---- Jalur folder dan nama folder
'Nilai pengembalian: nilai numerik
'******************************************************* **
Fungsi Publik GetFolderSize (Jalur Folder)
redupkan fso,d,ukuran,tampilkanukuran
set fso=server.createobject(scripting.filesystemobject)
drvpath=server.mappath(Jalur Folder)
jika fso.FolderExists(drvpath) Lalu
atur d=fso.getfolder(drvpath)
ukuran=d.ukuran
GetFolderSize=FormatUkuran(ukuran)
Kalau tidak
GetFolderSize=Jalur Folder&Folder tidak ada
Akhiri Jika
Fungsi Akhir
'******************************************************* **
'Nama fungsi: GetFileSize
'Fungsi: Menghitung ukuran file
'Parameter: Nama File ---- Jalur file dan nama file
'Nilai pengembalian: nilai numerik
'******************************************************* **
Fungsi Publik GetFileSize (Nama File)
Redupkan fso,drvpath,d,size,showsize
set fso=server.createobject(scripting.filesystemobject)
jalur file=jalur server.jalur peta(Nama File)
jika fso.FileExists(jalur file) maka
setel d=fso.getfile(jalur file)
ukuran=d.ukuran
GetFileSize=FormatUkuran(ukuran)
Kalau tidak
GetFileSize=NamaFile&File tidak ada
Akhiri Jika
atur fso=tidak ada
Fungsi Akhir
'******************************************************* **
'Nama fungsi: IsObjInstalled
'Fungsi: Periksa apakah komponen sudah terpasang
'Parameter: strClassString ---- nama komponen
'Nilai kembalian: salah tidak ada, benar ada
'******************************************************* **
Fungsi Publik IsObjInstalled(strClassString)
Pada Kesalahan Lanjutkan Berikutnya
IsObjInstalled=Salah
Salah=0
DimxTestObj
Setel xTestObj=Server.CreateObject(strClassString)
Jika 0=Err Maka IsObjInstalled=Benar
Setel xTestObj=Tidak Ada
Salah=0
Fungsi Akhir
'******************************************************* **
'Nama fungsi: SendMail
'Fungsi: Gunakan komponen Jmail untuk mengirim email
'Parameter: ServerAddress ---- alamat server
'TambahkanPenerima----alamat penerima
' Subyek ---- subjek
'Tubuh ---- isi surat
'Pengirim ---- alamat pengirim
'******************************************************* **
Fungsi publik SendMail(MailServerAddress,AddRecipient,Subject,Body,Sender,MailFrom)
pada kesalahan lanjutkan berikutnya
Redupkan JMail
Setel JMail=Server.CreateObject(JMail.SMTPMail)
jika salah maka
SendMail= Komponen JMail tidak diinstal
err.jelas
fungsi keluar
berakhir jika
JMail.Logging=Benar
JMail.Charset=gb2312
JMail.ContentType = teks/html
JMail.ServerAddress=AlamatMailServer
JMail.AddRecipient=TambahkanPenerima
JMail.Subjek=Subjek
JMail.Body=MailBody
JMail.Sender=Pengirim
JMail.Dari = SuratDari
JMail.Prioritas=1
JMail.Jalankan
Setel JMail=tidak ada
jika salah maka
SendMail=err.deskripsi
err.jelas
kalau tidak
KirimMail=OK
berakhir jika
fungsi akhir
'******************************************************* **
'Nama fungsi: ResponseCookies
'Fungsi: menulis COOKIES
'Parameter: Kunci----nama cookie
' nilai ---- nilai cookie
' kedaluwarsa ---- waktu kedaluwarsa cookie
'******************************************************* **
Cookie Respons Fungsi Publik (Kunci, Nilai, Kedaluwarsa)
DomainPath=Kiri(Request.ServerVariables(script_name),inStrRev(Request.ServerVariables(script_name),/))
Respon.Cookies(Kunci)=&Nilai&
jika Kedaluwarsa<>0 maka Respon.Cookies(Kunci).Kedaluwarsa=tanggal+Kedaluwarsa
Respon.Cookies(Kunci).Path=DomainPath
Fungsi Akhir
'******************************************************* **
'Nama fungsi: CleanCookies
'Fungsi: Hapus COOKIES
'******************************************************* **
Fungsi Publik CleanCookies()
DomainPath=Kiri(Request.ServerVariables(script_name),inStrRev(Request.ServerVariables(script_name),/))
Untuk Setiap objCookie Dalam Permintaan.Cookies
Respon.Cookie(objCookie)=
Respon.Cookie(objCookie).Path=DomainPath
Berikutnya
Fungsi Akhir
'******************************************************* **
'Nama fungsi: GetTimeOver
'Fungsi: Hapus COOKIES
'Parameter: flag --- Menampilkan satuan waktu 1=detik, jika tidak, milidetik
'******************************************************* **
Fungsi Publik GetTimeOver(bendera)
RedupWaktu Akhir
Jika bendera = 1 Maka
EndTime=FormatNumber(Timer() - Waktu Mulai, 6, benar)
getTimeOver = Waktu eksekusi halaman ini: & EndTime & detik
Kalau tidak
EndTime=FormatNumber((Timer() - StartTime) * 1000, 3, benar)
getTimeOver = Waktu eksekusi halaman ini: & EndTime & milidetik
Akhiri Jika
Fungsi akhir
'－－－－－－－－－－－－－－－－－Format seri－－－－－－－－－－－－－－－－－－－－－－ －－
'******************************************************* **
'Nama fungsi: FormatSize
'Fungsi: pemformatan ukuran
'Parameter: ukuran ---- Ukuran yang akan diformat
'******************************************************* **
Ukuran Format Fungsi Publik(dukuran)
jika dsize>=1073741824 maka
FormatSize=Formatnumber(dsize/1073741824,2) & GB
elseif dsize>=1048576 lalu
FormatUkuran=Nomor Format(ukuran/1048576,2) & MB
elseif dsize>=1024 lalu
FormatUkuran=Formatnomor(ukuran/1024,2) & KB
kalau tidak
FormatUkuran=ukuran & Byte
berakhir jika
Fungsi Akhir
'******************************************************* **
'Nama fungsi: FormatTime
'Fungsi: pemformatan waktu
'Parameter: DateTime ---- waktu untuk diformat
'Format ---- Format formulir
'******************************************************* **
Fungsi Publik FormatWaktu(TanggalWaktu,Format)
pilih format kasus
kasus 1
FormatWaktu=&tahun(TanggalWaktu)&tahun&bulan(Waktu Tanggal)&bulan&hari(Waktu Tanggal)&日
kasus 2
FormatWaktu=&bulan(TanggalWaktu)&bulan&hari(TanggalWaktu)&日
kasus 3
FormatWaktu=&tahun(TanggalWaktu)&/&bulan(Waktu Tanggal)&/&hari(Waktu Tanggal)&
kasus 4
FormatWaktu=&bulan(TanggalWaktu)&/&hari(TanggalWaktu)&
kasus 5
FormatTime=&bulan(DateTime)&bulan&hari(DateTime)&日&FormatDateTime(DateTime,4)&
kasus 6
temp=Minggu, Senin, Selasa, Rabu, Kamis, Jumat, Sabtu
suhu=belah(suhu,,)
FormatWaktu=temp(Hari Kerja(Waktu Tanggal)-1)
kasus lain
FormatWaktu=TanggalWaktu
akhir pilih
Fungsi Akhir
'--------------------Aneka ragam--------------------
'******************************************************* **
'Nama fungsi: Zodiak
'Fungsi: memperoleh hidup dan mati
'Parameter: ulang tahun ---- ulang tahun
'******************************************************* **
Fungsi publik Zodiak (ulang tahun)
jika IsDate(ulang tahun) maka
tahun lahir=tahun(tanggal lahir)
ZodiacList=array(monyet, ayam, anjing, babi, tikus, lembu, harimau, kelinci, naga, ular, kuda, domba)
Zodiak=Daftar Zodiak(mod tahun lahir 12)
berakhir jika
Fungsi Akhir
'******************************************************* **
'Nama fungsi: Konstelasi
'Fungsi: Mendapatkan konstelasi
'Parameter: ulang tahun ---- ulang tahun
'******************************************************* **
Konstelasi Fungsi Publik (ulang tahun)
jika IsDate(ulang tahun) maka
KonstelasiSenin=bulan(tanggal lahir)
ConstellationDay=hari(ulang tahun)
jika Len(ConstellationMon)<2 maka ConstellationMon=0&ConstellationMon
jika Len(Hari Konstelasi)<2 maka Hari Konstelasi=0&Hari Konstelasi
MyConstellation=ConstellationMon&ConstellationDay
jika MyConstellation < 0120 maka
konstelasi=<img src=images/Constellation/g.gif />elseif MyConstellation < 0219 lalu
konstelasi=<img src=images/Constellation/h.gif />elseif MyConstellation < 0321 lalu
konstelasi=<img src=images/Constellation/i.gif />elseif MyConstellation < 0420 lalu
konstelasi=<img src=images/Constellation/^.gif />elseif MyConstellation < 0521 lalu
konstelasi=<img src=images/Constellation/_.gif />elseif MyConstellation < 0622 lalu
konstelasi=<img src=images/Constellation/`.gif />elseif MyConstellation < 0723 lalu
konstelasi=<img src=images/Constellation/a.gif />elseif MyConstellation < 0823 lalu
konstelasi=<img src=images/Constellation/b.gif />elseif MyConstellation < 0923 lalu
konstelasi=<img src=images/Constellation/c.gif />elseif MyConstellation < 1024 lalu
konstelasi=<img src=images/Constellation/d.gif />elseif MyConstellation < 1122 lalu
konstelasi=<img src=images/Constellation/e.gif />elseif MyConstellation < 1222 lalu
konstelasi=<img src=images/Constellation/f.gif />elseif MyConstellation > 1221 lalu
konstelasi=<img src=images/Constellation/g.gif />berakhir jika
berakhir jika
Fungsi Akhir
' ===== =
'Nama fungsi: halaman otomatis
'Fungsi: penomoran halaman otomatis untuk artikel panjang
'Parameter: id, konten, urlact
' ===== =
Fungsi AutoPage (konten, parameter, pagevar)
contentStr=split(konten,pagevar)
ukuran halaman=ubound(contentStr)
jika ukuran halaman>0 maka
Jika Int(Permintaan(halaman))= atau Int(Permintaan(halaman))=0 Maka
nomor halaman=1
Kalau tidak
pageNum=Permintaan(halaman)
Berakhir jika
jika nomor halaman-1<=ukuran halaman maka
AutoPage=HalamanOtomatis&contentStr(nomorhalaman-1)
AutoPage=AutoPage&<div style=margin-top:10px;text-align:right;padding-right:15px;><font color=blue>Nomor halaman:</font><font color=red>
Untuk i=0 hingga ukuran halaman
jika i=Nomor halaman-1 maka
HalamanOtomatis=HalamanOtomatis&[<font color=red>&i+1&</font>]
kalau tidak
jika instr(paramater,?)>0 maka
HalamanOtomatis=HalamanOtomatis&<a href=¶mater&&page=&i+1&>[&(i+1)&]</a>
kalau tidak
HalamanOtomatis=HalamanOtomatis&<a href=¶mater&?page=&i+1&>[&(i+1)&]</a>
berakhir jika
berakhir jika
Berikutnya
AutoPage=HalamanOtomatis&</font></div>
kalau tidak
AutoPage=AutoPage&Operasi ilegal! Nomor halaman terlampaui! <a href=javascript:history.back(-1)><u>Kembali</u></a>
berakhir jika
Kalau tidak
Halaman Otomatis=konten
berakhir jika
Fungsi Akhir
Kelas Akhir
%>