28,391
社区成员
发帖
与我相关
我的任务
分享utf-8无法引用JS文件，请朋友帮帮忙，急急急！！！在线等待！！！
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="Includes/Conn.asp"-->
<!--#include file="Functions/AspFunctions.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<title>测试</title>
<script src="Addr.js"></script>
</head>
<body>
<script>
document.write(AddrID[2]);
</script>
</body>
</html>
这个是主文件内容
Addr.js的内容如下：
var AddrID = new Array();
var AddrName = new Array();
var AddrAreaCode = new Array();
AddrID[2] = '2|3';
AddrName[2] = '中国';
AddrAreaCode[2] = '86';
如果不用utf-8和65001，改用gb2312和936的话，可以正常引用没问题，但如果有utf-8的话，就会乱码报错，请问怎样搞法？谢谢
<!--#include file="Includes/Conn.asp"-->
<!--#include file="Functions/AspFunctions.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<title>测试</title>
<script src="Addr.js"></script>
</head>
<body>
<script>
document.write(AddrID[2]);
</script>
</body>
</html>
这个是主文件内容
Addr.js的内容如下：
var AddrID = new Array();
var AddrName = new Array();
var AddrAreaCode = new Array();
AddrID[2] = '2|3';
AddrName[2] = '中国';
AddrAreaCode[2] = '86';
如果不用utf-8和65001，改用gb2312和936的话，可以正常引用没问题，但如果有utf-8的话，就会乱码报错，请问怎样搞法？谢谢
...全文
请发表友善的回复…
发表回复
CTBOK 2005-08-01
- 打赏
- 举报
你走运了，解决了，用adodb.stream可以解决
我帖一位网友的帖子出来
public function createutf8(txtconfig,filename)
Dim st
Set st=Server.CreateObject("ADODB.Stream")
st.Type=2
st.Mode=3
st.Charset="utf-8"
st.Open()
st.WriteText txtconfig
st.SaveToFile filename,2
st.Close()
Set st=Nothing
end function
我帖一位网友的帖子出来
public function createutf8(txtconfig,filename)
Dim st
Set st=Server.CreateObject("ADODB.Stream")
st.Type=2
st.Mode=3
st.Charset="utf-8"
st.Open()
st.WriteText txtconfig
st.SaveToFile filename,2
st.Close()
Set st=Nothing
end function
wfwclyms 2005-08-01
- 打赏
- 举报
非得用utf-8它吗？
不过，用也不会出错啊？没出过这种错~~~~~
不过，用也不会出错啊？没出过这种错~~~~~
CTBOK 2005-08-01
- 打赏
- 举报
补充一句，我是用filesystemobject生成的js文件
Set FsoText = Fso.OpenTextFile(Server.MapPath("Addr.js"), 2, True,TristateTrue)
我已经用unicode打开文件，但仍然无法引用，请问何解？
Set FsoText = Fso.OpenTextFile(Server.MapPath("Addr.js"), 2, True,TristateTrue)
我已经用unicode打开文件，但仍然无法引用，请问何解？
