仓酷云

标题: 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/)