ASP教程:读取文件和写文件

　　读取文件操作：

'------------------------------------------------- '函数名称: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

　　创建一个config.asp的文件

call WriteToTextFile("config.asp","谁是最可爱的人","utf-8")

评论总数：0 条 [ 查看全部 ] 网友评论