ASP字符查找替换器 -- 追寻梦想＞编程乐园＞ASP世界

最近我维护的一个网站(某净化工程网站)要修改几个词，但是这个词在网站上很多，而且整个网站的页面有数百个，如果一个一个修改或者本地修改后ftp上传的话，相当耗时间。我记的个webshell有个批量替换的功能，不过当我ftp上传这个文件的时候，却发现找不到这个文件，估计是被杀毒给灭了。
索性自己写一个ASP版的字符替换工具。其实实现这个功能很简单。用FSO(Scripting.FileSystemObject)对象的 OpenTextFile 方法打开一个文件，把文件内容读取到一个变量，利用Replace方法替换掉需要替换的字符，然后把替换后的变量的内容写回到文件。
代码如下:

'*******************

'asp版字符替换器

'By Air

'QQ:153580616

'*******************

<p>

</p>

<br/>

<td height="40" colspan="2" align="center" bgcolor="#57DB9C"><strong>ASP版字符替换器</strong></td>

</tr>

<input name="WebMuLu" type="text" id="WebMuLu" size="40" value="<% if Request("WebMuLu")<>"" Then Response.Write(Request("WebMuLu")) else Response.Write(Server.MapPath("./")) End If%>" />

</label></td>

</tr>

<td width="373"><input name="HouZhui" type="text" id="HouZhui" value="<%If Request("HouZhui")<>"" Then Response.Write(Request("HouZhui")) Else Response.Write("asp,html,htm") End If%>" size="40" /></td>

</tr>

<input name="isReplace" type="checkbox" id="isReplace" <%If Request("isReplace") <>"" Then Response.Write("Checked")%> value="yes" />

</label></td>

</tr>

<td><textarea name="MuMaContent" cols="38" rows="4" id="MuMaContent"><%if Request("MuMaContent")<>"" Then Response.Write(Request("MuMaContent"))%></textarea></td>

</tr>

<td><textarea name="ReplaceStr" cols="38" rows="4" id="ReplaceStr"><%if Request("ReplaceStr")<>"" Then Response.Write(Request("ReplaceStr"))%></textarea></td>

</tr>

<label>

</label></td>

</tr>

</table>

<br />

</form>

Function BianLi(path)

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

on error resume next

set objFolder=fso.GetFolder(path)

set objFiles=objFolder.Files

for each objFile in objFiles

for i = LBound(arr) to UBound(arr)

if fso.GetExtensionName(objFile.Name) = arr(i) or arr(i) = "*.*" Then

set f = fso.OpenTextFile(path + "" + objFile.Name,1)

tmpstring = f.ReadAll

if instr(tmpstring,Request("MuMaContent")) <> 0 Then

response.Write(path + "" + objFile.Name +"<br>")

j=j+1

if request("isReplace")="yes" and objFile.Name <> self then

tmpstring = Replace(tmpstring,Request("MuMaContent"),Request("ReplaceStr"))

set f = fso.OpenTextFile(path + ""+objFile.Name,2)

f.write(tmpstring)

f.close

end if

set objSubFolders=objFolder.Subfolders

for each objSubFolder in objSubFolders

nowpath=path + "" + objSubFolder.name

bianli(nowpath)

set objFolder=nothing

set objSubFolders=nothing

set fso=nothing

end function

if request("Submit")<>"" Then

dim arr,j,selfarr

j=0

Server.ScriptTimeout=999999999

self = Request.ServerVariables("SCRIPT_NAME")

selfarr = split(self,"/")

self = selfarr(UBound(selfarr))

arr = split(request("HouZhui"),",")

</tr>

if Right(Request("WebMuLu"),1)="" Then

WebMuLu = Left(Request("WebMuLu"),len(Request("WebMuLu"))-1)

End If

bianli(Request("WebMuLu"))

Response.Write("<br/>")

Response.Write("==================查找结果为 <font color=red>" &Cstr(j)&"</font> 个文件=================")

</td>

</tr>

</table>

End If

把这个文件上传到网站空间，可以在线查找替换字符。