outfile="example.htm"
srcfile="temp.htm"
srcf=server.mappath(srcfile)
outf=server.mappath(outfile)

Set fs = CreateObject("Scripting.FileSystemObject")
fs.copyfile outf,srcf,true

Set mysrc = fs.OpenTextFile(srcf)
Set myout = fs.CreateTextFile(outf)
while not mysrc.atendofstream
mystr=mysrc.readline
if instr(mystr,"要修改的位置") <> 0 then mystr=replace(mystr,"要修改的位置","修改的数据")
myout.WriteLine(mystr)
wend
mysrc.close
myout.close
set fs=nothing

if not fs.folderexists(myfolder) then fs.createfolder myfolder
fs.deletefolder myfolder
fs.copyfolder myfolder,myfolder2
response.redirect(outfile)