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
%>
相关文档：
MicrosoftVBScript语法错误(0×800A03E9)–＞内存不足MicrosoftVBScript语法错误(0×800A03EA)–＞语法错误
MicrosoftVBScript语法错误(0×800A03EB)–＞缺少?’:’
MicrosoftVBScript语法错误(0×800A03ED)–＞缺少?’(’
Micros ......
今天同学装了一个xampp.来使用FTP和Mysql. 但是他是使用ASP.net来进行网页开发的,然后又不想另外装IIS,叫我帮他弄. 上网Google一下,发现国外有人发过教程了,不过是英文的.整理了一下和自己配置完成的心得重新发出来. 首先,你要上xampp的官网上下载安装xampp,安装过程官网有详细的说明. 安装完成后,确定你的xampp能成功� ......
今天公司要求用C#写个验证码组件，让asp可以调用，在网上找了一堆资料，终于给我给搞出来了，因为本人第一次写组件，也是第一次发表文章，所有可能说的不是很好，大家请见谅。
csdn上有这么篇文章，想学习写组件的可以去看看：http://blog.csdn.net/KimmKi ......
在编程过程中，经常需要页面之间的传值；特别是中文传递的时候，经常出现乱码现象，很是郁闷。下面是我在网上找到的一些方法，供大家参考。
1.设置web.config文件。（没有用过）
<system.web>
......
<globalization requestEncoding="gb2312" responseEncoding="gb2312" culture="zh-CN" fileEncoding="gb2 ......
