asp中文本文件导入数据库

kasuo2 2010-03-24 04:50:54

我写了一段文本文件导入数据库的代码
导是导入成功了但是同时还是执行了下面的语句“上传文件数据排列不正确”
表名userinfo 字段就是下面所述字段 iId自增型 txt文件名就是userinfo
代码如下请高手指导万分感谢

<%@ language="VBScript"%>

<%
strFile=Server.MapPath("userinfo.txt")
set fso = CreateObject("Scripting.FileSystemObject")
if not fso.FileExists(strfile) then
Response.Write"文件不存在！"
Response.End
End if
set rs=server.createobject("adodb.recordset")
sql="select * from [userinfo] where iId is null"
rs.open sql,conn,1,3
Set ts=fso.OpenTextFile(strFile,1,false,false)
Response.Write"正在向数据库中导入数据。。。<br>"
Do Until ts.AtEndOfStream
str1=ts.ReadLine
userinfo=Split(str1,",")
if UBound(userinfo)<>4 then
response.Write"上传文件数据排列不正确"
response.End
End if
Response.Write str1 & "<br>"
rs.AddNew
rs("vname")=userinfo(0)
rs("vpassword")=userinfo(1)
rs("vsex")=userinfo(2)
rs("vage")=userinfo(3)
rs("vnumber")=userinfo(4)
rs.update
loop
set rs=nothing
set conn=nothing
set ts=nothing
set fso=nothing
%>

...全文