令中国铁道出版社 10.3File对象的 上面的范例我们也可以使用File对象提供的 Reada亮成,程序代码也最精简。但 ReadAll有一个 限制,那就是输入文件不能太大,主要是有碍于变量 的限制无法一次加载太大的文件。改用 Readall!复制 文件的范例( Read w1asp如下: Dim s Set fso= Server CreateObject("Scripting. File SystemObject") Set fpi= fso. Open TextFile(server MapPath("listconn asp") Set fpo=fso Create TextFile(Server. Map Path("listconnl asp") s= fpi ReadAll加载 listconn. asp的文件内容 fpo WriteLine s"将所有数据写入 .listconnl. asp fpo. Close 说明:文件 listconn. asp复 Set fpi= Nothing 制完毕,复制后的文件名 Set fpo Nothing Set fso=Nothing 为 listconnI. asp 16
16 10.3 File对象的其他功能 上面的范例我们也可以使用File对象 提供的 ReadAll完成，程序代码也最精简。但ReadAll有一个 限制，那就是输入文件不能太大，主要是有碍于变量 的限制无法一次加载太大的文件。改用ReadAll复制 文件的范例(ReadW1.asp)如下： <% Dim s Set fso = Server.CreateObject("Scripting.FileSystemObject") Set fpi = fso.OpenTextFile(Server.MapPath("listconn.asp")) Set fpo = fso.CreateTextFile(Server.MapPath("listconn1.asp")) s = fpi.ReadAll '加载listconn.asp的文件内容 fpo.WriteLine s '将所有数据写入listconn1.asp fpi.close fpo.Close Set fpi = Nothing Set fpo = Nothing Set fso = Nothing %> 说明：文件listconn.asp复 制完毕，复制后的文件名 为listconn1.asp
令中国铁道出版社 10.4知载 SQL Server连 在本书的数据库范例中,曾提到 SQL Serverl的连接参数设置 最后我们是以 nclude filep的方式定义 SQLServer连接设置。假设网 络公司的管理都Web化或e化),通过网页也可查询ASP连接SQI Server的设置,则我们可以用 Open textfile取得相关设置,完整的 ASP范例 getconn. asp如下 % Set fso= Server CreateObject("Scripting. File SystemObject") Set fp=fso. Open TextFile(Server. MapPath ("connect inc D)) Response. Write(<HTML><BODY>) Response. Write( <PRE>) Do While fp AtEndofStream < True s=fp Readline ResPonse. Write(Server HTMLEncode(s) oop Response. Write(</PRE>) Response. Write("</BODY></HTML>) Fp clo p othing Set fso= Nothing
17 10.4 加载SQL Server连接参数范例 在本书的数据库范例中，曾提到SQL Server的连接参数设置， 最后我们是以Include File的方式定义SQL Server连接设置。假设网 络公司的管理都Web化(或e化)，通过网页也可查询ASP连接SQL Server的设置，则我们可以用OpenTextFile取得相关设置，完整的 ASP范例(getconn.asp)如下： <% Set fso = Server.CreateObject("Scripting.FileSystemObject") Set fp = fso.OpenTextFile(Server.MapPath("connect.inc")) Response.Write("<HTML><BODY>") Response.Write("<PRE>") Do While fp.AtEndOfStream <> True s = fp.ReadLine ResPonse.Write(Server.HTMLEncode(s)) Loop Response.Write("</PRE>") Response.Write("</BODY></HTML>") Fp.close Set fp = Nothing Set fso = Nothing %>
令中国铁道出版社 10.4知载 SQL Server连 在此ASP中我们除了访问文本文件的函数以外,我们还使用了 一个特殊的技巧 Server: HTMLEncode,将输出至网页的数据先经过 HTMLEncode编码后输出,用以解决 -connect. inc文件开头及纬尾,包 含有控制ASP执行的开始“<%及结束“%>字符,造成ASP自动解 释内容无法在网页输出的困扰 Open TextFile范例的结果 当我们在 Browser上执行上述的程序之后,我们就可以直接在网 页上经过查询得知 SQL Server连接的设置,查询的结果如下图所示。 ahttp://127.0.0.1/chapter10/pages/getconn.aspmicrosoftInternetEx...0x 文件)编辑)查看Q)收藏)工具〔)帮助QD 后退·②的☆收夹的,回,回徽 地址自t/A/ chapter10/pages/getconn. ˇ转到链接” x My ConnStr="DRIVER= ISQL Serverl: Dat abase=dbname Server=(local): uid=sa: pwd=systemadmin"x> 完毕 9工: 18
18 10.4 加载SQL Server连接参数范例 在此ASP中我们除了访问文本文件的函数以外，我们还使用了 一个特殊的技巧Server.HTMLEncode，将输出至网页的数据先经过 HTMLEncode编码后输出，用以解决connect.inc文件开头及结尾，包 含有控制ASP执行的开始“<%”及结束“%>”字符，造成ASP自动解 释内容无法在网页输出的困扰。 1. OpenTextFile范例的结果 当我们在Browser上执行上述的程序之后，我们就可以直接在网 页上经过查询得知SQL Server连接的设置，查询的结果如下图所示
令中国铁道出版社 10.4知载 SQL Server连 请通过 INternet Explorer窗口,点选“文件源文件”命令 我们可以看到 Server hTmLEncode(s)所产生的HIML源文件如 下图乐示。 [1]-记事本 回区 文件①)编辑)格式妲查看帮助⑩D kHTML><BODY><PRE>< %MyConnstr="DRIVER- ESQL Server>; Database=dbname; Server (local);uid=sa; pwd-systemadmin" >: </PRE></BODY></HTML> 说明:您可以将上述程序代码中 Server. hTmLencode(s)函 数拿掉,直接以变量S取代,然后再“更新”一次,看看会有何 结果?由于 Server会将<%.%之中的文字编译,此时您会发现 Browser中不会显示任何文字。 19
19 10.4 加载SQL Server连接参数范例 请通过Internet Explorer窗口，点选“文件/源文件”命令， 我们可以看到Server.HTMLEncode(s) 所产生的HTML源文件如 下图所示。 说明：您可以将上述程序代码中 Server.HTMLencode(s) 函 数拿掉，直接以变量S取代，然后再“更新”一次，看看会有何 结果？由于Server会将<%…%>之中的文字编译，此时您会发现 Browser中不会显示任何文字
令中国铁道出版社 0.5编辑 SQL Server连 看完文件的范例后,为了延续上一个主题,当然 创建文件的部分也要做个介绍。接下来我们要利用 CreateTextFile,为您示范如何以ASP来设置网站连接数 据库的参数,让网站的管理完全e化,提高您的生产力 并降低营运成本。设置 SQL Server连接参数的HⅠM网 页如下图所示。 文件吧)缤辑啁)查看Q收藏)工具①)帮助 ⊙后··索宫收取的,品回·回啪色 s/edcon. asp 转到链接” SQL Server连接设置: o MyCo DRIVER= SQL Serverl: Database=dbname: Server=(local 更新 20
20 10.5 编辑SQL Server连接参数范例 看完文件的范例后，为了延续上一个主题，当然 创建文件的部分也要做个介绍。接下来我们要利用 CreateTextFile，为您示范如何以ASP来设置网站连接数 据库的参数，让网站的管理完全e化，提高您的生产力 并降低营运成本。设置SQL Server连接参数的HTML网 页如下图所示