查人人中国名人网2017残疾人保障金:TXT导入ACCESS的指定字段中
来源：百度文库 编辑：查人人中国名人网 时间：2024/04/28 22:19:21
TXT中
1111
2222
3333
ACCESS中
ID name p_bianma
如何在ASP中用表单将TXT中的记录导入p_bianma
1111
2222
3333
ACCESS中
ID name p_bianma
如何在ASP中用表单将TXT中的记录导入p_bianma
<%
'如何写asp读取.txt里的内容进数据库
'test.txt 里内容为2行
'数据库表 test 字段 ID(自动编号) name(文本 50) p_bianma (文本 50)
'测试环境 WIN2K IIS5.0+ASP BY [GRKZ]sean
Dim i,nums,HO,HOR
Dim id,names,bianma
names="test.txt"
i=0
nums=3
'读取记录条数(test.txt里内容为3行，当nums=0时，不限制读取条数)
Set HO=Server.CreateObject("scripting.filesystemobject")
Set HOR=HO.OpenTextFile(Server.MapPath(names))
Do While HOR.AtEndOfStream<>True
bianma=HOR.ReadLine
Conn.Execute("Insert Into [test] (name,p_bianma)values('"&names&"','"&bianma&"')")
'这里是插入数据库，具体自己写啦～
If nums<>0 then
i=i+1
If i>=nums Then Exit Do
end if
Loop
HOR.close : Set HOR=Nothing
Set HO=nothing
%>
用正则表达式阿