好久没来了,100高分求教个问题?数据导出excel问题

lionz1023 lionz1023 墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年,写一次发全网 我也要 + 加入社区

<!--#include file="inc/sys_conn.asp"-->
<%
Set fs = server.CreateObject("scripting.filesystemobject")
a=year(now())&"-"&month(now())&"-"&day(now())
filename = Server.MapPath("/pqyg/date/pqyg_"&a&".xls")
if fs.FileExists(filename) then
fs.DeleteFile(filename)
end if

set myfile = fs.CreateTextFile(filename,true)

strSql = "select * from person where p_state<>'离职'"
Set rstData =conn.execute(strSql)
if not rstData.EOF and not rstData.BOF then

dim trLine,responsestr
strLine=""
For each x in rstData.fields
strLine = strLine & x.name & chr(9)
Next

'--将表的列名先写入EXCEL
myfile.writeline strLine

Do while Not rstData.EOF
strLine=""

for each x in rstData.Fields
strLine = strLine &"'"& x.value & "'"& chr(9)
next
myfile.writeline strLine

rstData.MoveNext
loop

end if

Response.Write "生成EXCEL文件成功,点击<a href=""/pqyg/date/pqyg_"&a&".xls"" target=""_blank"">下载</a>!"

rstData.Close
set rstData = nothing
Conn.Close
Set Conn = nothing
%>

现在有个问题,里面有一个身份证字段,导出后默认成了数字,显示成了科学计数法,搜了下加上单引号后是可以正常现在,但是其他字段也会出现单引号,求解如何绝佳这个问题,另外导出的表头是字段,但是我设置的是因为,想用中问该如何解决?
...全文

相关推荐

评论 7
收藏 已收藏
分享
返回顶部
lionz1023
ASP 28,401 成员 356,940 内容