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

　　３．用于关闭文件的方法有：
⑴　Close
　　关闭已经建立或打开的文件．

(三)、下面就以一个实例来说明如何使用FSO来读取文本文件和如何保存到数据库：

1、 先创建一个读取文件路径的页面：file.htm

…

<FORM METHOD=POST ACTION="upFile.asp" >

<div align="center"> <br>

<br>

<br>

<br>

<input type="file" name="path" size="40">

<INPUT TYPE="submit" name="dr" value="导入信息">

</div>

</FORM>

…

2、 编写把获取到的文本值保存到数据库代码：upFile.asp

<%@Language="VBScript"%>

<%Response.Buffer=true%>

<!--#include file="adovbs.inc"-->

<%

strConn="DSN=DataSourceName"

set Conn=Server.CreateObject("ADODB.Connection")

Conn.open strConn

set ObjComm=Server.CreateObject("ADODB.Command")

ObjComm.CommandText="sp_AddMsg" ‘调用存储过程

ObjComm.CommandType=adCmdStoredProc

Set ObjComm.ActiveConnection=Conn

''''''''''创建输入输出参数'''''''''''''''''

Set ObjParamECom=ObjComm.CreateParameter("WC_ECompanyName",adVarchar,adParamInput,100)

ObjComm.Parameters.Append ObjParamECom

'@in_ECompanyName Varchar(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