ASP批量修改文件编码类型程序，GB2312与UTF-8互转。

最新推荐文章于 2021-07-05 13:51:00 发布
最新推荐文章于 2021-07-05 13:51:00 发布
阅读量399 收藏 1
点赞数
文章标签： xhtml php javascript ViewUI
原文链接：http://www.cnblogs.com/mozheng/archive/2011/10/17/2214523.html
版权

将以下代码保存为ASP文件即可。

 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Option Explicit
Session.CodePage = 65001
Response.Charset = "UTF-8"
Response.Buffer = true
dim i

Sub Header()
    Response.Write "<!DOCTYPE html PUBLIC ""-//W3C//DTD XHTML 1.0 Transitional//EN"" ""http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"">" & vbcrlf
    Response.Write "<html xmlns=""http://www.w3.org/1999/xhtml"">" & vbcrlf
    Response.Write "<head>" & vbcrlf
    Response.Write "<meta http-equiv=""Content-Type"" content=""text/html; charset=utf-8"" />" & vbcrlf
    Response.Write "<meta http-equiv=""X-UA-Compatible"" content=""IE=EmulateIE7"" />" & vbcrlf
    Response.Write "</head>" & vbcrlf
    Response.Write "<body>" & vbcrlf
End Sub

Sub Footer()
    Response.Write "</body>" & vbcrlf
    Response.Write "</html>" & vbcrlf
End Sub

Function Conversion(FolderPath, FolderLevel, strCharset, toCharset, FileType, BackUP, Level)
Dim Fso, Folders, Files, FilePath, FileExt, SubFolders, SubFolder
Dim strContent
Set Fso = Server.CreateObject("Scripting.FileSystemObject")
If Not Fso.FolderExists(FolderPath) Then Exit Function
Set Folders = FSO.GetFolder(FolderPath)
For Each Files In Folders.Files
            FilePath = FolderPath & "\" & Files.Name
            FileExt = FSO.GetExtensionName(FilePath)
If Instr(FileType,Ucase(FileExt))>0 And Cstr(Server.MapPath(Request.ServerVariables("url")))<>Cstr(FilePath) Then
If BackUP=1 Then
                    Fso.CopyFile FilePath, FilePath & ".bak"
End If
                strContent = ReadFile(FilePath,strCharset)
If Len(strContent)>0 Then
Call CreateFile(strContent, FilePath, toCharset)
                    Response.Write "<p style=""font-size:12px"">成功转换文件：" & FilePath & "</p>"
                    Response.Flush
End If
End If
Next
If FolderLevel>0 And Clng(FolderLevel)>Clng(Level) Then Exit Function
Set SubFolders = Folders.SubFolders
For Each SubFolder In SubFolders
Call Conversion (FolderPath & "\" & SubFolder.Name, FolderLevel, strCharset, toCharset, FileType, BackUP, Level + 1)
Next
Set SubFolders=nothing
Set Folders=nothing
End Function


Function ReadFile(FilePath, strCharset)
dim objStream
set objStream=server.CreateObject("Adodb.Stream") 
    objStream.Type=2
    objStream.Mode=3 
    objStream.Charset=strCharset
    objStream.Open 
    objStream.Loadfromfile FilePath
    ReadFile=objStream.ReadText 
    objStream.Close 
set objStream=Nothing
End Function


Function CreateFile(Str, FilePath, strCharset)
dim objStream
Set objStream = CreateObject("Adodb.Stream")
    objStream.Type = 2
    objStream.Mode = 3
    objStream.Charset = strCharset
    objStream.Open
    objStream.WriteText Str
    objStream.SaveToFile FilePath, 2
    objStream.Flush
    objStream.Close
Set objStream = Nothing
End Function

If Request.QueryString("action")="conversion" then
Dim FolderPath, FolderLevel, strCharset, toCharset, FileType, BackUP
    FolderPath = Request.QueryString("FolderPath")
    FolderLevel = Request.QueryString("FolderLevel")
    strCharset = Request.QueryString("strCharset")
    toCharset = Request.QueryString("toCharset")
    FileType = Request.QueryString("FileType")
    BackUP = Request.QueryString("BackUP")
If Len(FolderPath)=0 Then FolderPath = "./"
Call Conversion(server.MapPath(FolderPath), FolderLevel, strCharset, toCharset, FileType, BackUP, 1)
    Response.Write "<p style=""font-size:12px"">全部完成</p>"
    Response.End()
End If

%>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<meta http-equiv="X-UA-Compatible" content="IE=EmulateIE7" />
<script type="text/javascript">
function gogo(){
    document.getElementById('step_1').style.display='none';
    document.getElementById('step_2').style.display='block';
}
function backback(){
    document.getElementById('step_1').style.display='block';
    document.getElementById('step_2').style.display='none';
}
</script>
<style type="text/css"> 
*{margin:0; padding:0}
a{color:#0000FF; text-decoration:none}
a:hover {color:#c00; text-decoration:underline}
li{list-style:none}
img{border:none}
label,img,input{vertical-align:middle}
input.input{height:28px; line-height:28px; padding:0 5px; border:1px inset #bbb; margin-right:6px; background:#fff9e8; font-size:12px; color:#222}
textarea.textarea{padding:5px;border:1px inset #bbb; background:#FFF9E8; font-size:12px; color:#222}
input.submit{width:100px; height:36px; margin-right:5px}
body{font:12px/1.5em Arial,Verdana,Helvetica,sans-serif;color:#333}
.main{border:5px solid #f2faff;width:766px; margin:50px auto 0 auto; padding:2px}
.copy{text-align:center; padding-top:20px}
.install{width:760px;border:1px solid #6db2db; padding:2px}
.title{background:#e9f4fb; height:60px; line-height:60px; overflow:hidden; border-bottom:1px solid #b5cfd9; text-align:center}
.title h1{font-size:20px}
.content table{background:#f6fbff}
.content table th{background:#ecf5fa; width:100px; padding:10px; text-align:right; color:#0079ab; font-weight:normal}
.content table td{padding:10px; background:#fff; color:#333}
</style>
<title>文件编码转换程序 - Powered By Mozheng</title>
</head>
<body>
<form name="form1" action="" method="get" target="progress" onSubmit="return gogo();">
<input name="action" type="hidden" value="conversion" />
<div class="main">
    <div class="install">
        <div class="content">
            <div id="step_1">
                <div class="title">
                    <h1>文件编码转换程序</h1>
                </div>
                <table width="100%" border="0" cellspacing="1" cellpadding="0">
                  <tr>
                    <th>起始目录：</th>
                    <td><input name="FolderPath" type="text" value="" class="input" size="50" /></td>
                  </tr>
                  <tr>
                    <th>目录层数：</th>
                    <td><select name="FolderLevel">
                        <option value="0">&nbsp;全部&nbsp;</option>
                        <%for i=1 to 20%>
                        <option value="<%=i%>">&nbsp;<%=i%>级&nbsp;</option>
                        <%next%>
                    </select></td>
                  </tr>
                  <tr>
                    <th>原文件编码：</th>
                    <td><select name="strCharset">
                        <option value="GB2312">&nbsp;GB2312&nbsp;</option>
                        <option value="GBK">&nbsp;GBK&nbsp;</option>
                        <option value="UTF-8">&nbsp;UTF-8&nbsp;</option>
                    </select></td>
                  </tr>
                  <tr>
                    <th>目标文件编码：</th>
                    <td><select name="toCharset">
                        <option value="GB2312">&nbsp;GB2312&nbsp;</option>
                        <option value="GBK">&nbsp;GBK&nbsp;</option>
                        <option value="UTF-8">&nbsp;UTF-8&nbsp;</option>
                    </select></td>
                  </tr>
                  <tr>
                    <th>转换文件类型：</th>
                    <td>
                        <label for="FileType_1"><input name="FileType" id="FileType_1" type="checkbox" value="HTML" />HTML</label>
                        <label for="FileType_2"><input name="FileType" id="FileType_2" type="checkbox" value="HTM" />HTM</label>
                        <label for="FileType_3"><input name="FileType" id="FileType_3" type="checkbox" value="ASP" />ASP</label>
                        <label for="FileType_4"><input name="FileType" id="FileType_4" type="checkbox" value="TXT" />TXT</label>
                        <label for="FileType_5"><input name="FileType" id="FileType_5" type="checkbox" value="JS" />JS</label>
                        <label for="FileType_6"><input name="FileType" id="FileType_6" type="checkbox" value="CSS" />CSS</label>
                        <label for="FileType_7"><input name="FileType" id="FileType_7" type="checkbox" value="TPL" />TPL</label>
                        <label for="FileType_8"><input name="FileType" id="FileType_8" type="checkbox" value="XML" />XML</label>
                        <label for="FileType_9"><input name="FileType" id="FileType_9" type="checkbox" value="ASPX" />ASPX</label>
                        <label for="FileType_10"><input name="FileType" id="FileType_10" type="checkbox" value="PHP" />PHP</label>
                    </td>
                  </tr>
                  <tr>
                    <th>备份原文件：</th>
                    <td><label for="backup_1"><input name="backup" type="radio" id="backup_1" value="1" checked="checked" />备份</label><label for="backup_1"><input name="backup" type="radio" id="backup_1" value="0" />不备份</label></td>
                  </tr>
                  <tr>
                    <td></td>
                    <td>
                        <input type="submit" value="开始转换" class="submit" />
                    </td>
                  </tr>
                </table>
            </div>

            <div id="step_2" style="display:none">
                <div class="title">
                    <h1>转换进度</h1>
                </div>
                <table width="100%" border="0" cellspacing="1" cellpadding="0">
                  <tr>
                    <td align="center"><iframe scrolling="auto" frameborder="0" marginheight="0" marginwidth="0" style="width:740px;height:200px" name="progress" id="progress"></iframe></td>
                  </tr>
                  <tr>
                    <td align="center"><input type="button" value="返回" class="submit" οnclick="backback()" /></td>
                  </tr>
                </table>
            </div>
        </div>
    </div>
</div>
<div class="copy">程序制作：魔怔，<a href="http://www.cnblogs.com/mozheng/" target="_blank">http://www.cnblogs.com/mozheng/</a></div>
</form>
</body>
</html>

 

 

转载于:https://www.cnblogs.com/mozheng/archive/2011/10/17/2214523.html

df456968
关注
实现UTF8转换GB2312国标码的asp代码
10-29
ASP来实现UTF8转换GB2312国标码-GB2312转UTF-8,需要的朋友可以参考下。
批量修改文本文件的编码方式至UTF-8或ANSI，可用于批量修改CUE格式文件
12-05
本话题将深入探讨批量转换编码格式的方法，以“批量修改文本文件的编码方式至UTF-8或ANSI”为例，主要针对CUE格式文件，同时也适用于其他常见文件类型。 首先，UTF-8是一种广泛使用的多字节字符编码，能够表示...
[asp]GB2312转UTF-8
37度2
03-27 924
'个人代码风格注释（变量名中第一个小写字母表表示变量类型） 'i:为Integer型; 's:为String; Function U2UTF8(Byval a_iNum) Dim sResult,sUTF8 Dim iTemp,iHexNum,i iHexNum = Trim(a_iNum) If iHexNum = "" Then Exit F
ASP:GB2312格式文本文件转换成UTF-8格式
diaobingdao6816的博客
07-20 206
'-------------------------------------------------'函数名称:gb2utf_file'作用:利用AdoDb.Stream对象来把GB2312格式文本文件转换成UTF-8格式'----------------------------------------------------Function gb2utf_file(utffilenam...
html乱码转utf8,ASP中GB2312转换UTF-8编码乱码的完整解决方法
weixin_39772420的博客
06-26 636
第一：ASP代码ASP文件头写下如下代码：session.codepage=65001response.charset="utf-8"%>第二：HTML代码代码书写顺序：定义编码语句必须放在所有输出内容的最前面。例如：正确：测试错误：测试第三：CSS代码@charset "utf-8";第四：xml代码第五：其他文件的内容编码内容编码指的是代码里可能某处是调用或写了变量参数什么的，而这个参数...
document。write能不能指定在那个元素中输出_UTF-8 字符处理在 Web 开发中的应用
weixin_35489311的博客
12-06 258
UTF-8 编码介绍UTF-8 编码是一种被广泛应用的编码，这种编码致力于把全球的语言纳入一个统一的编码，目前已经将几种亚洲语言纳入。UTF 代表 UCS Transformation Format.UTF-8 采用变长度字节来表示字符，理论上最多可以到 6 个字节长度。UTF-8 编码兼容了 ASC II(0-127)， 也就是说 UTF-8 对于 ASC II 字符的编码是和 ASC II 一...
ANSI-UTF-8-互转.rar
04-21
这个程序可以将指定目录下的指定格式文件编码进行批量转换.可以进行转换的操作有:UTF8->ANSI或ANSI->UTF8. 可以方便网站设计人员在这两种编码之间进行转换. 软件为绿色软件,不写入任何注册表信息,不包含任何...
ASP生成静态文件编码为UTF-8格式的HTML文件
10-30
然而，默认情况下，ASP使用FileSystemObject（FSO）组件创建的文件通常采用GB2312编码，这对于需要UTF-8编码的国际化的网页是不适用的。UTF-8是一种广泛使用的字符编码，能够支持多种语言，包括中文。 在ASP中，...
asp下GB2312转UTF8编码
07-28
总之，ASP中GB2312转UTF-8涉及到字符编码的理解、字符串处理以及文件操作等多个方面。通过适当的方法和工具，我们可以有效地在不同编码之间进行转换，以满足多样化的开发需求。在实际应用中，根据具体场景选择合适的...
Access数据库中UTF-8转GB2312的方法
11-24
### Access数据库中UTF-8转GB2312的方法 #### 概述 在实际工作中，我们经常会遇到不同编码格式的数据文件，特别是在处理中文字符时，由于不同的编码方式会导致显示异常，因此掌握如何进行编码转换是非常重要的技能...
GB转UTF8字符工具
11-04
用来对代码文件格式进行转换，支持GB2312、GBK与UTF-8编码进行互换功能，资源来源于网络，请使用者遵守相关法律。
文件编码批量转换器.rar
05-16
可以批量编码文件，可以对asp,php,html转换成ansi,utf8,utf32,Unicode,的文件格式，操作非常方便，而且速度非常快，值得推荐。
Asp获取网页源码,支持GB2312、utf-8
03-03
小巧好用，没有乱码，无错误。 调用方法： UrlCode = getHTTPPage("http://www.xxx.com/")
ASP汉字转换UTF-8及UTF-8转GB2312 不知道繁体可不可以?
feng_sundy 的专栏
11-03 3622
汉字转换为UTF-8function chinese2unicode(Str)   dim i   dim Str_one   dim Str_unicode   for i=1 to len(Str)     Str_one=Mid(Str,i,1)     Str_unicode=Str_unicode&chr(38)     Str_unicode=Str_unicode&chr(35)  
C#将字符转换成utf8编码 GB321编码转换
weixin_34345753的博客
12-23 306
public static string get_uft8(string unicodeString) { UTF8Encoding utf8 = new UTF8Encoding(); Byte[] encodedBytes = utf8.GetBytes(unicodeString); String d...
多文件utf8转gb2312
StruggleToLife的博客
07-05 221
find ./* > .filelist while read LINE do fileType='' fileType=`file ${LINE}|grep "UTF-8"` if [[ ${fileType} != '' ]];then echo ${LINE} recode utf8...gb2312 ${LINE} file ${LINE} fi done < .filelist rm .filelist
利用notepad++实现文件批量转换编码格式
小栗子的博客
02-04 6350
利用notepad++实现文件批量转换编码格式一、安装Python Script 插件二、新建python脚本，进行格式转换三、需要注意几点 一、安装Python Script 插件 1、Run Notepad++ and then open menu Plugins->Plugin Manager->Show Plugin Manager 　　运行notepad++ 打开插件–》插件管理器–》显示插件管理 2、Install Python Script. When plugin is inst
利用nodepad++中的python script插件批量转换文件编码为utf-8
一个划水的博客
01-19 1105
http://blog.sina.com.cn/s/blog_5f4150730101b3ok.html 和 http://blog.csdn.net/albertsh/article/details/38829257 两个博客写的都很好。 但是没有讲到最重要的怎么运行这个python脚本 这里直接使用了上述文章的文字描述 选择Plugins->Plugin Manager->Sho
asp转换编码
lingll's blog
08-19 1316
有一utf-8编码的asp文件,假设文件名为utf8.asp,希望输出的是gb2312编码的页面,asp.net很简单Response.ContentEncoding = System.Text.Encoding.GetEncoding("GB2312")只是asp不行,于是另外找一个,利用 server.Execute.新建一文件,gb.asp,设其编码为gb2312,在里面用response.
汉字编码转换：UTF-8, Unicode, Ansi 实用程序
"该资源提供了一种汉字在UTF-8、Unicode和Ansi编码之间的转换程序，特别提到了在Google和百度搜索引擎中的UTF编码表现。此外，还提及了汉字到GB2312编码的转换，并附带了一个ASP源代码示例。" 在计算机科学中，字符...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值