出来るのだＡＳＰ Ｑ＆Ａ掲示板（過去ＬＯＧ） 　訪問数 52046 昨日 889 今日 776
     【PR】 パソコン入門からIT専門書まで幅広く取り揃えています。セブン-イレブン受取り手数料無料のセブンアンドワイ。
Topに戻る 掲示板に戻る 検索 削除 管理者
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]
[1656] JavaScript -> VbScript
投稿者：ﾁｬｶさん 2002/02/14 19:43:54
始めまして。ﾁｬｶと言います。
ASPの初心者です。

現在動いているソースをASPに置き換えようとしています。
たとえば、以下の"JavaScript"の部分と呼び出してる部分を、
"VbScript"　に変えようと思うのですが、よくわかりません。
どなたか教えて下さい。
お願いします。

============================================================

<html>
<head>

<meta http-equiv="Content-Type" content="text/html;charset=Shift_JIS">
<meta http-equiv="Content-Script-Type" content="text/javascript">

<script language="JavaScript">
<!--
function SWindow(Aurl,Aname,Awidth,Aheight,Atoolbar,Alocation,Astatus,Ascroll,Amenu,Aresize){
Astr = "width=" + Awidth;
Astr+= ",height=" + Aheight;
if(Atoolbar)Astr+= ",toolbar";
if(Alocation)Astr+= ",location";
if(Astatus)Astr+= ",status";
if(Ascroll)Astr+= ",scrollbars";
if(Amenu)Astr+= ",menubar";
if(Aresize)Astr+= ",resizable";
window.open(Aurl,Aname,Astr);
}

// -->
</script>
</head>

<body bgcolor="#000000" leftmargin="0" topmargin="0" link="#FFCC66" vlink="#FFFFFF">

<a href="JavaScript:SWindow('ice_goods_images/megaphone.htm','2','300','300',0,0,1,0,0,1)">

</body>



[1664] クライアントサイドの VBScript で Window.Open
投稿者：北岳さん 2002/02/15 13:15:55
やっとできた！
　
----- 1.htm --------
<html><head>
<script language="VBScript">
<!--
dim ret
set ret=window.open("01.htm","WinOpen","width=350,height=450,toolbar=1,location=1,directions=1,status=0,menubar=1,scrollbars=1,resizable=1")
//-->
</script>
</head>
</html>
-------------------

クライアントサイドのVBSで別画面を開くのは初めてでしたが・・・
ふ〜ん、dimしてsetしないとダメなんでしたか。
　
ところで、
>現在動いているソースをASPに置き換えようとしています。
とありますが、掲載されたソースはhtm中の、完全にクライアントサイドのスクリプトです。
ASP（サーバサイド・スクリプト）は使われておらず、また、わざわざここで使うべきでもないです。
　
あとは、残りのJavaScriptですね。
[1665] Re:クライアントサイドの VBScript で Window.Open
投稿者：ﾁｬｶさん 2002/02/15 13:31:53
考えて頂いて、ありがとうございます。

> ところで、
> >現在動いているソースをASPに置き換えようとしています。
> とありますが、掲載されたソースはhtm中の、完全にクライアントサイドのスクリプトです。
> ASP（サーバサイド・スクリプト）は使われておらず、また、わざわざここで使うべきでもないです。
> 　

実は＜BODY＞の別の部分でCGIを呼び出していまして、
それをASPに置き換えようとしていたのですが、最初で
つまずいてしまったのです。
[1668] Re:クライアントサイドの VBScript で Window.Open
投稿者：北岳さん 2002/02/15 13:48:18
発言者により削除されました!!
[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>

>考えて頂いて、ありがとうございます。
お礼なぞ恐縮です。
あとで自分の役に立ちそうなものだけ考えておりますので。（笑）
[1671] Re:クライアントサイドの VBScript で Window.Open
投稿者：ﾁｬｶさん 2002/02/15 14:18:55
再び、ありがとうございます。
やっと先に進めます。

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