国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > ASP > 正文

怎樣使用ASP實現Ping

2019-11-18 21:10:26
字體:
來源:轉載
供稿:網友
This article PResents a simple way to ping an address and get the results of the ping using asp. The idea was supplied by Bart Silverstein.

First, a .BAT file needs to be created that will be run from the Active Server Page. Let's call this file DoPing.BAT. It will contain only one statement, which will ping a passed in ip address. Here is the code for DoPing.BAT:


ping -a %1 > d:/INetPub/cgi-bin/%2.txt
This will, if you can't tell, ping the address passed in as the first command line argument (%1), and redirect the results to a text file named hy the second command line argument (%2). Now, let's look how we would call this from an ASP file:


<%

Set FileSys = Server.CreateObject("Scripting.FileSystemObject")
FileName = FileSys.GetTempName

Set WShShell = Server.CreateObject("WScript.Shell")

IP = "204.123.54.1" ' or whatever you want to ping
RetCode = WShShell.Run("d:/Inetpub/cgi-bin/DoPing.bat " & IP & " " & FileName, 1, True)

if RetCode = 0 Then

'There were no errors

else

Response.Redirect "PingErrors.htm"

end if


Set TextFile = FileSys.OpenTextFile("d:/InetPub/cgi-bin/" & FileName & ".txt", 1)
TextBuffer = TextFile.ReadAll

For i = 1 to Len(TextBuffer)

If Mid(TextBuffer,i,1) = chr(13) Then

Response.Write("<BR>")

else

Response.Write(Mid(TextBuffer,i,1))

end if

Next

TextFile.Close

FileSys.DeleteFile "d:/Inetpub/cgi-bin/" & FileName & ".txt"

%>
Before you go hog wild and implement this code or use similar techniques on your site, there are a few things you should be wary of. From a secutiry standpoint, this is really dangerous, for any time you let someone run an application on your server there is always the potential that it will come back to haunt you. One suggestion to lessen the threat: make a separate folder with no script or execute priviledges, and have your DoPing.bat output its results to that folder.

I hope this article was informative an interesting. Happy Programming!

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表

圖片精選

主站蜘蛛池模板: 凤凰县| 连南| 祁东县| 开远市| 黑龙江省| 靖江市| 公安县| 浙江省| 呈贡县| 稷山县| 云安县| 霍邱县| 元谋县| 东乌珠穆沁旗| 定南县| 胶州市| 池州市| 高邑县| 噶尔县| 丰顺县| 宁波市| 阿拉善盟| 枣强县| 微山县| 临城县| 鹤庆县| 黄龙县| 长葛市| 怀柔区| 梨树县| 响水县| 池州市| 霍林郭勒市| 江孜县| 广河县| 威信县| 饶河县| 青神县| 澜沧| 漳浦县| 吴忠市|