本站为一个技术型PHP个人门户站,提供一些代码,技术文章、免费空间消息信息、让学习编程更轻松和不要钱买空间更方便-PHP小戴
你当前的位置:首页>>技术文章>>

asp技术文章

利用代码读出IIS所有域名

  • 最近备案烦死了,。今天又要把IIS里的所有域名。查询出来备案号。进行入库。

    很是烦,

    下面的方法就可以把IIS里所有的域名读出来

    方法如下:

    1.备份--》IIS

    2.备份后文件放在--》C:WINDOWSsystem32inetsrvMetaBack

    3.把文件复制出来--》把名称改成iisbfwj.xml

    4.把下面的代码复制到ASP新文件里 和把iisbfwj.xml复制到同一目录

    5.运行ASP代码。即可得到所有的域名。

     

    以下是代码片段:

     

    <%option explicit
    dim fso
    Set FSO = Server.CreateObject("Scripting.FileSystemObject")
    dim ts
    Set ts = fso.OpenTextFile(server.MapPath("iisbfwj.xml"),1)  '修改此处的iis备份文件名即可,同目录下哦
    dim content
    content= ts.ReadAll
    content=split(content,"<IIsWebServer")

    function getdomain(str)
    dim reg,readstr,matches,match1
    set reg=new Regexp
    reg.Multiline=True
    reg.Global=false
    reg.IgnoreCase=true
    reg.Pattern="ServerComment(.*)s"
    Set matches = reg.execute(str)
      For Each match1 in matches
       readstr=match1.Value
      Next
    Set matches = Nothing
    Set reg = Nothing
    getdomain=replace(readstr,"ServerComment=","")
    getdomain=replace(getdomain,"""","")
    end function

    function GetKey(HTML,Start,Last)
    dim filearray,filearray2
    filearray=split(HTML,Start)
    filearray2=split(filearray(1),Last)
    GetKey=filearray2(0)
    End function

    function Clear(content)
    dim arr,i
    arr=split(content,":")

    for i=0 to ubound(arr)
    if instr(arr(i),".")>0 then
    Clear=Clear & arr(i)
    end if
    next
    end function

    response.Clear()
    dim i
    for i=0 to ubound(content)
    if instr(content(i),"ServerBindings")>0 then
    response.Write (i)&" 描述:"&getdomain(content(i))&"<br>主机头:"&Clear(GetKey(content(i),"ServerBindings=""",""""))&"<br><br>"
    end if
    next
    %>



  • [时间:2009-12-22 14:30:30][点击:]

  • 上下篇文章加载中...
小戴个人门户站导航 PHP小戴个人门户站 关于站长web个人门户站 设计服务-网络公司,建设网站,企业logo设计,包装设计,网站设计,整站程序开发 联系站长-小戴个人门户站
  • 技术文章排行榜
文章数据加载中...
  • 免费空间排行榜
空间数据加载中...
白度地图 | 关于站长 | 联系站长| 设计服务 | 建站资源 | 技术文章 | 娱乐中心 | 免费空间 | 友情链接 | 留言蜚语 | 网站地图| 网友投稿|RSS订阅 
QQ:277728291 联系方式:15824537062 mail:27772821@163.com
版权所有 2008-2018 PHP小戴个人门户站-编程技术和空间和文章共享-www.phpxd.com Copyright 2008 phpxd.com