使用FSO把文本信息导入数据库

ar(50),                   --公司英文名称

Set ObjParamAddr=ObjComm.CreateParameter("WC_Address",adVarchar,adParamInput,200)

      ObjComm.Parameters.Append ObjParamAddr

      ''@in_Address      Varchar(50),                   --公司地址

Set ObjParamCity=ObjComm.CreateParameter("WC_City",adVarchar,adParamInput,100)

      ObjComm.Parameters.Append ObjParamCity

''@in_City     Varchar(50),                   --城市

…

''''''''''''''''''''创建参数完毕''''''''''''''''''''''''''''''''''''''''

%>

<%

dim AllText,strLine1,strLine2,strLine3

dim strpath,fileurl

fileurl=""

strpath=Trim(Request.form("path"))

fileurl=strpath

SET FSO=CreateObject("Scripting.FileSystemObject")

SET ATextStream=FSO.OpenTextFile(fileurl,1,false,TristateFalse)

''''''''''''''''''提取数据''''''''''''''''''''''''''''''''''''''''''''''''''''''''

DO WHILE NOT ATextStream.AtEndOfStream

''''''''''''初始化变量''''''''''''''''''''''''''''''''

strLine1=""

strLine2=""

strLine3=""

…

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

   ATextStream.SkipLine

   ATextStream.Skip(11)          

   strLine1=Trim(ATextStream.ReadLine)

   ATextStream.Skip(11)

   strLine2=Trim(ATextStream.ReadLine)

   ATextStream.Skip(5)

   strLine3=Trim(ATextStream.ReadLine)

   …

''End if

''''''''''''''''''''将变量加入参数集''''''''''''''''''''''''''

ObjParamECom.value=strLine1

ObjParamCCom.value=strLine2

ObjParamAddr.value=strLine3

…

''''''''''''''''''''操作结束''''''''''''''''''''''''''''''''''''''''

ObjComm.Execute() ''运行命令

LOOP

response.write "<br>"+"导入库成功！<a href=dolist.html>[继续导入]</a><br>"

set Conn=nothing

set FSO=nothing

set ATextStream=nothing

%>

附：存储过程sp_AddMsg代码

CREATE PROCEDURE dbo.sp_AddMsg                 --导入国外企业信息

(

   @in_CompanyName       Varchar(100),               --公司名称

     @in_Address          Varchar(200),                 --公司地址

   @in_City