% '------------------------------------------------- '函數名稱:ReadTextFile '作用:利用AdoDb.Stream對象來讀取UTF-8格式的文本文件 '---------------------------------------------------- function ReadFromTextFile (FileUrl,CharSet) dim str set stm=server.CreateObject("adodb.stream") stm.Type=2 '以本模式讀取 stm.mode=3 stm.charset=CharSet stm.open stm.loadfromfile server.MapPath(FileUrl) str=stm.readtext stm.Close set stm=nothing ReadFromTextFile=str end function '------------------------------------------------- '函數名稱:WriteToTextFile '作用:利用AdoDb.Stream對象來寫入UTF-8格式的文本文件 '---------------------------------------------------- Sub WriteToTextFile (FileUrl,byval Str,CharSet) set stm=server.CreateObject("adodb.stream") stm.Type=2 '以本模式讀取 stm.mode=3 stm.charset=CharSet stm.open stm.WriteText str stm.SaveToFile server.MapPath(FileUrl),2 stm.flush stm.Close set stm=nothing end Sub %> % Dim strText strText = ReadFromTextFile ("test_utf-8.txt","utf-8") %>
!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> head> title> 代碼實例：用ASP讀取/寫入UTF-8編碼格式的文件 /title> meta http-equiv="content-type" content="text/html; charset=gb2312" /> meta name="author" content="楓巖,CnLei.y.l@gmail.com"> meta name="copyright" content="http://www.cnlei.com" /> /head> body> %=strText%> /body> /html>
