asp将数据导入excel后，中文出现乱码？怎么解决？

问：asp将数据导入excel后，中文出现乱码？？怎么解决

<!--#include　 file="function/connect.asp"　　 -->　
　<!--#include　 file="function/function.asp"　　 -->　
　<%　
　Response.Charset　 =　 "UTF-8"　　'前面包含的文件是和来链接到数据库,你要修改这个文件以链接到不同的库　

　sql1="select　 *　 from　 apply　 "　　

'这里是要输出EXCEL的查询语句，如　 "SESECT　 *　 FORM　 CAI　 WHERE　 性别='女'"　

filename="excel4.xls"　　　

'　 要输出的EXCEL文件的文件名,　 你只要改以上两句就行了,其它的都不要改.　

　call　 toexcel(FILENAME,sql1)　
　set　 conn=nothing　
　　
　function　 ReadText(FileName)

'这是一个用于读出文件的函数　

　　　'response.write　 server.MapPath(FileName)　
　　　'response.end　
　set　 adf=server.CreateObject("Adodb.Stream")　
　with　 adf　
　.Type=2　
　.LineSeparator=10　
　.Open　
　.LoadFromFile　 (server.MapPath(FileName))　
　.Charset="GB2312"　
　.Position=2　
　ReadText=.ReadText　
　.Cancel()　
　.Close()　
　end　 with　
　set　 ads=nothing　
　end　 function　
　　
　sub　 SaveText(FileName,Data)　　

'这是一个用于写文件的函数