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的特性而且一定要知道为什么。
页:
[1]