三流君(TOP) /ASPで遊ぶ /記事一覧

ソースの表示関数を後ろにプラスする Server.HTMLEncode

test017-2.asp
Server.HTMLEncode(文字列)で、変換された結果
使用例）Response.Write Server.HTMLEncode(strDATA)

test017-2.asp ソース

<%@LANGUAGE=VBScript%>
<html>
<head>
<title>ソースの表示関数を後ろにプラスする　Server.HTMLEncode</title>
</head>
<body>
<!-- Ken3 --><!--  #include file="info.inc" -->
<h2>ソースの表示関数を後ろにプラスする Server.HTMLEncode</h2>
test017-2.asp<br>
<hr>
Server.HTMLEncode(文字列)で、変換された結果<br>
使用例）Response.Write Server.HTMLEncode(strDATA)<br>

<% Call OUT_SRC() '*4ソースの表示関数を呼ぶ %>
<!-- Ken3 --><!--  #include file="inc_mokuji.inc" -->
</body>
</html>

<% '*3ソースの表示関数  SUB OUT_SRC() を作成

Sub OUT_SRC() 

  '見出しの表示
  Response.Write "<HR><h3>test017-2.asp ソース</h3><HR>"
  Response.Write "<PRE>"  'スペースを有効にするため

  ' FileSystemObjectを生成します、、って英文、そのままジャン。
  Set objFS = Server.CreateObject("Scripting.FileSystemObject")

  ' tset017-2.asp を読取専用モードで開きデータを読む
  Set ts = objFS.OpenTextFile(Server.MapPath("test017-2.asp"), 1, True)

  Do While ts.AtEndOfStream = False  'ファイルの終端になってない間ループ
    strDATA = ts.ReadLine   'ファイルからデータを一行を読む
    '*1読み込んだデータをServer.HTMLEncodeで変換表示
    Response.Write Server.HTMLEncode(strDATA)
    Response.Write "<BR>"   '改行のタグを入れる
  Loop

  '使ったファイルは閉じようよ
  ts.close

  Response.Write "</PRE>"  'ここまで
  Response.Write "<HR>"    '<HR>で区切る

End Sub  '関数はここまでですよ。

%>

三流解説とリンクページを紹介

ＡＳＰ系の解説を項目ごとにまとめてみました

[ASP Form等を使用したデータのやり取り]
[ASP その他処理サンプル]
[ASP テキストファイル処理]
[ASP VBScript関数関係の説明]
[ASP ADOでMdbファイルを使う]
[ASP ADOでExcelと接続してみた]

その他：blogや広告↓
[日記的なblog]← あまり更新してないけど・・・
[三流なプログラムコード]← 恥ずかしいのであまり載せてないけど・・・
[通販商品の足跡を紹介] ←通販商品などを紹介してます

現在時刻は、2008/05/12 17:44:35です。
[Topへ戻る] −−＞[ASP系へ戻る] −−＞[バックナンバーを見る]