ASP导出EXCEL，如何自定义表头。

[gongpailj]

Set fs = server.CreateObject("scripting.filesystemobject") 
filename="stock_list.xls" 
temp=filename 
filename=server.MapPath("excel\")+filename 
'--创建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 
response.redirect "excel/stock_list.xls" 
set myfile = nothing 
Set fs=Nothing 
end if 

如上，这段代码可以把数据导出,表头是按数据库的表头直接读出来的，请问，如何修改这段代码：
For each x in rs.fields
strLine= strLine & x.name & chr(9)
Next
'--将表的列名先写入EXCEL
myfile.writeline strLine

我想自定义表头，比如，第一列user,第二列name，第三列dep ........

[csdn_aspnet]

你可以把sql字段as成中文 http://blog.csdn.net/itfly8/article/details/577442