WAP网站开发实训报告.docx
- 文档编号:30058661
- 上传时间:2023-08-04
- 格式:DOCX
- 页数:21
- 大小:181.06KB
WAP网站开发实训报告.docx
《WAP网站开发实训报告.docx》由会员分享,可在线阅读,更多相关《WAP网站开发实训报告.docx(21页珍藏版)》请在冰豆网上搜索。
WAP网站开发实训报告
实训报告
(2010/2011学年第二学期)
课程名称:
WAP网站开发实训
班级学号:
90916P29
姓名:
刘潮
指导教师:
刘新娥
日期:
20101-03-09
南京信息職業技術學院
目录
一、实训目的3
二、所涉及到的技术3
三、实训内容3
1.总体架构3
2.用户登录模块的设计4
3.成绩查询的功能模块设计4
4.给班级干部投选票的模块设计5
5.我要留言功能模块设计5
四、实训步骤和结果6
1.用户登录界面的代码实现6
2.用户登录成功以后的界面8
3.进行成绩查询后的界面8
4.投票的代码实现及界面9
5.处理投票的代码及界面11
6.察看投票的代码及界面13
7.我要留言的代码实现及界面16
8.察看留言的代码实现及界面16
五、实训体会3
WAP网站开发实训
一、实训目的
1.掌握如何配置Web服务器,使其支持WAP应用服务
2.掌握WAP网站搭建的步骤
3.熟练掌握WML&WMLScript编程的基本知识
4.掌握WML的动态网页编程(ASP)
5.掌握WAP网站和数据库相操作的基本知识
二、所涉及到的技术
1.NokiaWapToolkit模拟器
2.IIS服务器
3.ASP动态网页编程
4.SQLServer2005数据库
5.Opera10浏览器
三、实训内容
1.总体架构
学生先进行登陆,存在登陆成功和失败两种情况。
如果登陆失败,则不允许进行其他操作;只有登陆成功,才允许查询自己的成绩,并且登陆成功的同学,可以给自己想选择的班委投上一票,以便于新班委名单的产生。
总体架构如图1所示。
图1总体架构
2.用户登录模块的设计
具体处理流程如图2所示。
图2用户登陆模块
3.用户注册模块的设计
具体处理流程如图3所示。
图3用户注册模块
4.成绩查询的功能模块设计
具体处理流程如图4所示。
图4成绩查询模块
5.给班级干部投选票的模块设计
具体处理流程如图5所示。
图5班委投票模块
四、实训步骤和相关代码及截图
1.用户登录:
xmlversion="1.0"encoding="gb2312"?
>
DOCTYPEwmlPUBLIC"-//WAPFORUM//DTDWML1.3//EN""http:
//www.wapforum.org/DTD/wml13.dtd">
">
2.用户进入登录界面:
<%Response.ContentType="text/vnd.wap.wml"%>
xmlversion="1.0"encoding="gb2312"?
>
DOCTYPEwmlPUBLIC"-//WAPFORUM//DTDWML1.3//EN""http:
//www.wapforum.org/DTD/wml13.dtd">
<%
aname=Request("username")
passd=Request("password")
ifaname=""then
Response.Write"用户名为空!
"
Response.Write"登录失败"
Response.Write"
Response.Write"
Response.Write""
Response.Write"
"Response.end
endif
Dimconn,records,sqlQuery
Setconn=Server.CreateObject("ADODB.Connection")
conn.Open"DRIVER={SQLServer};database=mydb;Server=ERLINGYI123\SQLEXPRESS;uid=sa;pwd=901230;"
sqlQuery="SELECT*FROMstudentWHEREname='"&aname&"'ANDpassword='"&passd&"'"
Setrecords=Server.CreateObject("ADODB.Recordset")
Setrecords=conn.Execute(sqlQuery)
ifrecords.EOFthen
Response.Write"登录失败!
密码错误!
"
Response.Write"
Response.Write"
Response.Write""
else
Response.Write""&records("name")&"登录成功!
"
Response.Write"
Response.Write"
<%
Response.Write""
Response.Write""
Response.Write"
Response.Write"
<%
Response.Write""
Response.Write""
endif
records.close
Setrecords=nothing
%>
3.用户进入成绩查询界面:
<%Response.ContentType="text/vnd.wap.wml"%>
xmlversion="1.0"encoding="gb2312"?
>
DOCTYPEwmlPUBLIC"-//WAPFORUM//DTDWML1.3//EN""http:
//www.wapforum.org/DTD/wml13.dtd">
">
<%
usrname=Request("usrname")
//Response.Writeusrname
Dimconn,records,sqlQuery,sum,count
Setconn=Server.CreateObject("ADODB.Connection")
conn.Open"DRIVER={SQLServer};database=mydb;Server=ERLINGYI115\SQLEXPRESS;uid=sa;pwd=123456;"
sqlQuery="selectcourse.name,student_course.scorefromcourseinnerjoinstudent_courseoncourse.id=student_course.cidinnerjoinstudentonstudent_course.sid=student.idwherestudent.name='"&usrname&"'"
Setrecords=Server.CreateObject("ADODB.Recordset")
Setrecords=conn.Execute(sqlQuery)
sum=0
count=0
dowhilenotrecords.eof
%>
<%kcm=records("name")%>
课程名:
<%Response.Writekcm%>
<%fs=records("score")%>
分数:
<%Response.Writefs%>
<%sum=sum+fs%>
<%count=count+1%>
<%
records.movenext
loop
%>
<%
records.close
Setrecords=nothing
%>
<%
Response.Write"
"
Response.Write"
"
Response.Write"
Response.Write"
<%
Response.Write""
Response.Write""
%>
4.用户进入投票系统:
<%Response.ContentType="text/vnd.wap.wml"%>
xmlversion="1.0"encoding="gb2312"?
>
DOCTYPEwmlPUBLIC"-//WAPFORUM//DTDWML1.3//EN""http:
//www.wapforum.org/DTD/wml13.dtd">
">
<%
usrname=Request("usrname")
Dimconn,records,sqlQuery,name,score
Setconn=Server.CreateObject("ADODB.Connection")
conn.Open"DRIVER={SQLServer};database=mydb;Server=ERLINGYI123\SQLEXPRESS;uid=sa;pwd=901230;"
sqlQuery="selectcourse.name,student_course.scorefromcourseinnerjoinstudent_courseoncourse.id=student_course.cidinnerjoinstudentonstudent_course.sid=student.idwherestudent.name='"&usrname&"'"
Setrecords=Server.CreateObject("ADODB.Recordset")
Setrecords=conn.Execute(sqlQuery)
ifrecords.EOFthen
Response.Write"无记录,请先输入成绩?
"
Response.Write"
Response.Write"
Response.Write""
else
Response.Write"姓名:
"&usrname&"
"
whilenotrecords.eof
name=records("name")
score=records("score")
Response.Write" "课程: "&name&"
Response.Write"
Response.Writerecords.moveNext
Wend
Response.Write"
"
Response.Write"
Response.Write"
Response.Write""
endif
records.close
Setrecords=nothing
%>
5.处理投票结果:
<%Response.ContentType="text/vnd.wap.wml"%>
xmlversion="1.0"encoding="gb2312"?
>
--Createdbyliuchao-->
DOCTYPEwmlPUBLIC"-//WAPFORUM//DTDWML1.3//EN""http:
//www.wapforum.org/DTD/wml13.dtd">
"> <% uploadstr=Request("upload") Dimconn,records,sqlQuery Setconn=Server.CreateObject("ADODB.Connection") conn.Open"DRIVER={SQLServer};database=mydb;Server=ERLINGYI123\SQLEXPRESS;uid=sa;pwd=901230;" sqlQuery="updatepresentsetnum=num+1wherename='"&uploadstr&"'" Setrecords=Server.CreateObject("ADODB.Recordset") Setrecords=conn.Execute(sqlQuery) Response.Write"您选的是: " Response.Writeuploadstr Response.Write" " Response.Write" Response.Write" Response.Write"
谢谢参与!
"
"
Response.Write"
Response.Write"
Response.Write""
Response.Write""
%>
6.查看投票结果:
<%Response.ContentType="text/vnd.wap.wml"%>
xmlversion="1.0"encoding="gb2312"?
>
DOCTYPEwmlPUBLIC"-//WAPFORUM//DTDWML1.3//EN""http:
//www.wapforum.org/DTD/wml13.dtd">
">
<%
Dimconn,records,sqlQuery
Setconn=Server.CreateObject("ADODB.Connection")
conn.Open"DRIVER={SQLServer};database=mydb;Server=ERLINGYI115\SQLEXPRESS;uid=sa;pwd=123456;"
sqlQuery="selectname,numfrompresent"
Setrecords=Server.CreateObject("ADODB.Recordset")
Setrecords=conn.Execute(sqlQuery)
dowhilenotrecords.eof
%>
候选人:
<%Response.Writehxbw%>
<%tdps=records("num")%>
所得票数:
<%Response.Writetdps%>
<%
records.movenext
loop
%>
<%
records.close
Setrecords=nothing
%>
<%
Response.Write"
"
Response.Write"
Response.Write"
Response.Write""
%>
7、我要留言的实现:
xmlversion="1.0"encoding="gb2312"?
>
DOCTYPEwmlPUBLIC"-//WAPFORUM//DTDWML1.3//EN""http:
//www.wapforum.org/DTD/wml13.dtd">
"> 0
8、查看留言的实现:
<%Response.ContentType="text/vnd.wap.wml"%>
xmlversion="1.0"encoding="gb2312"?
>
--CreatedbyJoeingYouthy-->
DOCTYPEwmlPUBLIC"-//WAPFORUM//DTDWML1.3//EN""http:
//www.wapforum.org/DTD/wml13.dtd">
">
<%
usrname=Request("usrname")
Response.Writeusrname
Response.Write"您好:
"
Dimconn,records,sqlQuery,result
Setconn=Server.CreateObject("ADODB.Connection")
conn.Open"DRIVER={SQLServer};database=mydb;Server=ERLINGYI115\SQLEXPRESS;uid=sa;pwd=123456;"
sqlQuery="select*fromstudentwherename='"&usrname&"'"
Setrecords=Server.CreateObject("ADODB.Recordset")
Setrecords=conn.Execute(sqlQuery)
result=records("note")
%>
您的留言如下:
<%Response.Writeresult%>
<%Response.Write"
"%>
<%Response.Write"
Response.Write"
%>
<%
Response.Write""
Response.Write""
%>
五、实训体会
这次实训,任务是让我们自己做一个简易的WAP查询网站,虽说是个简易的工具,可是对我来说还是一件很困难的事。
实训时间只有一周,要想做一个完美的网站是不可能的事,何况是一个人做呢。
我觉得,这样的实训重要的不是这周能做出多完美的成果,而是自己在这周内能学习到什么,更不是为了完成最终的作业而实训。
实训一周的时间是比较短暂的,实训过程中难免会遇到许多这样那样的问题,所以不可能在这么短的时间内都解决。
实训与平时的上课显然不相同,老师不会,也不可能仔细的讲解每一个知识点,否则的话,两个月的时间恐怕都是不够的。
实训我们要靠自己,不懂得问题要及时问,问同学或者查阅资料。
态度很重要,摆正自己的心态。
只有自己付出过,当程序运行成功时的那种喜悦才会令自己有一种莫名的自豪感。
态度决定一切!
转眼间一周的实训就过去了,这让
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- WAP 网站 开发 报告