RUNAT="Server" を 使った ソースコードを紹介する表示色の説明:ASP VBScriptは <% 〜 %> キーワードはRUNAT="Server" です。
<%@LANGUAGE=VBScript%>
<html>
<head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=x-sjis">
<title>VBScript と JavaScript の 混在 RUNAT="Server"</title>
</head>
<body>
<h1>VBScript と JavaScript の 混在 RUNAT="Server"</h1>
<hr>
下記のような感じで、RUNAT="Server"を指定する。<br>
<pre>
<SCRIPT LANGUAGE="JavaScript" RUNAT="Server">
function TestJavaFunction(n)
{
return ( n * 12); //受け取った数に*12して返す
}
</SCRIPT>
</pre>
<font color='blue'><%=TestJavaFunction(10)%></font> とコールすると<br>
<%=TestJavaFunction(10)%>と結果が返ります。<br>
<br>
<% '文字が入っていたらその文字を数値変換して渡す
CHK_DATA = Request.Form("DATA") 'データを変数に保存
'長さをチェックする
If Len(CHK_DATA) <> 0 Then '文字が入っていたら
Response.Write "受け取ったデータは<br>"
Response.Write Server.HTMLEncode(CHK_DATA)
'CInt関数で数値に変換後JavaScript関数を呼ぶ
Response.Write "<br>TestJavaFunctionを呼ぶと結果は<br>"
Response.Write TestJavaFunction(CInt(CHK_DATA)) & "<br>です<HR>"
Else
CHK_DATA = "999"
End If
%>
テストデータの入力<br>
<FORM ACTION="test098-1.asp" METHOD="POST">
テストしたい数値の文字列を入力してください。<br>
<INPUT TYPE="text" SIZE="8" NAME="DATA" VALUE="<%=CHK_DATA%>">
<INPUT TYPE="submit" VALUE="変換開始"><br>
↑いろいろと遊んでみてください↑
</FORM>
</body>
</html>
<SCRIPT LANGUAGE="JavaScript" RUNAT="Server">
function TestJavaFunction(n)
{
return ( n * 12); //受け取った数に*12して返す
}
</SCRIPT>
|