ASP教程之跟我学做在线查询拜访(四)

只要你想学,就没什么优缺点,上面那位大哥已经把网上的评论说了,但我认为想学哪个都一样,不然它就不可能在当今时代数字艺术方面存活到今天在线续上篇
上一篇中，我们完成了显现统计了局和查询拜访列表的程序，最初我们来完成背景
办理页面，也是最主要的一个程序。

1、背景办理
在背景办理页面survey_manage.asp中，后面我们已列出来它所要完成的
办理功效。办理的流程是先显现出一切查询拜访，关于还没有入手下手的查询拜访，能够举行修
改、删除；关于已停止的查询拜访，能够删除，不克不及修正；关于正在举行的查询拜访，只
能修正它的停止工夫。用一个参数action来暗示举措，寄义以下：
1、无参数。暗示第一次进进，显现登录表单
2、login暗示实行登录
3、logout暗示实行加入登录
4、showaddquestion暗示显现增添一个查询拜访
5、showsurvey暗示显现一个查询拜访
6、doaddsurvey暗示实行增添一个查询拜访
7、doaddanswer暗示实行增添一个谜底
8、dodelsurvey暗示删除一个查询拜访
9、dodelanswer暗示删除一个谜底
10、domodify暗示修正一个查询拜访及谜底

<!--#includefile="inc.asp"-->
<%
opendbmy翻开数据库
猎取参数。action暗示举措，分离对应下面的功效。
action=request.querystring("action")
id=request.querystring("id")
猎取以后文件名
scr=Request.ServerVariables("SCRIPT_NAME")
依据举措来转向响应的子程序
selectcaseaction
case"login"
login()实行登录
case"logout"
logout()实行加入登录
case"doaddsurvey"
doaddsurvey()实行增添一个查询拜访
case"dodelsurvey"
dodelsurvey()实行删除一个查询拜访
case"dodelanswer"
dodelanswer()实行删除一个谜底
case"domodify"
domodify()实行修正一个查询拜访及谜底
endselect
----登录子程序----
sublogin()
username=request.form("username")猎取用户名
password=request.form("password")猎取暗码
ifusername""andpassword""then
sql="select*frommanagewheremanage_username="&username&""查询用户
searchtablemy,sql,rs
ifnotrs.eofthen假如有
ifrs("manage_password")=passwordthen暗码也准确
session("survey_login")=true登录
endif
endif
closetablers封闭表
endif
response.redirectscr不论有没登录，最初都回到办理页
endsub
----加入登录子程序----
sublogout()
删除session变量
session.contents.remove"survey_login"
response.redirectscr回到办理页面
endsub
----实行增添查询拜访子程序----
subdoaddsurvey()
question=request.form("question")
stime=request.form("stime")
etime=request.form("etime")
stype=request.form("stype")
ifquestion""andstime""andetime""andisdate(stime)_
andisdate(etime)andsession("survey_login")then
sql="select*fromsurveywheresurvey_idisnull"
changetablemy,sql,rs
rs.addnew
rs("survey_question")=question
rs("survey_stime")=cdate(stime)
rs("survey_etime")=cdate(etime)
rs("survey_type")=cbool(stype)
rs.update
id=rs("survey_id")
closetablers
response.redirectscr&"?action=showsurvey&id="&id回到显现页面
endif
response.redirectscr回到显现页面
endsub

----实行增添查询拜访谜底子程序----
subdoaddanswer()
answer=request.form("newanswer")
ifsession("survey_login")then
sql="select*fromsurvey_votewherevote_noisnull"
changetablemy,sql,rs
rs.addnew
rs("vote_answer")=answer
rs("vote_id")=id
rs.update
closetablers
endif
response.redirectscr&"?action=showsurvey&id="&id回到显现页面
endsub

----实行修正查询拜访子程序----
subdomodify()
question=request.form("question")
stime=request.form("stime")
etime=request.form("etime")
stype=request.form("stype")
answer=request.form("newanswer")
ifsession("survey_login")then
sql="select*fromsurveywheresurvey_id="&id
changetablemy,sql,rs
ifnotrs.eofthen
ifquestion""thenrs("survey_question")=question
ifstime""andisdate(stime)thenrs("survey_stime")=cdate(stime)
ifetime""andisdate(etime)then
ifcdate(etime)>rs("survey_stime")thenrs("survey_etime")=cdate(etime)
endif
ifstype""thenrs("survey_type")=cbool(stype)
rs.update
endif
closetablers
ifanswer""thendoaddanswer()
sql="selectvote_answerfromsurvey_votewherevote_id="&id
changetablemy,sql,rs
fori=1tors.recordcount
ifrequest.form("no"&i)""</p>优点：简单易学、开发速度快、有很多年“历史”，能找到非常多别人做好的程序来用、配合activeX功能强大，很多php做不到的asp+activeX能做到，例如银行安全控件

代码逻辑混乱，难于管理：由于ASP是脚本语言混合html编程，所以你很难看清代码的逻辑关系，并且随着程序的复杂性增加，使得代码的管理十分困难，甚至超出一个程序员所能达到的管理能力，从而造成出错或这样那样的问题。

虽然ASP也有很多网络教程。但是这些都不系统。都是半路出家，只是从一个例子告诉你怎么用。不会深入讨论，更不会将没有出现在例子里的方法都一一列举出来。

Application:这个存储服务端的数据，如果不清除，会直到web应用程序结束才清除(例如重启站点)

完全不知道到底自己学的是什么。最后，除了教程里面说的几个例子，还是什么都不会。

没有坚实的理论做基础，那么我们连踏入社会第一步的资本都没有，特别对于计算机专业的学生学好专业知识是置关重要的。在这里我侧重讲一下如何学习ASP，从平时的学习过程中。

最近在学asp，不要问我为什么不直接学.net，因为公司网站是asp做的所以有这个需要，卖了本书asp入门到精通，对里面的六大内置对象老是记不住，还有很多属性和方法看的头晕。

掌握asp的特性而且一定要知道为什么。