<%
'
%>
<%
main()
Sub main()
Dim RedirectURL
RedirectURL = Request("URL")
RedirectURL = Request("RedirectURL")
If RedirectURL = "" Then
Exit Sub
End If
'Response.Write("クエリ：" & Request("RedirectURL") & "
")
'Exit Sub
%>
<% = HtmlHeader("") %>
スーパー実践くんを開く事が出来ませんでした。
このクライアントではアクティブスクリプトが利用出来ない可能性があります。
スーパー実践くんサーバーのアドレスを信頼済みサイトに登録してください。