| <%=BrowsCap.Browser%> |
| ブラウザのバージョン | <%=BrowsCap.version%> |
| テーブルがサポートされているかどうか | <%=BrowsCap.tables%> ;gt;
|
gt;| ActiveX コントロールがサポートされているかどうか | gt;gt; ; |
gt;| JavaApplet がサポートされているかどうか | gt;gt; | gt;
gt ;
|
| Cookie をサポートするかどうか | ;<%=BrowsCap.Cookies%> |
| フレームをサポートするかどうか | <%= BrowsCap.Frames%><
| オペレーティング システム | <%=BrowsCap.Platform%> ; |
gt;| VBScript がサポートされているかどうか | gt;gt;<%=BrowsCap.vbscript%>gt; | gt;
;
<%Set BrowsCap = Nothing%>
注: この例では、Server オブジェクトの CreateObject メソッド Server.CreateObject にも触れました。ActiveX コンポーネントの作成に使用されます。サーバーに登録されているものです (注: コンポーネントを作成する方法は他にもあります)。ただし、時間内にリソースを解放するには「Set Object = Nothing」を使用することを忘れないでください。これは習慣になるはずです。
2. ファイル アクセス コンポーネント
ファイル アクセス コンポーネントは、FileSystemObject オブジェクトと TextStream オブジェクトで構成され、FileSystemObject オブジェクトを使用してディレクトリとファイルの作成、取得、削除を行うことができ、TextStream オブジェクトはファイルの読み取りと書き込みの機能を提供します。
wuf23.asp の例。強調: プログラムの実行結果を実践して比較することは、実践を通じてのみ理解を深めることができます。これは、プログラミング スキルを迅速に習得するための最良の方法です。
<%@ Language=VBScript %>
<% Option Explicit
' 絶対パスに注意してください: C:Inetpubhomeaspwuf23.asp ホーム ページのパス: C:Inetpubhome
Dim Path、File、FSO、CTF、Str、StrHTML、 StrNoHTML
'CreateObject メソッドを使用して FileSystemObject オブジェクト FSO を作成します
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Path = Server.MapPath("test") 'テストの物理ディレクトリを返します (絶対パス) )
'この例だけ 一般的に、次の文は上の文とまったく同じ Path を返します
'Path = Server.MapPath("asptest")
Response.Write Path & "
"
If FSO。 FolderExists(Path) = false then 'フォルダーが存在するかどうかを判断します
FSO.CreateFolder(Path) '新しいフォルダーを作成します
End If
File = Path & "asptest.txt"
' ファイルの書き込み操作
If FSO.FileExists( File) = True then ' ファイルが存在するかどうかを確認します
'TextStream オブジェクト CTF を作成します
Set CTF = FSO.OpenTextFile(File, 8, False, 0) ' ファイルを開きます。詳細については説明を参照してください
Else
Set CTF = FSO.CreateTextFile(File, False, False) '新しいファイルを作成します
End If
CTF.Write "gt;最初の文字列; " '文字列を書き込みます
CTF.WriteLine "2番目の文字列; " '文字列を書き込みます改行文字を追加します
CTF.Write "3番目の文字列; "
CTF.Close 'ファイルを閉じることに注意してください
' ファイルの読み取り操作
Set CTF = FSO.OpenTextFile(File, 1,,0)
Do While CTF.AtEndOfStream <> True ) & "
& VbCrLf
Loop
Response.Write StrNoHTML
Response.Write StrHTML
CTF.Close
Set CTF = Nothing 'オブジェクトを解放
Set FSO = Nothing
%> ;
CTF = F SO.OpenTextFile (File, 8, False, 0)、括弧内の最初のパラメーターはファイル名です。2 番目のパラメーターは 8 で、1 の場合はコンテンツを元のファイルの後に追加します。読み取り専用を意味し、2 の場合は元のファイルが上書きされます。3 番目のパラメータ false は、指定されたファイルが存在しない場合に新しいファイルが作成されないことを意味します。True の場合は、それを意味します。指定されたファイルが存在しない場合は、ファイルが作成されます。4 番目のパラメータ 0 は、ASCII ファイル形式で開くことを意味します。-2 の場合は、元の形式で開くことを意味します。
CTF = FSO.CreateTextFile(File,False, False)、2 番目のパラメーター false は既存のファイルを上書きしないことを意味し、True の場合は既存のファイルを上書き (OverWrite) することを意味します。3 番目のパラメーター false はファイル形式がASCII、True は、ファイル形式が Unicode であることを示します。
Server オブジェクトの MapPath メソッドは、指定された仮想パスを実際のファイル パスに変換します。 MapPath は、「/」文字と「」文字を同じものとして扱います。
Server オブジェクトの HTMLEncode メソッドを使用すると、特定の文字列を HTML エンコードしたり、特定の文字をブラウザーで正しく表示できるようにしたりできます。上記の例では、エンコードされていない場合、「
」は表示されませんが、ブラウザによって HTML としてマークされます。
実際、ファイル アクセス コンポーネントはファイル、フォルダー、ドライブの操作において比較的強力であり、この知識を使用する必要がある場合は、忘れずに使用してください。
さらに、今では、Web ページのカウンターを作成するのは簡単です。非常に多くの Web ページが無料のカウンターを提供しているのも不思議ではありません。どうでしょうか？グラフィカルなカウンターを自分で作成してみてください。最終決定権はあなたにあります。 (ちょっとした秘密: 私のホームページには wuf24.asp のインスタンスがあります)
3. AD Rotator (広告反転コンポーネント)
現在、インターネット上で最も迷惑なのは、他人のホームページ上の広告バナーではないかと思います。そして最も気に入っているのは、自分のホームページ上のバナーや広告バナーがスパムのようにどこにでもあるため、防御するのが困難です。このようなゴミを自分で作成することもできます。ASP の AD Rotator コンポーネントは、Web ページを開いたりリロードしたりするたびに広告をランダムに表示します。この例には 3 つの部分が含まれています:
Routine wuf25.asp
<%@ Language=VBScript %>
<% Option Explicit
Dim adr
'Create AD Rotator object
Set adr = Server.CreateObject("MSWC.AdRotator " )
adr.Border = 2 'グラフィックファイルの枠線サイズを指定
adr.Clickable = True '表示される画像がハイパーリンクかどうかを示す
adr.TargetFrame = "_blank" 'ハイパーリンク設定時にフレーム名を指定するかどうか、例: _TOP _NEW _PARENT
' 表示する画像とハイパーリンクの設定を取得します - ファイル AdrSet.txt に
Response.Write adr.GetAdvertising("AdrSet.txt")
%>
AdrSet.txt コンテンツを設定します (コメントが続きます)、このファイルの内容ではありません):
REDIRECT wuf26.asp 広告をクリックすると、wuf26.asp によって処理されます
WIDTH 468 広告画像の幅
HEIGHT 60 広告画像の高さ
* 区切り文字
http: //www.soyou.com /prog/ad/468x60_1.gif 広告画像の場所は、リンクを指すローカル グラフィック ファイル
http://www.163.com/ にすることもできます。ハイパーリンクがない場合は、 「-」を書きます
NetEase テキストの説明
20 広告の相対的な重み、つまり表示頻度を表示します
http://fp.cache.imgis.com/images/Ad173962St1Sz1Sq1Id2.gif
http://www. sina.com.cn/
Sina.com
30
http://www. ../images/flag.gif
などのローカル画像を使用することもできます。 canon.com.cn/
Canon
50
この例には 3 つの画像 (画像サイズ 468X60) とリンクがあります。実際の使用では、同じ方法に従ってさらに画像を追加できます。 。
<% 'wuf26.asp
URL = Request.QueryString("url")
Response.Redirect(URL)
%>
wuf26.asp は最も単純な処理プログラムであり、実際のニーズに応じてここに追加できます。コード。
実行してみると、このコンポーネントの使用方法も非常に簡単で、独自の AdrSet.txt ファイルを取得するだけであることがわかります。このコンポーネントを使用すると、今非常にトレンディーな Ad Exchange ホームページをデザインすることもできます。
4. コンテンツ リンク コンポーネント
このコンポーネントの具体的な使用方法をすぐに知りたい場合は、最初に古典的な例を引用した方がよいでしょう。インターネットで本を読んでいますが、次のリンクについてどう思いますか?: 第 1 章、第 2 章、...、前の章、次の章 (または前のページ、次のページ) など。ここで私たちがしなければならないことは、これらのリンク間のジャンプを簡単かつ迅速に設定する方法です。
まず、urllist.txt などのリンク リスト テキスト ファイルを作成します
wuf23.asp 第 1 章: ファイル操作 (ファイル アクセス コンポーネント)
wuf28.asp 第 2 章: コンテンツ リンク コンポーネントの使用例
wuf22.asp 第 3 章: ブラウザー サーバー機能コンポーネント
リンク URL アドレスと説明は Tab キーで区切られます。次の wuf27.asp は、urllist.txt 内のすべてのリンクを一覧表示するために使用されます。
<% @LANGUAGE = VBScript %>
<% Option Explicit %>
コンテンツリンクコンポーネントはを使用します
< body>
ディレクトリ リスト: コア リンクは第 2 章であることに注意してください。クリックする必要があります
<%
Dim NextLink、Count
'コンテンツ リンク コンポーネントの作成
Set NextLink = Server.CreateObject("MSWC.NextLink")
'ファイル urllist.txt 内のリンクの数を取得します
Count = NextLink.GetListCount("urllist.txt")
Dim url, Dscr, I
For I = 1 To Count
url = NextLink.GetNthURL ("urllist.txt", I) 'ハイパーリンクを取得
Dscr = NextLink.GetNthDescription ("urllist.txt", I) 'テキストの説明を取得
Response.Write "< li>" & Dscr & "" & vbcrlf
Next
%>
/html>
次に、wuf28.asp を例として、前の章と次の章に自動的にジャンプする方法を説明します。
<% @LANGUAGE = VBScript %>
<% Option Explicit %>
このリンクにご注意ください
< ; body>
第 2 章のテキストは次のとおりです....
<% '各ファイルには次の文が含まれており、自動リンク%>
< ;!--#include file="wuf29.asp"-->
