本页内容是《批量导出/读取IIS域名》同时我们还提供济宁地区的网站建设,百度,雅虎,google的推广,点金,商友,等营销软件
请输入关键字:

标题搜索 内容搜索  

你现在所在的位置->首页->windows2003->批量导出/读取IIS域名

批量导出/读取IIS域名

时间:[2015-2-13 17:54:31]     作者:请作者尽快与我们联系。

比如服务器有300多个站点时,不可能一个一个检查吧,上网搜了下,有个程序稍合适,但导出的是网站域名站点名,我修改为导出域名列表,同时解决了导出一个站点绑定多个域名的问题,更适合自己的应用,原程序无从考究出处,本着开源原则,现把修改后的源码放出来,希望能对大家有用。
使用方法:
1、在IIS中导出xml配置文件。可参考下面图片。在网站点右键,选择所有任务,选择保存至一个文件,例如存为iis.xml。


 

2、把下面程序复制到记事本后,保存为一个asp文件,例iis.asp,然后放在网站一个有执行脚本权限的目录即可执行。同时需要把刚才导出的xml文件放在同一目录下。

<%option explicit

dim fso

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

dim ts

Set ts = fso.OpenTextFile(server.MapPath("iis.xml"),1)  '修改此处的iis备份文件名即可,同目录下哦

dim content

content= ts.ReadAll


content=Replace(content,chr(13),"")

content=Replace(content,chr(10),"")

content=Replace(content,chr(32),"")

content=split(content,"IIsWebServe")


function getdomain(str)

dim reg,readstr,matches,match1

set reg=new Regexp

 reg.Multiline=True

 reg.Global=false

 reg.IgnoreCase=true

 reg.Pattern="ServerBindings(.*)ServerComment"

 Set matches = reg.execute(str)

  For Each match1 in matches

   readstr=match1.Value

  Next

Set matches = Nothing

Set reg = Nothing

getdomain=replace(readstr,"ServerBindings=","")

getdomain=replace(getdomain,"""","")

getdomain=replace(getdomain,"ServerComment","")


end function


response.Clear()

dim i

for i=0 to ubound(content)

if instr(content(i),"ServerBindings")>0 then

response.Write Replace(getdomain(content(i)),":80:","<br>")&"<br>"

end if

next

%>

【声明】本站刊载的《批量导出/读取IIS域名》一文如果有侵害你权益的情况,请联系我们。我们将及时采取措施。
QQ:44637339 Email:just6@163.com Tel:13355163107 Lining studios

友情链接

本页内容是《批量导出/读取IIS域名》 返回顶部
© 2001-2017 Lining studios 济宁速创科技有限公司, All Rights Reserved
 Processed Time:62.500ms