ASP写的批量导出IIS域名列表
最近估计很多人都碰到和我同样的问题，就是因为扫黄及备案管理非常严，一个没备案直接关服务器，一个黄站直接封机房。现在网站所有域名必需通过备案，以前还松点。但我们服务器100多个，总不能一个一个检查吧，上网搜了下，有个程序稍合适，但导出的是网站域名站点名，我修改为导出域名列表，同时解决了导出一个站点绑定多个域名的问题，更适合自己的应用，原程序无从考究出处，本着开源原则，现把修改后的源码放出来，希望能对大家有用。
使用方法
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 = Nothingx
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
%>
相关文档：
<!--#include file="../conn.asp"-->
<%
dim s,sql,filename,fs,myfile,x
Set fs = server.CreateObject("scripting.filesystemobject")
'--假设你想让生成的EXCEL文件做如下的存放
filename = Server.MapPath("users.xls")
'--如果原来的EXCEL文件存在的话删除它
if fs.FileExists(filename) then ......
页面的输入和输出涉及到了Request和Response,由于他们和Jsp中的相似,
下面我们进行详细的解读：
JSP中：
在动态网页开发中，HTML表单是与用户交互信息的主要手段。
使用JSP处理表单请求时，一般遵循这样一种模式，首先，用户通过表单控件输入并提交信息;接着，JSP页面获得表单数 ......
开发环境:VS2008
WEB服务器:IIS7.0
为何在调试时,可正常显示报表内容,可生成后,运行时,只显示报表框架,并不能正常显示报表内容.
我把浏览器所有限制选项都取消了,还是一样的问题,不知为何.正在寻找答案................... ......
软件名称：风渡科技ASP网上购物系统 v0912-26
软件大小：7069k
运行环境：ASP/Access
软件类别：电子商务
软件授权：免费
开发商家: 风渡科技
官方网站：http://www.chinammc.com
演示地址：http://demo01.chinammc.com
下载地址: http://w ......
在服务器上生成动态内容是使用ASP最主要的原因之一，所以我们选择的第一个测试项目是确定把动态内容发送到应答流使用什么方法最好。基本的选择有两种（以及它们的一些变化）：使用内嵌ASP标记，使用Response.Write语句。
为测试这些不同的方法，我们创建了一个简单的ASP页面，页面先定义一些变量然后把它们插入到表� ......
