?? ping.asp
字號(hào):
<html>
<head><title>在Asp中使用Ping命令</title></head>
<body>
<%
dim IP, fo, TextFile
IP = Request("IPAddr") '要ping的地址
if Request("InputPara")="1" then
fo="c:\Ping.Bat"
Set FileSys=Server.CreateObject("Scripting.FileSystemObject")
Set TextFile=FileSys.createTextFile(fo,TRUE)
TextFile.Write "ping -a "& IP &" > c:\PingResult.txt"
TextFile.Close
FileName = FileSys.GetTempName
Set WShShell = Server.CreateObject("WScript.Shell")
RetCode = WShShell.Run(fo, 1, True)
if RetCode <> 0 Then '有錯(cuò)誤
Response.Redirect "PingErrors.htm"
else
Set TextFile = FileSys.OpenTextFile("c:\PingResult.txt", 1)
TextBuffer = TextFile.ReadAll
For i = 1 to Len(TextBuffer)
If Mid(TextBuffer,i,1) = chr(13) Then
elseIf Mid(TextBuffer,i,1) = chr(10) Then
Response.Write("<BR>")
else
Response.Write(Mid(TextBuffer,i,1))
end if
Next
TextFile.Close
FileSys.DeleteFile "c:\PingResult.txt"
FileSys.DeleteFile fo
end if
else
%>
<p>輸入Ping命令的參數(shù)</p>
<form action="ping.asp" method="post" name="form1">
<table width="46%" height="57" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="26%" height="29"><div align="center">IP地址</div></td>
<td width="74%"><input name="IPAddr" type="text" id="IPAddr" value="192.168.1.101">
<input name="InputPara" type="hidden" id="InputPara" value="1"></td>
</tr>
<tr>
<td colspan="2"><div align="center">
<input type="submit" name="Submit" value="Ping">
</div></td>
</tr>
</table>
</form>
<%
end if
%>
</body>
</html>
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -