ASP课程设计实验报告1Word下载.docx

1、自动编号用户的标识yhm文本（80）登录的用户名mm文本（160）登录的密码表4-2 数据库表lyb的结构姓名Email数字用户的邮箱主题文本留言的标题内容留言的内容时间日期/时间回复的时间2.通讯录通讯录架构：数据库文件bjtxl.mdb文件包括两个表，分别为alogin和txl。alogin用来存储登录界面的用户名和密码信息，txl用来存储同学的信息，表3和表5所示表4-3 数据库表alogin的结构字段名文本（20）表4-4 数据库表txl的结构同学信息的标识xm同学的姓名lxfs同学的联系方式bz备注3.BBS论坛数据库文件bbspp1.mdb文件包括两个表，分别为发言表和用户表。发言

2、表用来存储登录界面的用户名和密码信息如表4-5，用户表用来存储同学的信息。表4-5 BBS 用户表用户名密码电子信箱临时身份网址表4-6三、个人网站的实现1身份认证主要代码如下：link href=css/alogin1.css rel=stylesheet type=text/css / a href=javascript:history.back（）请输入管理员名！/abr response.End（） end if if smm=密码不能为空） 请输入密码！br / response.end（） end if if syhmchenqing response.write（您不是系统管理员

3、！请重新输入系统管理员名！ else if smm=rs（） then response.Redirect（session（file） else 密码错误！请重新输入密码！ rs.close set rs=nothing conn.close set conn=nothing /p2留言簿handle.asp：处理程序主要代码如下：%读取各字段的数据Name = Request（NameEmail = Request（EmailSubject = Request（SubjectMemo = Request（Memo检查各字段是否输入了数据If Name = Or Email = Or Subj

4、ect = Or Memo = Then Response.Write （字段空白不接受！ Response.End 不再处理以下的程序End If插入到数据库set conn = Server.CreateObject（ADODB.Connectionconn.Open（driver=Microsoft Access Driver （*.mdb）;dbq= &_ Server.MapPath（lyb.mdb）SQL = INSERT INTO lyb（姓名,email,主题,内容） VALUES（ Name & ,Email & Subject & Memo &）Response.Write

5、（SQL）conn.Execute（SQL）conn.close（）Response.Redirect（display.asp%display.asp：显示程序主要代码如下：连接数据库，做查询sql = SELECT * FROM lyb ORDER BY 时间 DESCset rs = conn.Execute（ sql ）按照的样式输出While Not rs.EOFTABLE BORDER=0 BORDERCOLOR=#111111TRTDBFONT SIZE=4 COLOR=#008080姓名：/FONT/B/TD%=rs（姓名）%/TR Email:A HREF=MAILTO:ema

6、il/A主题：TD WIDTH=542 HEIGHT=17主题时间：时间内容HRrs.movenext（）Wend“留言簿”登录留言页面运行效果如图2所示 聊天室图2留言簿登录留言界面3.聊天室（1）聊天室信息输入界面其主要代码如下： BODY BGCOLOR=LIGHTBLUEFORM METHOD=POST ACTION=MESSAGE.ASP /BODY/HTML （2） 聊天信息显示页面其主要代码如下：HEADMETA HTTP-EQUIV=REFRESH CONTENT=3;URL=display.aspSCRIPT LANGUAGE=JavaScriptfunction scrol

7、lWindow（） this.scroll（0,65000） setTimeout（scrollWindow（）,200） scrollWindow（）/SCRIPT/HEADBODY Response.Write（Application（“聊天室”聊天界面运行效果如图3所示。图3聊天室聊天界面4.通讯录通讯录的功能是保存手机号码、E-mail地址、住宅电话等常用的联系信息，或对以前的信息进行分组、管理和更新、并根据用户要求把后台数据库信息发布到前端的浏览器，直观显示给用户。其主要包括四个方面： 添加记录、查询记录、删除记录、修改记录。其通讯录查询记录程序的主要代码如下： xm2=reques

8、t.form（xm sqlstmt=SELECT * from txl where xm= xm2 & set rs=server.createobject（adodb.recordset rs.open sqlstmt,conn,1,1 totalerec=rs.recordcount if totalerec=0 then response.write 没有符合条件的记录,请重新输入！ response.endtabletrtd姓名联系方式td备注% do while not rs.eof %tr align=centertd lxfsbz rs.movenext loop set con

9、n=nothing/table“通讯录”查询主页面运行效果如图4所示。图4 通讯录浏览页界面4BBS论坛Vew.AspSet Conn=Server.CreateObject（Connstr=DBQ=+server.mappath（bbspp1.mdb）+;DefaultDir=;DRIVER=Microsoft Access Driver （*.mdb）;DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Thread

10、s=3;UserCommitSync=Yes;Conn.Open connstrbody bgcolor=#FBF0C8 link=#000080 vlink=Pnbsp;a href=wordadd1.asp?No=%Response.Write Request（No我要发言leave.asp?离开论坛adminlogin.asp管理员入口SELECT * FROM 发言表 WHERE 发言次序=1 ORDER BY ID DESCdim rootRsSet rootRs=Server.CreateObject（ADODB.RecordSetrootRs.Open sql,conn,1,1I

11、f rootRs.Bof OR rootRs.Eof ThenResponse.Write 目前还没有发言内容。elseset name1=rootrs（发言标题set name2=rootrs（用户名set name3=rootrs（回复数set name4=rootrs（电子信箱set Num=rootrs（NumrootRs.pagesize=10rootRs.AbsolutePage =1if Request（page）0%td width=95 valign=topfont color=#800000mailto:%Response.Write name4%Response.Writ

12、e Name2%/font295%Response.Write Name1%Response.Write Name3%人回复145vew2.asp?Num=言论内容1 thentable border=0b帖子分页：/bFor i=1 to rootRs.pagecounta href=vew.asp?page= i &No= Request（） &/html图5 帖子显示页面Wordadd1.asp%LogTime=Now（）%Num=Cstr（Hour（LogTime） & Cstr（Minute（LogTime） & Cstr（Second（LogTime）& Cstr（Int（Rnd*10000）%SELECT * FROM 用户表 WHERE 临时身份E_mail：%Response.Write mail%主页：%Response.Write url%form method= action=wordadd2.aspinput type=hidden name=rewordnum value=Num1%Response.Write input type=hidden name=Num value= Num &