婷婷综合国产,91蜜桃婷婷狠狠久久综合9色 ,九九九九九精品,国产综合av

主頁 > 知識庫 > Asp 編碼互轉的研究和實現代碼

Asp 編碼互轉的研究和實現代碼

熱門標簽:智能電銷機器人適用于哪些行業 徐州人工智能電銷機器人好用嗎 長沙防封電銷卡品牌 西寧公司外呼系統平臺 武漢營銷電話機器人軟件 外呼系統還用卡么 地圖標注服務哪家好 地圖標注宅基地 騰訊地圖標注商戶關閉
文章背景:
某天,我的一個同事給我看了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 編碼互轉的研究和實現代碼》,本文關鍵詞  Asp,編碼,互轉,的,研究,和,;如發現本文內容存在版權問題,煩請提供相關信息告之我們,我們將及時溝通與處理。本站內容系統采集于網絡,涉及言論、版權與本站無關。
  • 相關文章
  • 下面列出與本文章《Asp 編碼互轉的研究和實現代碼》相關的同類信息!
  • 本頁收集關于Asp 編碼互轉的研究和實現代碼的相關信息資訊供網民參考!
  • 推薦文章
    主站蜘蛛池模板: 瑞金市| 东城区| 崇阳县| 霍林郭勒市| 清流县| 安乡县| 八宿县| 高雄市| 文成县| 竹北市| 荥经县| 革吉县| 周至县| 西乌珠穆沁旗| 两当县| 芦山县| 高雄县| 孝昌县| 保山市| 东港市| 贵定县| 焉耆| 沈阳市| 礼泉县| 蓬安县| 库伦旗| 吴堡县| 绵阳市| 万年县| 彭阳县| 澄江县| 临安市| 威信县| 寿光市| 司法| 关岭| 琼中| 昭苏县| 汪清县| 威海市| 广昌县|