netconfig.asp

来自「集合了学习asp的100个实例」· ASP 代码 · 共 34 行

ASP
34 行
字号 
<%@ Language="VBScript" %>

<% Option Explicit %>

<html>

<head>

    <title>查看网络设置</title>

</head>

<body bgcolor="#FFFFFF">

<%

    dim strHost

    dim oShell,oFS,oTF

    dim i,Data,tempData

    strHost="ipconfig"

    Set oShell = Server.CreateObject("Wscript.Shell")

    oShell.Run "%ComSpec% /c ipconfig > C:\" & strHost & ".txt", 0, True

    Set oFS = Server.CreateObject("Scripting.FileSystemObject")

    Set oTF = oFS.OpenTextFile("C:\" & strHost & ".txt")

    Do While Not oTF.AtEndOfStream

        Data = Trim(oTF.Readline)

            If i > 2 Then 

                tempData = tempData & Data & "<BR>"

            End If

        i = (i + 1)

    Loop

    response.write tempData

    oTF.Close

    oFS.DeleteFile "C:\" & strHost & ".txt"

    Set oFS = Nothing

%>

</font>

</body>

</html>

netconfig.asp - 源码说明

本页面展示了「集合了学习asp的100个实例」中的 netconfig.asp 源码文件，采用 ASP 编程语言编写，共 34 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与ASP实例相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?