asp 導出Excel 

<%  

dim s,sql,filename,fs,myfile,x  

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

'--假設你想讓生成的EXCEL文件做如下的存放  

filename = Server.MapPath("order.xls")  

'--如果原來的EXCEL文件存在的話刪除它  

if fs.FileExists(filename) then  

      fs.DeleteFile(filename)  

end    if  

'--創建EXCEL文件  

set myfile = fs.CreateTextFile(filename,true)  

'Set rs = Server.CreateObject("ADODB.Recordset")  

'--從數據庫中把你想放到EXCEL中的數據查出來  

'sql = "select * from Tb_Execl order by id desc"  

'rs.Open    sql,conn  

StartTime = Request("StartTime")

EndTime = Request("EndTime")

StartEndTime = "AddTime between #"& StartTime &" 00:00:00# and #"& EndTime &" 23:59:59#"

strSql = "select * from ljphs200 "

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 & x.name & chr(9)  

     Next  

'--將表的列名先寫入EXCEL  

      myfile.writeline strLine  

      Do while Not rstData.EOF  

          strLine=""  

          for each x in rstData.Fields  

              strLine = strLine & x.value &    chr(9)  

          next  

          myfile.writeline    strLine  

          rstData.MoveNext  

      loop  

end if  

Response.Write    "生成EXCEL文件成功，點擊<a href="/"order.xls"" target=""_blank"">下載</a>！"

rstData.Close  

set rstData = nothing

Conn.Close

Set Conn = nothing

%> 

Exce導入到SQL

<%

Dim PatnNow

    PatnNow="uploadfile/ultrawebgrid1.xls"

'=====================ASP讀取EXCEL注事項===========================

'i)將Excel97或Excel2000生成的XLS文件（book）看成一個數據庫，其中的每一個工作表(sheet)看成數據庫表

'ii)ADO假設Excel中的第一行為字段名.所以你定義的范圍中必須要包括第一行的內容

'iii)Excel中的行標題（即字段名）不能夠包含數字. Excel的驅動在遇到這種問題時就會出錯的。例如你的行標題名為“F1”

'iiii)如果你的Excel電子表格中某一列同時包含了文本和數字的話,那么Excel的ODBC驅動將不能夠正常, 處理這一行的數據類型，

       '你必須要保證該列的數據類型一致

'===========================================================

Dim ConnXls,Driver,DBPath,Rs

' 建立Connection對象

Set ConnXls = Server.CreateObject("ADODB.Connection")

Driver = "Driver={Microsoft Excel Driver (*.xls)};"

DBPath = "DBQ=" & Server.MapPath(PatnNow)

'調用Open 方法打開數據庫

ConnXls.Open Driver & DBPath

'DSN連接方式

'ConnXls.Open "Dsn=test"

'注意 表名一定要以下邊這種格試 "[表名$]" 書寫

Sql="Select * From [Sheet1$] "

Set Rs=ConnXls.Execute(Sql)

IF Rs.Eof And Rs.Bof Then

      Response.write "<br><br>沒有找到您需要的數據!!"

    Else

      Do While Not Rs.EOF

      conn.execute"insert into YuFuFei (HaoMa,YuENow,YuENowTime,YuEOld,YuEOldTime,State) values ('"&Rs("號碼")&"','"&Rs("當前余額(分)")&"','"&Rs("當前余額時間")&"','"&Rs("上次余額(分)")&"','"&Rs("上次余額時間")&"','"&Rs("當前狀態")&"')"

      'Response.write Rs("接入號")&"<br>"

      Rs.MoveNext

    Loop

End IF

Rs.Close

Set Rs=nothing

ConnXls.Close

Set ConnXls=Nothing

'Response.Write    "成功！"

conn.close

set conn=nothing

%>