你的位置: Kiyo'Space首页 ASP 阅读文章 欢迎留下您的足迹

批量转换内码gb2312为utf-8

[ ASP ] 分享
<%@ CodePage = 65001 %>  
<%  
'本程序用来批量转换gb2312的文本文档的编码为utf-8  
Option Explicit  
Dim strFiles,istr,xobjFiles,i  
istr=""  
Call showFileTree("D:\wwwdir\eWebEditor")  
xobjFiles=Split(strFiles,"┣┫")  
For i=0 to Ubound(xobjFiles,1)  
Dim iext  
iext=right(xobjFiles(i),3)  
if iext="asp" or iext="htm" or iext="tml" or iext=".js" or iext="css" then Call Save_HtmlFile(xobjFiles(i))  
Next  

Sub showFileTree(path)  
   Dim objSubFolder,fso,objFolder,nowpath,objFiles,objSubFolders,objFile  
   Set fso=Server.CreateObject("Scripting.FileSystemObject")  
   Set objFolder=fso.GetFolder(path)  
   Set objFiles = objFolder.Files  
   Set objSubFolders=objFolder.Subfolders  
   For Each objFile in objFiles  
    strFiles=strFiles & istr & path & "\"&objFile.name  
    istr="┣┫"  
   Next  
   For Each objSubFolder in objSubFolders  
    nowpath=path&"\"&objSubFolder.name  
    Call showFileTree(nowpath)  
   Next  
   Set objFiles=nothing  
   Set objFile=nothing  
   Set objFolder=nothing  
   Set objSubFolders=nothing  
   Set fso=nothing  
End Sub
  
Sub Save_HtmlFile(sFilePath)  
   Dim objStream  
   Set objStream = Server.CreateObject("ADODB.Stream")  
   With objStream  
    .Type = 2  
    .Mode = 3  
    .Open  
    .Charset = "utf-8"  
    .Position = objStream.Size  
    .WriteText = LoadFile(sFilePath)  
    .SaveToFile sFilePath,2  
    .Close  
   End With  
   Set objStream = Nothing  
End Sub
  
Function LoadFile(strFullName)  
   Dim objStream  
   Set objStream = Server.CreateObject("ADODB.Stream")  
   With objStream  
    .Type = 2  
    .Mode = 3  
    .Open  
    .Charset = "gb2312"  
    .Position = objStream.Size  
    .LoadFromFile strFullName  
    LoadFile=.ReadText  
    .Close  
   End With  
   Set objStream = Nothing  
End Function
  
%>

欢迎在此留下您的脚步






评论内容 (*必填):
(Ctrl + Enter 快速提交)