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

 
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 & cnname(x.name) & chr(9)  ''''''''''
   Next  
  
'--将表的列名先写入EXCEL  
    myfile.writeline strLine  
  
    Do while Not rstData.EOF  
        strLine=""  
  
        for each x in rstData.Fields  
            if x.name="idcard" then''''''''修改对应的身份证字段名称
              strLine = strLine &"'"& x.value & "'"& chr(9) 
            else
              strLine = strLine & x.value & chr(9) 
            end if 
        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

[解决办法]
你可以加一个判断，如果字段名称是身份证，就加单引号，如果不是就不加
for each x in rstData.Fields
if x.name="身份证" then
strLine = strLine & "'"
end if
strLine = strLine & x.value & chr(9)
next