Asc を 使った ソースコードを紹介する表示色の説明：ASP VBScriptは <% 〜 %>
キーワードはAsc です。
<%@LANGUAGE=VBScript%>
<html>
<head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis">
<title>Asc関数でキャラクタコードの表示、Hex関数を使用して１６進数で表示</title>
</head>
<body>
<h2>Asc関数でキャラクタコードの表示、Hex関数を使用して１６進数で表示</h2>
<%
CHK_DATA = Request.QueryString("DATA") 'パラメータの代入
'長さをチェックする
If Len(CHK_DATA) <> 0 Then '文字が入っていたら
Response.Write "受け取ったデータは["
Response.Write Server.HTMLEncode(CHK_DATA) & "]です<br>"
'文字数分ループして、コードを表示
For n = 1 To Len(CHK_DATA)
Response.Write n & "文字目は"
strWORK = Mid(CHK_DATA, n, 1) 'ｎ番目の文字を取り出す
Response.Write "[" & Server.HTMLEncode(strWORK) & "] "
Response.Write "をAscで変換すると" & Asc(strWORK)
Response.Write " さらにHexで16進数にすると" & Hex(Asc(strWORK))
Response.Write "<BR>" & vbCRLF
Next
End If
%>
<HR>
<FORM ACTION="test052-1.asp" METHOD="GET">
調査したい文字列を入力してください。<br>
<INPUT TYPE="text" SIZE="30" NAME="DATA" VALUE="<%=CHK_DATA%>">
<INPUT TYPE="submit" VALUE="コード調査開始"><br>
↑いろいろと遊んでみてください↑
</FORM>
<br>
</body>
</html>
| 最近発売の雑誌を紹介する
パソコン雑誌です。息抜きや空いた時間に読んで見ては？
- PCfan (ピーシーファン) 2009年 1/1・15合併号
- Software Design (ソフトウエア デザイン) 2009年 01月号
- 月刊 COMPUTERWORLD (コンピュータワールド) 2009年2月号
- I/O (アイオー) 2009年 01月号
- Web Designing (ウェブデザイニング) 2009年 01月号
- UNIX MAGAZINE (ユニックス マガジン) 2009年 01月号
|