【正文】 chr(c) end if next substring=stemp end function private function instring(thestart,varstr) dim i,j,bt,thelen,str instring=0 str=tobyte(varstr) thelen=lenb(str) for i=thestart to if i then exit function =i1 濰 坊 學(xué) 院 本 科 畢 業(yè) 設(shè) 計(jì) 39if ascb((1))=ascb(midb(str,1)) then instring=i for j=2 to thelen if then instring=0 exit for end if if ascb((1))ascb(midb(str,j,1)) then instring=0 exit for end if next if instring0 then exit function end if next end function private sub class_terminate set form=nothing set file=nothing 。chr(ascw(chrb(ascb((1)))amp。vbenter) iend=instring(istart+4,vbenteramp。vbenter) iend=instring(istart+4,vbenteramp。 connstr %附錄 2：文件上傳處理文件 script runat=server language=vbscript dim upfile_5xsoft_stream class upload_5xsoft dim form,file,version private sub class_initialize dim istart,ifilenamestart,ifilenameend,iend,vbenter,iformstart,iformend,thefile dim strdiv,mformname,mformvalue,mfilename,mfilesize,mfilepath,idivlen,mstr version= if 1 then exit sub set form=createobject() set file=createobject() set upfile_5xsoft_stream=createobject() =3 =1 () 濰 坊 學(xué) 院 本 科 畢 業(yè) 設(shè) 計(jì) 37vbenter=chr(13)amp。DefaultDir=。但無論如何，這次的畢業(yè)設(shè)計(jì)都使我收獲很多，受益匪淺。老師只是交給我們一把鑰匙，我們也僅僅是才剛邁進(jìn)一小步。想要學(xué)習(xí)更多的知識(shí)就要不怕枯燥，努力鉆研，努力學(xué)習(xí)。最后就是對(duì) ASP+Dreamweaver 制作網(wǎng)頁的模式運(yùn)用還不夠成熟，而且只能應(yīng)用一些簡單的 CSS+DIV 布局方式，這樣的效果還遠(yuǎn)遠(yuǎn)達(dá)不到設(shè)想的結(jié)果。照片在存入數(shù)據(jù)庫中的時(shí)候，并不是直接將照片存入的，而是先將照片信息轉(zhuǎn)換成二進(jìn)制數(shù)據(jù)存入數(shù)據(jù)庫，讀取的時(shí)候，再將這些二進(jìn)制數(shù)據(jù)還原成一張完整的圖片。再其次，顯示教師資料的頁面，可以將教師照片另存在一個(gè)文件夾中，把照片的路徑存在教師表里面。數(shù)據(jù)表的結(jié)構(gòu)也可以再詳細(xì)一些，比如學(xué)生提問題的那些流言，可以加上問題編號(hào)以及留言的時(shí)間等字段。諸如此類的問題還有很多。在輔導(dǎo)答疑頁面，無答案的那些后面還可以添加一個(gè)回答，這樣，不必老師從后臺(tái)方面登錄來回答問題了。這次由于個(gè)人原因，導(dǎo)致時(shí)間上太過倉促，很多內(nèi)容都是一邊做一邊想的?？傊?，在這方面的進(jìn)步空間還很大。首先從網(wǎng)站的外觀來說，顏色比較簡單，各項(xiàng)內(nèi)容看起來也比較單調(diào)，在美學(xué)方面下的功夫還很不夠。在很多方面的知識(shí)、經(jīng)驗(yàn)都還有所欠缺。很多是內(nèi)容都是存儲(chǔ)在數(shù)據(jù)庫里，因此在網(wǎng)站的后臺(tái)建設(shè)中，便于管理，實(shí)現(xiàn)網(wǎng)站的動(dòng)態(tài)更新，可以直接登錄網(wǎng)站的后臺(tái)進(jìn)行數(shù)據(jù)的修改、添加以及刪除等操作。學(xué)生也可以在注冊(cè)之后登錄網(wǎng)站，登錄之后可以直接在輔導(dǎo)答疑里面查看自己提出的問題而不必一個(gè)個(gè)查找。濰 坊 學(xué) 院 本 科 畢 業(yè) 設(shè) 計(jì) 336結(jié)束語本網(wǎng)站此次主要解決的問題是通過網(wǎng)絡(luò)教學(xué)平臺(tái)實(shí)現(xiàn)網(wǎng)上教學(xué)，完成教學(xué)內(nèi)容之后還有一些習(xí)題可供學(xué)生進(jìn)行練習(xí)，并且這些習(xí)題之后也都有相應(yīng)的答案。其中圖片顯示的相關(guān)代碼如下：! Include File= %id=(id)=image/* select T_img from team where T_id=amp。下邊左側(cè)圖片上端顯示的是team 表中的 T_name 信息。檢查完畢后轉(zhuǎn)入另一個(gè)執(zhí)行頁面，其主要代碼為：%num=trim((xh))sq=trim((question)) select * from question,1,3rs(S_num)=numrs(SQ)=sq % script language=vbscriptMsgBox 提交成功 = /script濰 坊 學(xué) 院 本 科 畢 業(yè) 設(shè) 計(jì) 31實(shí)現(xiàn)的主要功能是將提交上來的學(xué)號(hào)和問題寫進(jìn)數(shù)據(jù)庫中，然后返回一開始的輔導(dǎo)答疑界面。問題提交的時(shí)候同樣要進(jìn)行檢查，兩個(gè)文本都不能是空白的。Q,1 % tr td width=166 height=105 valign=top align=rightbr / 問題：/td td width=434% =changechr(rs(SQ)) %/td /tr tr td height=117 valign=top align=rightbr /回答： /td td height=117% =changechr(rs(SA)) %/td濰 坊 學(xué) 院 本 科 畢 業(yè) 設(shè) 計(jì) 29 /tr /table%set rs=nothingset =nothing%在左側(cè)最下端有一個(gè)“我的問題” ，點(diǎn)擊“我的問題”可以進(jìn)行提問，其功能類似于留言板。通過一個(gè)表格顯示問題和答案。說明尚未回復(fù)問題。+尾頁+/a/b] else [下一頁] [尾頁]end if39。+下一頁+/a/b] [b+a href=39。上一頁/a/b] )else [首頁] [ 上一頁]end ifif kn then [b+a href=39。cstr(k1)amp。a href=39。首頁amp。?page=139。n 表示總頁數(shù)n= totalPut \ MaxPerPageelsen= totalPut \ MaxPerPage + 1end ifk=currentPageif k1 then ([bamp。答案amp。right39。39。?Q=amp。rs(SQ)amp。amp。totalput=總記錄數(shù)if CurrentPage1 thenif (currentPage1)*MaxPerPage totalPut then(currentPage1)*MaxPerPageend ifend if%table border=1 cellspacing=1 cellpadding=0 width=670 height=30 bordercolor=999999 frame=below trtd width=559 height=40 align=center style=fontsize:16px我的提問內(nèi)容/tdtd width=112 height=40 align=center style=fontsize:16px /td /tr%do while not and i maxperpage (TR td height=39。定義每頁記錄數(shù)39。sql) else set rs= (select * from question)end ifif then(暫無記錄)end if 39。總頁數(shù)dim i,jMaxPerPage=10 39?？傆涗洈?shù)dim CurrentPage 39。其界面如下：濰 坊 學(xué) 院 本 科 畢 業(yè) 設(shè) 計(jì) 25圖 實(shí)現(xiàn)這一過程的主要代碼為：%dim sqldim rs 39。還可以點(diǎn)擊查看我的問題。 尾頁/a/b] else [下一頁] [尾頁]end if39。sousuo= amp。sousuoamp。 上一頁/a/b] else [首頁] [ 上一頁]end ifif kn then [b+a href=?page=+cstr(k+1)+amp。sousuo= amp。sousuoamp。n 表示總頁數(shù)濰 坊 學(xué) 院 本 科 畢 業(yè) 設(shè) 計(jì) 24n= totalPut \ MaxPerPageelsen= totalPut \ MaxPerPage + 1end ifk=currentPageif k1 then [b+a href=?page=1amp。/a) /td /TRi=i+1loop%TRtd%dim n,k 39。amp。 target=39。trim(rs(SQ))amp。/td) (td )if isnull(rs(SA)) then (暫無)if not isnull(rs(SA)) then (a href=39。(CurrentPage1)*maxperpage+i+1amp。3539。howmanyfields=If trim(Request(Page)) thenCurrentPage= CLng(request(Page))If CurrentPage thenCurrentPage = End IfElse濰 坊 學(xué) 院 本 科 畢 業(yè) 設(shè) 計(jì) 23CurrentPage= 1End IftotalPut= 39。到第一條記錄=MaxPerPage 39。每頁 10 條記錄founderr=falsesql = select SQ,SA from question sql=sql amp。當(dāng)前頁dim TotalPages 39。實(shí)例dim totalPut 39。39。 else sousuo1= end if %body bgcolor=ddf3f3table border=1 bordercolor=CCCCCC cellspacing=1 cellpadding=0 width=670 height=30 frame=below trtd align=rightform name=f4 action= method=post 輸入要查找問題的關(guān)鍵字: input type=text maxlength=20 name=sousuo value=%if sousuo then sousuoelse 請(qǐng)輸入關(guān)鍵字濰 坊 學(xué) 院 本 科 畢 業(yè) 設(shè) 計(jì) 22end if% onmouseover=39。 sousuo amp。) if sousuo then sousuo1=Where SQ like 39。為了便于查看相關(guān)的問題，全部問題中還提供了搜索的功能，按照輸入的關(guān)鍵字對(duì)問濰 坊 學(xué) 院 本 科 畢 業(yè) 設(shè) 計(jì) 21題進(jìn)行檢索比如搜索中輸入 “顏色”兩個(gè)字，顯示結(jié)果如下：圖 按關(guān)鍵字搜索提問中有顏色兩個(gè)字的問題便列在了右邊。在輔導(dǎo)答疑界面不管是否登錄，右側(cè)顯示的都是全部問題。學(xué)生下載時(shí)候只需要點(diǎn)擊文字便可將相應(yīng)的文件下載成功，此部分內(nèi)容是由幾個(gè)單獨(dú)的網(wǎng)頁組成，不是存儲(chǔ)在數(shù)據(jù)庫中的內(nèi)容。這樣比較便于區(qū)別不同學(xué)生的作品。保存文件 end if set file=nothing next set upload=nothing % script language=vbscript濰 坊 學(xué) 院 本 科 畢 業(yè) 設(shè) 計(jì) 19MsgBox 已成功上傳 = javascript:()/script將上傳的文件保存在了名為 upload 的文件夾中。如果 filesize 0 說明有文件數(shù)據(jù) (updata\amp。生成一個(gè)文件對(duì)象 if 100 then % script language=vbscriptMsgBox 請(qǐng)重新上傳 = javascript:()/script % end if if 500*1000 then 39。/ for each formname in 39。建立上傳對(duì)象 formpath=(filepath) 39。由于學(xué)到的知識(shí)有限，這部分代碼來源于互聯(lián)網(wǎng)。實(shí)現(xiàn)文件上傳的方式有兩種，一種是需要先安裝一個(gè)組件，然后實(shí)現(xiàn)文件的