收录日期:2019/01/21 20:20:39 时间:2016/05/23 01:58:33 标签:ASP
写入中文是报错:
Microsoft VBScript runtime error '800a0005' 

Invalid procedure call or argument 

/manage/export.asp, line 20 
代码:
temp_name = year(date()) & add0(month(date())) & add0(day(date())) & add0(hour(time())) & add0(minute(time())) & second(time()) & ".xls"
set temp_file_obj = server.createobject("scripting.filesystemobject")
mypath = Server.MapPath("/")
set temp_file = temp_file_obj.createtextfile(mypath & temp_name)
writestr="职位编号 职位类别 职位名称 城市 招聘人数 职位描述 职位要求"
temp_file.writeline(writestr)
问题已解决,方法如下:请结帖
利用adodb的stream对象实现,写入的时二进制,因此中英文无影响

dim temp_name
temp_name = year(date()) & add0(month(date())) & add0(day(date())) & add0(hour(time())) & add0(minute(time())) & second(time()) & ".xls"
set temp_file_obj = Server.CreateObject("ADODB.Stream")
mypath = Server.MapPath("/")strBody="职位编号" & chr(9) & "职位类别" & chr(9) & "职位名称" & chr(9) & "城市" & chr(9) & "招聘人数" & chr(9) & "职位描述" & chr(9) & "职位要求" & chr(13)
With temp_file_obj
        .Type = 2
        .Open
        .Charset = "GB2312"
        .Position = temp_file_obj.Size
        .WriteText = strBody
        .SaveToFile mypath,2
        .Close
End With
set temp_file_obj=nothing
up,收藏下
up
up
来晚了,早就遇到过,可惜没得到高分哟.

IE5.0 与 IE6.0显示格式不一样。。? 为什么我的98系统在下载大一点的文件时就会死机?在线等待...... 几个小问题,解决后立即给分。 请问一个简单问题:如何判断图片的格式 请问:a是extern 还是static的 多表更新 如何使用多线程/winsocket TCP开发出有效率的服务器端聊天程序? 新手问题,到底 set 一般在什么情况下必须用? 使用C和Windoew SDK开发WINDOW应用程序,有什么不同吗? 有没有对ADO二次封装的代码? 祝icyer GG 生日快乐 如何在DBLookupComboBox中输入文字? 为何ORACLE_SID失效? 一个关于socket 问题 请问:什么是third-party compilers?? 初学问题,请教各位!! xml读取问题 紧急求助于各位大侠,如何判断.BMP文件中是否有圆? 版主你好,这是我做的购物车页面,但我有些功能不会实现,请帮忙看一下,think you! 如何在ComboBox中列出所有可选择的颜色列表?就像获得字体列表一样。 C++Primer中的static疑问 初学者的问题:如何将.net程序搬到没有.net环境的机器上运行? 关于tiles的问题 请教一个小问题 求一个SQL语句 关于基类和子类赋值的问题 远程访问orcle数据库的问题? ==============编程累了,看看美女================= 我是初學者,急!!! 配置计算机