如何写asp读取.txt里的内容进数据库

答案：<%
 '如何写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
 %>

上一个：求ASP连接Access的数据库换成SQL sever 2005的数据库
下一个：ASP和.NET是两种编程软件吗？