网页设计全套PPT电子课件教案-第七章 网上图书馆.pptVIP

第七章－网上图书馆 ;主要内容 ;设定主页外观 ;设定主页外观;设定主页外观;设定主页外观;添加程序代码 ; do lchar=left(lstartstring,1) if lchar=; then　‘表示新的Cookie已经开始 CookieValue=lendstring exit do else lendstring=lendstring lchar if len(lstartstring)=1 then CookieValue=lendstring exit do else lstartstring=right(lstartstring,len(lstartstring)-1) end if end if loop end if end function ;添加程序代码;添加程序代码;Sub Window_onLoad() Select Case CookieValue(“Nowpos”) Case “ASP_1” frmLib.btnASP.click Case “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.click End select End sub ;添加程序代码;Sub btnVBS_onClick() Dim fsBook ‘一个FileSystemObject对象 Dim tsBook ‘一个TextStream对象 ‘设定文本框txtSin中的书名。 frmLib.txtSin.value=”ASP概述” ‘利用CreatObject函数生成一个FileSystemObject对象 set fsBook=CreatObject(“Scripting.FileSystemObject”) ‘利用FileSystemObject对象的OpenTextFile方法打开一个TextStream对象 Set tsBook=fsBook.OpenTextFile(“c:\inetpub\wwwroot\ASP概述.txt”,1) ‘利用TextStream对象的ReadAll方法，读取文件内容 ‘并赋给滚动式文本框txtScr frmLib.txtScr.value=tsBook.ReadAll ‘记录下Cookie(“Nowpos”)的值，此时为“ASP” ‘表示读到了ASP概述这本书 document.cookie=” Nowpos =ASP_1” end sub ;添加程序代码;Sub window_onLoad() ‘首先把txtBook的显示值设为空 frmLib.txtBook.value=”” ‘判断代表六本书的cookies值是否为true，如果是，表示读者已借了这本书，书名显示在txtBook中 if CookieValue(“ASP_2”) then frmLib.txtSin.value= frmLib.txtSin.value ”ASP概述” if CookieValue(“C_2”)then frmLib.txtSin.value= frmLib.txtSin.value ”C程序设计” if CookieValue(“Cmaths_2”)then frmLib.txtSin.value= frmLib.txtSin.value ”计算数学” if CookieValue(“Umaths_2”)then frmLib.txtSin.value= frmLib.txtSin.value ”高等数学” if CookieValue(“Ochemistry_2”)then frmLib.txtSin.value= frmLib.txtSin.value ”有机化学” if CookieValue(“Uenglish_2”)then frmLib.txtSin.value= frmLib.txtSin.value ”大学英语” end sub ;添加程序代码;Sub btnASP_OnClick(