関数：ページ上の電話番号を画像形式に生成します。
コードコピーは次のとおりです。
<％
callcom_creatvalidcode（request.querystring（ "tel"）））
publicsubcom_creatvalidcode（ptel）
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ -
Response.Expires = 0
response.addheader「プラグマ」、「ノーキャッシュ」
Response.Addheader「Cache-Ctrol」、「No-Cache」
Response.ContentType = "image/bmp"
ランダム化
Dimi、II、III、rndcolor、strlen、sql、rs
ConstcOdds=5'---------------------------------------------------------------------------------------------------------------------
conststr = "0123456789-"
strlen = len（ptel）
rndcolor = chrb（cint（rnd*255））＆chrb（cint（rnd*255））＆chrb（cint（rnd*255）））
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ -
dimvcolordata（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)'----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ -
ランダム化
dimvcode（）
redimvcode（strlen-1）
fori = 0tostrlen-1
vcode（i）= strust（1、str、mid（ptel、i+1,1）、1）-1
次
'------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ -
dimvnumberdata（11）
'Verdanafont
vnumberdata（0）= "11111111110111111111011111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111ケ -