神马品牌网巫师3自动拾取:如何写asp读取.txt里的内容进数据库
来源：百度文库 编辑：神马品牌网 时间：2024/05/04 17:59:19
数据库表 test
字段id,keyword(为保存内容)
需要实现
*.txt里内容为2行
比如:
1
2
读取*.txt里的1 2行写入数据库中的keyword字段
还有一点
判断数据库是否存在的内容为跳过
<%
'如何写asp读取.txt里的内容进数据库
'test.txt 里内容为2行
'数据库表 test 字段id,keyword(为保存内容)
'测试环境 WIN2K IIS5.0+ASP BY [GRKZ]sean
Dim i,nums,HO,HOJ,HOR
Dim id,keyword
i=0 : nums=2 '读取记录条数(test.txt里内容为2行)
ReDim strtmp(nums)
Set HO=Server.CreateObject("scripting.filesystemobject")
Set HOJ=HO.OpenTextFile(Server.MapPath("test.txt"),8,true)
Set HOR=HO.OpenTextFile(Server.MapPath("test.txt"))
Do While HOR.AtEndOfStream<>True
strtmp(i)=HOR.ReadLine
i=i+1
If i>=nums Then Exit Do
Loop
HOJ.close : Set HOJ=Nothing
HOR.close : Set HOR=Nothing
Set HO=nothing
id=strtmp(0)
keyword=strtmp(1)
'以下是插入数据库
If CONN.Execute("Select Count(*) From [test] Where id='"&id&"' And keyword='"&keyword&"')")(0)>=1 Then
'数据库存在的内容为跳过
Else
CONN.Execute("Insert Into [test] (id,keyword)values('"&id&"','"&keyword&"') ")
End If
'代码写的冲忙，需详细代码，加我QQ: 105187501
%>