21
2019
11

asp生成UTF-8的HTML页

'tmp = ReadFileFrom("xxxx.html","utf-8")
'Call  WriteFileTo("../index.html",content,"utf-8")


'********************************'fc:文件内容,f:文件路径,cset:文件编码'********************************Function WriteFileTo(f,fc,cset)  Dim objStream  Set  objStream = Server.CreateObject("ADODB.Stream")  With objStream
    .Open
    .Charset   = cset
    .Position  = objStream.Size
    .WriteText = fc
    .SaveToFile Server.Mappath(f), 2
    .Close  End With
  Set objStream = Nothing End Function'********************************'f:文件路径,cset:文件编码'********************************Function ReadFileFrom(f,cset)  Dim fc,objStream  Set objStream = Server.CreateObject("ADODB.Stream")  With objStream
    .Type = 2
    .Mode = 3
    .Charset = cset
    .Open
    .LoadFromFile Server.MapPath(f)
    fc = .ReadText  End With
  Set objStream = Nothing 
  ReadFileFrom = fcEnd Function



https://www.cnblogs.com/lichsky/p/3308386.html

« 上一篇下一篇 »