下载文档原格式
Active Server Pages教程二零零零年二月二日目录第一章引言 (3)第二章简介 (8)第三章ASP基础 (13)第四章脚本基础 (19)第五章脚本变量、函数、过程和条件语句 (22)第六章脚本循环语句 (27)第七章内建Request对象 (30)第八章内建Reponse对象 (36)第九章内建对象Application 和Session (42)第十章Global.asa文件的使用及Chat程序 (48)第十一章内建对象Server (53)第十二章数据库查询语言(1) (57)第十三章数据库查询语言(2) (62)第十四章ActiveX组件 (66)第十五章常用的ASP ActiveX组件 (70)第十六章其它的ASP常用组件 (75)第十七章ADO存取数据库时如何分页显示 (81)第十八章堵住ASP漏洞 (87)第十九章最新的ASP、IIS安全漏洞 (91)第一章引言您的网站是否仍一如既往地保持“静态”？目前呈几何增长的互联网网站中，有相当一部分仍固守“静态”，无形中已大大落后于时代的步伐。
所谓“静态”指的就是网站的网页内容“固定不变”，当用户浏览器通过互联网的HTTP（Hypertext Transport Pr otocol）协议向WEB服务器请求提供网页内容时，服务器仅仅是将原已设计好的静态HTML文档传送给用户浏览器。
其页面的内容使用的仅仅是标准的HTML代码，最多再加上流行的GIF89A格式的动态图片，比如产生几只小狗小猫跑来跑去的动画效果。
若网站维护者要更新网页的内容，就必须手动地来更新其所有的HTML文档。
“静态”网站的致命弱点就是不易维护，为了不断更新网页内容，你必须不断地重复制作HTML文档，随着网站内容和信息量的日益扩增，你就会感到工作量大得出乎想象。
你不禁要问：那么什么是动态网站呢？这就是本文将重点讲述的核心，所谓“动态”，并不是指那几个放在网页上的GIF动态图片，在这里笔者为动态页面的概念制定了以下几条规则：1、“交互性”即网页会根据用户的要求和选择而动态改变和响应，将浏览器作为客户端界面，这将是今后WEB发展的大事所趋。
ASP语法基础1.1 VBScript语法简介由于本文主要使用VBScript编写ASP脚本，因此在这一节中主要介绍VBSc ript的一些简单语法，这些语句对于编写一个简单的论坛来说已经足以胜任了。
如果你了解VB的语法就请跳过这一节，因为本节涉及的语法决不会比你所学的更多；如果你曾经学习过任一种语言，那么本节只需简单的浏览即可，因为下面这些VBScript语法与你所学的语言中相应语法是类似的；如果你是个初学者，不要担心，VBScript是只要认字就能理解的简单工具。
(1)条件判断语句IF:句法：if [条件式1] then[语句块1]elseif [条件式2] then[语句块2]......(n次)else[语句块n+1]end ifBASIC是相当易用的，我们从它的IF语句就很容易看出这一点。
如同其它任何一种语言，条件式中主要是对于表达式值的判断，主要包括相等(=)、大于(>)、小于(<)、大于等于(>=)、小于等于(<=)和不等(<>)，对于BOOL型的变量，判断为真(TRUE)只要直接用[变量名]作为判断式即可，为假(FALSE)只要使用[not变量名]进行判断。
不同的判断条件之间可以使用and/or连接，and类似于C语言中的&&，表示同时满足and左右两边的条件；or类似于||，表示或者满足or 左侧的条件或满足其右侧的条件均可视为判断成立。
对于各种判断符号的使用我们将在后面的实际应用中进一步讲解。
elseif语句在其它许多种语言中是不存在的(如被广泛使用的C语言)，elseif的作用正如其字面的意义，是在所有不满足上一次判断要求的剩余情况中进行进一步的分类判断，它所使用的判断和if是一致的。
elseif的使用虽然感觉上很像switch语句，但在实际的使用中还是能够感觉到一些不同的，在后面遇到使用它的时候再详细地介绍。
else的作用于其它语言中的else一样，表示对于不满足判断条件的情况进行的处理(如果使用了elseif就表示对所有判断都不满足时所进行的处理)。
ASP常见语法1、ASP开始结束符语法：<% %>文件后缀.asp2、判断语句：判断表单传来的用户名和密码是否下确，并提示If request("username")="admin"thenResponse.write"恭喜，你已经登录成功"ElseResponse.write"对不起，您输入的用户名错误，请返回重新输入"End ifif request("name"0="admin" and request("pass")="admin"thenResponse.redirect"admim.asp"ElseResponse.redirect"login.asp"End if3、循环语句“循环显示范条数据库中记录写法：for n=1 to 6response.write rs("title")&"<br>"if not rs,eof thenexit forelsers.movenextend ifnext写法2：do while not rs.eofresponse.write rs("title")&"<br>"rs.movenextloop4、常用充量转换函数：Now()函数返回系统时间date()函数返回当前系统日期CStr(int)函数转化一个表达式为字符串CInt(string)将一个表达式转化为数字类型Trim(request("username"))函数去掉字符串左右空格Left(rs("litle"),10)函数返回字符串左边第length个字符以前的字符（含第length个字符）,一般在限制新闻标题的显示长度的时候用Len(string)函数返回字符串的长度5、Access数据库连接代码方法一：db="mydata.mdb" ‘如果放在目录中，亦要写明“database/mydata.mdb"Set conn=Server.CreateObject("ADODB.Connection")connstr="provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath(db) conn.Open connstr方法二：‘如果你的服务器采用较老版本Access驱动，请用下面连接方法db="mydats.mdb" ‘如果放在目录中，亦要写明“database/mydata.mdb"Set conn=Server.CreateObject("ADODB.Connection")connstr="driver={Microsoft Access Driver (*.mdb)};dbp=& Server.MapPath(db) conn.open connstr6、Recordset对象操作数据库语法（1）打开spl语句指定的表中的数据，把这批数据放放rs对象中取出news表中所有的数据放到rs中Set Rs=Server.CreateObject("ADODB.RecordSet")SqlStr="select*from news"Rs.Open SqlStr,conn,1,1取出news表中前6条数据放到rs中Set Rs=Server.CreateObjject("ADODB.RecordSet")SplStr="select top 6*from news"Rs.Open SqlStr,conn,1,1(2)循环显示6条st对象中存在的数据，列不显示不带边接的写法for n=1 to 6response.write rs("title")&"<br>'if not rs.eof thenexit forrs.movenextend ifnext不带连接的写法for n=1 to 6response.write"<aheref=show.asp?id=rs("id")>"&left(rs("title"),20) &"</a><br>"if not rs.eof thenexit forelsers.movenextend ifnext带连接的写法for n=1 to 6response.write"<ahref=show.asp?id=rs("id")>"&left(rs("title"),20)&"</a> <br>"if not rs.eof thenexit forrs.movenextend ifnext(3)向数据库添加一条数据代码Set Rs=Server.CreateObject("ADODB.RecordSet")SqlStr="select * from news"Rs.Open SqlStr,conn,1,3 ‘注意这里的1，3代码可以写入的打开数据表Rs.addnewRs("title")=trim(request("title"))Rs("neirong")=request("neirong")Rs("date")=now()rs.updae ‘真正写入数据库（4）修改一条记录的代盛开，通过（2）中的连接传递过来了id数值Set Rs=Server.CreateObject("ADODB.RecordSet")SqlStr="select * from news where id="&request("id")Rs.Open SplsStr,conn,1,3 ‘注意这里的1，3代表可以写入的打开数据表Rs("neirong")=request("neirong")Rs("date")=now()rs.update ‘真正写入数据库（5）删除数据库中一条记录，通过连接传递过来了数据得id数值Set Rs=Server.CreateObject("ADODB.RecordSet")SqlStr='select * from news where id="&repuedt("id")Rs.Open SqlStr,conn,1,3 ‘注意这里的确良，3代表可以写入的打开数据表rs.delete ‘删除该条数据7、标准Sql语句写法包括取全部记录Set Rs=Server.CreateObject("ADODB.RecordSet")Splstr="select * from news"Rs.Open SplStr,conn,1,1 ‘运行sql语句，把数据提出到rs对象中选取几条数据Set Rs=Server.CreateObject("ADODB.RecordSet")SqlStr="select top 6 * from nows"Rs.Open Sqlstr,conn, 1,1 ‘运行sql语句，把6条数据提出到rs对象中选取一条指定表中id字段数值的数据Set Rs=Server.CreateObject("ADODB.RecordSet")SqlStr="select top 6 * from news"Rs.Open SqlStr,conn,1,1 ‘运行Sql语句，把6条数据提出到rs 对象中选取一条指定表中id字段数值的数据Set Rs=Server.CreateObject("ADODB.RecordSet")SqlStr="select * from news where id="&request("id")Rs.Open SqlStr,conn,1,1 ‘运行Sql语句，把6条数据提出到rs对象中添回一条表单传过来的数据替换Set Rs=Server.CreateObject("ADODB.RecordSet")SqlStr="insert into news(title, neirong) values(request("title"),request("neirong"))修改一条指定表中id字段数值的数据,用表单传过来的数据替换Set Rs=Server.CreateObject("ADODB.RecordSet")SqlStr="update news set title='"&request("title")&"',neirong='"&request("内容")&"'where id="&re[iest("id")Rs.Open SqlStr,conn,1,3 '运行Sql语句,把数据提出到rs对象中删除一条指定表中id字段数值数据Set Rs=Server.CreateObject("ADODB.RecordSet")SqlStr="delete from news where id="L&request("id")Rs.Open SqlStr,conn,1,3 '运行Sql语句,把数据提出到rs对象中删除一条指定表中id字段数值的数据Set Rs=Server.CreateObject("ADODB,RecordSet")SqkStr="dekete from news where id="&request("id")Rs.Open SqlStr,conn,1,3 '运行Sql语句,把数据提出到rs对象8 当点击按钮时侯表单带着的数据传送到哪个文件,在哪里指定?<from method="post" action="addsave.asp"><input type="text" name="title"><input type="text" name="neirong"><input type="submit" name="Submit"value="提交"></from>9 表单提交来的数据接收并显示到屏幕上的代码response.write request("name")response.write trim(request("nane"))10 利用Application对象作为计数器的语法在网页的头部加入Application.lockApplication("counter")=Application("counter")+1Application.Unlock在需要显示计数内容的网页的地方，加入下面的语句response.write Application("counter")11 利用Session对象保护后台管理页面admin.asp，防止未登陆用户进入在网站后台网页admin.asp的头部加入下面的代码if session(admin)<>"ok" thenresponse.redirect"login.asp"response.endend if在网站后台登陆页的密码验证部分标准写法AdmName=Request.Form("Name")AdmName=Request.Form("Pass")Set Rs=Server.GreateObject("ADODB,RecordSet")SqlStr="Select*from Admin where name='"&AdmName&"'and pass='"&AdmPass&"'"Rs.Open SqlStr,conn,1,3if RS.EOF AND RS.BOF thenResponse.Redirect("login.asp")response.endelsesession(admin)<>"ok"Response.Redirect("admin.asp")response.endend if12 分页代码sql="select........................省略了Sql语句Set rs=Server.CreateObject("ADODB,RecordSet")rs.Open sql,conn, 1,1if not rs.eof thenpages=30 '定义每页面显示的记录数rs.pageSize=pages '定义每页显示的记录数allPags=rs.pageCount '计算一共能分多少页page=Request.QueryString("page") '通过浏览器传递的页数'if语句属于基本的排错处理if isEmpt(page) or Cint(page)<1 thenpage=1elseif Cint(page)>allPage thenpage=allpgesend ifrs.absolutePage=pageDo while not rs.eof and pages>0'这里输出你要的内容...............pages=pages-1rs.MoveNextLoopelseResponse.Write("数据库暂无内容!")End ifrs.closeSet rs=Nothing分页页码连接和跳转页码程序<form Action="v3.asp"Method="GET"><%If page<>1 thenResponse.Write"<A HREF=?Page=1>第一页</A> "Response.Write"<A HREF=?Page"&(Page-1)&">上一页</A> "End IfIF Pag<>rs.PageCount ThenResponse.Write"<A HREF=?Page"&(Page+1)&">下一页</A> "Response.Write"<A HREF=?Page"& rs.PageCount &">最后一页</A> "End If%><p>输入页数:<input TYPE="TEXT" Name="Page"SIZE="3"> 页数:<font COLOR="Red"><%=Pege%>/<%=rs.pageCount%></font></P></form>13 分行列显示图片和产品名称的代码(4列*3行=12个)<%Set Rs=Server.CreateObject('ADODB.RecordSet")SqlStr=" select top 12*from myproduct"Rs.Open SqlStr,conn,1,1i=1%><table width="90%" border="1" cellspacing="0" sellpadding="0'. <tr><%do while not rs.eof%><td align="center"><img src="<%=rs("imgurl")%>"width="52"height="120"><br> <%=rs("productname")%></td><%if i mod 4=0 then response.write"</tr><tr>"i=i+1rs.movenextlooprs.close%></tr></table>十四、ASP数据库连接之ACCESS-SQLSERVER<%IsSqlDsta=0 定义数据库类别，0为Assess数据库，1为SQL 数据库If IsSqlData=0 ThenAccess数据库datapath ="data/" 数据库目录的相对路径datafile ="data.mdb" 数据库的文件名connstr=Provider=Microsoft.Jet.OLEDB.4.0;Data"Source="&Server.MapPath(""&datapath&""&datafile&"")"Connstr="DBQ"=&server.mappath(""&datapath&""&datafile&"")&";DR IVER={Microsoft Access Driver(*.mdb)};"]ElseSQL数据库SqlLocalName ="(loca)" 连接IP[本地用（local）外地用IP]SqlUsername ="sa" 用户名SqlPassword ="1" 用户密码SqlDatabaseName="date" 数据库名ConnStr="Provider=Sqloledb;User ID="&SqlUsername & ";Password="&SqlPassword&";InitialCatalog="&SqlDatabaseName&";Data Source="&SqlLocaalName&";"END IFOn Error Resume NextSet conn=Server.CreateObject("ADODB.Connection")conn.open ConnStrIf Err Thenerr.ClearSet Conn=NothingResponse.Write"数据库连接出错，请检查连接字串"Response.EndEnd IfOn Error GoTO 0%>ASP与Access数据库连接：dim conn,mdbfilemdbfile=server.mappath("数据库名称.mdb")set conn=server.createobject("adodb.connection")conn.open "driver={microsoft access driver (*.mdb)};uid=admin;pwd=数据库密码;dbq="&mdbfile2. ASP与SQL数据库连接：dim connset conn=server.createobject("ADODB.connection")con.open "PROVIDER=SQLOLEDB;DATA SOURCE=SQL服务器名称或IP地址;UID=sa;PWD=数据库密码;DATABASE=数据库名称建立记录集对象：set rs=server.createobject("adodb.recordset")rs.open SQL语句,conn,3,23. SQL常用命令使用方法：(1) 数据记录筛选：sql="select * from 数据表where 字段名=字段值order by 字段名"sql="select * from 数据表where 字段名like ‘%字段值%‘order by 字段名"sql="select top 10 * from 数据表where 字段名order by 字段名"sql="select * from 数据表where 字段名in (‘值1‘,‘值2‘,‘值3‘)"sql="select * from 数据表where 字段名between 值1 and 值2"(2) 更新数据记录：sql="update 数据表set 字段名=字段值where 条件表达式"sql="update 数据表set 字段1=值1,字段2=值2 ……字段n=值n where 条件表达式"(3) 删除数据记录：sql="delete from 数据表where 条件表达式"sql="delete from 数据表" (将数据表所有记录删除)(4) 添加数据记录：sql="insert into 数据表(字段1,字段2,字段3 …) valuess (值1,值2,值3 …)"sql="insert into 目标数据表select * from 源数据表" (把源数据表的记录添加到目标数据表)(5) 数据记录统计函数：A VG(字段名) 得出一个表格栏平均值COUNT(*|字段名) 对数据行数的统计或对某一栏有值的数据行数统计MAX(字段名) 取得一个表格栏最大的值MIN(字段名) 取得一个表格栏最小的值SUM(字段名) 把数据栏的值相加引用以上函数的方法：sql="select sum(字段名) as 别名from 数据表where 条件表达式"set rs=conn.excute(sql)用rs("别名") 获取统的计值，其它函数运用同上。
ASP语法大全.txt我的优点是：我很帅；但是我的缺点是：我帅的不明显。
什么是幸福？幸福就是猫吃鱼，狗吃肉，奥特曼打小怪兽！令堂可是令尊表姐？我是胖人，不是粗人。
ASP 语法大全语句Call[call] name [argumentlist]把控制转移到函数或子程序。
当调用函数或子程序时，Call是可写可不写的。
但是如果你用了Call,那么argumentlist必须用括号括起来。
Const[Public | Private] Const constantname=expression用于申明常数。
你可以在一行里申明多个常数，此时你必须用逗号把常数赋值语句隔开。
DimDim varname[ ( [subscripts])][, varname [( [subscripts])]...创建一个新变量并且分配存储空间。
DO . . . LOOP语法 1：Do [{While | Until } condition ][statements][Exit Do][statements]LOOP语法 2：Do[statements][Exit Do][statements]LOOP [{While | Until } condition ]当条件condition为真时或直到条件condition为真时，两种形式都重复执行语句。
EraseErase array清理数组，对于固定长度的数组，重新初始化元素；对于动态数组，重置存储空间。
ExitExit Do退出一个 DO . . . LOOP 循环。
Exit For退出一个 For . . . Next 循环或For Each . . . Next循环。
Exit Function退出一个函数。
Exit Sub退出一个子程序。
For . . . NextFor counter = start To End [Step step][statements][Exit For][statements]Next由loop 计数器指定的次数重复执行statements语句群。
ASP 语法一览ASP 对象对象 描述Response用于从服务器向用户发送输出的结果Request用于从用户那里取得信息Application Web 上的一个应用程序可以是一组 ASP 文件。
这些 ASP 在一起协同工作来完成一项任务。
而Application 对象的作用是把这些文件捆绑在一起Session用于存储关于某个用户会话（session）的信息，或者修改相关的设置。
存储在 session 对象中的变量掌握着单一用户的信息，同时这些信息对于页面中的所有页面都是可用的。
Server作用是访问有关服务器的属性和方法Error用于显示在 ASP 文件的脚本中发生的任何错误的详细信息FileSystemObject用于访问服务器上的文件系统。
此对象可对文件、文件夹以及目录路径进行操作。
也可通过此对象获取文件系统的信息TextStream用于访问文本文件的内容Drive用于返回关于本地磁盘驱动器或者网络共享驱动器的信息File用于返回关于指定文件的信息Folder用来返回有关指定文件夹的信息Dictionary用于在结对的名称/值中存储信息ADO用于从网页访问数据库Response 对象集合集合 描述Cookies设置 cookie 的值。
假如不存在，就创建 cookie ，然后设置指定的值。
Response 对象属性属性 描述Buffer规定是否缓存页面的输出。
CacheControl设置代理服务器是否可以缓存由 ASP 产生的输出。
Charset将字符集的名称追加到 Response 对象中的 contenttype报头。
ContentType设置 Response 对象的 HTTP 内容类型。
Expires设置页面在失效前的浏览器缓存时间（分钟）。
ExpiresAbsolute设置浏览器上页面缓存失效的日期和时间。
IsClientConnected指示客户端是否已从服务器断开。
Pics向 response 报头的 PICS 标志追加值。
Status规定由服务器返回的状态行的值。
Response 对象方法方法 描述AddHeader向 HTTP 响应添加新的 HTTP 报头和值。
AppendToLog向服务器记录项目（server log entry）的末端添加字符串。
BinaryWrite在没有任何字符转换的情况下直接向输出写数据。
Clear清除已缓存的 HTML 输出。
End停止处理脚本，并返回当前的结果。
Flush立即发送已缓存的 HTML 输出。
Redirect把用户重定向到另一个 URL。
Write向输出写指定的字符串。
Request 对象集合集合 描述ClientCertificate包含了存储于客户证书中的域值（field values）Cookies包含了 HTTP 请求中发送的所有 cookie 值Form包含了使用 post 方法由表单发送的所有的表单（输入）值QueryString包含了 HTTP 查询字符串中所有的变量值ServerVariables包含了所有的服务器变量值Request 对象属性属性 描述TotalBytes返回在请求正文中客户端所发送的字节总数Request 对象方法方法 描述BinaryRead取回作为 post 请求的一部分而从客户端送往服务器的数据， 并把它存放到一个安全的数组之中。
Application 对象集合集合 描述Contents包含所有通过脚本命令追加到应用程序中的项目。
StaticObjects包含所有使用 HTML 的 <object> 标签追加到应用程序中的对象。
Application 对象方法方法 描述Contents.Remove从 Contents 集合中删除一个项目。
Contents.RemoveAll()从 Contents 集合中删除所有的项目。
Lock防止其余的用户修改 Application 对象中的变量。
Unlock使其他的用户可以修改 Application对象中的变量（在被Lock 方法锁定之后）。
Application 对象事件事件 描述Application_OnEnd当所有用户的 session 都结束，并且应用程序结束时，此事件发生。
Application_OnStart在首个新的 session 被创建之前（这时 Application 对象被首次引用），此事件会发生。
Session 对象集合集合 描述Contents包含所有通过脚本命令追加到 session 的条目。
StaticObjects包含了所有使用 HTML 的 <object> 标签追加到 session 的对象。
Session 对象属性属性 描述CodePage规定显示动态内容时使用的字符集LCID设置或返回指定位置或者地区的一个整数。
诸如日期、时间以及货币的内容会根据位置或者地区来显示。
SessionID为每个用户返回一个唯一的 id。
此 id 由服务器生成。
Timeout设置或返回应用程序中的 session 对象的超时时间（分钟）。
Session 对象方法方法 描述Abandon撤销一个用户的 session。
Contents.Remove从 Contents 集合删除一个项目。
Contents.RemoveAll()从 Contents 集合删除全部项目。
Session 对象事件事件 描述Session_OnEnd当一个会话结束时此事件发生。
Session_OnStart当一个会话开始时此事件发生。
Server 对象属性属性 描述ScriptTimeout设置或返回在一段脚本终止前它所能运行时间（秒）的最大值。
Server 对象方法方法 描述CreateObject创建对象的实例（instance）。
Execute从另一个 ASP 文件中执行一个 ASP 文件。
GetLastError()返回可描述已发生错误状态的 ASPError 对象。
HTMLEncode将 HTML 编码应用到某个指定的字符串。
MapPath将一个指定的地址映射到一个物理地址。
Transfer把一个 ASP 文件中创建的所有信息传输到另一个 ASP 文件。
URLEncode把 URL 编码规则应用到指定的字符串。
Error 对象属性属性 描述ASPCode返回由 IIS 生成的错误代码。
ASPDescription返回有关错误的详细信息。
（假如错误和 ASP 相关。
）Category返回错误来源。
(是由 ASP、脚本语言还是对象引起的？）Column返回在出错文件中的列位置。
Description返回关于错误的简短描述。
File返回出错 ASP 文件的文件名。
Line返回错误所在的行数。
Number返回关于错误的标准 COM 错误代码。
Source返回错误所在行的实际的源代码File System 对象属性属性 描述Drives返回本地计算机上所有驱动器对象的集合。
File System 对象方法方法 描述BuildPath将一个名称追加到已有的路径后CopyFile从一个位置向另一个位置拷贝一个或多个文件。
CopyFolder从一个位置向另一个位置拷贝一个或多个文件夹。
CreateFolder创建新文件夹。
CreateTextFile创建文本文件，并返回一个 TextStream 对象。
DeleteFile删除一个或者多个指定的文件。
DeleteFolder删除一个或者多个指定的文件夹。
DriveExists检查指定的驱动器是否存在。
FileExists检查指定的文件是否存在。
FolderExists检查某个文件夹是否存在。
GetAbsolutePathName针对指定的路径返回从驱动器根部起始的完整路径。
GetBaseName返回指定文件或者文件夹的基名称。
GetDrive返回指定路径中所对应的驱动器的 Drive 对象。
GetDriveName返回指定的路径的驱动器名称。
GetExtensionName返回在指定的路径中最后一个成分的文件扩展名。
GetFile返回一个针对指定路径的 File 对象。
GetFileName返回在指定的路径中最后一个成分的文件名。
GetFolder返回一个针对指定路径的 Folder 对象。
GetParentFolderName返回在指定的路径中最后一个成分的父文件名称。
GetSpecialFolder返回某些 Windows 的特殊文件夹的路径。
GetTempName返回一个随机生成的文件或文件夹。
MoveFile从一个位置向另一个位置移动一个或多个文件。
MoveFolder从一个位置向另一个位置移动一个或多个文件夹。
OpenTextFile打开文件，并返回一个用于访问此文件的 TextStream 对象。
TextStream 对象属性属性 描述AtEndOfLine在 TextStream 文件中，如果文件指针正好位于行尾标记的前面，那么该属性值返回 True；否则返回 False。
AtEndOfStream如果文件指针在 TextStream 文件末尾， 则该属性值返回 True；否则返回 False。
Column返回 TextStream 文件中当前字符位置的列号。
Line返回 TextStream 文件中的当前行号。
TextStream 对象方法方法 描述Close关闭一个打开的 TextStream 文件。
Read从一个 TextStream 文件中读取指定数量的字符并返回结果（得到的字符串）。
ReadAll读取整个 TextStream 文件并返回结果。
ReadLine从一个 TextStream 文件读取一整行（到换行符但不包括换行符）并返回结果。
Skip当读一个 TextStream 文件时跳过指定数量的字符。
SkipLine当读一个 TextStream 文件时跳过下一行。
Write写一段指定的文本（字符串）到一个 TextStream 文件。
WriteLine写入一段指定的文本（字符串）和换行符到一个 TextStream 文件中。
WriteBlankLines写入指定数量的换行符到一个 TextStream 文件中。
Drive 对象属性属性 描述AvailableSpace向用户返回在指定的驱动器或网络共享驱动器上的可用空间容量。
DriveLetter返回识别本地驱动器或网络共享驱动器的大写字母。
DriveType返回指定驱动器的类型。
FileSystem返回指定驱动器所使用的文件系统类型。
FreeSpace向用户返回在指定的驱动器或网络共享驱动器上的剩余空间容量。
IsReady如果指定驱动器已就绪，则返回 true。
