WAP网站开发实训报告

1、南京信息职业技术学院计算机与软件学院90916P29实训报告（2010/2011学年第 二 学期）课程名称:WAP网站开发实训班级学号:90916P29姓名:文y潮指导教师:刘新娥日期:20101-03-09南京信息職業技術學院目录一、 实训目的 错误！未定义书签。二、 所涉及到的技术 错误！未定义书签。三、 实训内容 错误！未定义书签。1. 总体架构 错误！未定义书签。2. 用户登录模块的设计 错误！未定义书签。3. 成绩查询的功能模块设计 错误！未定义书签。4. 给班级干部投选票的模块设计 错误！未定义书签。5. 我要留言功能模块设计 错误！未定义书签。四、实训步骤和结果 61. 用户登录

2、界面的代码实现 62. 用户登录成功以后的界面 83. 进行成绩查询后的界面 84. 投票的代码实现及界面 95. 处理投票的代码及界面 错误！未定义书签。6. 察看投票的代码及界面 137. 我要留言的代码实现及界面 168. 察看留言的代码实现及界面 16五、 实训体会 错误！未定义书签。WAF网站开发实训实训目的1. 掌握如何配置Web服务器，使其支持WA应用服务2. 掌握WA网站搭建的步骤3. 熟练掌握WML&WMLScript程的基本知识4. 掌握WM的动态网页编程（ASP5. 掌握WA网站和数据库相操作的基本知识二、所涉及到的技术1.Nokia Wap Toolkit 模拟器2.I

3、IS服务器3.ASP动态网页编程4.SQL Server 2005 数据库5. Opera 10浏览器三、实训内容1. 总体架构学生先进行登陆，存在登陆成功和失败两种情况。如果登陆失败，则不允许 进行其他操作；只有登陆成功，才允许查询自己的成绩，并且登陆成功的同学， 可以给自己想选择的班委投上一票，以便于新班委名单的产生。总体架构如图1所示。图1总体架构2. 用户登录模块的设计具体处理流程如图2所示。3. 用户注册模块的设计具体处理流程如图3所示。注册界面读取数据库是此用户名已存 是在吗写入数据库注册完成图3用户注册模块4. 成绩查询的功能模块设计具体处理流程如图4所示图4成绩查询模块5. 给

4、班级干部投选票的模块设计具体处理流程如图5所示。图5班委投票模块四、实训步骤和相关代码及截图1. 用户登录：v?xml versio n=1.0 en cod in g=gb2312?用户名 vinputn ame=user name value=/密 码：登录vpostfield n ame=user name value=$(user name)/vpostfield n ame=password value=$(password)/ 欢迎光临?k用户名：liuchao密码：常當常耳案當#登录直注册表丿dbo,壬七口dent绢裔要idnamepassword卜3帕1232chao4563l

5、luchao123456Mil4W2. 用户进入登录界面：versio n=1.0%an ame = Request(user name)passd = Request(password)if an ame= the nRespo nse.Write 用户名为空！ Response.Write 登录失败Response.Write Resp on se.Write Respo nse.Write Resp on se.Write Resp on se.e ndend ifDim conn, records,sqlQuerySet co nn=Server.CreateObject(ADODB.

6、Co nn ectio n)conn .Ope nDRIVER=SQLServer;database=mydb;Server=ERLINGYI123SQLEXPRESS;uid=sa;pwd=901230sqlQuery=SELECT * FROM stude ntWHERE name*&an ame&ANDpassword&passd&”Set records= Server.CreateObject(ADODB.Recordset)Set records=c onn .Execute(sqlQuery) if records.EOF the nRespo nse.Write登录失败！密码错

7、误！ Response.WriteResp on se.WriteRespo nse.Writev/doelse登录成功！ 成绩查询Respo nse.Write&records(” name)&Resp on se.Writedo type=accept2 label=Resp on se.Write% postfield n ame=usr name value=/ Respo nse.Writev/doResponse.WriteResp on se.Write %postfield n ame=usr name value=/ Respo nse.Writev/do end if re

8、cords.closeSet records=nothing%v/wml登录成功,您蟹成功登成绩查询 班委投票 我要留言3. 用户进入成绩查询界面:versio n=1.0WML 1.3/EN课程名： 分数: %Resp on se.Write 返回菜单Resp on se.Write Resp on se.Write do type=accept22 label=Resp on se.Write % postfield n ame=usr name value=/ %Respo nse.Write Respo nse.Write %课程名:Chinese召数：95课程名：Maths、 分数：

9、93课程盘：English分数：95返回菜单4. 用户进入投票系统:versio n=1.0WML 1.3/ENvcard id=card1 title=成绩查询界面：vpxce nter%usrn ame=Request(usr name)Dim conn ,records,sqlQuery ,n ame,scoreSet co nn=Server.CreateObject(ADODB.Co nn ectio n)conn .Ope nDRIVER=SQLServer;database=mydb;Server=ERLINGYI123SQLEXPRESS;uid=sa;pwd=901230sq

10、lQuery=,student_course.scorefrom courseinn er jo in stude nt_course on course.id = stude nt_course.cid inner join stude ntonstude nt_course.sid=stude =”&usrname&”Set records= Server.CreateObject(ADODB.Recordset)Set records=c onn .Execute(sqlQuery)if records.EOF

11、 the nRespo nse.Write无记录，请先输入成绩？ Resp on se.WriteResp on se.WriteRespo nse.Writev/doelseResponse.Write 姓名：&usrname&while n ot records.eofn ame=records( name)score=records(score)Resp on se.Write 课 程 :&n ame&v/tdv/trRespo nse.Write成绩：&score&分v/tdv/trx/tableResp on se.Write records.moveNextWendRespo ns

12、e.WriteResp on se.WriteResp on se.WriteRespo nse.Writev/doend ifrecords.closeSet records=nothing%v/pliuchao 我支持他 投票查询 返回菜单5. 处理投票结果：%uploadstr = Request(upload)Dim conn ,records,sqlQuerySet co nn=Server.CreateObject(ADODB.Co nn ectio n) conn. Ope nDRIVER=SQLServer;database=mydb;Server=ERLINGYI123SQL

13、EXPRESS;u id=sa;pwd=901230;sqlQuery= update prese nt set num=nu m+1 wherename=&uploadstr&Set records= Server.CreateObject(ADODB. Recordset)Set records=c onn .Execute(sqlQuery)Response.Write 您选的是：Resp on se.Write uploadstrRespo nse.Write 谢谢参与！Resp on se.Write Resp on se.Write Resp on se.Write Respons

14、e.Write Resp on se.Write Respo nse.Write Resp on se.Write %投票成功、您选的是 liuchao 感谢您的参与!点此返回6. 查看投票结果： 候选人：所得票数：Resp on se.Write Resp on se.Write do type=accept19 label=Resp on se.Write Respo nse.Write %v/wmlr候选人：chao所得票数：3r候选人：Hu巒票数：24*7候挑人：liuchao所得票数，11点此返回17南京信息职业技术学院计算机与软件学院90916P29#南京信息职业技术学院计算机与软

15、件学院90916P297、我要留言的实现：WML 1.3/ENvcard id=card1 title= 请留下您的意见，以便我们更好的改进! vimg src=pic/1.bmpalt=chaxun/留言内容：提交vpostfield n ame=n eiro ng value=$( neiro ng)/ v/an chor0请留下您的意 见,以便我们更 好的改进!请留下您的意 血以便我们更 好的改进1iF留言内容:越提交iF留言内容:mhaci I18南京信息职业技术学院计算机与软件学院90916P29#南京信息职业技术学院计算机与软件学院90916P29表 - student 摘要idn

16、amepasswordnote9liu123ga2cbaa456沪3liuchao123456ga/OkNULL&查看留言的实现:versio n=1.0 vcard id=card1 title= 查看留言：%usrn ame=Request(usr name)Resp on se.Write usrn ameResponse.Write 您好：Dim conn ,records,sqlQuery,resultSet co nn=Server.CreateObject(ADODB.Co nn ectio n)conn .Ope nDRIVER=SQLServer;database=mydb;

17、Server=ERLINGYI115SQLEXPRESS;uid=sa;pwd=12 3456;sqlQuery=select * from stude nt where name=&usrname&”Set records= Server.CreateObject(ADODB.Recordset)Set records=c onn .Execute(sqlQuery)result=records( note)%您的留言如下：br/x%Respo nse.Write result%Respo nse.Write % Response.Write Resp on se.Write %postfi

18、eld n ame=usr name value=/%Respo nse.Write Respo nse.Write %v/ce nterv/p 您好，留言成功!查看留言査看留言:liuchao 您好: 您的留言如下: nihao!返回菜单I五、实训体会这次实训，任务是让我们自己做一个简易的 WA查询网站，虽说是个简易的 工具，可是对我来说还是一件很困难的事。实训时间只有一周，要想做一个完 美的网站是不可能的事，何况是一个人做呢。我觉得，这样的实训重要的不 是这周能做出多完美的成果，而是自己在这周内能学习到什么，更不是为了 完成最终的作业而实训。实训一周的时间是比较短暂的，实训过程中难免会遇到许多这样那样的问 题，所以不可能在这么短的时间内都解决。 实训与平时的上课显然不相同， 老师 不会，也不可能仔细的讲解每一个知识点，