Python语言

微信小程序

php语言

jsp语言

asp语言

C#/.NET

html5/css

javascript

c/vc/c++语言

点击排行

您现在的位置:首页 > 技术文档 > asp技巧

字符批量替换程序asp服务器版

来源:中文源码网    浏览: 次    日期:2018年9月2日
【下载技术文档:  字符批量替换程序asp服务器版 】


字符批量替换程序asp服务器版 **********字符批量替换程序asp服务器版****************** 安装方法:直接把replace.asp文件放在任意的支持asp+FSO的环境中 运行方法:用http://localhost/.../replace.asp访问即可看到程序的效果 此程序的功能主要用来替换文件夹中所有文本文件字符用的。 如:txt、htm、asp、jsp、php、…… 一切的文本文件 div+CSS布局 兼容FF和IE浏览器 ---------目前具有功能------------------------ 即时查看当前替换文件路径 可选备份原文件为 “原文件.bak” 文件夹无限层嵌套替换字符 被替换文件路径显示 总文件数和被替换过文件数显示 ... 程序用途举例- 清除类似的网页木马 批量替换文件字符,少量的文件就用不上这个程序了 可上传在服务器上,在线替换批量替换字符 当“查找字符”和“替换的字符串”相同时,可以查找大量文本文件中,哪些文件包含有目标字符 .... 155120699原创  欢迎指正   hezhiwu5@163.com 21:47 2007-3-12 ------------------------------------------------------------------------------------------------------ 复制代码 代码如下:<%Option Explicit%> 字符替换程序asp服务器版 <% if request.querystring("add")="yes" then %>
程序处理结果
总文件: 个 替换过文件:

被替换过文件路径列表↓

风云制作 hezhiwu5@163.com 2007-3-12
<% dim oldstr :oldstr=request.form("lookstr") '源字符串 dim newstr :newstr=request.form("replacestr") '新字符串 dim rep : rep=cbool(request.form("bak")) '是否备份文件,true为备份文件 dim i : i=0 '总文件个数 dim j : j=0 '被替换的文件个数 function chkexistsfile(path) '判断一个文件是否存在,如果存在,返回true,否则返回false dim fso set fso=server.createobject("scripting.filesystemobject") if fso.fileexists(path) then chkexistsfile=true else chkexistsfile=false end if set fso=nothing end function function getfilecode(path) '获取一个文件的代码 dim fso if chkexistsfile(path) then set fso=server.createobject("scripting.filesystemobject") dim filecode : set filecode=fso.opentextfile(path,1) getfilecode=filecode.readall set fso=nothing else getfilecode=path & "不存在该文件" end if end function sub jstxt(txt) '使用JavaScript response.write "" end sub sub getfolderfile(cpath) '替换某一个(子)文件夹下的所有文件 response.flush dim fso : set fso=server.createobject("scripting.filesystemobject") if fso.folderexists(cpath)=false then jstxt("alert("" "&replace(cpath,"\","\\") & "不存在该文件夹!"&" "") ") response.end end if dim folders : set folders=fso.GetFolder(cpath) dim sfile for each sfile in folders.files dim filecode : filecode=getfilecode(sfile) dim filecode_b : filecode_b=filecode if instr(filecode,oldstr) <> 0 and fso.GetExtensionName(sfile) <> "bak" then jstxt("document.getElementById(""txtreple"").value+="""& replace(sfile,"\","\\") & "\r\n""" &chr(13)&chr(10)) jstxt("window.status="""& replace(sfile,"\","\\")&"""") jstxt("document.title="""& replace(sfile,"\","\\")&"""") filecode=replace(filecode,oldstr,newstr) dim newfilecode : set newfilecode=fso.opentextfile(sfile,2) newfilecode.write filecode j=j+1 if rep then dim newfilecode_b : set newfilecode_b=fso.opentextfile(sfile+".bak",2,true) newfilecode_b.write filecode_b end if end if i=i+1 jstxt("document.getElementById(""allfile"").innerHTML="""&i&"""") jstxt("document.getElementById(""repfile"").innerHTML="""&j&"""") next dim sfolder for each sfolder in folders.subfolders getfolderfile(sfolder) next set fso=nothing end sub getfolderfile(trim(request.form("pfolder"))) '调用程序 else %>
字符批量替换程序
文件夹地址:
备份原文件:

查找字符串↓

替换查找的字符串↓

风云制作 hezhiwu5@163.com 2007-3-12
<% end if %>

亲,试试微信扫码分享本页! *^_^*

精彩推荐

相关内容