電話番号で画像を生成するASPコード

著者：Eve Cole 更新時間：2025-05-03 07:00:03

推奨：ASPでのコードとページの分離
ASPプログラムとHTMLコードの混合によって引き起こされるメンテナンスの困難を回避するために、この記事では、プログラムとページを分離してプログラミングを容易にするためにテンプレートを使用する方法を紹介します。 ASPを使用してサイトを作成する場合、プログラムコードとHTMLコードがASPファイルに混合される状況がしばしばあります。これを行うには多くの欠点があります：1。プログラミングは言うまでもありません、あなたはする必要があります

関数：ページ上の電話番号を画像形式に生成します。

<％

com_creatvalidcode（request.querystring（tel））に電話してください

public com_creatvalidcode（ptel）

Response.Expires = 0

Response.Addheader Pragma、No-Cache

Response.Addheader Cache-Ctrol、No-Cache

Response.ContentType = Image/BMP

ランダム化

dim i、ii、iii、rndcolor、strlen、sql、rs

const codds = 5 '--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

const str = 0123456789-

strlen = len（ptel）

rndcolor = chrb（cint（rnd*255））＆chrb（cint（rnd*255））＆chrb（cint（rnd*255））

dim vcolordata（1）

'vcolordata（0）= chrb（0）＆chrb（0）＆chrb（0）' -----青0、緑0、赤0（黒）

'vcolordata（1）= chrb（255）＆chrb（255）＆chrb（255） '-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

'vcolordata（0）= chrb（197）＆chrb（106）＆chrb（49）' ---青0、緑0、赤0（黒）

'vcolordata（1）= chrb（238）＆chrb（210）＆chrb（193）' -------青250、緑236、レッド211（ライトブルー）

vcolordata（0）= chrb（0）＆chrb（0）＆chrb（0） '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ -------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

vcolordata（1）= chrb（205）＆chrb（237）＆chrb（245） '--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

ランダム化

dim vcode（）

redim vcode（strlen-1）

i = 0からstrlen-1の場合

vcode（i）= strust（1、str、mid（ptel、i+1,1）、1）-1

次

dim vnumberdata（11）

'Verdanaフォント

vNumberData(0) = 11111111111000111110111101111011110111101111011110111101111111111111111

vNumberData(1) = 111111111111101111110111111101111111111101111111111111111111111111111111111111111111111111111

vNumberData(2) = 111111111110001111110111110111111101111111110111111111111011111111111111111111111111111111111

vNumberData(3) = 1111111111100011111110111111101111110111111101111111111111111111111111111111111

vNumberData(4) = 11111111111111011111011110111101111011110111101111011111000011111111111

vNumberData(5) = 11111111100000111111111011111100001111111111111111111111111111111111111111111111111

vNumberData(6) = 111111111110001111110111111000111111110111111011111111111111111111111111111111111

vNumberData(7) = 11111111110000011101101111111011111101111111011111110111111101111111011111111111

vNumberData(8) = 111111111110001111101111011110111100011111101111011111111111111111111

vnumberdata（9）= 111111111111111111111111111111111111111111111011111111111111111111111111111111111111111111111111111111111111111111111 -1111111111111111111111111

vNumberData(10) = 11111111111111111111111111111111111111111100000111111111111111111111111111111111

vNumberData(11) = 11111111111111111111111111111111111111111111111111111111111111111111111111111111

Response.binarywrite chrb（66）＆chrb（77）＆chrb（（（strlen*8*3+54）mod 256）＆chrb（（（strlen*8*10*3+54）/ 256）＆chrb（（（（（（strlen*8*10*10*3+54）/ 256）/ 256）/ 256）/ 256）/ 256）/ 256）/ 256）/ 256）/ 256）/ 256）/ 256）＆_

chrb（0）＆chrb（0）＆chrb（54）＆chrb（0）＆chrb（0）＆chrb（0）＆chrb（40）＆chrb（0）＆_

chrb（0）＆chrb（0）＆chrb（strlen*8）＆chrb（0）＆chrb（0）＆chrb（0）＆chrb（0）＆chrb（10）＆chrb（0）＆_

chrb（0）＆chrb（0）＆chrb（1）＆chrb（0）

Response.binarywrite chrb（24）＆chrb（0）＆chrb（0）＆chrb（0）＆chrb（0）＆chrb（0）＆chrb（0）＆chrb（0）＆_

chrb（（strlen*8*10*3）mod 256）＆chrb（（（strlen*8*10*3）/256）mod 256）＆chrb（（（（strlen*8*10*3）/256）/256）＆chrb（（（（（（strlen*8*10*3）/256）/256）/256）/256）/256

Chrb（196）＆Chrb（14）＆Chrb（0）＆Chrb（0）＆Chrb（196）＆Chrb（14）＆Chrb（0）＆Chrb（0）＆_

chrb（0）＆chrb（0）＆chrb（0）＆chrb（0）＆chrb（0）＆chrb（0）＆chrb（0）＆chrb（0）＆chrb（0）＆chrb（0）

i = 9〜0ステップ-1の場合 '-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

ii = 0からstrlen-1 'の場合-------すべての単語の後

For iii = 1 To 8 '-------------------------------------------------------------------------------------------------------------------

'-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

rnd * 99 + 1 <coddsの場合 '----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- -------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

respons.binarywrite rndcolor

それ以外

Response.binarywrite vcolordata（mid（vnumberdata（vcode（ii））、i * 8 + iii、1）））

ifを終了します

次

End Sub

％>

上記のコードをimg.aspとして保存し、電話番号を表示する場所に<img src = img.asp？tel = 0591-26728373>挿入します。

出典：Muziwu著者：Dnawo

共有：ASPチュートリアル：擬似パラメーターを生成するためのASPのヒント
2日前、私はエンタープライズ検索エンジンの現場バージョンに取り組んでいましたが、一部のサイトがサイトコンテンツにリンクできることがわかりました。。私はそれを奇妙に見て、データベースIDの自動番号付けルールに従ってリンクされていることがわかりました~~私は暇なときに次のことをしました。％ '' //指定された数字の乱数数を生成 '// GUIDを使用することもできます