出来るのだＡＳＰ Ｑ＆Ａ掲示板（過去ＬＯＧ） 　訪問数 52046 昨日 889 今日 776
     【PR】 パソコン入門からIT専門書まで幅広く取り揃えています。セブン-イレブン受取り手数料無料のセブンアンドワイ。
Topに戻る 掲示板に戻る 検索 削除 管理者
[1670] Re:クライアントサイドの VBScript で Window.Open
投稿者：北岳さん 2002/02/15 14:06:35
呼び出し側（SWindow( , , , ,0,0,1,0,0,1)）で引数に文字を入れるところがうまく行かないのですが・・・
(シングルクオーテーションのあとはコメントとみなされる。
ダブルクオーテーションは文字列の終了とみなされる。）
関数の中で文字列を与える形式ならできました。
　
ASPなら例えば Awidth="300" を Awidth="<%= Awidth %>" のように変えればOKの筈ですんで、
> 実は＜BODY＞の別の部分でCGIを呼び出していまして、
CGIでも対応できるんでしょうね。
　
<html>
<head>
<meta http-equiv="Content-Type" content="text/htmlcharset=Shift_JIS">
<meta http-equiv="Content-Script-Type" content="text/VBScript">
<script language="VBScript">
<!--
function SWindow(Aurl,Aname,Awidth,Aheight,Atoolbar,Alocation,Astatus,Ascroll,Amenu,Aresize)
dim ret
Aurl="999.htm"
Aname="Wopen1"
Awidth="300"
Aheight="600"
Astr = "width=" & Awidth
Astr = Astr & ",height=" & Aheight
if Atoolbar then Astr = Astr & ",toolbar=" & Atoolbar
if Alocation then Astr = Astr & ",location=" & Alocation
if Astatus then Astr = Astr & ",status=" & Astatus
if Ascroll then Astr = Astr & ",scrollbars=" & Ascroll
if Amenu then Astr = Astr & ",menubar=" & Amenu
if Aresize then Astr = Astr & ",resizable=" & Aresize
ret=window.open(Aurl,Aname,Astr)
end function
// -->
</script>
</head>
<body bgcolor="#000000" leftmargin="0" topmargin="0" link="#FFCC66" vlink="#FFFFFF">
<a href="VBScript:SWindow(,,,,0,0,1,0,0,1)">クリック</a>
</body>
</html>

>考えて頂いて、ありがとうございます。
お礼なぞ恐縮です。
あとで自分の役に立ちそうなものだけ考えておりますので。（笑）
JavaScript -> VbScript 　 ﾁｬｶさん [2002/02/14 19:43:54] [1656]
　 クライアントサイドの VBScript で Window.Open 　 北岳さん [2002/02/15 13:15:55] [1664]
　 　 Re:クライアントサイドの VBScript で Window.Open 　 ﾁｬｶさん [2002/02/15 13:31:53] [1665]
　 　 　 発言者により削除されました!! 北岳さん [2002/02/15 13:48:18] [1668]
　 　 　 Re:クライアントサイドの VBScript で Window.Open 　 北岳さん [2002/02/15 14:06:35] [1670]
　 　 　 　 Re:クライアントサイドの VBScript で Window.Open 　 ﾁｬｶさん [2002/02/15 14:18:55] [1671]

TreeBBS For ASP V.0.1.3
Program By ＹａｓＮｅｔ