如何將excel數(shù)據(jù)通過asp導(dǎo)入數(shù)據(jù)庫

先用asp 鏈接 excel(excel 可以作為數(shù)據(jù)庫使用)，然后讀取 ，然后打開數(shù)據(jù)庫保存進(jìn)去即可。寫代碼的話可以聯(lián)系我！

'定義打開Excel表格的函數(shù)
Function OpenExcel(path)
dim excel,rs,strsql
On Error Resume Next
Set rs = Server.CreateObject("ADODB.RecordSet")
Set excel = Server.CreateObject("ADODB.Connection")
excel.Open "Driver={Microsoft Excel Driver (*.xls)};DBQ=" & path
If Err.number<> 0 Then
Response.Write "請檢查上傳的Excel文件內(nèi)部格式，文件無法打開，導(dǎo)入失??！"
Response.End
End If
strsql = "SELECT * FROM [Sheet1$]" '在這里指定工作薄名稱,默認(rèn)是Sheet1$
Set rs = excel.Execute(strsql)
Set OpenExcel = rs
End Function

'讀取文件中的內(nèi)容
Dim rsInfo
Set rsInfo = Server.CreateObject("ADODB.RecordSet")
Set rsInfo = OpenExcel("E:/a.xls") '這里的文件路徑請用Server.Path來獲取

'檢查讀取結(jié)果
If rsInfo.State<> 1 Then
Response.Write "請檢查Excel文件中的工作表命名是否為Sheet1，導(dǎo)入失??！"
Response.End
End If

If rsInfo.EOF And rsInfo.BOF Then
Response.Write "沒有找到Excel表中的數(shù)據(jù)，導(dǎo)入失??！"
Response.End
End If

If IsNull(rsInfo.Fields(0)) or Trim(rsInfo.Fields(0))="" Then
Response.Write "沒有找到Excel表中的數(shù)據(jù)，導(dǎo)入失??！"
Response.End
End If

'這里指定導(dǎo)入數(shù)據(jù)的列數(shù),列數(shù)少了退出
If rsInfo.Fields.Count< 7 Then
Response.Write "Excel表中的數(shù)據(jù)列數(shù)不正確，導(dǎo)入失??！"
Response.End
End If