asp读取文件写入数据库

我帮你做个小例子 做成数组 你改一下就可以直接用了
<%
'Function FSOFileRead(Template_Name)
Dim objFSO,objCountFile,FiletempData,FSOFileRead1
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objCountFile = objFSO.OpenTextFile(Server.MapPath(Template_Name),1,True)
do while objCountFile.AtEndOfStream = false
FSOFileRead1 = FSOFileRead1+","+objCountFile.ReadLine '你可以在这里把objCountFile.ReadLine 的值写入数据库
'objCountFile.SkipLine
loop
FSOFileRead=right(FSOFileRead1,len(FSOFileRead1)-1)
response.Write(FSOFileRead)'这2行是显示数组用的 如果你写入数据库就用不到了
objCountFile.Close
Set objCountFile=Nothing
Set objFSO = Nothing
'End Function
'response.Write(FSOFileRead("1.txt"))
%>

<%
set fso=server.CreateObject("Scripting.FileSystemObject")
Set txtFile=fso.OpenTextFile(Server.MapPath("data.txt"))
While Not txtFile.AtEndOfStream
sql="INSERT INTO [num]([order]) values('"&txtFile.ReadLine&"')"
conn.Execute sql
Wend
Response.Write "OK"
txtFile.Close
%>