如何在asp中判断一个客户端是否已经连上internet?

[mkiss]

主要是因为本网站的局域网用户很多，大多不能上internet网，但可以浏览内部网页，我如何判断一个客户端是否一连上internet，这样我就可以给出不同的代码。

[liaogs]

ping

[mkiss]

ping什么呀？详细一点

[ssm1226]

ping 也不行吧，要用也是客户用

[longj]

灌 注

[mkiss]

没有人会。ttt

[mkiss]

在ttt

[mkiss]

ttt

[pikaqiu]

转发别人的答案：

zhpfaff(zhp)　(2002-1-8 9:00:27) 得45分
用ping就可以实现，你先建一个bat文件，例如取名为myping.bat,文件内容为：
ping -a %1 > e:\shbbsboard\%2.txt
再用ASP文件调用：
<%@ language="vbscript" ENABLESESSIONSTATE=False%>
<%
Set FileSys = Server.CreateObject("Scripting.FileSystemObject")
FileName = FileSys.GetTempName
response.write filename
Set WShShell = Server.CreateObject("WScript.Shell")
'你要ping的地址
IP = "192.168.1.1"
RetCode = WShShell.Run("e:\shbbsboard\myPing.bat " & IP & " " & FileName, 1, True)
if RetCode = 0 Then
else
Response.write "地址解析错误"
Response.end
end if
Set TextFile = FileSys.OpenTextFile("c:\Inetpub\wwwroot\" & 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 "e:\shbbsboard\"&FileName & ".txt"
FileSys.CopyFile "e:\shbbsboard\ums.pdb","e:\shbbsboard\uums.pdb"
%>

回复人：　qqdao(青青岛)　(2002-1-8 10:13:46) 得5分
楼上的代码很好，最后一句没必要去掉好了。
用这个方法一定要确保你的权限足够大