日期:2010-02-08 浏览次数:21110 次
以下是引用片段: 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 str=ReadFromTextFile("test.htm","utf-8") response.Write(str) |