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 ........
