收录日期:2018/09/20 15:51:19 时间: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
来晚了,早就遇到过,可惜没得到高分哟.