xlWorksheet.Range("A2:F2").Borders.LineStyle=1
Call openconn()
Dim sql
sql="select top 100 * from kehuziliao"
Set rs=conn.execute(sql)
Dim i
i=1
Do While Not rs.eof
'--------------------------------------------------自己可做循环i=i+1(数据库数据)
xlWorksheet.Cells(2+i,1).Value = rs("quyu")
xlWorksheet.Cells(2+i,2).Value = rs("chengshi")
xlWorksheet.Cells(2+i,3).Value = rs("xingming")
xlWorksheet.Cells(2+i,4).Value =rs("xingbie")
xlWorksheet.Cells(2+i,5).Value =rs("chushengriqi")
xlWorksheet.Cells(2+i,6).Value = rs("shouji")
'--------------------------------------------------
response.write rs("xingming")&"<br>"
'response.wirte "ss"&len(rs)&"ss"
ResultSetMetaData rsmd = rs.getMetaData();
int numberOfColumns = rsmd.getColumnCount();
response.write numberOfColumns;
response.write numberOfColumns&"<br>";
boolean b = rsmd.isSearchable(1);
response.write b
i=i+1
rs.movenext
Loop
Set fs = CreateObject("Scripting.FileSystemObject")
tfile=Server.MapPath("test.xls")
if fs.FileExists(tfile) then
Set f = fs.GetFile(tfile)
f.delete true
Set f = nothing
end if
Set fs = nothing
xlWorksheet.SaveAs tfile '保存文件
xlApplication.Quit '释放对象
Set xlWorksheet = Nothing
Set xlApplication = Nothing
%>