本地测试好了,但到国外主机后,asp出现很多错误。我研究了半个月,最后总结出以下:
1、其实是英文操作系统的原因。
2、中文asp网站放到国外主机后,必须作更改
大部分国外主机不支持fso(filesystemobject)写入功能
所以要用"adodb.Stream 替换
写入
Function MakeHtml(path,str)
dim strobjectads ' 流
strobjectads = "adod" & "b.S" & "tream"
on error resume next
dim obj : set obj = server.createobject(strobjectads)
obj.type = 2
obj.open
obj.charset = "gb2312"
obj.position = obj.Size
obj.writeText = str
obj.savetofile server.mappath(path), 2
obj.close
End Function
读取
Function ReadTxt(TxtPath)
dim objStream
Set objStream = CreateObject("adodb.stream")
objStream.Type=2
objStream.Charset = "gb2312"
objStream.Open
objStream.LoadFromFile TxtPath
ReadTxt = objStream.ReadText
objStream.Close
Set objStream = Nothing
End Function
3、把所有Chr()函数替换成 Chrw()
4、解决数据库乱码问题:每个asp页的第一行必须是<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> ,Head之间用gb2312,例子如下:<meta http-equiv=Content-Type content="text/html; charset=gb2312">。