Asp 编码互转的研究和实现代码

来源:asp之家 时间:2011-03-30 10:44:00 

文章背景:

某天,我的一个同事给我看了CSDN上面的一篇关于编程语言排行榜的文章,里面我看到VB还是排名很不错的,我就说,asp(vbscript)确实挺不错。结果他就反驳我,说asp不好,很多东西很难实现。我说比如哪些东西?我开发了几年的asp都没有发现很难实现的东西,除非是属于非脚本语言范围内的,比如多线程的应用(当然,asp也可以模拟实现多线程任务)等。结果他说了什么多线程,还有编码转换等,说自己曾经为了转换编码费了很大精力却没有成功过,所以觉得asp太弱。听到这样的话,我们就知道他的编程底子还不够扎实,并且对asp认识也是非常有限的(并且后来说自己asp几个常用的基本对象都不知道,也没有用过,我差点被气晕过去——连这都没有用过,还跟我谈asp很弱,看来...白长着么大了,连“没有根据,没有发言权”都不懂!呵呵...),所以,我一气之下,在那个周末就把asp编码互转的问题给实现了,让他见识见识什么是asp,竟然这么看不起asp,想着就火大!当然,我的这个研究也同时填补了到目前为止关于asp开发中编码转换研究的空白!

现在,我们开始转入正题,首先,我们了解一下编码转换的过程,一段文字的编码如果要转换,我们就要知道当前文字所对应的编码集,然后用对应的编码集去读取,这是编码正确被转换的前提(如果这步弄错了,那么转换出来的就会是一连串乱码)!好了,找对了当前编码,并且正确读取出来了以后,我们就可以用设定好目标编码的Stream对象去保存这个内容到指定文件中了,到这里我们的编码转换就成功了!

下面我们来看一下asp编码转换的具体代码实现:

代码如下:


'转换编码 content 要转换编码的内容, cset 目标编码, dest 目标文件绝对路径 
Function TransferCharSet(content, cset, dest) 
Dim Objstream 
Set Objstream = Server.CreateObject("adodb.stream") 
objstream.Mode =3 
objstream.Charset = cset 
objstream.Type = 2 
objstream.Open 
objstream.WriteText content 
objstream.Position = 0 
objstream.SaveToFile dest,2 
objstream.Close 
set objstream = nothing 
End Function 
'用对应编码读取指定内容 
Function getcontent(path) 
Dim Objstream 
Set Objstream = Server.CreateObject("Adodb.Stream") 
objstream.Charset = GetCharSetName(path) 
objstream.Type = 2 
objstream.Mode =3 
'objstream.Charset = code 
objstream.Open 
Objstream.LoadFromFile path 
objstream.Position = 0 
getcontent = objstream.ReadText 
objstream.Close 
set objstream = nothing 
End Function 
'取得指定内容的编码名称 
Function GetCharSetName(path) 
Set objstream=server.createobject("Adodb.Stream") 
objstream.Type=1 
objstream.mode=3 
objstream.open 
objstream.Position=0 
objstream.loadfromfile path 
bintou=objstream.read(2) 
If AscB(MidB(bintou,1,1))=&HEF And AscB(MidB(bintou,2,1))=&HBB Then 
GetCharSetName="utf-8" 
ElseIf AscB(MidB(bintou,1,1))=&HFF And AscB(MidB(bintou,2,1))=&HFE Then 
GetCharSetName="unicode" 
Else 
GetCharSetName="gb2312" 
End If 
objstream.close 
Set objstream=nothing 
End Function 

好了,经过这样一段代码,我们的转换工作就完成了!希望这篇文章能给asp爱好者以及其他语言爱好者带来一些帮助和启发。

最后,我想说的是,编程语言的学习和使用并不难,重要的是自己多动脑筋,想想自己需要的功能怎么去实现,而不是怨天尤人,说这个语言太弱了之类的话。

好了,祝大家编程并快乐着,关于asp的编码转换先写到这里,以后我还会推出更精彩的个人原创文章,谢谢大家!

标签:Asp,编码互转
0
投稿

猜你喜欢

  • js控制文本框输入的字符类型方法汇总

    2024-04-10 13:57:03
  • 在Python的while循环中使用else以及循环嵌套的用法

    2022-10-18 19:17:14
  • 超简单的scrapy实现ip动态代理与更换ip的方法实现

    2022-12-21 19:58:05
  • fckeditor 常用函数

    2023-01-25 15:47:11
  • Python timeit模块原理及使用方法

    2023-09-22 08:19:18
  • 新手入门学习python Numpy基础操作

    2023-10-08 07:46:27
  • 5道关于python基础 while循环练习题

    2023-05-22 02:03:33
  • VSCode下配置python调试运行环境的方法

    2023-03-27 10:15:40
  • 简单探讨一下python线程锁

    2021-03-24 12:06:54
  • 对pandas通过索引提取dataframe的行方法详解

    2021-05-18 18:10:39
  • Python注释详解

    2023-07-17 06:48:17
  • Tag与Tagging

    2009-10-15 12:59:00
  • MySQL备份与恢复之热备(3)

    2024-01-21 04:50:04
  • python+django+sql学生信息管理后台开发

    2021-10-09 11:20:26
  • 用python写asp详细讲解

    2022-02-26 13:21:36
  • Python中更优雅的日志记录方案详解

    2023-09-02 13:43:03
  • vue实现轮播图帧率播放

    2024-04-28 09:24:38
  • sql server自动生成拼音首字母的函数

    2024-01-25 15:27:19
  • Python格式化输出--%s,%d,%f的代码解析

    2022-10-31 06:26:44
  • 详解Django中间件的5种自定义方法

    2022-07-24 03:51:43
  • asp之家 网络编程 m.aspxhome.com