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

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 Varchar(100), --公司所在城市

…

)

AS

SET NOCOUNT ON

BEGIN TRAN

INSERT INTO Tb_WCLibrary(

WC_CompanyName,

WC_CCompanyName,

WC_Address,

…

)

VALUES(

@in_CompanyName,

@in_CCompanyName,

@in_Address,

…

)

IF @@ERROR <> 0

BEGIN

ROLLBACK TRAN

RETURN -1

END

COMMIT TRAN

RETURN 0

SET NOCOUNT OFF

至此，全文内容讲解结束，希望这篇文章能给读者带来一定的帮助。