这段代码上怎么加啊？小弟跪求！
<%
Dim ObjFSO,ObjTextFile,strFileName,message
message=request.form("message")
set ObjFSO = Server.CreateObject("Scripting.FileSystemObject")
strFileName = server.MapPath("dianming.txt")
set ObjTextFile=ObjFSO.CreateTextFile(strFileName)
ObjTextFile.WriteLine message
ObjTextFile.Close
set ObjTextFile = Nothing
set ObjFSO = Nothing
response.Write("eof=ok")
%>
asp写入txt时怎么把格式存储为utf-8？
答案:2 悬赏:70 手机版
解决时间 2021-02-13 23:09
- 提问者网友：我一贱你就笑
- 2021-02-13 02:40
最佳答案
- 五星知识达人网友：话散在刀尖上
- 2021-02-13 03:26
我之前也遇到过，研究无果，只好用stream替换了。
sub bldFile(fname,str)
Set objStream = Server.CreateObject("ADODB.Stream")
With objStream
.Open
.Charset = "utf-8"
.Position = objStream.Size
.WriteText=str
.SaveToFile Server.Mappath(""&fname&"")，2
.Close
End With
Set objStream = Nothing
end sub
sub bldFile(fname,str)
Set objStream = Server.CreateObject("ADODB.Stream")
With objStream
.Open
.Charset = "utf-8"
.Position = objStream.Size
.WriteText=str
.SaveToFile Server.Mappath(""&fname&"")，2
.Close
End With
Set objStream = Nothing
end sub
全部回答
- 1楼网友：何以畏孤独
- 2021-02-13 04:21
我看过你的网页,显示不出来主要是你的css的问题你把<head>和</head>之间的
<style type="text/css"> ........ </style>
去掉看看.然后再慢慢检查是哪里出错了
置于include语句不是必须要asp的,shtml的一样可以实现.不过这个前提是要在一定的环境下运行(比如iis或上传到支持这个语言的虚拟主机空间里)才可以解析看到的,直接打开是看不到的哦....
祝你好运..
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯