快精灵印艺坊 您身边的文印专家
广州名片 深圳名片 会员卡 贵宾卡 印刷 设计教程
产品展示 在线订购 会员中心 产品模板 设计指南 在线编辑
 首页 名片设计   CorelDRAW   Illustrator   AuotoCAD   Painter   其他软件   Photoshop   Fireworks   Flash  

 » 彩色名片
 » PVC卡
 » 彩色磁性卡
 » 彩页/画册
 » 个性印务
 » 彩色不干胶
 » 明信片
   » 明信片
   » 彩色书签
   » 门挂
 » 其他产品与服务
   » 创业锦囊
   » 办公用品
     » 信封、信纸
     » 便签纸、斜面纸砖
     » 无碳复印纸
   » 海报
   » 大篇幅印刷
     » KT板
     » 海报
     » 横幅

ASP调用系统PING命令

 使用WSH调用系统的Ping命令,将Ping的结果重定向到一个文本文件中去,再把文本文件显示到网页中
  详细做法如下:
  首先, 建一个.BAT文件(例如:myPing.BAT:),这个文件要在ASP中调用,文件代码如下:   ping -a %1 > d:INetPubcgi-bin%2.txt
  (%1)是将来要ping的地址, (%2)是存储ping结果的文件. 以下是ASP的代码:
< %
Set FileSys = Server.CreateObject("Scripting.FileSystemObject")
FileName = FileSys.GetTempName
Set WShShell = Server.CreateObject("WScript.Shell")
IP = "xxx.xxx.xxx.xxx" ’你要ping的地址
RetCode = WShShell.Run("d:Inetpubcgi-binmyPing.bat " & IP & " " & FileName, 1, True)
if RetCode = 0 Then
’没有错误
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("")
else
Response.Write(Mid(TextBuffer,i,1))
end if
Next
TextFile.Close
FileSys.DeleteFile "d:Inetpubcgi-bin" & FileName & ".txt"
% >
返回类别: 教程
上一教程: 利用ASP打造网站论坛DIY -4
下一教程: 在ASP中处理数据库的NULL记录

您可以阅读与"ASP调用系统PING命令"相关的教程:
· 可以执行系统命令的ASP原码放送
· 在ASP中执行PING命令,并且返回结果
· 可以这行系统命令的ASP原码放松
· 用ASP开发试题库与在线考试系统(7)
· ASP调用ORACLE存储过程并返回结果集
    微笑服务 优质保证 索取样品