国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 學院 > 開發設計 > 正文

解決ASP導出查詢結果到Excel中的身份證號問題

2019-11-17 04:59:18
字體：大 中 小
來源：轉載
供稿：網友
近日在用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("scr'存放文件
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="<a href=&#92;" & temp & " title=將數據保存至eecel表中><font color=red><b>導出excel文件</b></font></a>"
response.write link
set myfile = nothing
set fs=nothing
rs.close
%>
實例源代碼下載：http://code.VeVb.com/down/12254.html

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 高邮市| 云南省| 岳西县| 万州区| 广汉市| 宁蒗| 贵南县| 林州市| 长治市| 开江县| 定州市| 包头市| 北宁市| 梁平县| 师宗县| 定南县| 邯郸县| 基隆市| 习水县| 浦江县| 蒙阴县| 芷江| 浙江省| 南江县| 应用必备| 美姑县| 婺源县| 临沧市| 石狮市| 弥勒县| 重庆市| 城步| 中江县| 六安市| 禹城市| 济阳县| 开江县| 津南区| 孟津县| 蒲江县| 台江县|