#TITLE=Sintaks dan fungsi umum ASP
#INFO
Beberapa sintaksis dan fungsi khusus yang umum digunakan di ASP
#SORT=n
#T= ===Sintaks ASP umum===
#T===============
#T=terkait basis data
#T= Hubungkan ke basis data ACCESS
<%
Redupkan Nama DB, Sambung
DBName^! 'Tentukan jalur dan nama basis data
SET Koneksi = Server.CreateObject(ADODB.Connection)
Conn.Open Provider=Microsoft.Jet.OLEDB.4.0;Sumber Data= & Server.MapPath(DBName)
%>
#T= Hubungkan ke database MS SQL
<%
Sambungan Redup
SET Koneksi=Server.CreateObject(ADODB.koneksi)
Conn.Open PROVIDER=SQLOLEDB;DATA SOURCE=nama server SQL atau alamat IP;UID=akun login database;PWD=kata sandi database;DATABASE=nama database
%>
#T= Buat kumpulan rekor
SET ^!=Server.CreateObject(ADODB.recordset)
#T= Jalankan perintah SQL
RS.Buka SQL, samb., 1,1
#T= Jalankan perintah SQL
Sambungan.Eksekusi(^!)
#T= RS langsung menjalankan perintah SQL
SET RS = Sambung.Eksekusi(^!)
#T= Tutup kumpulan data
RS.TUTUP
SETEL RS=TIDAK ADA
#T= Tutup basis data
Sambungan Tutup
SETConn=Tidak ada
#T===============
#T=ServerVariable terkait
#T= Dapatkan alamat halaman sebelumnya
Permintaan.Variabel Server(HTTP_REFERER)
#T= Dapatkan nama server 1
Permintaan.Variabel Server(SERVER_NAME)
#T= Dapatkan nama server 2
Permintaan.Variabel Server(HTTP_HOST)
#T= Dapatkan IP server
Permintaan.Variabel Server(LOCAL_ADDR)
#T= Dapatkan IP pengguna
Permintaan.Variabel Server(Remote_Host)
#T= Dapatkan IP1 asli pengguna
Permintaan.serverVariables(REMOTE_ADDR)
#T= Dapatkan fungsi IP asli pengguna
Fungsi DapatkanRealIP()
GetRealIP = Permintaan.ServerVariables(HTTP_X_FORWARDED_FOR)
JIKA(GetRealIP = )MAKA GetRealIP = Permintaan.ServerVariables(REMOTE_ADDR)
Fungsi Akhir
#T= Dapatkan port server
Permintaan.Variabel Server(SERVER_PORT)
#T= Dapatkan sistem operasi server
Permintaan.Variabel Server (OS)
#T= Dapatkan jalur absolut server
Permintaan.Variabel Server(APPL_PHYSICAL_PATH)
#T= Dapatkan path absolut dari file ini 1
Permintaan.ServerVariables(PATH_TRANSLATED)
#T= Dapatkan path absolut dari file ini 2
Server.mappath(Permintaan.ServerVariables(SCRIPT_NAME))
#T= Dapatkan jalur relatif dari file ini 1
Permintaan.Variabel Server (URL)
#T= Dapatkan jalur relatif dari file ini 2
Permintaan.Variabel Server(SCRIPT_NAME)
#T= Dapatkan jalur relatif dari file ini 3
Permintaan.Variabel Server(PATH_INFO)
#T= Dapatkan parameter setelah bilah alamat
Permintaan.Variabel Server(QUERY_STRING)
#T= Dapatkan informasi sistem server
Permintaan.Variabel Server(HTTP_USER_AGENT)
#T= Deteksi komponen server
<%
Fungsi IsObjInstalled(strClassString)
Pada Kesalahan Lanjutkan Berikutnya
IsObjInstalled = Salah
Salah = 0
DimxTestObj
SET xTestObj = Server.CreateObject(strClassString)
JIKA(0 = Err)MAKA IsObjInstalled = Benar
SET xTestObj = Tidak ada
Salah = 0
Fungsi Akhir
'JIKA(IsObjInstalled(Persits.Upload)=Benar) MAKA
' Response.Write mendukung komponen AspUpload
'KALAU TIDAK
' Response.Write tidak mendukung komponen AspUpload
'AKHIR JIKA
%>
#T= Dapatkan lokal klien
^!Permintaan.Variabel Server(HTTP_ACCEPT_LANGUAGE)
#T= Dapatkan informasi klien: HTTP_USER_AGENT
^!Permintaan.Variabel Server(HTTP_USER_AGENT)
#T= Mendapatkan nilai elemen nilai bentuk (Form).
Permintaan.Formulir(^!)
#T= Dapatkan nilai yang diteruskan oleh URL
Permintaan.QueryString(^!)
#T= Dapatkan alamat URL lengkap
Fungsi DapatkanUrl()
GetUrl=http://&Request.ServerVariables(SERVER_N ... .ServerVariables(URL)
IF(Request.ServerVariables(QUERY_STRING)<>)THEN GetURL=GetUrl&?& Request.ServerVariables(QUERY_STRING)
Fungsi Akhir
#T===============
#T=fungsi khusus
#T= Filter karakter HTML
<%
'Filter fungsi karakter HTML
Fungsi HTMLEncode(str)
JIKA(str <> ) MAKA
str = Ganti(str, &, &)
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) & Chr(10), </P><P>)
str = Ganti(str, Chr(10), <BR>)
str = Ganti(str, Chr(255), )
AKHIR JIKA
HTMLEncode = str
Fungsi Akhir
%>
#T= Periksa apakah halaman sebelumnya dikirimkan dari situs ini
<%
'Periksa apakah halaman sebelumnya dikirimkan dari situs ini
'Kembali: Benar, Salah
' ===== = ==============
Fungsi IsSelfRefer()
Redupkan sHttp_Referer, sServer_Name
sHttp_Referer = CStr(Permintaan.ServerVariables(HTTP_REFERER))
sServer_Name = CStr(Permintaan.ServerVariables(SERVER_NAME))
JIKA(Tengah(sHttp_Referer, 8, Len(sServer_Name)) = sServer_Name) LALU
IsSelfRefer = Benar
KALAU TIDAK
IsSelfRefer = Salah
AKHIR JIKA
Fungsi Akhir
%>
#T= Hapus semua tag HTML
<%
'Hapus tag HTML
Fungsi stripHTML(htmlStr)
RegEx redup
SETregEx = Regexp Baru
regEx.IgnoreCase = Benar
regEx.Global = Benar
regEx.Pola = <.+?>
htmlStr = regEx.Ganti(htmlStr,)
htmlStr = Ganti(htmlStr, <,<)
htmlStr = Ganti(htmlStr, >,>)
htmlStr = Ganti(htmlStr,chr(10),)
htmlStr = Ganti(htmlStr,chr(13),)
stripHTML = htmlStr
SET regEx = Tidak ada
Fungsi Akhir
%>
#T= Dapatkan panjang string
<%
'Berfungsi untuk mencari panjang suatu string
Fungsi Dapatkan Panjang(str)
Panjang Redup
Untuk i=1 sampai Len(str)
IF(Asc(Mid(str,i,1))<0 atau Asc(Mid(str,i,1))>256)THEN
Panjang=Panjang+2
KALAU TIDAK
Panjang=Panjang+1
AKHIR JIKA
Berikutnya
DapatkanPanjang=Panjang
Fungsi Akhir
%>
#T= mencegat string dengan panjang yang ditentukan
<%
'Mencegat string dengan panjang tertentu, ganti kelebihannya dengan...
Fungsi StrLeft(str,strlen)
JIKA(str = )MAKA
StrKiri =
Fungsi Keluar
AKHIR JIKA
Redupkan aku,t,c,i
str = Ganti(Ganti(Ganti(Ganti(str, , ),,chr(34)),>,>),<,<)
aku=len(str)
t=0
Untuk i=1 sampai l
c=Abs(Asc(Tengah(str,i,1)))
JIKA(c>255)MAKA
t=t+2
KALAU TIDAK
t=t+1
AKHIR JIKA
JIKA(t>strlen)MAKA
StrLeft = kiri(str,i) & ...
Keluar Untuk
KALAU TIDAK
StrKiri = str
AKHIR JIKA
Berikutnya
StrLeft = Ganti(Ganti(Ganti(Ganti(StrLeft, , ),chr(34),),>,>),<,<)
Fungsi Akhir
%>
#T= Dapatkan parameter pengiriman yang aman
<%
' ===== = ==============
'Pemeriksaan Injeksi SQL
'Fungsi fungsi: memfilter tanda kutip tunggal dalam parameter karakter, menilai parameter numerik, dan menetapkan nilai 0 jika itu bukan tipe numerik
'Arti parameter: str ---- parameter yang akan difilter
'strType ---- tipe parameter, dibagi menjadi tipe karakter dan tipe numerik, tipe karakter adalah s, tipe numerik adalah i
' ===== = ==============
Fungsi CheckStr(str,strType)
Redupkan strTmp
strTmp =
JIKA(strType =s) MAKA
strTmp = Ganti(Potong(str),','')
ELSEIF(strType=i)LALU
JIKA(IsNumerik(str)=Salah)MAKA str=Salah
strTmp = str
KALAU TIDAK
strTmp = str
Akhir JIKA
PeriksaStr= strTmp
Fungsi Akhir
%>
#T= Menyaring karakter buruk (BadWord)
<%
'Filter karakter buruk (Kata-Kata Buruk)
Fungsi ChkBadWords (fString)
Redupkan Kata-kata Buruk, kata-kata, i
Kata-Kata Buruk = Persetan|persetan kamu|persetan dia|persetan kamu|persetan|anjing|bajingan|vagina|kontol|bajingan|pemerkosaan|bercinta|perawan|zemin|falun|falun|hongzhi|falun
JIKA(Tidak(IsNull(BadWords) atau IsNull(fString)))MAKA
bwords = Pisahkan(Kata-kata Buruk, |)
Untuk i = 0 sampai UBound(bwords)
fString = Ganti(fString, bwords(i), string(Len(bwords(i)),*))
Berikutnya
ChkBadWords = fString
AKHIR JIKA
Fungsi Akhir
%>
#T= Hasilkan kata sandi panjang khusus acak
<%
'Buat kata sandi panjang khusus acak
Fungsi makePassword(maxLen)
Redupkan strNewPass
Redupkan apa Selanjutnya, atas, bawah, intCounter
Acak
Untuk intCounter = 1 Ke maxLen
apa Selanjutnya = Int((1 - 0 + 1) * Jalan + 0)
JIKA(berikutnya = 0)MAKA
'karakter
atas=90
lebih rendah=65
KALAU TIDAK
atas=57
lebih rendah = 48
AKHIR JIKA
strNewPass = strNewPass & Chr(Int((atas - bawah + 1) * Rnd + bawah))
Berikutnya
makePassword = strNewPass
Fungsi Akhir
'Respon.Tulis makepassword(8)
%>
#T= Pertahankan format dalam HTML saat mengisi Textarea
<%
' ===== = ==============
'Hapus format Html, digunakan saat mengambil nilai dari database dan mengisi kotak input
'Catatan: value=? harus menggunakan tanda kutip ganda di sini
' ===== = ==============
Fungsi dalam HTML(str)
Suhu redup
suhu = str
dalam HTML =
Jika IsNull(sTemp) = Benar Maka
Fungsi Keluar
Akhiri Jika
sTemp = Ganti(sTemp, &, &)
sTemp = Ganti(sTemp, <br>,chr(13))
sTemp = Ganti(sTemp, <, <)
sTemp = Ganti(sTemp, >, >)
sTemp = Ganti(sTemp, , Chr(34))
diHTML = sTemp
Fungsi Akhir
%>
#T= Fungsi verifikasi ekspresi tabel reguler
<%
'Fungsi verifikasi ekspresi reguler pola-ekspresi reguler strng-string yang perlu diverifikasi
' ===== = ==============
Fungsi RegExpTest(pola, strng)
Redupkan regEx, retVal 'Buat variabel.
SET regEx = RegExp Baru ' Buat ekspresi reguler.
regEx.Pattern = pola ' Tetapkan pola.
regEx.IgnoreCase = False 'Setel apakah peka huruf besar-kecil.
retVal = regEx.Test(strng) 'Jalankan tes pencarian.
RegExpTest = retVal 'Nilai yang dikembalikan, jika tidak cocok maka akan menghasilkan false, jika cocok maka akan dikembalikan benar
SET regEx = TIDAK ADA
Fungsi Akhir
%>
#T= Hasilkan string acak
<%
'Hasilkan string acak
FungsiRndCode()
Redupkan Kumpulan Kode, Kumpulan Jumlah
Kumpulan Kode = 0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz
JumlahSet = 62 'Jumlah teks
Acak
Redupkan vCode(10), vCodes,i
Untuk i = 0 sampai 9
vCode(i) = Int(Rnd * JumlahSet)
vCodes = vCodes & Pertengahan(CodeSet, vCode(i) + 1, 1)
Berikutnya
RndCode=vKode
Fungsi Akhir
%>
#T===============
#T=Operasi terkait FSO
#T= Tentukan apakah direktori tersebut ada
<%
Fungsi IsFloderExist(strFolderName)
SET FSO=Server.CreateObject(Scripting.FileSystemObject)
JIKA(FSO.FolderExists(strFolderName))MAKA
IsFloderExist = Benar
KALAU TIDAK
IsFloderExist = Salah
AKHIR JIKA
SETEL FSO=TIDAK ADA
Fungsi Akhir
%>
#T= Buat direktori
<%
Fungsi BuatFolder(strFolderNama)
SET FSO=Server.CreateObject(Scripting.FileSystemObject)
JIKA(FSO.FolderExists(strFolderName) = Salah) MAKA
FSO.BuatFolder(strFolderNama)
AKHIR JIKA
SETEL FSO=TIDAK ADA
Fungsi AKHIR
%>
#T= Hapus direktori
<%
Fungsi HapusFolder(strFolderNama)
SET FSO=Server.CreateObject(Scripting.FileSystemObject)
JIKA(FSO.FolderExists(strFolderName))MAKA
FSO.DeleteFolder(strFolderName)
AKHIR JIKA
SETEL FSO=TIDAK ADA
Fungsi AKHIR
%>
#T= Tentukan apakah file tersebut ada
<%
Fungsi IsFileExist(strFileName)
SET FSO=Server.CreateObject(Scripting.FileSystemObject)
JIKA(FSO.FileExists(strFileName))MAKA
IsFileExist = Benar
KALAU TIDAK
IsFileExist = Salah
AKHIR JIKA
SETEL FSO=TIDAK ADA
Fungsi Akhir
%>
#T= hapus file
<%
Fungsi HapusFile(strFileName)
SET FSO=Server.CreateObject(Scripting.FileSystemObject)
JIKA(FSO.FileExists(strFileName))MAKA
FSO.DeleteFile(strFileName)
AKHIR JIKA
SETEL FSO=TIDAK ADA
Fungsi AKHIR
%>
#T===============
#T= Beberapa fungsi yang biasa digunakan oleh pencuri ASP
<%
Fungsi ByteToStr(vIn)
Redupkan strReturn,i,ThisCharCode,innerCode,Hight8,Low8,NextCharCode
strKembali =
Untuk i = 1 Ke LenB(vIn)
KodeKar ini = AscB(MidB(vIn,i,1))
JIKA(KodeCharIni < &H80) MAKA
strReturn = strReturn & Chr(KodeCharIni)
KALAU TIDAK
KodeChar Berikutnya = AscB(MidB(vIn,i+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
saya = saya + 1
AKHIR JIKA
Berikutnya
ByteToStr = strKembali
Fungsi Akhir
Fungsi GetHttpPageContent(url,Metode,SendStr)
Pengambilan Redupkan
SET Pengambilan = Server.CreateObject(Microsoft.XMLHTTP)
Dengan Pengambilan
.Metode Terbuka, url, Salah,,
.setRequestHeader Tipe Konten, aplikasi/x-www-form-urlencoded
.Kirim(KirimStr)
GetHttpPageContent = .ResponseBody
Akhiri Dengan
SET Pengambilan = Tidak Ada
GetHttpPageContent=ByteToStr(GetHttpPageContent)
Fungsi Akhir
Fungsi RegExpText(strng,regStr)
Redupkan regEx, Cocokkan, Cocok, RetStr
SET regEx = RegExp Baru
regEx.Pattern = regStr
regEx.IgnoreCase = Benar
regEx.Global = Benar
SET Kecocokan = regEx.Execute(strng)
Untuk Setiap Pertandingan dalam Pertandingan
RetStr = RetStr & regEx.Replace(Match.Value,$1) & ,
Berikutnya
RegExpText = RetStr
atur regEx=tidak ada
Fungsi Akhir
Fungsi StreamBytesToBstr(strBody, CodeBase)
Redupkan objStream
SET objStream = Server.CreateObject(Adodb.Stream)
Dengan objStream
.Jenis = 1
.Modus = 3
.Membuka
.Tulis strBody
.Posisi = 0
.Jenis = 2
.Charset = Basis Kode
StreamBytesToBstr = .ReadText
.Menutup
Akhiri Dengan
SET objStream = Tidak ada
Fungsi Akhir
%>