ASP 中如何在导出EXCEL表头加标题

各位:

我用了SHAWATCN的以下代码,可在ASP导出EXCEL表了,但我要在表头上加个标题,该如何写代码,请各位大侠指点.谢谢!
<%
fname="excel/结果.xls"
set conn=server.createobject("adodb.connection")
conn.open "driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath(datadb)

dim rs,sql,filename,fs,myfile,x,link

Set fs = server.CreateObject("scripting.filesystemobject")

filename = Server.MapPath(fname)
' 生成的Excel文件路径

if fs.FileExists(filename) then
fs.DeleteFile(filename)
' 如有原来相同的Excel文件删除(覆盖)它
end if
set myfile = fs.CreateTextFile(filename,true)
' 创建Excel文件


Set rs = Server.CreateObject("ADODB.Recordset")
sql = "select * from jbcp order by sno"
' 从数据库中把需放到Excel文件中的数据查找出来
rs.Open sql,conn
if rs.EOF and rs.BOF then

else

dim strLine,responsestr
strLine=""
For each x in rs.fields
strLine= strLine & x.name & chr(9)
Next

'--将表的列名先写入EXCEL
myfile.writeline strLine

Do while Not rs.EOF
strLine=""

for each x in rs.Fields
strLine= strLine & x.value & chr(9)
next

myfile.writeline strLine

' 将表的数据写入Excel文件

rs.MoveNext
loop

end if

rs.Close
set rs = nothing
conn.close
set conn = nothing
set myfile = nothing
Set fs=Nothing
%>