出来るのだＡＳＰ Ｑ＆Ａ掲示板（過去ＬＯＧ） 　訪問数 52046 昨日 889 今日 776
     【PR】 パソコン入門からIT専門書まで幅広く取り揃えています。セブン-イレブン受取り手数料無料のセブンアンドワイ。
Topに戻る 掲示板に戻る 検索 削除 管理者
[1443] Re:他サーバの稼動状況
投稿者：Tomitomiさん 2002/01/17 17:06:14
こんにちは、Tomitomiです。
僕の持ってたEXEとのSocket通信用を改造しました。
Basp21は必要ですのでインストールしておいてください。


<form method="POST" action="Socket.asp">
<p>ホスト名：<input type="text" name="sHost" size="20" value="www.yahoo.co.jp">
ポート：<input type="text" name="sPort" size="20" value="80">
<input type="submit" value="テスト！"><input type="reset" value="リセット"></p>
</form>
<HR>
<p><font size="5" color="#FF0000">
<%

if Request.Form("sHost") <> "" and Request.Form("sPort") <> "" then
Set bsocket = Server.CreateObject("basp21.socket")


rc = bsocket.Connect(Request.Form("sHost"),Request.Form("sPort"))

bsocket.Close

set bsocket = Nothing



IF rc = 0 THEN
Response.Write "返り値：" & rc & "　:　サーバは生きてます。"
ELSEIF rc = -1 THEN
Response.Write "返り値：" & rc & "　:　ソケットオープンエラーです。"
ELSEIF rc = -2 THEN
Response.Write "返り値：" & rc & "　:　タイムアウトです。"
ELSEIF rc = 11001 THEN
Response.Write "返り値：" & rc & "　:　WinSock_err ホストが見つかりません。"
ELSEIF rc > 0 THEN
Response.Write "返り値：" & rc & "　:　WinSock_errです。"
ELSE
Response.Write "返り値：" & rc & "　:　原因不明です。"
END IF
end if
%>

</font></p>
他サーバの稼動状況 　 ＡＳＰ初心者さん [2002/01/17 16:10:44] [1439]
　 Re:他サーバの稼動状況 　 Tomitomiさん [2002/01/17 16:39:03] [1441]
　 発言者により削除されました!! Tomitomiさん [2002/01/17 16:51:34] [1442]
　 Re:他サーバの稼動状況 　 Tomitomiさん [2002/01/17 17:06:14] [1443]
　 　 Re:他サーバの稼動状況 　 ＡＳＰ初心者さん [2002/01/17 18:26:41] [1445]
　 　 　 Re:他サーバの稼動状況 　 Tomitomiさん [2002/01/17 19:37:38] [1446]

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