推奨：ASPにソースコードのRAR圧縮と減圧を実装する方法ASPは、ソースコードのRAR圧縮と減圧を実装し、1つのファイルだけで実行できます。 ASPはディレクトリまたはファイルを圧縮し、RARファイルを減圧し、特定のファイルやその他の機能を削除します。このソースコードは、誰もがセカンダリーを開発して共有するのに便利です。以下はwinrar.aspコードです。
関数：ASPプログラムを使用して、ページ内の電話番号の画像形式を生成します。
以下は引用されたスニペットです：
以下は引用されたコンテンツです。
<％
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) = 11111111111110111111011111110111111111110111111111111111111111111111111111111111111111111111
vNumberData(2) = 111111111110001111110111110111111101111111110111111111111011111111111111111111111111111111111
vNumberData(3) = 1111111111100011111110111111101111110111111101111111111111111111111111111111111
vNumberData(4) = 1111111111111101111101111011110111101111011110111101111101111100001111111111
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*10*3 54）mod 256））＆chrb（（（strlen*8*10*3 54）/ 256）＆chrb（（（（（strlen*8*10*3 54）/ 256）mod 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 thenの場合 '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ -------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
respons.binarywrite rndcolor
それ以外
Response.binarywrite vcolordata（mid（vnumberdata（vcode（ii））、i * 8 iii、1）））
ifを終了します
次
次
次
End Sub
％>
上記のコードをimg.aspとして保存し、電話番号を表示する場所に<img src = img.asp？tel = 010-000000>挿入します。
共有：ASPはSQLステートメント日付形式で追加および減算操作を実装します今日は職場で問題に遭遇しましたが、時間に照会する必要がありましたが、クエリの結果は誤って表示されました。たとえば、2007-10-12から2007-10-31の間にウェブサイトに登録されているメンバーを見つけるには、日付を選択した後、「Query＆r」をクリックします。