仓酷云

标题: ASP网站制作之用ASP手艺开辟WEB查询拜访(投票)体系 (3)... [打印本页]

作者: 小魔女    时间: 2015-1-16 23:42
标题: ASP网站制作之用ASP手艺开辟WEB查询拜访(投票)体系 (3)...
asp可以使用微软的activeX使得网页功能无比强大,不过安全性也较差,而且是基于的windows服务器,所以性能稳定性也一般web|投票|投票3、查询拜访表单的天生与了局剖析
作者:神仙掌事情室

  PollWriter.asp先反省表单变量,包含查询拜访项目名字PollName和(可选的)字符串LinkText和LinkURL,LinkText和LinkURL形貌了用户提交其投票了局以后显现的URL。接上去剧本创立并实行从指定查询拜访项目标S_表和A_表提取纪录集的SQL命令,然后遍历这个纪录集格局化单选按钮、复选框和别的提醒文本,最初输入该查询拜访项目标HTML表单。表单中成绩的名字为“CHOICE”加成绩序号。当这个表单被提交的时,它的ACTION将装载PollMaker.asp(这里的函数saveResponses()从CHOICE表单位素提取投票了局,然后更新数据库,代码略)。表单中的别的埋没变量用于将PollName、OpType、LinkText、LinkURL传送给PollMaker.asp:


 <%
 从S_表和A_表读取查询拜访项目界说
 SetobjConn=Server.CreateObject("ADODB.Connection")
 objConn.Open"poll"
 SQLCommand="Select"&SName&".ID,"&_
 "IType,NoOpinion,Stem,ALabel,AnswerFROM"&SName&"LEFTJOIN"&_
 AName&"ON"&SName&".ID="&AName&".IDORDERBY"&_
 SName&".ID,ALabel"
 SetobjRS=objConn.Execute(SQLCommand)
 向查询拜访表单输入各个成绩
 DoWhileNotobjRS.EOF
 Response.Write("<TR><TD>"&objRS("ID")&".<TDBGCOLOR=""#ffff00"">"&_
 objRS("Stem"))
 Response.Write("<TR><TD><TD>")
 ckNoOpinion=IIf(objRS("NoOpinion")="Y","","Checked")
 noMove=False
 除"同意复选",别的各种成绩均需反省是不是同意不回覆成绩
 ansName="""CHOICE"&objRS("ID")&""""
 SelectCaseobjRS("IType")
 Case"1"是/否
 IfckNoOpinion=""Then
 Response.Write("<INPUTTYPE=radioNAME="&ansName&_
 "VALUE=""""Checked>暂不回覆")
 EndIf
 Response.Write("<INPUTTYPE=radioNAME="&ansName&_
 "VALUE=""A"""&ckNoOpinion&">是")
 Response.Write("<INPUTTYPE=radioNAME="&ansName&_
 "VALUE=""B"">否")
 Case"2"赞成水平
 ...略...
 Case"3"语义辨别
 ...略...
 Case"4"多项选择
 ...略...
 Case"5"同意复选
 ...略...
 EndSelect
 IfNoMoveThen
 NoMove=False
 ElseIfNotobjRS.EOFThen
 objRS.MoveNext
 EndIf
 Loop
 %>
 

  PollResult.asp利用与PollWrite.asp一样的SQL命令从A_表(谜底)和S_表(成绩)提取纪录集,接着从对应的R_表读取用户回覆了局,用一个二维数组Counts统计投票了局。缺省时了局剖析中不包括“没有回覆”,假如要包括,则需给出表单变量ShowNoOp并指定其值为True,请拜见中显现投票了局的URL。


 <%
 Globals
 DimPollName
 DimCounts()用户回覆的统计数组
 DimnResponses
 DimN用户回覆数目,大概不包括"没有回覆"选项
 DimobjConn
 DimobjRS
 
 nResponses=0
 
 CallMain
 
 SubMain
 Dimlikert
 Dimi
 Likert=Array("激烈否决","否决","不断定","批准","完整同意")
 PollName=Request("PollName")
 ShowNoOp=IIf(UCase(Request("ShowNoOp"))="TRUE",True,False)
 从A_表和S_表读取查询拜访项目界说
 SetobjConn=Server.CreateObject("ADODB.Connection")
 objConn.Open"poll"
 SName="[S_"&PollName&"]"
 AName="[A_"&PollName&"]"
 
 IfCount()=FalseThen
 Response.Write("<BR>此查询拜访项目没有投票了局")
 ExitSub
 EndIf
 SQLCommand="Select"&SName&".ID,"&_
 "IType,NoOpinion,Stem,ALabel,AnswerFROM"&SName&_
 "LEFTJOIN"&AName&"ON"&SName&".ID="&AName&_
 ".IDORDERBY"&SName&".ID,ALabel"
 SetobjRS=objConn.Execute(SQLCommand)
 
 Response.Write("<TABLE>")
 ...输入表单题目,略...
 Response.Write("<TR><TDCOLSPAN=5>")
 itemIx=0成绩序号
 DoWhileNotobjRS.EOF
 IType=objRS("IType")
 NoMove=False
 N=IIf(ShowNoOpOrIType=5,nResponses,nResponses-Counts(itemIx,0))
 N=IIf(N=0,1,N)
 Response.Write("<TR><THALIGN=right>"&objRS("ID")&_
 ".<THALIGN=leftCOLSPAN=4BGCOLOR=""#ffff00"">"&objRS("Stem"))
 Response.Wr</p>缺乏可以共同遵循的行业标准,ASP还处在发展初期,大家对它的理解不同,如产品和服务标准,收费标准等,不利于行业的健康发展。
作者: 山那边是海    时间: 2015-1-20 11:27
以上是语言本身的弱点,在功能方面ASP同样存在问题,第一是功能太弱,一些底层操作只能通过组件来完成,在这点上是远远比不上PHP/JSP,其次就是缺乏完善的纠错/调试功能,这点上ASP/PHP/JSP差不多。
作者: 第二个灵魂    时间: 2015-1-25 20:17
没有坚实的理论做基础,那么我们连踏入社会第一步的资本都没有,特别对于计算机专业的学生学好专业知识是置关重要的。在这里我侧重讲一下如何学习ASP,从平时的学习过程中。
作者: 兰色精灵    时间: 2015-1-26 20:35
在平时的学习过程中要注意现学现用,注重运用,在掌握了一定的基础知识后,我们可以尝试做一些网页,也许在开始的时候我们可能会遇到很多问题,比如说如何很好的构建基本框架。
作者: 透明    时间: 2015-1-27 15:38
Session:这个存储跟客户端会话过程的数据,默认20分钟失效
作者: 老尸    时间: 2015-2-8 08:11
ASP主要是用好六个对象,其实最主要的是用好其中两个:response和request,就可以随心所欲地控制网页变换和响应用户动作了。
作者: 冷月葬花魂    时间: 2015-2-25 02:21
ASP(ActiveServerPages)是Microsfot公司1996年11月推出的WEB应用程序开发技术,它既不是一种程序语言,也不是一种开发工具,而是一种技术框架,不须使用微软的产品就能编写它的代码,能产生和执行动态、交互式、高效率的站占服务器的应用程序。
作者: 小魔女    时间: 2015-3-7 15:52
我认为比较好的方法是找一些比较经典的例子,每个例子比较集中一种编程思想而设计的。
作者: admin    时间: 2015-3-15 09:08
我可以结合自己的经验大致给你说一说,希望对你有所帮助,少走些弯路。
作者: 若天明    时间: 2015-3-21 22:51
我们必须明确一个大方向,不要只是停留在因为学而去学,我们应有方向应有目标.




欢迎光临 仓酷云 (http://ckuyun.com/) Powered by Discuz! X3.2