《《网页设计》全套电子课件教案-第七章 网上图书馆》由会员分享，可在线阅读，更多相关《《网页设计》全套电子课件教案-第七章 网上图书馆（33页珍藏版）》请在金锄头文库上搜索。
1、第七章网上图书馆 学习要点：v如何建立一个简单的网上图书馆；v掌握VBScript的相关知识的使用； v学习Cookies技术 ；主要内容 v本例将介绍如何实现个简单的网上图书馆 ，其主要功能是借、还书和阅览。v根据“网上图书馆”的主要功能，我们设计 其主要有四幅主页，分别为“网上图书馆” 、“阅览室”、“借书室”、“还书室”。v利用“Cookie” 记录下来每一个用户的借、 还和阅览情况 。设定主页外观 步骤一：设定“网上图书馆”主页的外观。这 由主页相当于图书馆大厅，从这幅主页可以 进入“阅览室”、“借书室”或“还书室”。设定主页外观步骤二： 设定“阅览室”主页的外观 设定主页外观步骤三：
2、设定“借书室”主页外观 设定主页外观步骤四：设定“还书室”外观。“还书室 ”主页同“借书室”主页基本相同，设 计好的“还书室”外观如图所示：添加程序代码 步骤一：首先添加“网上图书馆”主页的代码。这里最核心的 代码是读取“Cookie”的函数CookieValue()。 function CookieValue(pcook) 所传递的Cookie有多长 lhowlong=len(pcook) lwhereis=instr(document.cookie,pcook) if lwhereis=0 then 说明没有找到此处的CookieCookieValue=false Else去掉Cookie
3、字符串左面的内容lstartpos=len(document.cookie)-lwhereis-lhowlonglstartstring=right(document.cookie,lstartpos) 循环处理Cookie的值，返回Cookie的字符到变量中l dol lchar=left(lstartstring,1)l if lchar=“;“ then 表示新的Cookie已经开始l CookieValue=lendstringl exit dol elsel lendstring=lendstring Nowpos=C;Booknum=2;ASP=true;UEnglish=true
4、;”v例中Document对象的Cookie属性如下：Document.Cookie：返回当前的Cookie字符串Instr()函数 vInstr()函数，它用来返回某字符串在在另一字串 中第一次出现的位置。v语法： Instr(start,string1,string2,compare)vStart：可选。数值表达示，用于设置每次搜索的 开始位置。如果省略，将从第一个字符的位置开 始搜索。如果start包含Null，则会出现错误。如 果已指定compare，则必须要有start参数。vString1：必选。接受搜索的字符串表达式。vString2：必选。要搜索的字符串表达式。vCompare
5、：可选。指示在计算子字符串时使用的比 较类型的数值。有关数值，请参阅“设置”部分 。如果省略，可执行二进制比较. Compare设置值l设置：参数compare可以有以下常数值lvbBinaryCompare 0 执行二进制比较lvbTextCompare 1 执行文本比较lvbDatabaseCompare 2 执行资料所含 资料的比对 Instr()函数返回值 l返回值l 如果String1长度为零：0l 如果String1为Null:Nulll 如果String2长度为零：startl 如果String2为null:nulll 如果String2找不到：0l 如果在String1在找到S
6、tring2：找到的位 置l 如果startLen(string2):0Len()函数 v返回字符串内字符的数目，或是存一变量所 需的字节数。v语法：len(string/varname)v参数描述：vstring：任意有效的字符串表达式。如果 string参数含null，则返回null。vVarname：任意有效的变量名。如果varname 参数含null,则返回null。Right()函数 v从字符串右边返回指定数目的字符;v语法：right(string,length)v参数描述：vstring：字符串表达式，其最右边的字符返 回。如果string参数含null，则返回null。vLen
7、gth：数值表达式，指明要返回的字符数 目。如为0，则返回零长度字符串，如大于或 等于string参数中所有字符数目，则返回整 个字符串。 Left()函数 v从字符串左边返回指定数目的字符v语法：left(string,length)v参数描述：vstring：字符串表达式，其最左边的字符返 回。如果string参数含null，则返回nullvLength：数值表达式，指明要返回的字符数目 。如为0，则返回零长度字符串，如大于或等 于string参数中所有字符数目，则返回整个字 符串 FileSystemObject对象和 TextStream对象 vFileSystemObject对象包括
8、了一些对基本的文件系 统进行操作的方法，如复制和删除文件和文件夹。 TextStream创建读写文件的文本流。可以利用 VBScrip的内置函数CreatObject来创建一个 FileSystemObject对象：v Set fsBook=CreatObject(“Scripting.FileSystemObject”)v再用FileSystemObject对象的OpenTextFile方法来返回一个 TextStream对象。此方法使用如下：vObject.OpenTextFile(filename,iomode,create,format) vObject：必要项，通常为FileSyst
9、emObject的名称;vFilename：必要项，字串运算式用来辨别开启的档 案;vIomode：选择项，输入、输出模式。可为 ForReading或ForAppending;vCreat：选择项，决定指定的filename不存在时，是 否建立新档案的布林值，若是True时便产生新档， False则不建立。预设值为false;vFormat：选择项，开启档案的格式，使用三种 tristate值之一，若省略，则为ASCII。v另外，TextStream对象的ReadAll方法是接收 TextStream文件的所有内容。 思考与练习： l对本例中网上图书馆的功能做一些完善与 补充，建立一个新的网上图书馆。l 测试自己新建的网上图书馆的功能。
