asp导出导入数据库

<%
Dim conn, rs, sql, filePath
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=SQLOLEDB;Data Source=yourServer;Initial Catalog=yourDatabase;User ID=yourUser;Password=yourPassword;"
sql = "SELECT * FROM yourTable"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn

filePath = Server.MapPath("exported_data.csv")
Dim fileStream
Set fileStream = Server.CreateObject("ADODB.Stream")
fileStream.Type = 2 ' 文本模式
fileStream.Open
fileStream.Write "Column1,Column2,Column3" & vbCrLf

Do While Not rs.EOF
    fileStream.Write rs("Column1") & "," & rs("Column2") & "," & rs("Column3") & vbCrLf
    rs.MoveNext
Loop

fileStream.SaveToFile filePath, 2 ' 覆盖现有文件
fileStream.Close
Set fileStream = Nothing
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
%>

<%
Dim conn, sql, filePath, fileStream, line, fields
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=SQLOLEDB;Data Source=yourServer;Initial Catalog=yourDatabase;User ID=yourUser;Password=yourPassword;"
filePath = Server.MapPath("imported_data.csv")

Set fileStream = Server.CreateObject("ADODB.Stream")
fileStream.Type = 2 ' 文本模式
fileStream.Open
fileStream.LoadFromFile filePath

Dim lineArray
Do While Not fileStream.EOS
    line = fileStream.ReadLine
    lineArray = Split(line, ",")
    
    sql = "INSERT INTO yourTable (Column1, Column2, Column3) VALUES ('" & lineArray(0) & "', '" & lineArray(1) & "', '" & lineArray(2) & "')"
    conn.Execute sql
Loop

fileStream.Close
Set fileStream = Nothing
conn.Close
Set conn = Nothing
%>