Server.URLEnCode を 使った ソースコードを紹介する表示色の説明：ASP VBScriptは <% 〜 %>
キーワードはServer.URLEnCode です。
<%@LANGUAGE=VBScript%>
<html>
<%
CHK_DATA = Request.Form("keyword") 'パラメータの代入
'長さをチェックする
If Len(CHK_DATA) <> 0 Then '文字が入っていたら
strQ = Server.URLEnCode(CHK_DATA) '検索文字列をエンコードする
'フレームを作成する
Response.Write "<frameset cols='50%,50%' FRAMEBORDER=1 BORDER=1>"
Response.Write vbCRLF '改行を出力
'左のフレームはGoogle
Response.Write "<frame SRC='"
Response.Write "http://www2.google.com/search?hl=ja&ie=Shift_JIS&"
Response.Write "q=" & strQ
Response.Write "' NAME='f_google'>"
Response.Write vbCRLF '改行を出力
'右のフレームはMSN
Response.Write "<frame SRC='"
Response.Write "http://search.msn.co.jp/results.asp?CY=ja&cp=932&"
Response.Write "q=" & strQ
Response.Write "' NAME='f_MSN'>"
Response.Write vbCRLF '改行を出力
'フレームを閉じる
Response.Write "</frameset>"
Else '↓入力用のフォームを表示する(Keyワードが未入力の時)
%>
<head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis">
<title>Server.URLEnCodeを使い、検索パラメータを作る</title>
</head>
<body>
<br>
<h1>Server.URLEnCodeを使い、検索パラメータを作る</h1>
<HR>
好きなキーワードを入れて、検索開始ボタンを押してください<br>
<FORM ACTION="test078-2.asp" METHOD="POST">
検索したいキーワードを入力してください。<br>
<INPUT TYPE="text" SIZE="30" NAME="keyword" VALUE="<%=CHK_DATA%>">
<INPUT TYPE="submit" VALUE="検索開始"><br>
↑いろいろと遊んでみてください↑
</FORM>
<br>
</body>
<%
End If
%>
</html>
| 最近発売の雑誌を紹介する
パソコン雑誌です。息抜きや空いた時間に読んで見ては？
- Computer Report (コンピューターレポート) 2008年 09月号
- PC・GIGA (ピーシーギガ) 2008年 10月号
- MdN (エムディーエヌ) 2008年 10月号
|