Penggunaan editor teks dapat ditelusuri kembali ke Java, tetapi banyak orang tidak tertarik pada editor teks pada waktu itu. Artikel hari ini adalah tentang file pengeditan editplus. Mari kita pelajari dengan editor saluran teknologi baru yang salah!
#Title = sintaks umum dan fungsi ASP
#Info
Beberapa sintaks yang biasa digunakan dan fungsi khusus di ASP
#Sort = n
#T = === Sintaks umum untuk ASP ===
#T =========================================
#T = Database terkait
#T = terhubung ke database akses
<%
Redup dbname, Conn
Dbname "^!" 'Tentukan jalur dan nama basis data
Set Conn = Server.CreateObject ("AdodB.Connection")
Conn.open "penyedia = microsoft.jet.oledb.4.0; sumber data =" & server.mappath (dbName)
%>
#T = terhubung ke database MS SQL
<%
Redup conn
Set Conn = Server.CreateObject ("AdodB.Connection")
Conn.open "penyedia = sqloledb; sumber data = nama server sql atau alamat ip; uid = akun login basis data; pwd = kata sandi basis data; database = nama basis data"
%>
#T = Buat set rekaman
Set ^! = Server.CreateObject ("AdodB.Recordset")
#T = Jalankan perintah SQL
Rs.open SQL, Conn, 1,1
#T = Jalankan perintah SQL
Conn.execute ("^!")
#T = RS secara langsung menjalankan perintah SQL
Set rs = conn.execute ("^!")
#T = tutup set rekaman
Rs.close
Setel RS = tidak ada
#T = tutup database
Conn.Close
Atur conn = tidak ada
#T =========================================
#T = Servervariables terkait
#T = Dapatkan alamat halaman sebelumnya
Request.servervariables ("http_referer")
#T = ambil nama server 1
Request.serverVariable ("server_name")
#T = ambil nama server 2
Request.servervariable ("http_host")
#T = Dapatkan ip server
Request.servervariable ("local_addr")
#T = Dapatkan IP pengguna
Request.servervariable ("remote_host")
#T = Dapatkan IP1 asli pengguna
Request.servervariable ("remote_addr")
#T = Dapatkan fungsi IP nyata pengguna
Fungsi getrealip ()
GetRealip = request.serverVariable ("http_x_forwarded_for")
If (getreLip = "") lalu getRealip = request.servaribles ("remote_addr")
Fungsi akhir
#T = Dapatkan port server
Request.serverVariable ("server_port")
#T = Dapatkan sistem operasi server
Request.servaribles ("OS")
#T = Dapatkan jalur absolut ke server
Request.serverVariable ("appl_physical_path")
#T = ambil jalur absolut 1 dari file ini
REQUET.SERVERVARIABLE ("PATT_TRANSLATED")
#T = ambil jalur absolut 2 dari file ini
Server.mappath (request.serverVariable ("script_name"))
#T = ambil jalur relatif 1 dari file ini
Request.servaribles ("url")
#T = ambil jalur relatif 2 dari file ini
Request.servervariable ("script_name")
#T = ambil jalur relatif 3 dari file ini
Request.serverVariable ("path_info")
#T = parameter setelah bilah alamat
Request.servervariable ("query_string")
#T = Dapatkan informasi sistem server
Request.serverVariable ("http_user_agent")
#T = deteksi komponen server
<%
Fungsi isobjinstalled (strclassstring)
Pada kesalahan resume berikutnya
Isobjinstalled = false
Err = 0
Redup xtestobj
Set xtestoBj = server.createObject (strclassString)
If (0 = err) kemudian isobjinstalled = true
Atur xtestoBj = tidak ada
Err = 0
Fungsi akhir
'If (isobjinstalled ("persits.upload") = true) lalu
'Response.write "mendukung komponen aspupload"
'KALAU TIDAK
'Response.write "Aspupload Component tidak didukung"
'Akhiri jika
%>
#T = Dapatkan lokal klien
^! Request.ServerVariable ("http_accept_anguage")
#T = Dapatkan informasi klien: http_user_agent
^! Request.ServerVariable ("http_user_agent")
#T = Dapatkan nilai elemen nilai formulir
Request.form ("^!")
#T = Dapatkan nilai yang dilewati oleh URL
Request.querystring ("^!")
#T = Dapatkan alamat URL lengkap
Fungsi getUrl ()
GetUrl = "http: //" & request.
If (request.serverVariable ("query_string") <> "") kemudian getUrl = getUrl & "?" & Request.servarivle ("query_string")
Fungsi akhir
#T =========================================
#T = fungsi khusus
#T = filter karakter html
<%
'Filter Fungsi Karakter HTML
Fungsi htmlencode (str)
If (str <> "") lalu
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), "
")
str = ganti (str, chr (10), "
")
str = ganti (str, chr (255), "")
Akhiri jika
Htmlencode = str
Fungsi akhir
%>
#T = periksa apakah halaman sebelumnya dikirim dari situs ini
<%
'Periksa apakah halaman sebelumnya dikirim dari situs ini
'Return: Benar, salah
'================================================================================================================================
Function isSelfrefer ()
Redup shttp_referer, sserver_name
shttp_referer = cstr (request.serverVariable ("http_referer")))
sserver_name = cstr (request.serverVariable ("server_name"))
If (mid (shttp_referer, 8, len (sserver_name)) = sserver_name) Kemudian
Isselfrefer = true
KALAU TIDAK
Isselfrefer = false
Akhiri jika
Fungsi akhir
%>
#T = Bersihkan semua tag HTML
<%
'Hapus tag HTML
Function stripHTML (htmlstr)
Redup regex
Atur regex = regexp baru
Regex.ignorecase = true
regex.global = true
Regex.pattern = "<.+?>"
htmlstr = regex.replace (htmlstr, "")
htmlstr = ganti (htmlstr, "<", "<")
htmlstr = ganti (htmlstr, ">", ">")
htmlstr = ganti (htmlstr, chr (10), "")
htmlstr = ganti (htmlstr, chr (13), "")
striphtml = htmlstr
Atur regex = tidak ada
Fungsi akhir
%>
#T = ambil panjang string
<%
'Temukan fungsi panjang string
Function getLength (str)
Panjang redup
Untuk i = 1 ke len (str)
If (asc (mid, i, 1)) <0 atau asc (mid (str, i, 1))> 256) lalu
Panjang = panjang+2
KALAU TIDAK
Panjang = panjang+1
Akhiri jika
Berikutnya
GetLength = panjang
Fungsi akhir
%>
#T = mencegat string dengan panjang yang ditentukan
<%
'Mencegat string panjang yang ditentukan, dan gunakan yang ekstra alih -alih ...
Fungsi Strleft (Str, Strlen)
If (str = "") lalu
Strleft = ""
Fungsi keluar
Akhiri jika
Redup l, t, c, i
str = ganti (ganti (ganti (ganti (ganti (ganti (str, "", ""), ""), "" ", chr (34)),"> ","> ")," <"," <"," <")
l = len (str)
t = 0
Untuk i = 1 hingga l
C = ABS (ASC (MID (str, I, 1)))))
If (c> 255) lalu
t = t+2
KALAU TIDAK
t = t+1
Akhiri jika
If (t> strlen) lalu
Strleft = kiri (str, i) & "..."
Keluar untuk
KALAU TIDAK
Strleft = str
Akhiri jika
Berikutnya
Strleft = ganti (ganti (ganti (ganti (ganti (strleft, "", ""), chr (34), ""), ">", ">"), "<", "<", "<")
Fungsi akhir
%>
#T = Dapatkan parameter pengiriman yang aman
<%
'================================================================================================================================
'Pemeriksaan Injeksi SQL
'Fungsi fungsi: filter satu kutipan dalam parameter karakter, juri parameter numerik, jika bukan tipe numerik, lalu tetapkan 0
'Parameter Arti: str ---- parameter yang akan difilter
'strtype --- tipe parameter, dibagi menjadi tipe karakter dan tipe numerik, tipe karakter adalah "s" dan tipe numerik adalah "i"
'================================================================================================================================
Function Checkstr (strtype)
Redup strtmp
strtmp = ""
If (strtype = "s") lalu
strtmp = ganti (trim (str), "'", "' '")
Elseif (strtype = "i") Lalu
If (isNumeric (str) = false) maka str = false
strtmp = str
KALAU TIDAK
strtmp = str
Akhiri jika
Checkstr = strtmp
Fungsi akhir
%>
#T = Filter Karakter Buruk (Badword)
<%
'Filter Karakter Buruk (Badwords)
Fungsi chkbadwords (fstring)
Redwords redup, bwords, i
Badwords = "I Fuck | Fuck You | Fuck Him | bercinta | FUCK | DOG | BASTARD | CUNT | Dick | Turtle | Rape | Sex | Virgin | Zemin | Falun | Falun | Hongzhi | Fashion"
If (not (isNull (badwords) atau isnull (fstring))) kemudian
BWORDS = split (Badwords, "|")
Untuk i = 0 ke ubound (bwords)
fString = ganti (fstring, bwords (i), string (len (bwords (i)), "*"))
Berikutnya
Chkbadwords = fString
Akhiri jika
Fungsi akhir
%>
#T = menghasilkan kata sandi panjang kustom acak
<%
'Hasilkan kata sandi panjang kustom acak
Fungsi makePassword (maxlen)
Redup strnewpass
Redup whatsnext, atas, bawah, intcounter
Mengacak
Untuk intcounter = 1 ke maxlen
whatsnext = int ((1 - 0 + 1) * rnd + 0)
If (whatsnext = 0) lalu
'karakter
atas = 90
lebih rendah = 65
KALAU TIDAK
atas = 57
lebih rendah = 48
Akhiri jika
StrnewPass = StrnewPass & Chr (int ((atas - bawah + 1) * rnd + lebih rendah))
Berikutnya
Makepassword = StrnewPass
Fungsi akhir
'Response.write Makepassword (8)
%>
#T = Simpan format inhTML saat mengisi tekstara
<%
'================================================================================================================================
'Hapus format HTML, digunakan untuk menghapus nilai dari database dan mengisi kotak input
'Catatan: value = "?" Ini pasti kutipan ganda di sini
'================================================================================================================================
Fungsi inhTML (str)
Stemp redup
stemp = str
inhTMl = ""
If isNull (stemp) = true kemudian
Fungsi keluar
Akhiri jika
stemp = ganti (stemp, "&", "&")
stemp = ganti (stemp, "
", Chr (13))
stemp = ganti (stemp, "<", "<")
stemp = ganti (stemp, ">", ">")
stemp = ganti (stemp, "" ", chr (34))
inhTMl = stemp
Fungsi akhir
%>
#T = fungsi verifikasi ekspresi tabel reguler
<%
'Fungsi Verifikasi Ekspresi Tabel Reguler Patrn-regular Ekspresi strng-string untuk memverifikasi
'================================================================================================================================
Fungsi regexptest (patn, strng)
Dim Regex, retval 'Buat variabel.
Setel regex = regexp baru 'buat ekspresi reguler.
Regex.pattern = Mode Set Patrn '.
regex.ignorecase = false 'set apakah itu sensitif kasus.
retval = regex.test (strng) 'Lakukan tes pencarian.
Regexptest = retval 'nilai pengembalian, jika tidak cocok, itu mengembalikan false, jika cocok
Atur regex = tidak ada
Fungsi akhir
%>
#T = menghasilkan string acak
<%
'Hasilkan string acak
Fungsi rndcode ()
CODESET DIM, JumlahSET
Codeset = "0123456789AbcDefgHijKlMnopQrStuvWxyzabcdefghijklmnopqrstuvwxyz"
JumlahSset = 62 'Jumlah teks
Mengacak
Redup vcode (10), vcode, i
Untuk i = 0 hingga 9
vcode (i) = int (rnd * jumlahset)
vcodes = vcodes & mid (codeset, vcode (i) + 1, 1)
Berikutnya
Rndcode = vcode
Fungsi akhir
%>
#T =========================================
#T = Operasi terkait FSO
#T = Tentukan apakah ada direktori
<%
Fungsi ISFLODEREXIST (strfoldername)
Atur fso = server.CreateObject ("Scripting.FilesystemObject")
If (fso.folderexists (strfoldername)) lalu
Isfloderexist = true
KALAU TIDAK
Isfloderexist = false
Akhiri jika
Atur fso = tidak ada
Fungsi akhir
%>
#T = Buat direktori
<%
Function createFolder (strfoldername)
Atur fso = server.CreateObject ("Scripting.FilesystemObject")
If (fso.folderexists (strfoldername) = false) lalu
Fso.createFolder (strfoldername)
Akhiri jika
Atur fso = tidak ada
Fungsi akhir
%>
#T = DETE Direktori
<%
Function deletefolder (strfoldername)
Atur fso = server.CreateObject ("Scripting.FilesystemObject")
If (fso.folderexists (strfoldername)) lalu
Fso.deleteFolder (strfoldername)
Akhiri jika
Atur fso = tidak ada
Fungsi akhir
%>
#T = Tentukan apakah ada file
<%
Fungsi IsfileExist (Strfilename)
Atur fso = server.CreateObject ("Scripting.FilesystemObject")
If (fso.fileexists (strfileName)) lalu
IsFileExist = true
KALAU TIDAK
IsFileExist = false
Akhiri jika
Atur fso = tidak ada
Fungsi akhir
%>
#T = hapus file
<%
Fungsi DeleteFile (Strfilename)
Atur fso = server.CreateObject ("Scripting.FilesystemObject")
If (fso.fileexists (strfileName)) lalu
Fso.deleteFile (strfilename)
Akhiri jika
Atur fso = tidak ada
Fungsi akhir
%>
#T =========================================
#T = beberapa fungsi yang biasa digunakan oleh pencuri ASP
<%
Function bytetoStr (VIN)
Redup strreturn, i, kode ini, kode dalam, hight8, low8, nextcharcode
strreturn = ""
Untuk i = 1 ke lenb (vin)
Kode ini = ASCB (midb (vin, i, 1))
If (ini kode <& H80) lalu
Strreturn = Strreturn & CHR (Kode ini)
KALAU TIDAK
NextCharCode = ASCB (midb (vin, i+1,1)))
Strreturn = Strreturn & Chr (Clng (ThisCharcode) * & H100 + CINT (NextCharCode))
i = i + 1
Akhiri jika
Berikutnya
BYTETOSTR = Strreturn
Fungsi akhir
Fungsi getHttppageContent (url, metode, sendstr)
Redup pengambilan
Set retrieval = server.createObject ("microsoft.xmlhttp")
Dengan pengambilan
Metode .open, url, false, "", ""
.setRequestHeader "tipe konten", "Aplikasi/X-WWW-Form-Burlencoded"
.Send (sendstr)
GetHttppageContent = .responseBody
Berakhir dengan
Atur retrieval = tidak ada
GetHttppageContent = bytetoStr (getHttppageContent)
Fungsi akhir
Fungsi regexptext (strng, regstr)
Redup regex, pertandingan, pertandingan, retstr
Atur regex = regexp baru
regex.pattern = regstr
Regex.ignorecase = true
regex.global = true
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)
Redup objstream
Set ObjStream = Server.CreateObject ("AdodB.Stream")
Dengan objstream
.Type = 1
.Mode = 3
.Membuka
.Trit Strbody
.Posisi = 0
.Type = 2
.Charset = basis kode
StreamByTestObstr = .readtext
.Menutup
Berakhir dengan
Atur objstream = tidak ada
Fungsi akhir
%>
Melalui file pengeditan tentang editplus yang diperkenalkan oleh editor 未分 saluran teknologi baru, saya percaya setiap orang memiliki pemahaman tertentu. Jika Anda ingin mengetahui lebih banyak konten teknis, silakan terus perhatikan 未分 saluran teknologi baru!