Question

asp读取txt文件并写入数据库

读取每一行的文件路径，提交到数据库检索哪条记录等于此路径，再把此路径后面的数写写入到 Rs("MusicBPM") 表中。

Answer 1

程序没调试过，应该没什么大问题。
把数据库名、数据表名、路径字段名和BPM字段名改成实际的就可以。
<%
Server.ScriptTimeOut=999999
Dim Conn
Dim Rs,Sql
Dim objFSO,objFile
Dim strLine,arrLine
Dim strPath,strBMP
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("数据库名.mdb")
Set Rs = Server.CreateObject("ADODB.Recordset")
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(Server.MapPath("bpm.txt"),1,True)
While Not objFile.AtEndOfStream
strLine = objFile.ReadLine
If strLine<>"" And Instr(strLine,".mp3 ")>0 Then
arrLine = Split(strLine,".mp3 ")
strPath = arrLine(0)
strBMP = arrLine(1)
If strPath<>"" And strBMP<>"" And isNumeric(strBMP) Then
Sql = "SELECT * FROM [数据表名] WHERE [路径字段名]='" & strPath & "'"
Rs.Open Sql,Conn,1,3
If Not(Rs.EOF And Rs.BOF) Then
Rs("MusicBPM") = strBMP
Rs.Update
End If
Rs.Close
End If
End If
Wend
objFile.Close
Set objFile = Nothing
Set objFSO = Nothing
Set Rs = Nothing
Conn.Close
Set Conn = Nothing
%>

Answer 2

用Split分割一下就可以，换成是chr(13)
舞曲入库你swfupload可以更快速，比用bat快100倍以上