ある日、ふと、Webサイトにアクセスするたびに、見たい情報をすぐに呼び出せたら素敵だなと思いました。次に、椅子に座って鉛筆を持ち、何を書いているのかもわからない状態で、これについてもっと深く考えたいと思いました。この場合、やはりコーディングに対処する必要があります。
??友人が、もともと私がデザインした小さなサイトをオープンしました。これは私のアイデアをテストするのに最適なプラットフォームです。そこでコードを書いてファイルをアップロードしました。これは本当にエキサイティングで、プログラムは完璧に動作し、私のアイデアが確かに優れていることも証明しました。
??以前、いくつかのインターネット ユーザー傾向レポートを読んだことがありますが、その中に非常に感銘を受けたパターンがあります。 3回クリック以内に必要なものが見つからなければ、ほとんどのユーザーはすぐにサイトから離れてしまうと言われています。私のコードはこの問題を解決し、ユーザーがマウスを 1 回クリックするだけでターゲットを見つけられるようにします。この例では、ユーザーが Yahoo にログインし、Fireplace Accessories (航空機器アクセサリ) を検索すると仮定します。表示された結果では、彼が私の友人のサイトにアクセスすると、「暖炉用アクセサリーを検索しています」などの言葉が表示された画面が表示されます。次に、Web サイト上の指示に従い、行きたいページに直接移動します。
??最初に行う必要があるステップは、global.asa ファイルに初期変数を作成し、それを Sub Session_onStart() プログラムに配置することです。
??Sub Session_onStart()
?? リファラー = Trim(Request.ServerVariables("HTTP_REFERER"))
??リファラー = "" の場合
??リファラー = "なし"
?? 終了の場合
??Session("リファラー") = リファラー
??End Sub
??次に、プログラムの主要な機能を完了する方法を見てみましょう。
??URL はエンコードされているため、最初に訪問者のホストのポインティング データを有用なものに復元する必要があります。 ASP ページを作成し、decode.asp という名前を付けます。これはプログラムのバックボーンです。最初の機能は、エンコードされたポインティング ヘッダーをデコードすることです。この手順は少し長くなりますが、面倒なことは一切なく、非常に簡単です。面倒だと思う場合は、 www.popunet.comの「インターネット ワーム トレーニング コース」にアクセスして、この記事を見つけて使用することをお勧めします。 「コピー＆ペースト」方法。
??ソース コードで 2 番目に行うことは
、URL ヘッダー情報からクエリ部分を分離することです。これが必要なことです。
' クエリ フィールドをポイント URL から分離します。
?関数 isProduct(pStr)
?? pStr <> "" かつ lCase(pStr) <> "none" の場合
?? 'フィールドを逆方向に検索
??temp = inStrRev(pStr, "/")
?? 'ディレクトリの区切り位置を取得
?? tempStr = Right(pStr, temp)
?? '関連するデータ長を取得します
?? temp2 = Len(pStr)
?? 'クエリデータ行を取得します
??pStr = Mid(pStr, temp, temp2)
?? '戻り関数の値を設定します
?? isProduct = pStr
？？それ以外
??isProduct = ""
??終了の場合
?機能終了
??次のステップは、検索のための明確な基準を確立することです。
この目的を達成するには、Function Finder(byRef prodList, byVal refList)
が指すデータを見つけるための 2 つの静的スペース「ポインター」を作成します。
??'ファジークエリ
??refList = lCase(refList)
??' ポインタをループして一致するフィールドを検索します
??i = 0 から uBound(prodList) - 1 まで
??If inStr(refList, lCase(prodList(i, 0))) then
??'一致するものを見つけてください
??tHolder = tHolder & "探していますか" _
??&「」_
??& prodList(i, 0) & "
??」
??終了の場合
??' 2 番目のループ
？？次
??'結果を返します
??Finder = tHolderEnd 関数
??インクルードを介して、この機能が必要なページに、用意した decode.asp を配置すれば完了です。
詳細は次のとおりです:
'ポインティング ヘッダーが空でない場合、この関数を呼び出します If lCase(Session("Referer")) <> "none" OR Session("Referer") <> "" then' ポインティング データを解析しますResponse.Write vbCrLf & "
??" & Finder(pArray, URLDecode(isProduct(Session("Referer"))) _ & "
??" & vbCrLf
??終了の場合