用ASP程序怎样生成UTF-8格式的HTML,求高手指点。

我在升级一个网站的新闻系统，准备用asp生成一个UTF-8格式的inc文件，因为整个系统是UTF-8格式的，所以生成ANSI格式引入到页面后出现的是乱码，所以必须是UTF... 我在升级一个网站的新闻系统，准备用asp生成一个UTF-8格式的inc文件，因为整个系统是UTF-8格式的，所以生成ANSI格式引入到页面后出现的是乱码，所以必须是UTF-8保存。

以下是源代码，求高手指点。
－－－－－－－－－－－－－－－－－－－－－－
set rs=server.CreateObject("adodb.recordset")
rs.Source="select top "&NewsNum&" * from [News] where "&classid&" order by NewsID DESC"
rs.Open rs.Source,conn_work,1,1

set fs=server.CreateObject("Scripting.FileSystemObject")

if FileType="ASP" then
FilePath=server.MapPath("../NewsUpdate.inc")

set JSFile=fs.CreateTextFile(FilePath)
JSFile.writeline("<table cellpadding=3 cellspacing=0 border=0>")

while not rs.EOF
JSFile.writeline("<tr>")
JSFile.writeline("<td width=100% >")
StrNews="<a href=""info_news.asp?NewsID="&rs("NewsID")&"&classid="&rs("classid")&""">"&trim(rs("newsname"))&"(" & year(rs("adddate")) & "-" & Month(rs("adddate")) &"-"& Day(rs("adddate")) & ")</a>"
JSFile.writeline StrNews
JSFile.writeline("<td width=100% >")
JSFile.writeline("</tr>")
rs.MoveNext
wend

JSFile.writeline("</table>")
－－－－－－－－－－－－－－－－－－－－－－
测试成功即送积分。
2楼的高手能对您的介绍详细一些么?
甚至于直接修改我提供的代码,谢谢您! 展开

 我来答

2个回答

#热议# 生活中有哪些实用的心理学知识？

官高一品高低N
2005-12-04 · TA获得超过398个赞

知道小有建树答主

回答量：131

采纳率：100%

帮助的人：55.9万

我也去答题访问个人页

关注

展开全部

上面说的方法不对，应该是这样的，使用另外一个对象ADODB.Stream来生成UTF-8的文件。

例子如下：

Set objStream = Server.CreateObject("ADODB.Stream")
With objStream
.Type = adTypeText
.Mode = adModeReadWrite
.Open
.Charset = "utf-8"
.Position = objStream.Size
.WriteText=html
.SaveToFile Directory & "/" & FileName,adSaveCreateOverWrite
.Close
End With

Set objStream = NoThing

本回答由提问者推荐

已赞过 已踩过<

评论收起

百度网友0f5cb8e
2005-12-02 · 超过96用户采纳过TA的回答

知道小有建树答主

回答量：412

采纳率：0%

帮助的人：343万

我也去答题访问个人页

关注

展开全部

语言的转换是在<head>中加载实现的，在该页中将这句<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">加入<head>
与</head>中间。

已赞过 已踩过<

评论收起

推荐律师服务：若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询

用ASP程序怎样生成UTF-8格式的HTML,求高手指点。

其他类似问题

为你推荐：