怎样使用ASP实现Ping

兮兮兮b丶2mmm

兮兮兮b丶2mmm

2016-01-29 18:16

怎样使用ASP实现Ping,怎样使用ASP实现Ping
  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:INetPubcgi-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:Inetpubcgi-binDoPing.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:InetPubcgi-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:Inetpubcgi-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!
 
展开更多 50%)
分享

猜你喜欢

怎样使用ASP实现Ping

ASP
怎样使用ASP实现Ping

php实现ping

PHP
php实现ping

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

Delphi编程实现Ping操作

编程语言 网络编程
Delphi编程实现Ping操作

使用ping命令测试连接

电脑入门
使用ping命令测试连接

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

[ASP]使用类实现模块化

Web开发
[ASP]使用类实现模块化

ping命令介绍与使用教程

服务器
ping命令介绍与使用教程

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

让有限的内存用在刀刃上的几招

让有限的内存用在刀刃上的几招

实现分页的例子-使用存储过程来实现分页

实现分页的例子-使用存储过程来实现分页
下拉加载更多内容 ↓