出来るのだＡＳＰ Ｑ＆Ａ掲示板（過去ＬＯＧ） 　訪問数 52046 昨日 889 今日 776
     【PR】 パソコン入門からIT専門書まで幅広く取り揃えています。セブン-イレブン受取り手数料無料のセブンアンドワイ。
Topに戻る 掲示板に戻る 検索 削除 管理者
[3754] BASP２１にあるExecute関数をつかうと白紙が戻る
投稿者：おにぎり味噌汁さん 2003/10/22 18:12:17
初めまして、おにぎり味噌汁と申します。
ASPでnetstat -r <C:\test.txtを実行し、ファイルに落とすプログラムを作っているのですが，BASP21のExecute関数を使い、ファイルに
アクセスできたまではいいのですが、結果が白紙でもどってきます。
（ファイルに落とすことができない）これは何故かわかりません。
よろしくお願いします。
OS:Window2000Pro

<% Dim rc
Set bobj=Server.CreateObject("BASP21")
rc = bobj.Execute("test.bat",2,stdout)
If rc=-1 Then
Response.Write("ファイル接続失敗")
End If
If rc=0 Then
Response.Write("ファイル接続成功")
Response.Write("<br>")
End If

Dim i,ha,ha1,rec
Dim objCDO2,Language
Dim objCDO,IP9,IP
Dim strMsg

if isempty(session("s3fs")) then
Set session("s3fs") = Server.CreateObject("Scripting.FileSystemObject")
end if
Set fl = session("s3fs").OpenTextFile("c:\jdk1.2.2\bin\test.txt", 1, true)
do until fl.AtEndOfStream
rec = fl.ReadLine

IF Instr(rec,"該当IPアドレス")<>0 Then
Response.Write("VPN接続がされています")
End If
IF Instr(rec,"該当IPアドレス")=0 Then
Response.write("VPN接続がされていません")
End If
Response.write("<br>")
loop
fl.close
%>
BASP２１にあるExecute関数をつかうと白紙が戻る 　 おにぎり味噌汁さん [2003/10/22 18:12:17] [3754]
　 Re:BASP２１にあるExecute関数をつかうと白紙が戻る 　 YasNet(管理人)さん [2003/10/23 12:44:49] [3755]
　 Re:BASP２１にあるExecute関数をつかうと白紙が戻る 　 おにぎり味噌汁さん [2003/10/23 18:41:55] [3757]
　 　 Re:BASP２１にあるExecute関数をつかうと白紙が戻る 　 YasNet(管理人)さん [2003/10/29 8:55:29] [3763]

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