ASP Kuliah 4: Komponen Bawaan ASP
Penulis：Eve Cole
Waktu Pembaruan：2009-05-30 19:58:14
Dalam tiga kuliah pertama, kami memperkenalkan empat objek bawaan yang disediakan oleh ASP:
Objek respons: Mengirim informasi ke browser.
Objek permintaan: mengakses informasi yang dikirim dari browser ke server (seperti memperoleh data formulir).
Objek sesi: menyimpan dan membaca informasi percakapan pengguna tertentu.
Objek aplikasi: menyimpan dan membaca informasi aplikasi yang dibagikan oleh semua pengguna.
Selain itu, ada objek Server dan objek ObjectContext yang akan kita pelajari pada contoh selanjutnya (petunjuk: sebenarnya, Anda sudah dapat menggunakan pengetahuan yang telah Anda pelajari untuk menulis ruang obrolan online tanpa menyadarinya). Isi kuliah ini adalah penggunaan Komponen (komponen) Server ActiveX ASP.
1. Komponen Kemampuan Browser:
Kita tahu bahwa browser yang berbeda mungkin mendukung fungsi yang berbeda. Misalnya, beberapa browser mendukung frame dan beberapa tidak. Dengan menggunakan komponen ini, Anda dapat memeriksa kemampuan browser sehingga halaman web Anda dapat menampilkan halaman berbeda untuk browser berbeda (seperti menampilkan halaman web tanpa Frame untuk browser yang tidak mendukung Frame). Penggunaan komponen ini sangat sederhana. Perlu dicatat bahwa untuk menggunakan komponen ini dengan benar, Anda harus memastikan bahwa file Browscap.ini adalah yang terbaru (sebenarnya, setiap browser dan fitur-fiturnya tercantum dalam file ini. Anda akan melakukannya mengerti setelah membukanya sendiri. ), jika tidak, hasilnya mungkin sangat berbeda. Misalnya, IE5.0 yang disertakan dalam versi kedua Win98 ditampilkan sebagai Netscape dalam contoh berikut. File ini umumnya terletak di bawah "WinntSystem32InetSrv" di server Web. Versi terbaru dapat diunduh dari http://www.asptracker.com/ atau http://www.cyscape.com/browscap.
Contoh: wuf22.asp
<html>
<TUBUH>
'Catatan: Penggunaan komponen mirip dengan objek, tetapi komponen harus dibuat sebelum digunakan, dan tidak perlu membuat sebelum menggunakan objek bawaan.
<%Set BrowsCap=Server.CreateObject("MSWC.BrowserType")%>
Harap tunggu......
<P>
<BATAS TABEL=1 CELLPADDING=10>
<TR><TD>Jenis peramban</TD><TD><%=BrowsCap.Browser%></TD></TR>
<TR><TD>Versi browser</TD><TD><%=BrowsCap.version%></TD></TR>
<TR><TD>Apakah tabel didukung</TD><TD><%=BrowsCap.tables%></TD></TR>
<TR><TD>Apakah kontrol ActiveX didukung</TD><TD><%=BrowsCap.activexcontrols%></TD></TR>
<TR><TD>Apakah JavaApplets didukung</TD><TD><%=BrowsCap.javaapplets%></TD></TR>
<TR><TD>Apakah JavaScript didukung</TD><TD><%=BrowsCap.javascript%></TD></TR>
<TR><TD>Apakah Cookie didukung</TD><TD><%=BrowsCap.Cookies%></TD></TR>
<TR><TD>Apakah Frame didukung</TD><TD><%=BrowsCap.Frames%></TD></TR>
<TR><TD>Sistem operasi</TD><TD><%=BrowsCap.Platform%></TD></TR>
<TR><TD>Apakah VBScript didukung</TD><TD><%=BrowsCap.vbscript%></TD></TR>
</TABEL>
<%Set BrowsCap = Tidak Ada%>
</BODI>
</HTML>
Catatan: Dalam contoh ini kita juga menyentuh metode CreateObject pada objek Server. Server.CreateObject digunakan untuk membuat komponen ActiveX yang telah terdaftar di server (Catatan: Ada metode lain untuk membuat komponen). Tapi jangan lupa untuk menggunakan "Set Object = Nothing" untuk melepaskan sumber daya tepat waktu. Ini harus menjadi kebiasaan.
2. Komponen Akses File
Komponen Akses File terdiri dari objek FileSystemObject dan objek TextStream. Menggunakan objek FileSystemObject, Anda dapat membuat, mengambil, dan menghapus direktori dan file, sedangkan objek TextStream menyediakan fungsi membaca dan menulis file.
Contoh wuf23.asp. Penekanan: Hanya melalui latihan pemahaman dapat diperdalam. Mempraktikkan dan membandingkan hasil program yang berjalan adalah cara terbaik untuk menguasai keterampilan pemrograman dengan cepat.
<%@ Bahasa=VBScript %>
<% Opsi Eksplisit
' Catat jalur absolutnya: C:Inetpubhomeaspwuf23.asp Jalur laman beranda: C:Inetpubhome
Jalur Redup, File, FSO, CTF, Str, StrHTML, StrNoHTML
'Gunakan metode CreateObject untuk membuat objek FileSystemObject FSO
Setel FSO = Server.CreateObject("Scripting.FileSystemObject")
Path = Server.MapPath("test") 'Kembalikan direktori fisik pengujian (jalur absolut)
'Sejauh menyangkut contoh ini, kalimat berikut mengembalikan Path yang sama persis dengan kalimat di atas
'Jalur = Server.MapPath("asptest")
Respons.Jalur Tulis & "<Br>"
Jika FSO.FolderExists(Path) = false maka 'Tentukan apakah folder tersebut ada
FSO.CreateFolder(Path) 'Buat folder baru
Akhiri Jika
File = Jalur & "asptest.txt"
'Tulis operasi file
Jika FSO.FileExists(File) = True Maka 'Tentukan apakah file tersebut ada
'Buat CTF objek TextStream
Set CTF = FSO.OpenTextFile(File, 8, False, 0) 'Buka file, lihat deskripsi untuk detailnya
Kalau tidak
Setel CTF = FSO.CreateTextFile(File,False, False) 'File baru
Akhiri Jika
CTF.Write "<P>String pertama; " 'Tulis string
CTF.WriteLine "String kedua; " 'Tulis string dan tambahkan karakter baris baru
CTF.Tulis "String ketiga; "
CTF.Close 'Catatan untuk menutup file
'Baca operasi file
Setel CTF = FSO.OpenTextFile(File, 1,,0)
Do While CTF.AtEndOfStream <> True 'Tentukan apakah file berakhir (pernyataan loop)
Str = CTF.ReadLine 'Baca satu baris (setiap kali)
StrNoHTML = StrNoHTML & Str & "<BR>" & VbCrLf
StrHTML = StrHTML & Server.HTMLEncode(Str) & "<BR>" & VbCrLf
Lingkaran
Respon.Tulis StrNoHTML
Respon.Tulis StrHTML
KKP.Tutup
Set CTF = Nothing 'Lepaskan objeknya
Tetapkan FSO = Tidak Ada
%>
CTF = FSO.OpenTextFile(File, 8, False, 0), parameter pertama dalam tanda kurung adalah nama file; parameter kedua adalah 8 yang berarti menambahkan konten setelah file asli -hanya, dan jika 2, itu akan Menulis ulang file asli; parameter ketiga salah berarti jika file yang ditentukan tidak ada, file tidak akan dibuat; ada, maka file akan dibuat; parameter keempat 0 berarti akan dibuka dalam format file ASCII. Jika -2 berarti dibuka dalam format aslinya.
CTF = FSO.CreateTextFile(File,False, False), parameter kedua false artinya tidak menimpa file yang ada, jika True berarti menimpa (OverWrite) file yang ada; parameter ketiga false artinya format file ASCII , jika True menunjukkan bahwa format file adalah Unicode.
Metode MapPath dari objek Server mengubah jalur virtual yang ditentukan menjadi jalur file nyata. MapPath memperlakukan karakter "/" dan "" dengan cara yang sama.
Metode HTMLEncode pada objek Server memungkinkan Anda mengkodekan HTML string tertentu, atau memungkinkan browser menampilkan karakter tertentu dengan benar. Dalam contoh di atas, jika tidak dikodekan, "<P>" tidak akan ditampilkan, tetapi akan diperlakukan sebagai tag HTML oleh browser. Anda dapat membandingkan hasil yang berjalan.
Faktanya, komponen Akses File relatif kuat dalam mengoperasikan file, folder dan drive, dan juga menyediakan lebih banyak metode. Jika Anda perlu menggunakan pengetahuan ini, jangan lupa untuk menggunakannya.
Selain itu, saat ini, menulis penghitung halaman web adalah hal yang mudah. Tak heran jika banyak halaman web yang menyediakan penghitung gratis. Bagaimana dengan itu? Cobalah menulis penghitung grafis sendiri. Anda bisa menipu sebanyak yang Anda mau. Anda punya keputusan akhir. (Rahasia kecil: Saya punya instance wuf24.asp di beranda saya)
3. AD Rotator (komponen membalik iklan)
Saat ini, ketika berselancar di Internet, yang paling saya benci adalah spanduk iklan di beranda orang lain, dan yang paling saya sukai adalah spanduk iklan di beranda saya sendiri.Banduk iklan ada di mana-mana seperti spam dan sulit untuk dicegah. Anda juga dapat membuat sampah tersebut sendiri. Komponen AD Rotator ASP dapat menampilkan iklan secara acak setiap kali Anda membuka atau memuat ulang halaman web. Contoh ini terdiri dari tiga bagian:
Wuf25.asp rutin
<%@ Bahasa=VBScript %>
<% Opsi Eksplisit
Redupkan adr
'Buat objek Rotator AD
Setel adr = Server.CreateObject("MSWC.AdRotator")
adr.Border = 2 'Tentukan ukuran batas file grafik
adr.Clickable = True 'Menunjukkan apakah gambar yang ditampilkan adalah hyperlink
adr.TargetFrame = "_blank" 'Atur hyperlink apakah akan menentukan nama Frame, seperti: _TOP _NEW _PARENT
'Dapatkan pengaturan gambar dan hyperlink untuk ditampilkan - atur di file AdrSet.txt
Respon.Tulis adr.GetAdvertisement("AdrSet.txt")
%>
Isi AdrSet.txt (diikuti dengan komentar, bukan isi file ini):
REDIRECT wuf26.asp Setelah klik iklan maka akan diproses oleh wuf26.asp
LEBAR 468 Lebar gambar iklan
TINGGI 60 Tinggi gambar iklan
* pemisah
Lokasi gambar iklan, yang juga dapat berupa file grafik lokal
http://www.163.com/ menunjuk ke link tersebut. Jika tidak ada hyperlink, tulis "-"
Deskripsi teks NetEase
Gambar 20 menunjukkan bobot relatif iklan, yaitu frekuensi penayangan
http://www.sina.com.cn/
sina.com
30
http://www.canon.com.cn/
kanon
50
Dalam contoh ini, terdapat tiga gambar (ukuran gambar 468X60) dan tautan. Deskripsi setiap tautan menempati empat baris.
<% 'wuf26.asp
URL = Permintaan.QueryString("url")
Respon.Redirect(URL)
%>
wuf26.asp adalah program pemrosesan paling sederhana, Anda dapat menambahkan lebih banyak kode di sini sesuai dengan kebutuhan sebenarnya.
Jalankan dan ternyata penggunaan komponen ini juga sangat sederhana, Anda hanya perlu mendapatkan file AdrSet.txt Anda sendiri. Dengan menggunakan komponen ini, Anda bahkan dapat mendesain beranda pertukaran iklan yang kini sangat trendi.
4. Komponen Tautan Konten Jelas sekali komponen ini berkaitan dengan tautan. Jika Anda ingin segera mengetahui kegunaan spesifik dari komponen ini, saya khawatir ini terlalu terburu-buru Anda sebaiknya mengutip contoh klasik terlebih dahulu: Misalkan Anda sedang membaca a buku di Internet, Anda pasti tidak asing dengan tautan berikut. Akan asing: Bab 1, Bab 2,..., bab sebelumnya, bab berikutnya (atau halaman sebelumnya, halaman berikutnya), dll. Yang harus kita lakukan sekarang adalah bagaimana mengatur lompatan antar link tersebut dengan mudah dan cepat.
Pertama buat file teks daftar tautan, seperti urllist.txt
wuf23.asp Bab 1: Operasi File (Komponen Akses File)
wuf28.asp Bab 2: Contoh penggunaan komponen Tautan Konten
wuf22.asp Bab 3: Alamat URL Tautan Komponen Kemampuan Browser dan deskripsi dipisahkan oleh tombol Tab. Wuf27.asp berikut digunakan untuk mencantumkan semua tautan di urllist.txt.
<% @LANGUAGE = VBScript %>
<% Opsi Eksplisit %>
<html><head><title>Penggunaan komponen Penautan Konten</title></head>
<tubuh>
<h2>Daftar Isi: Perhatikan bahwa tautan intinya adalah Bab 2, Anda harus mengkliknya</h2>
<ul>
<%
Redupkan Tautan Berikutnya, Hitung
'Buat komponen Tautan Konten
Setel Tautan Berikutnya = Server.CreateObject("MSWC.NextLink")
'Dapatkan jumlah link di file urllist.txt
Hitung = NextLink.GetListCount("urllist.txt")
Redupkan url, Dscr, I
Untuk I = 1 Untuk Menghitung
url = NextLink.GetNthURL ("urllist.txt", I) 'Dapatkan hyperlink
Dscr = NextLink.GetNthDescription ("urllist.txt", I) 'Dapatkan deskripsi teks
Respon.Tulis "<li><a href = """ & url & """>" & Dscr & "</a>" & vbcrlf
Berikutnya
%>
</ul></tubuh></html>
Kemudian, ambil wuf28.asp sebagai contoh untuk mengilustrasikan cara melompat ke bab sebelumnya dan bab berikutnya secara otomatis.
<% @LANGUAGE = VBScript %>
<% Opsi Eksplisit %>
<html><head><title>Perhatikan tautan ini</title></head>
<tubuh>
<p>Ini teks Bab 2......</p>
<% 'Setiap file berisi kalimat berikut untuk mencapai tautan otomatis%>
<!--#termasuk file="wuf29.asp"-->
</tubuh></html>
Menambahkan kalimat terakhir di sini dapat mewujudkan lompatan otomatis. Intinya ada di wuf29.asp.
<%
Redupkan NextLink, peringkat
Setel NextLink = Server.CreateObject ("MSWC.NextLink")
'Apa tautan saat ini di urllist.txt?
peringkat = NextLink.GetListIndex ("urllist.txt")
Respon.Tulis "<hr>"
Jika (peringkat > 1) Maka 'peringkat = 1 tidak ada halaman sebelumnya
Response.Write "|<a href=""" & NextLink.GetPviousURL("urllist.txt") & """>Bab Sebelumnya</a>|"
Akhiri Jika
Jika (peringkat < NextLink.GetListCount("urllist.txt")) Lalu 'peringkat ada di akhir, maka tidak ada halaman berikutnya
Response.Write "|<a href=""" & NextLink.GetNextURL("urllist.txt") & """>Bab Berikutnya</a>|"
Akhiri Jika
%>
Setelah menjalankan contoh ini, Anda akan langsung dapat benar-benar memahami peran komponen ini. Singkatnya, tidak perlu menulis "bab sebelumnya" dan "bab selanjutnya" di setiap halaman .Sangat tidak nyaman? ! Jika tidak, bukankah akan terlalu merepotkan jika Anda mengubah tautan secara manual?
Sekarang Anda harus memahami bahwa ada banyak penghitung gratis, papan pesan gratis, ruang obrolan gratis, jaringan pertukaran iklan, dll. di Internet. Prinsip mereka tidak lebih dari ini, jadi tidak perlu memujanya.
