ASP逐行读取文本txt到数据库
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "driver={SQL Server};uid=sa;pwd=auuo;server=www;
database=2009lbps"
Set rs = Server.CreateObject("ADODB.Recordset")
whichfile=server.mappath("read.txt")
Set fso = CreateObject("Scripting.FileSystemObject")
Set txt = fso.OpenTextFile(whichfile,1)
While Not txt.AtEndOfStream
rline =txt.ReadLine'读取一行
sql="select * from Zm_P where p='"&rline&"'"
rs.Open sql,Conn,1,3
if not rs.eof then
rs("p")=rline
rs.Update
else
rs.addnew
rs("p")=rline
rs.Update
end if
rs.close
Response.Write rline
wend
%>
原载: http://www.auuo.com
版权说明：原创文章欢迎转载，但转载请务必以超链接标明文章原始出处、作者信息和本声明。否则必追究法律责任。
联系我们
QQ：51193930(Ahoo)
MSN：auuocx@hotmail.com
网址：http://www.auuo.com
地址：慈溪天九商务中心525室
电话：189-0662-0882
我们的优势
拥有优秀的网站设计师与程序工程师，精通各种一流的图形设计软件，如Photoshop、Freehand CorlDraw、Flash、Dreamweaver、Fireworks等等制作网页和平面设计图。以及使用C语言、C#、ASP.NET框架、asp、php等语言为您开发项目，我们为您准备了最专业的技术服务。为您开发的网站精致实用，代码清晰，保证您的网站安全可靠修改方便，最重要的是符合市场需求，并随时为客户解决各种技术问题。
我们正在努力开拓...