ASP网页设计WAP中的ASP手艺(四)
楼上说交互性不好，太牵强了吧。在微软提供的一套框架中，利用asp做网站，开发效率高，使用人数少，减少不必要的开销。交互性是互动方式，是有开发人员决定的。选择影戏院和上映工夫这部分代码让用户来选择看甚么工夫的影戏，一切的纪录依据前一页所选的影戏来决意。在这里来选择影戏院和上映工夫.
movie_id=Request("movie")
sqlQuery="SELECTtitleFROMmovieWHEREMovie_id="&movie_id
setrsMovie=conn.Execute(sqlQuery)
movie_title=rsMovie("title")
:
sqlQuery="SELECT,,FROMShow,Theater"&_
"WHEREshow.movie_id="&movie_id&_
"ANDtheater.theater_id=show.theater_id"
setrsShows=conn.Execute(SQLquery)
假如你细心研讨了这个代码，你就会想用Session来保留影戏信息，再在这页举行查询更复杂。一样很不幸，Session是必要
cookies的撑持,虽然说在WAP标准中也是被撑持的，可是在Nokia7110中也是不被撑持,这就是说如今我们还不克不及把session用在WAP
服务中。
上面有一些风趣的事变:
<selectname=show>
<%
DowhilenotrsShows.eof
response.write("<optionvalue="&rsShows("show_id")&">"&Left(rsShows("name"),cutter)&"("&
rsShows("time")&")"&"</option>"&vbcrlf)
rsShows.MoveNext
loop%>
</select>
假如你对cutter变量感应困惑，那末就有一些事让你啼笑皆非
Dimcutter
ifInStr(Request.ServerVariables("HTTP_USER_AGENT"),"Nokia7110")then
cutter=12
else
cutter=7
endif
这段代码依据分歧的设备来显现选项。我们有充分的来由的如许做，NokiaToolit1.2仿真器喜好把砍失落我的的选项到只要几个字
符，而我们要显现影戏名字和上映工夫，以是我们就不能不削减影戏名字的字符。在真的手机中不会呈现这类成绩，以是我们就必
须先判别设备的范例.
一旦我无机会（飞刀我很穷，没有钱，这是仅仅是悠远的妄想.......)在真的Nokia7110上测试我的代码，我们会当即感应我们
有比我们想像更年夜的屏幕。实践上,有些影戏院的名字很乖僻，并且这些长名字会占用很年夜屏幕空间，我们没有需要华侈这些显现空
间,只管把这些名字简化。
票
下一步就是让用户选择必要的票数.这部分的代码很像别的的部分。我将从数据库中查询不异的数据，由于Session不克不及在真实的
WAP手机中利用，以是我必需对有些内容举行确认，看看是不是另有坐位出卖.
SQLquery="SELECT*FROMshowWHEREShow_id="&show_id
setrsShow=conn.Execute(SQLquery)
:
seats=rsShow("free_seats")
:
ifseats=0then
Response.write("Sorry,nomoreseats")
rsShow.close
setrsShow=nothing
Response.write("</p></card></wml>")
Response.end
else
ifseats>6thenbookupto6ticketsormaxavailable
max_seats=6
else
max_seats=seats
endif
endif
%>
<%=movie_title%>at<%=theater_name%>
<selectname=ticket>
<%
dimi
i=1
Dowhilei<=max_seats
response.write("<optionvalue="&i&">"&i&"ticket(s)"&"</option>"&vbcrlf)
i=i+1
loop%>
</select>
贮存票数
如今我们已有了一切必要的数据了，我们得把它们保留起来:
tickets=Request("ticket")
:
free_seats=rsShow("free_seats")
:
free_seats=free_seats-tickets
:
SQLUpdate="UPDATEShow"&_
"SETShow.free_seats="&free_seats&""&_
"WHEREShow_ID="&show_id
conn.Execute(SQLupdate)
SQLquery="SELECTmax()asbookingnumberFROMbooking"
SetrsBooking=conn.execute(SQLquery)
maxbookid=rsBooking("bookingnumber")+1
SQLinsert="INSERTINTOBooking(show_id,booked_seats)"&_
"VALUES("&show_id&","&tickets&")"
conn.Execute(SQLinsert)%>
Youhavebooked<%=tickets%>ticket(s)for<%=movie_title%><br/>
Theshowwilltakeplaceat<%=theater_name%>(<%=time%>)
<br/>
Yourreferencenumberis<%=maxbookid%>
上面是显现:
Figure4:完成买卖.
买卖已完成了，影戏院能够坐着影戏院门口收钱了.
结论
WAP如今才方才走出它的第一步，但是它是比来几年内最有反动性的IT开展之一。在这篇文章中我先容了如何用asp写WAP使用程序,
并对你们提出了一些告诫，但愿对你们今后的开展有效。多媒体手艺仍然不克不及太多的用于WAP,可是它的可挪动性倒是主要的，也为
商家供应了很多的商机。
</p>帮助用户快速实现各种应用服务，ASP商有整合各方面资源的能力，可在短期内为用户提供所需的解决方案。例如，典型的ERP安装，如果要在客户端安装的话需要半年到二年的时间，但是美国的一些ASP商如USI和CORIO能在90—120天内提供ERP应用方案。 另外因为asp需要使用组件，所以了解一点组件的知识(ADODB也是组件) 完全不知道到底自己学的是什么。最后，除了教程里面说的几个例子，还是什么都不会。 掌握asp的特性而且一定要知道为什么。 ASP（ActiveServerPages）是Microsfot公司1996年11月推出的WEB应用程序开发技术，它既不是一种程序语言，也不是一种开发工具，而是一种技术框架，不须使用微软的产品就能编写它的代码，能产生和执行动态、交互式、高效率的站占服务器的应用程序。 弱类型造成潜在的出错可能：尽管弱数据类型的编程语言使用起来回方便一些，但相对于它所造成的出错几率是远远得不偿失的。 Application:这个存储服务端的数据，如果不清除，会直到web应用程序结束才清除(例如重启站点) 交流是必要的，不管是生活还是学习我们都要试着去交流，通过交流我们可以学到很多我们自己本身所没有的知识，可以分享别人的经验甚至经历。 ASP主要是用好六个对象，其实最主要的是用好其中两个：response和request，就可以随心所欲地控制网页变换和响应用户动作了。 ASP的语言不仅仅只是命令格式差不多，而是包含在<%%>之内的命令完全就是VB语法。虽然ASP也是做为单独的一个技术来提出的，但他就是完全继承了VB所有的功能。
页:
[1]