求asp中多条件搜索后，将搜索结果（一般都有多条数据）导出为excel的代码

数据库是SQL，需要将符合搜索条件的结果（结果有多个）导出为excel，望各位指教。

1. 
   
2. <!--#include file="../conn.asp"-->
   
3. <%
   
4. if session("china_admin")="" then response.redirect "login.asp"
   
5. dbpath="../"
   
6. dblink
   
7. dim filename,fs,myfile,x,m,n,o,link
   
8. Set fs = server.CreateObject("scripting.filesystemobject")
   
9. 
   
10. Set rs = Server.CreateObject("ADODB.Recordset")
    
11. session("sql") = "select * from china_car"
    
12. rs.Open session("sql"),conn,1,1
    
13. n=1
    
14. 
    
15. '==================================================================
    
16. '==============================================================建立excel文件系统
    
17. filename = Server.MapPath("car/CarTable"&n&".xls") '这个是为了方便，新建一个CAR的文件夹，这个可以自己设啦
    
18. if fs.FileExists(filename) then'如果文件存在，覆盖它。
    
19. fs.DeleteFile(filename)
    
20. end if
    
21. set myfile = fs.CreateTextFile(filename,true)
    
22. 
    
23. '========================================================================
    
24. 
    
25. dim strLine,responsestr
    
26. strLine=""
    
27. 
    
28. dim work,j,i
    
29. str="序号|卡号|密码|积分数|金额"　　'这个根据你的access数据表字段设置。
    
30. work=split(str,"|")
    
31. j=ubound(work)
    
32. i=0
    
33. o=0
    
34. do while not i>j
    
35. strLine= strLine & work(i) & chr(9)
    
36. i=i+1
    
37. loop
    
38. 
    
39. myfile.writeline strLine
    
40. Do while Not rs.EOF
    
41. o=o+1
    
42. m=20000
    
43. 
    
44. 
    
45. strLine=""
    
46. 
    
47. for each x in rs.Fields
    
48. strLine= strLine & x.value & chr(9)
    
49. if o>=m*n then
    
50. n=n+1
    
51. filename = Server.MapPath("car/CarTable"&n&".xls") '这个可以自己设啦
    
52. if fs.FileExists(filename) then'如果文件存在，覆盖它。
    
53. fs.DeleteFile(filename)
    
54. end if
    
55. set myfile = fs.CreateTextFile(filename,true)
    
56. end if
    
57. next
    
58. 
    
59. myfile.writeline strLine
    
60. 
    
61. rs.MoveNext
    
62. loop
    
63. 
    
64. rs.Close
    
65. set rs = nothing
    
66. conn.close
    
67. set conn = nothing
    
68. set myfile = nothing
    
69. Set fs=Nothing
    
70. ExcelPath="car/CarTable"&n&".xls"
    
71. response.Write "导出成功　　"
    
72. response.write("<a href='" & server.URLEncode(ExcelPath) & "'><font=red>下载</font></a>")
    
73. 
    
74. %>

复制代码

这样的话，银行账号和身份证号码是科学计数显示的，请问该如何解决呢

这样的话，银行账号和身份证号码是科学计数显示的，请问该如何解决呢
嘉文 发表于 2016-7-22 00:35

在银行账号和身份证号前加上符号 '让他强制字符串输出就是了
EXCEL会自动识别为字符，而不是科学数字