【文章內(nèi)容簡介】 中記錄留言信息，包括用戶名、留言 內(nèi)容、留言時間等列 表 其中記錄相冊上傳圖片的信息，包括用戶名、相片文件服務(wù)器端名、上傳時間等列。 （ 1） 登 入窗口 用戶進入本校友錄系統(tǒng)需要先登入該窗口，才能進入系統(tǒng)進行查看和發(fā)布消息。 inc\ 15 （ 2） 新用戶注冊窗口 本班學(xué)員進入本班校友錄需要先進行注冊，然后登 入，最后才能進入本班校友錄。 （ 3） 用戶修改資料窗口 16 （ 4） 用戶修改密碼窗口 當(dāng)本班學(xué)員密碼被其他人知道的情況下需要修改新密碼，則進入本窗口進行修改。 （ 5） 班級成員列表 （ 6）班級留言表 17 （ 7）班極相冊表 18 第六章 關(guān)鍵問題實現(xiàn) 庫訪問 實現(xiàn) ASP 下訪問 Access 數(shù)據(jù)庫首選的是 Microsoft174。 ActiveX174。 Data Objects (ADO)。 ADO 支持用于建立基于客戶端 /服務(wù)器和 Web 的應(yīng)用程序的主要功能。其主要優(yōu)點是易于使用、高速度、低內(nèi)存支出和占用磁盤空間較少。 ADO 同時具有遠程數(shù)據(jù)服務(wù) (RDS) 功能，通過 RDS 可以在一次往返過程中實現(xiàn)將數(shù)據(jù)從服務(wù)器移動到客戶端應(yīng)用程序或 Web 頁、在客戶端對數(shù)據(jù)進行處理然后將更新結(jié)果返回服務(wù)器的操作。 本設(shè)計所涉及的 ADO 對象有 : 對象 說明 Command Command 對象定義了將對數(shù)據(jù)源執(zhí)行的指定命令。 Connection 代表打開的、與數(shù)據(jù)源的連接。 RecordSet 代表來自基本表或命令執(zhí)行結(jié)果的記錄的全集。任何時候，Recordset 對象所指的當(dāng)前記錄均為集合內(nèi)的單個記錄。 (1)建立數(shù)據(jù)庫連接，打開數(shù)據(jù)庫 在 ASP 中建立對 Access 數(shù)據(jù)庫連接的一般格式如下 ： 第一行程序：利用 Server 對象的 MapPath 函數(shù)，取得要打開數(shù)據(jù)庫的完整的文件路徑，并存儲在變量 DbPath 中。這其中，數(shù)據(jù)庫名是我們需要指定的參數(shù)，應(yīng)該用我們要打開的 數(shù)據(jù)庫的實際名稱替代。如果數(shù)據(jù)庫名是直接作為常量出現(xiàn)，要用引號將其括起來，并且不能丟掉擴展名。例如數(shù)據(jù)庫是，則該行程序成為： DbPath=(“”) 。 第二行程序：建立一個 ADO 對象集中的 Connection 對象，也即連接對象。這是建立數(shù)據(jù)庫連接的初始步驟。執(zhí)行這行程序后， Conn 成為一個連接對象。 第三行程序：利用連接對象 Conn 的 Open 方法打開一個指定的數(shù)據(jù)庫。因為我們要打開的是 Access 數(shù)據(jù)庫，所以要指定 ODBC 驅(qū)動程序參數(shù)，表示要透過 Access 的 ODBC 驅(qū)動程序來訪問數(shù)據(jù)庫： driver={Microsoft Access Driver (*.mdb)}。另一個參數(shù) dbq= amp。 DbPath，運算后等效于 dbq=(數(shù)據(jù)庫名 ) ,是利用了第一行的 (數(shù)據(jù)庫名 )函數(shù)，用來指定要打 19 開的數(shù)據(jù)庫文件。到這里，就已經(jīng)打開了數(shù)據(jù)庫名指定的數(shù)據(jù)庫。如果數(shù)據(jù)庫名是 “” ，則打開 Access 數(shù)據(jù)庫 。在這一行里指定的參數(shù)，要嚴(yán)格按照格式原樣寫出，不能省略或改動，也沒有可變 參數(shù)。 本設(shè)計中的這三行為： dbpath=(\db) set conn=() Driver={Microsoft Access Driver (*.mdb)}。DBQ=amp。 dbpath amp。\。 ’ ..\db\ 是數(shù)據(jù)庫文件的路徑 (2) 執(zhí)行數(shù)據(jù)庫命令 set cmd=() =conn sql= ’ sql 中是命令內(nèi)容 =sql ’ 執(zhí)行命令 (3) 執(zhí)行查詢命令并返回記錄全集 set rs=() =conn sql= ’ sql 中是查詢命令的內(nèi)容 =sql ’ 執(zhí)行查詢并返回在 rs中 ASP 中上傳文件一般使用上傳組件來完成該功能，但 是組件需要安裝配置。為了方便在不同服務(wù)器上調(diào)試運行程序，本設(shè)計選擇無組件上傳，直接用代碼寫一個分析上傳二進制數(shù)據(jù)的類進行上傳操作。要使 Form 以二進制形式上傳數(shù)據(jù)需在 Form 標(biāo) 記 里 設(shè) 置 下 enctype 屬 性 ， 即 寫 上enctype=”multipart/form data” 。 無組件上傳類： % 20 dim oUpFileStream Class upload_file dim Form,File,Version Private Sub Class_Initialize 39。定義變量 dim RequestBinDate,sStart,bCrLf,sInfo,iInfoStart,iInfoEnd,tStream,iStart,oFileInfo dim iFileSize,sFilePath,sFileType,sFormvalue,sFileName dim iFindStart,iFindEnd dim iFormStart,iFormEnd,sFormName 39。代碼開始 Version=無組件上傳類 set Form = () set File = () if 1 then Exit Sub set tStream = () set oUpFileStream = () = 1 = 3 () =0 RequestBinDate = iFormEnd = bCrLf = chrB(13) amp。 chrB(10) 39。取得每個項目之間的分隔符 sStart = MidB(RequestBinDate,1, InStrB(1,RequestBinDate,bCrLf)1) iStart = LenB (sStart) 21 iFormStart = iStart+2 39。分解項目 Do iInfoEnd = InStrB(iFormStart,RequestBinDate,bCrLf amp。 bCrLf)+3 = 1 = 3 = iFormStart tStream,iInfoEndiFormStart = 0 = 2 =gb2312 sInfo = 39。取得表單項目名稱 iFormStart = InStrB(iInfoEnd,RequestBinDate,sStart)1 iFindStart = InStr(22,sInfo,name=,1)+6 iFindEnd = InStr(iFindStart,sInfo,1) sFormName = Mid (sinfo,iFindStart,iFindEndiFindStart) 39。如果是文件 if InStr (45,sInfo,filename=,1) 0 then set oFileInfo= new FileInfo 39。取得文件屬性 iFindStart = InStr(iFindEnd,sInfo,filename=,1)+10 iFindEnd = InStr(iFindStart,sInfo,1) sFileName = Mid (sinfo,iFindStart,iFindEndiFindStart) = GetFileName(sFileName) = GetFilePath(sFileName) = GetFileExt(sFileName) iFindStart = InStr(iFindEnd,sInfo,ContentType: ,1)+14 22 iFindEnd = InStr(iFindStart,sInfo,vbCr) = Mid (sinfo,iFindStart,iFindEndiFindStart) = iInfoEnd = iFormStart iInfoEnd 2 = sFormName sFormName,oFileInfo else 39。如果是表單項目 = 1 = 3 = iInfoEnd tStream,iFormStartiInfoEnd2 = 0 = 2 = gb2312 sFormvalue = sFormName,sFormvalue end if iFormStart = iFormStart+iStart+2 39。如果到文件尾了就退出 loop until (iFormStart+2) = iFormEnd RequestBinDate= set tStream = nothing End Sub Private Sub Class_Terminate 23 39。清除變量及對像 if not 1 then set oUpFileStream =nothing end if set Form=nothing set File=nothing End Sub 39。取得文件路徑 Private function GetFilePath(FullPath) If FullPath Then GetFilePath = left(FullPath,InStrRev(FullPath, \)) Else GetFilePath = End If End function 39。取得文件名 Private function GetFileName(FullPath) If FullPath Then GetFileName = mid(FullPath,InStrRev(FullPath, \)+1) Else GetFileName = End If End function 24 39。取得擴展名 Private function GetFileExt(FullPath) If FullPath Then GetFileExt = mid(FullPath,InStrRev(FullPath, .)+1) Else GetFileExt = End If End function