精品毕业论文--基于asp校友录系统的实现

精品毕业论文--基于asp校友录系统的实现内容摘要：

中记录留言信息，包括用户名、留言 内容、留言时间等列 表 其中记录相册上传图片的信息，包括用户名、相片文件服务器端名、上传时间等列。 （ 1） 登 入窗口 用户进入本校友录系统需要先登入该窗口，才能进入系统进行查看和发布消息。 inc\ 15 （ 2） 新用户注册窗口 本班学员进入本班校友录需要先进行注册，然后登 入，最后才能进入本班校友录。 （ 3） 用户修改资料窗口 16 （ 4） 用户修改密码窗口 当本班学员密码被其他人知道的情况下需要修改新密码，则进入本窗口进行修改。 （ 5） 班级成员列表 （ 6）班级留言表 17 （ 7）班极相册表 18 第六章 关键问题实现 库访问 实现 ASP 下访问 Access 数据库首选的是 Microsoft174。 ActiveX174。 Data Objects (ADO)。 ADO 支持用于建立基于客户端 /服务器和 Web 的应用程序的主要功能。 其主要优点是易于使用、高速度、低内存支出和占用磁盘空间较少。 ADO 同时具有远程数据服务 (RDS) 功能，通过 RDS 可以在一次往返过程中实现将数据从服务器移动到客户端应用程序或 Web 页、在客户端对数据进行处理然后将更新结果返回服务器的操作。 本设计所涉及的 ADO 对象有 : 对象 说明 Command Command 对象定义了将对数据源执行的指定命令。 Connection 代表打开的、与数据源的连接。 RecordSet 代表来自基本表或命令执行结果的记录的全集。 任何时候，Recordset 对象所指的当前记录均为集合内的单个记录。 (1)建立数据库连接，打开数据库 在 ASP 中建立对 Access 数据库连接的一般格式如下 ： 第一行程序：利用 Server 对象的 MapPath 函数，取得要打开数据库的完整的文件路径，并存储在变量 DbPath 中。 这其中，数据库名是我们需要指定的参数，应该用我们要打开的 数据库的实际名称替代。 如果数据库名是直接作为常量出现，要用引号将其括起来，并且不能丢掉扩展名。 例如数据库是，则该行程序成为： DbPath=(“”)。 第二行程序：建立一个 ADO 对象集中的 Connection 对象，也即连接对象。 这是建立数据库连接的初始步骤。 执行这行程序后， Conn 成为一个连接对象。 第三行程序：利用连接对象 Conn 的 Open 方法打开一个指定的数据库。 因为我们要打开的是 Access 数据库，所以要指定 ODBC 驱动程序参数，表示要透过 Access 的 ODBC 驱动程序来访问数据库： driver={Microsoft Access Driver (*.mdb)}。 另一个参数 dbq= amp。 DbPath，运算后等效于 dbq=(数据库名 ) ,是利用了第一行的 (数据库名 )函数，用来指定要打 19 开的数据库文件。 到这里，就已经打开了数据库名指定的数据库。 如果数据库名是 “” ，则打开 Access 数据库。 在这一行里指定的参数，要严格按照格式原样写出，不能省略或改动，也没有可变 参数。 本设计中的这三行为： dbpath=(\db) set conn=() Driver={Microsoft Access Driver (*.mdb)}。 DBQ=amp。 dbpath amp。 \。 ’ ..\db\ 是数据库文件的路径 (2) 执行数据库命令 set cmd=() =conn sql= ’ sql 中是命令内容 =sql ’ 执行命令 (3) 执行查询命令并返回记录全集 set rs=() =conn sql= ’ sql 中是查询命令的内容 =sql ’ 执行查询并返回在 rs中 ASP 中上传文件一般使用上传组件来完成该功能，但 是组件需要安装配置。 为了方便在不同服务器上调试运行程序，本设计选择无组件上传，直接用代码写一个分析上传二进制数据的类进行上传操作。 要使 Form 以二进制形式上传数据需在 Form 标 记 里 设 置 下 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。