《《网页设计》全套ppt电子课件教案第七章网上图书馆》由会员分享，可在线阅读，更多相关《《网页设计》全套ppt电子课件教案第七章网上图书馆（33页珍藏版）》请在金锄头文库上搜索。
1、第七章网上图书馆,学习要点： 如何建立一个简单的网上图书馆； 掌握VBScript的相关知识的使用； 学习Cookies技术 ；,主要内容,本例将介绍如何实现个简单的网上图书馆，其主要功能是借、还书和阅览。 根据“网上图书馆”的主要功能，我们设计其主要有四幅主页，分别为“网上图书馆”、“阅览室”、“借书室”、“还书室”。 利用“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的字符到变量中,dolchar=left(lstartstring,1)if lchar=“;“ then 表示新的Cookie已经开始CookieValue=lendstringexit doelselendstring=lendstring & lcharif len(lstartstring)=1 thenCookieValue=lendstringex
4、it doelselstartstring=right(lstartstring,len(lstartstring)-1)end ifend ifloop end if end function,添加程序代码,“网上图书馆”主页的另一个过程是事件过程，用来处理Window_onLoad事件Sub window_onLoad() If CookieValue(“times)0 then 如果大于0，说明此读者不是第一次访问，则加1。T=CookieValue(“times”)+1Document. Cookie=”times=”&T ElseDocument. Cookie=”times=1”
5、End if 在文本框中显示访问次数。 frmLib.txtSin.value=CookieValue(“times”) end sub,添加程序代码,步骤二：添加“阅览室“主页的程序代码。这几幅主页也一样要用CookieValue()函数，所以必须把这个函数分别加到每幅主页中。在”阅览室“主页中利用CookieValue (“Nowpos”)值表示上次这位读者阅读哪一本书， Window_onload事件根据CookieValue(“Nowpos”)值的不同，显示不同书的内容。代码如下:,Sub Window_onLoad()Select Case CookieValue(“Nowpos”)
6、Case “ASP_1”frmLib.btnASP.clickCase “C_1”frmLib.btnC.click Case “Cmaths_1”frmLib.btnCMaths.click Case “Smaths_1”frmLib.btnSMaths.click Case “Ochemistry_1”frmLib.btnOChemistry.click Case “Uenglish_1”frmLib.btnUEnglish.clickEnd selectEnd sub,添加程序代码,这幅主页还有六个按钮的onClick事件，分别表示阅读这这六本书，并用到了VBScript的FileSys
7、temObject对象和TextStream对象，这在后面实例注释和详解中也会详细介绍。限于篇幅，列举一个按钮onClick事件代码如下：,Sub btnVBS_onClick() Dim fsBook 一个FileSystemObject对象 Dim tsBook 一个TextStream对象 设定文本框txtSin中的书名。 frmLib.txtSin.value=”ASP概述” 利用CreatObject函数生成一个FileSystemObject对象 set fsBook=CreatObject(“Scripting.FileSystemObject”) 利用FileSystemObj
8、ect对象的OpenTextFile方法打开一个TextStream对象 Set tsBook=fsBook.OpenTextFile(“c:inetpubwwwrootASP概述.txt”,1) 利用TextStream对象的ReadAll方法，读取文件内容 并赋给滚动式文本框txtScr frmLib.txtScr.value=tsBook.ReadAll 记录下Cookie(“Nowpos”)的值，此时为“ASP” 表示读到了这本书 document.cookie=” Nowpos =ASP_1” end sub,添加程序代码,步骤三：添加“借书室”主页的代码。在这幅主页的Window_
9、onLoad事件中，要判断读者已经借了哪几本书，并在Name为txtSin的文本框中显示出来。Window_onLoad事件代码如下：,Sub window_onLoad() 首先把txtBook的显示值设为空 frmLib.txtBook.value=” 判断代表六本书的cookies值是否为true，如果是，表示读者已借了这本书，书名显示在txtBook中 if CookieValue(“ASP_2”) thenfrmLib.txtSin.value= frmLib.txtSin.value &” if CookieValue(“C_2”)thenfrmLib.txtSin.value=
10、frmLib.txtSin.value &” if CookieValue(“Cmaths_2”)then frmLib.txtSin.value= frmLib.txtSin.value &” if CookieValue(“Umaths_2”)thenfrmLib.txtSin.value= frmLib.txtSin.value &”if CookieValue(“Ochemistry_2”)thenfrmLib.txtSin.value= frmLib.txtSin.value &” if CookieValue(“Uenglish_2”)then frmLib.txtSin.valu
11、e= frmLib.txtSin.value &” end sub,添加程序代码,然后就是六个按钮的onclick事件。每个按钮被Click,都表示读者想借这本书，首先要判断此读者是否已经借走了这本书，如果是，则不能再借，然后判断是否已经借了五本书，如果是，则不允许他再借。这里限于篇幅，我列出了二个按钮的OnClick事件，其余四个基本一样，这里就省略了。程序代码如下：,Sub btnASP_OnClick() if CookieValue(“ASP_2“)thenAlert“你已经借了这本书，不能再借了。“ elseIf CookieValue(“booknum“)0 thenN=Cooki
12、eValue(“booknum“)+1document.Cookie=“booknum=“&NElsedocument.Cookie=“booknum=1“End ifdocument.Cookie=“ASP_2=true“Call window_onLoadElse否则，不可以借走这本书。Alert“你已经借了5本书，不能再借了。“End if end if End sub,添加程序代码,步骤四：添加还书室主页的程序代码。“还书室“主页的Window_onLoad程序代码同样是为了显示此读者已经借走的书，所以同”借书室“相同。六个按钮的onClic事件的处理，先判断读者是否已借了这本书，如果
13、是，则允许归还，否则弹出警告框，告诉读者他没有借这本书。,Sub btnASP_onClick() If CookieValue(“ASP”) then确实借了这本书，可归还，借书数目减1N=CookieValue(“booknum”)-1Document.cookie=”booknum=”&N设置相应的Cookie记录为Falsedocument.cookie=”ASP=false”call window_onLoad else弹出警告框Alert “你没有借这本书！” End if End sub,运行效果,运行时，首先进入“网上图书馆“主页,运行效果,点击“阅览室”，进入阅览室,运行效果
14、,点击“借书室”可以进入借书室借书,运行效果,点击“还书室”可以进入还书室还书,实例注释和详解,关于Cookies技术 : Cookies可以在客户端长期保存信息，它是由服务器端发送给客户端浏览器的文本串句柄，保存在客户机的硬盘上. 实际的“Cookie“就是一串字符串，它里面可以包含许多信息，记录各方面的情况。比如在本例中，就可以利用文本框把整个的” Cookie“字符串显示出来。 ”Times=3; Nowpos=C;Booknum=2;ASP=true;UEnglish=true;” 例中Document对象的Cookie属性如下：Document.Cookie：返回当前的Cookie字
15、符串,Instr()函数,Instr()函数，它用来返回某字符串在在另一字串中第一次出现的位置。 语法：Instr(start,string1,string2,compare) Start：可选。数值表达示，用于设置每次搜索的开始位置。如果省略，将从第一个字符的位置开始搜索。如果start包含Null，则会出现错误。如果已指定compare，则必须要有start参数。 String1：必选。接受搜索的字符串表达式。 String2：必选。要搜索的字符串表达式。 Compare：可选。指示在计算子字符串时使用的比较类型的数值。有关数值，请参阅“设置”部分。如果省略，可执行二进制比较.,Compa
16、re设置值,设置：参数compare可以有以下常数值 vbBinaryCompare 0 执行二进制比较 vbTextCompare 1 执行文本比较 vbDatabaseCompare 2 执行资料所含资料的比对,Instr()函数返回值,返回值如果String1长度为零：0如果String1为Null:Null如果String2长度为零：start如果String2为null:null如果String2找不到：0如果在String1在找到String2：找到的位置如果startLen(string2):0,Len()函数,返回字符串内字符的数目，或是存一变量所需的字节数。 语法：len(string/varname) 参数描述： string：任意有效的字符串表达式。如果string参数含null，则返回null。 Varname：任意有效的变量名。如果varname参数含null,则返回null。,Right()函数,从字符串右边返回指定数目的字符; 语法：right(string,length) 参数描述： string：字符串表达式，其最右边的字符返回。如果string参数含null，则返回null。 Length：数值表达式，指明要返回的字符数目。如为0，则返回零长度字符串，如大于或等于string参数中所有字符数目，则返回整个字符串。,
