Isi artikel 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 dari objek 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. Dengan 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
Redupkan Path, 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")
Response.Write Path & "<Br>"
Jika FSO.FolderExists(Path) = false maka 'Tentukan apakah folder tersebut ada
FSO.CreateFolder(Path) 'Buat folder baru
Berakhir 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 'Hati-hati saat 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
CTF.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, jika 1, itu berarti read-only, jika 2 File asli akan ditulis ulang; parameter ketiga false berarti jika file yang ditentukan tidak ada, file tidak akan dibuat; ada, maka file akan dibuat; parameter keempat 0 berarti file akan dibuat dalam format file ASCII Terbuka, 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 contoh wuf24.asp di beranda saya)
3. AD Rotator (komponen pembalikan iklan)
Sekarang di Internet, saya khawatir yang paling mengganggu adalah spanduk iklan di beranda orang lain, dan yang paling favorit adalah spanduk iklan di beranda saya sendiri. Iklan Seperti spam, pesan berlimpah dan sulit 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 mencakup tiga bagian:
rutin wuf25.asp
<%@ Language=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
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, ada tiga gambar (ukuran gambar 468X60) dan tautan. Deskripsi setiap tautan menempati empat baris. Dalam penggunaan sebenarnya, Anda dapat mengikuti metode yang sama dan menambahkan lebih banyak gambar.
<% 'wuf26.asp
URL = Permintaan.QueryString("url")
Respon.Redirect(URL)
%>
wuf26.asp adalah program pemrosesan yang 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: Operasi file (komponen Akses File)
wuf28.asp: Contoh penggunaan komponen Tautan Konten
wuf22.asp: Alamat dan deskripsi URL tautan komponen kemampuan browser
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 NextLink = 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></body></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>
<body>
<p>Ini teks Bab 2...</p>
<% 'Setiap file berisi kalimat berikut untuk mencapai tautan otomatis%>
<!--#termasuk file="wuf29.asp"-->
</body></html>
Tambahkan kalimat terakhir di sini untuk 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")
Response.Tulis "<hr>"
Jika (peringkat > 1) Maka 'peringkat = 1 Halaman sebelumnya tidak ada
Response.Write "|<a href=""" & NextLink.GetPviousURL("urllist.txt") & """>Bab Sebelumnya</a>|"
End If
If (rank < NextLink.GetListCount("urllist.txt")) Then 'rank 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 .asp , bukankah ini sangat 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.
