澳门二十一点游戏赌场 澳门二十一点游戏赌场
    您现在的位置:首页 >> 软件应用 >> ASP教程 >> 内容

    解决ASP导出查询结果到Excel中的身份证号问题

    时间:2012/7/23 20:41:53 点击:

      核心提示:近日在用asp把access数据库的查询结果导出为excel文件时,出现一点问题,因为有一个字段是身份证号码,在导出的excel文件中,所有身份证号后3位全部变成0了!真是郁闷啊!网上查了一下才知道是...
    近日在用asp把access数据库的查询结果导出为excel文件时,出现一点问题,因为有一个字段是身份证号码,在导出的excel文件中,所有身份证号后3位全部变成0了!真是郁闷啊!网上查了一下才知道是excel默认的数字格式是"常规",只能正常显示输入的11位数字,超过11位就用科学记数法显示了。
    为了解决这个问题,我只能把查询的数据标识成文本型数据,下面是部份代码:
    <%
    '导出到excel
    set rs = server.createobject("adodb.recordset")
    sqlstr="select * from tabname where"&searhsql '查询语句
    rs.open sqlstr,oconn,1,3
    %>
    <%set fs = server.createobject("script_ing.filesystemobject")
    '存放文件
    filename="info.xls"
    temp=filename
    filename=request.servervariables("appl_physical_path")&"&#92;"+filename
    '删除存在的excel文件
    'if fs.fileexists(filename) then
    'fs.deletefile(filename)
    'end if
    '-创建excel文件
    set myfile = fs.createtextfile(filename,true)
    dim strline,responsestr
    strline=""
    for each x in rs.fields
    strline= strline & x.name & chr(9)
    next
    '将表的列名先写入excel
    myfile.writeline strline
    while not rs.eof
    strline=""
    for each x in rs.fields
    '这里把数据标识成文本类型
    strline= strline & "="""&x.value &""""& chr(9)
    next
    '将表的数据写入excel
    myfile.writeline strline
    rs.movenext
    wend
    link="导出excel文件"
    response.write link
    set myfile = nothing
    set fs=nothing
    rs.close
    %>
    实例源代码下载:http://code.knowsky.com/down/12254.html

    Tags:解决 决A AS SP 
    作者:佚名 来源:不详

    共有评论 0相关评论
    发表我的评论
    • 大名:
    • 内容:
  • 澳门二十一点游戏赌场(www.0769online.com) © 2018 版权所有 All Rights Reserved. 邮箱:103150@qq.com 业务QQ:103150 手机:13549753683

    Power By Laoy8 SQL 3.0SP1 粤ICP备10098668号
  •