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

I 的方式打开．
TristateUseDefault : 以系统默认的方式打开．
该参数可以省略，缺省时为 TristateFalse ，即ASCII方式．
(二)．用 TextStream 进行文件操作
　　在建立或打开了文件之后，就可利用对象 TextStream 提供的方法进行文件的实际操作了．
　　１．用于写操作的方法有：
⑴　Write(string)
　　将由string指定的字符串写入到文件中．
⑵　WriteLine(string)
　　在文件中写入由string指定的字符串，并写入一个换行字符．
　　参数string可以省略，此时将在文件中插入一个空行．
⑶　WriteBlankLines(NumOfLines)
　　在文件中插入若干空行，行数由 NumOfLines 指定．
　　２．用于读操作的方法和属性方法有：
⑴　AtEndOfLine
　　该属性是一个Boolean值，表示文件指针是否已指向当前行的行尾．
⑵　AtEndOfStream
　　该属性是一个Boolean值，表示文件指针是否已指向文件尾．
⑶　Column
　　该属性是一个整数值，表示文件指针在当前行中的位置．
⑷　Line
　　该属性是一个整数值，表示文件指针所在行的行号．
⑸　Read(NumOfCharacters)
　　该方法从文件当前位置开始，读入由NumOfCharacters数目指定的若干字符，返回一个
　　字符串．
⑹　ReadLine
　　该方法从文件当前位置开始，读入当前行的内容直到行尾，返回一个字符串．
⑺　ReadAll
　　该方法从当前位置开始，读入整个文件的内容直到文件结束，返回一个字符串．
⑻　Skip(NumOfCharacters)
　　该方法从文件当前位置开始，跳过由NumOfCharacters数目指定的若干字符．
⑼　SKipLine
　　该方法从文件当前位置开始，跳过当前行的内容．
　　３．用于关闭文件的方法有：
⑴　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      Varch