欢迎光临站点互联数据网
设置首页 收藏本站 网站建设 北京网站制作
您当前位置:站点互联首页 > 建站技术 > 正文详细
静态页面生成utf-8模版技术文章
站点互联:http://www.sitesky.net 更新时间:2013.4.23

ASP utf-8的静态生成页面

Function ReadFromUTF(TempString,CharSet)

'TempString为要读取的模版文件路径;Charset是编码
  Dim str
  Set stm=server.CreateObject("adodb.stream")
  stm.Type=2
  stm.Mode=3
  stm.Charset=CharSet
  stm.Open
  stm.loadfromfile Server.MapPath(TempString)
  str=stm.readtext
  stm.Close
  Set stm=Nothing
  ReadFromUTF=str
End Function
Function WriteToUTF(Promodel,Filen)

'将替换后的内容写入HTML文档,content为替换后的字符串,Filen为生成的文件名
  Set objStream=Server.CreateObject("ADODB.Stream")
    With objStream
    .Open
    .Charset="utf-8" '编码,这里你可以改成任何编码
    .Position=objStream.Size
    .WriteText=Promodel '模版+数据 写入内容
    .SaveToFile server.mappath(Filen),2 '生成文件路径
    .Close
    End With
  Set objStream=Nothing
End Function

 

Template=www.sitesky.net '模版文件存放位置
str=ReadFromUTF(Template,"utf-8") '读取模版,注意编码对应模版文件编码
Promodel=Replace(str,"$$$DisViewP$$$",DisViewP) '将模版中标记的内容替换成实际需要的内容
Filen="www.sitesky.netl" '生成静态页文件存放位置
Call WriteToUTF(Promodel,Filen) '生成静态页

 

建站技术工具箱
HTML转JS代码工具
轻松把HTML转化为JS格式
字母大小写转换工具
快速把英文字母大小写转化
CSS代码格式化工具
实现CSS代码格式化和在线压缩
JS/HTML格式化工具
轻松把代码美化,压缩,混合加密
经典SQL语句大全
SQL经典语句使用、查询大全
站点互联首页 - 广告合作 - 免责声明 - 网站推广 - 网站建设 - JS特效代码 - 关于我们 - 联系我们 - 友情链接 - 网站地图
版权所有:站点互联 Copyright © 2010-2015 www.Sitesky.Net All rights Reserved
联系电话:18610130465 SEO优化技术