<%
Set fso = CreateObject("Scripting.FileSystemObject")'建立fso对象
oldfilename = Server.MapPath("test.asp")'获得站点下需要转换文件的绝对路径
newfilename = Server.MapPath("复件"+"test.asp")'设置新建文件的绝对路径
Set OldFile = fso.OpenTextFile(oldfilename,1)'建立旧文件对象
Set NewFile = fso.CreateTextFile(newfilename,True)'建立新文件对象
While Not OldFile.AtEndOfLine'循环读取旧文件
line = OldFile.ReadLine'读取一行
outline = change(line)'调用函数change()转换一行
NewFile.WriteLine(outline)'向新文件写入转换后的一行
Wend
OldFile.close'关闭旧文件对象
NewFile.close'关闭新文件对象
%>
Set fso = CreateObject("Scripting.FileSystemObject")'建立fso对象
oldfilename = Server.MapPath("test.asp")'获得站点下需要转换文件的绝对路径
newfilename = Server.MapPath("复件"+"test.asp")'设置新建文件的绝对路径
Set OldFile = fso.OpenTextFile(oldfilename,1)'建立旧文件对象
Set NewFile = fso.CreateTextFile(newfilename,True)'建立新文件对象
While Not OldFile.AtEndOfLine'循环读取旧文件
line = OldFile.ReadLine'读取一行
outline = change(line)'调用函数change()转换一行
NewFile.WriteLine(outline)'向新文件写入转换后的一行
Wend
OldFile.close'关闭旧文件对象
NewFile.close'关闭新文件对象
%>
运行代码 拷贝代码 保存代码 [可先修改部分代码再运行;请先检查代码确定安全]
之所以分成两段,是因为下面那段代码是纯DHTML代码,可以测试。
当然还可以把对象、方法和属性的首字母大写,改改正则就可以了...
注意:以上代码不适合于转换JS代码哟,因为JS严格区分大小写,语句关键字只能小写...