仓酷云

标题: ASP网页设计若何利用ASP在本人的网站创立投票机制（... [打印本页]

作者: 变相怪杰 时间: 2015-2-3 23:32
标题: ASP网页设计若何利用ASP在本人的网站创立投票机制（...
帮助用户快速实现各种应用服务，ASP商有整合各方面资源的能力，可在短期内为用户提供所需的解决方案。例如，典型的ERP安装，如果要在客户端安装的话需要半年到二年的时间，但是美国的一些ASP商如USI和CORIO能在90—120天内提供ERP应用方案。 Batman 翻译收拾整顿

一个很不错的创立本人的投票体系的ASP法式人人细心读读，只需可以了解两头的关头手艺，就可以够在本人的网站上创立本人的投票站了。文件收拾整顿得很仓皇，但愿人人体谅。
版权一切：
ASP Polls
version 1.0
Tipped Cow Development and Adrenalin Labs
布局复杂引见：
ACCESS数据库设计布局：
poll表次要字段称号：PollName,PollCreator,PollQuestion,Password,Choice1,Choice2
Choice3,Choice4,Choice5,ID(主动编号)，GetName
pollresults表字段：PollID,PollAnswer,Name
1.文件db.inc
<%
Application("ASP_Poll") = "ASP_Poll"
   cnString = "DRIVER={Microsoft Access Driver (*.mdb)}; "
   cnString = cnString & "DBQ=" & Server.MapPath("Events.mdb")
   Application("ASPPollDSN") = cnString
%>
1.文件creat_poll1.asp
<% Title="Poll Generator" %>
<head> <link rel="STYLESHEET" type="text/css" href="style.css">
<title><%=Title%></title>
</head>
<body>
<div align="left"><img src="http://edu.cnzz.cn/NewsInfo/asp_poll.gif" width="231" height="90"><br>Another joint product from <a href="http://www.ncws.com/tippycow">Tipped Cow Development</a> and <a href="http://dstoflet.calweb.com">Adrenalin Labs</a>
<br><br>
</div>
<center>

<%
Response.Write "<font face='arial'>"
If Request("errormessage") <> "" Then
   Response.Write "<b>Error! </b>" & Request("errormessage")
Else
   Response.Write "Please complete the form below to begin creating your own poll."
End If
%>

<br><br>
<table border=2 cellspacing=0 cellpadding=0><tr><td>
<form method="post" action="create_poll2.asp">

<table border=0 cellspacing=0 cellpadding=10 width=500><tr>
  <td colspan=2 bgcolor=#000000 align=center class="bold2">
Enter Your Name as the Poll Creator
  </td>
</tr><tr>
  <td bgcolor=#ffffff width=25% class="bold">Poll Creator:</td>
  <td bgcolor=#ffffff>
<input type="text" name="creator" value="<%=Request("creator")%>" size=20 class="input">
  </td>
</tr>
</table>

</td></tr>
<tr><td>

<table border=0 cellspacing=0 cellpadding=10 width=500><tr>
  <td colspan=2 bgcolor=#000000 align=center class="bold2">
Create a Password For Your Poll So That You Can Modify It At A
Later Time
  </td>
</tr><tr>
  <td bgcolor=#ffffff width=25% class="bold">Poll Admin Password:</td>
  <td bgcolor=#ffffff>
<input type="password" name="password" value="<%=Request("password")%>" size=10 maxlength=10 maxsize=10 class=input>
  </td>
</tr>
</table>

</td></tr>
<tr><td>

<table border=0 cellspacing=0 cellpadding=10 width=500><tr>
  <td colspan=2 bgcolor=#000000 align=center class="bold2">
Give Your Poll a Unique Name
  </td>
</tr><tr>
  <td  bgcolor=#ffffff width=25% class="bold">Poll Name:</td>
  <td bgcolor=#ffffff>
<input type="text" name="name" value="<%=Request("name")%>" size=20 class=input>
  </td>
</tr>
</table>

<table border=0 cellspacing=0 cellpadding=10 width=500><tr>
  <td colspan=2 bgcolor=#000000 align=center class="bold2">
Do you want to have the user enter their name?
  </td>
</tr><tr>
  <td  bgcolor=#ffffff width=25% class="bold">Require user to enter their name:</td>
  <td bgcolor=#ffffff class="bold">
Yes<input type="radio" name="GetName" value="1"><br>
No <input type="radio" name="GetName" value="0" CHECKED>
  </td>
</tr>
</table>

</td></tr>
<tr><td>

<table border=0 cellspacing=0 cellpadding=10 width=500><tr>
  <td colspan=3 bgcolor=#000000 align=center class="bold2">
Select Poll Type
  </td>
</tr><tr>

  <td colspan=2 bgcolor=#ffffff class="bold">What type of poll question
  do you wish to create?</td>
  <td bgcolor=#ffffff class="bold">
<input type="radio" name="polltype" value="yes_no">Yes/No<br>
<input type="radio" name="polltype" value="multiple_choice">Multiple Choice<br>
  </td>
</tr>
</table>
</td></tr></table>
<table width=500><tr>
  <td colspan=3 align=right>
<input type="submit" value=" Next " class="inline">
  </td></tr>
</table>

</center>
</body>
</html>
3.文件connect.asp
<%
id = Request("id")
If id = "" Then
   id = 0
End If
num = Request("choice")

If num <> "" Then

      Set conn = Server.CreateObject("ADODB.Connection")
   dsnpath = "DRIVER={MICROSOFT ACCESS DRIVER (*.mdb)}; "
   dsnpath = dsnpath & "DBQ=" & Server.MapPath("Events.mdb")
   conn.open dsnpath
      Set rs = Server.CreateObject("ADODB.RecordSet")
      rs.Open "PollResults", conn, 3, 3
      rs.AddNew
      rs("PollID") = Cint(id)
      rs("Name") = Request("Name")
      rs("PollAnswer") = Cint(num)
      rs.Update
      rs.Close
      set rs = Nothing
      conn.Close
      set conn = Nothing
End If

If Request("return_page") <> Empty Then
      Response.Cookies("PollID") = id
      Response.Redirect Request("return_page")
End If
%>

<html>
<body bgcolor="#4f4f4f" text="#c0c0c0" link=#f5fcdc vlink=#f5fcdc>
<center>

<% If num <> "" Then %>
<br><br>
<table border=0 cellspacing=0 cellpadding=0><tr>

  <td colspan=3 align=center><font face="verdana">
Your selection has been recorded.
  </td></tr>
</table>

<% End If %>
<br><br>
<%

Set conn = Server.CreateObject("ADODB.Connection")
sql = "select * from Poll where ID = " & Cint(id)
dsnpath = "DRIVER={MICROSOFT ACCESS DRIVER (*.mdb)}; "
dsnpath = dsnpath & "DBQ=" & Server.MapPath("Events.mdb")
conn.open dsnpath
Set rs = Conn.Execute(sql)
If rs.EOF = False Then
%>
  <table border=1 cellspacing=0 cellpadding=5 width=500 bordercolor=#2f2f4f><tr>
  <td colspan=3 bgcolor=#2f2f4f align=center><font face="verdana" color=#f5fcdc>
<%=rs("PollQuestion")%>
  </td></tr>
<%
   Dim Choices(6)
   Dim Responses(6)
   For I=1 To 5
      choice = rs("Choice" & I)
      Choices(I) = choice
      If choice <> "" Then
            Set conn2 = Server.CreateObject("ADODB.Connection")
            sql = "select COUNT(PollAnswer) from PollResults where PollID = " & Cint(id) & " AND PollAnswer=" & I
         dsnpath = "DRIVER={MICROSOFT ACCESS DRIVER (*.mdb)}; "
            dsnpath = dsnpath & "DBQ=" & Server.MapPath("Events.mdb")
            conn2.open dsnpath
            Set rs2 = Conn.Execute(sql)
            If rs2.EOF = False Then
               Response.Write "<tr><td colspan=2 bgcolor=#4f4f4f align=center width=400><font face='verdana' color=#f5fcdc>"
               Response.Write choice
               Response.Write "</td>"
               Responses(I) = rs2(0)
               Response.Write "<td colspan=1 bgcolor=#4f4f4f align=right><font face='verdana' color=#f5fcdc><b>" & rs2(0) & "</b></td>"
               Response.Write "</tr>"
            End If
            rs2.Close
            conn2.Close
      End If
   Next
End If
%>

</table>

<br><br>

<table >
<td colspan=3  align=center><font face="arial">
<font face="ms sans serif"><b> Polls Results</b></font>
  </td></tr>

<%
   Total = 0
   For I=1 To 5
      responseCount = Responses(I)
      If responseCount <> "" Then
               Total = Total + Cint(responseCount)
      End If
   Next
   For I=1 To 5
      choice = Choices(I)
      responseCount = Responses(I)
      If choice <> "" Then
               Response.Write "<tr><td colspan=1 align=left><font face='arial'>"
               Response.Write choice
               Response.Write "</td>"
               Response.Write "<td colspan=2 width=400><table border=1 cellspacing=0><tr><td bgcolor=blue align=center width=" & ConvertToPix(responseCount) & "><font face='ms sans serif' color=white><b>" & ConvertToPercent(responseCount) & "</td></tr></table></td>"
               Response.Write "</tr>"
      End If
   Next

   Function ConvertToPix(sz)
         If sz = 0 Then
               ConvertToPix = 0
         Else
               ConvertToPix = Cint(400/Total * sz)
         End If
   End Function

   Function ConvertToPercent(sz)
         If sz = 0 Then
               ConvertToPercent = "0%"
         Else
               ConvertToPercent = FormatPercent(sz/Total, 2)
         End If
   End Function

%>

</table>

<% If num = "" Then %>
<br><br>
<table border=0 cellspacing=0 cellpadding=0><tr>

  <td colspan=3 align=center><font face="verdana">
<a href="default.asp?ID=<%=id%>">Add Your Vote</a>
  </td></tr>
</table>

<% End If %>

<br><br>
<table width=100%><tr><td align=right>
<table border=1 cellpadding=5 cellspacing=0 bordercolor=#f5fcdc><tr><td bgcolor=#2f2f4f>
<font face='verdana' size=+1><a href='javascript:history.back()'>Back</a>
</td></tr></table>
</td></tr></table>

</center>
</body>
</html>
asp可以使用微软的activeX 使得网页功能无比强大，不过安全性也较差，而且是基于的windows服务器，所以性能稳定性也一般

作者: 再见西城 时间: 2015-2-4 01:56
以HTML语言整合(HTML负责界面上，ASP则负责功能上)形成一个B/S(浏览器/服务器)模式的网页程序。

作者: 再现理想 时间: 2015-2-7 19:03
作为IE上广为流传的动态网页开发技术,ASP以它简单易学博得了广大WEB程序爱好这的青睐,而且它对运行环境和开发品台的不挑剔,以及有大量有效的参考手册,极大的推广了它的发展。

作者: 乐观 时间: 2015-2-10 07:53
它可通过内置的组件实现更强大的功能，如使用A-DO可以轻松地访问数据库。

作者: 若天明 时间: 2015-3-1 03:33
兴趣爱好，那么你无须学编程，申请一个域名和空间，在网上下载一些免费开源的CMS系统，你不用改代码，只须熟悉它们的后台操作，像office一样简单方便，很快就能建一个站点，很多站长都是这样做的

作者: 第二个灵魂 时间: 2015-3-10 12:26
我们必须明确一个大方向，不要只是停留在因为学而去学,我们应有方向应有目标.

作者: 只想知道 时间: 2015-3-15 08:38
下面简单介绍一下我学习ASP的方法,希望对想学习ASP的朋友有所帮助...

作者: 变相怪杰 时间: 2015-3-27 18:09
我可以结合自己的经验大致给你说一说，希望对你有所帮助，少走些弯路。

作者: 灵魂腐蚀 时间: 2015-4-5 01:07
我可以结合自己的经验大致给你说一说，希望对你有所帮助，少走些弯路。

作者: 莫相离 时间: 2015-4-12 15:41
兴趣爱好，那么你无须学编程，申请一个域名和空间，在网上下载一些免费开源的CMS系统，你不用改代码，只须熟悉它们的后台操作，像office一样简单方便，很快就能建一个站点，很多站长都是这样做的

作者: 若相依 时间: 2015-4-16 11:36
作为IE上广为流传的动态网页开发技术,ASP以它简单易学博得了广大WEB程序爱好这的青睐,而且它对运行环境和开发品台的不挑剔,以及有大量有效的参考手册,极大的推广了它的发展。

作者: 小女巫 时间: 2015-4-26 12:03
还有如何才能在最短的时间内学完?我每天可以有效学习2小时，双休日4小时。

作者: 不帅 时间: 2015-4-28 02:01
Response:从字面上讲是“响应”，因此这个是服务端向客户端发送东西的，例如Response.Write

作者: admin 时间: 2015-5-1 06:14
多看多学多思。多看一些关于ASP的书籍，一方面可以扩展知识面一方面可以鉴借别人是如何掌握、运用ASP的;多学善于关注别人，向同学老师多多学习，不论知识的大小;多思则是要将学到的知识灵活运用。

作者: 飘飘悠悠 时间: 2015-6-10 06:38
如何更好的使自己的东西看上去很不错等等。其实这些都不是问题的实质，我们可以在实践中不断提升自己，不断充实自己。

作者: 深爱那片海 时间: 2015-6-13 21:22
ASP也是这几种脚本语言中最简单易学的开发语言。但ASP也是这几种语言中唯一的一个不能很好支持跨平台的语言。　　因为ASP脚本语言非常简单，因此其代码也简单易懂，结合HTML代码，可快速地完成网站的应用程序。

作者: 金色的骷髅 时间: 2015-6-17 03:22
先学习用frontpage熟悉html编辑然后学习asp和vbscript建议买书进行系统学习

作者: 因胸联盟 时间: 2015-6-21 20:33
交流是必要的，不管是生活还是学习我们都要试着去交流，通过交流我们可以学到很多我们自己本身所没有的知识，可以分享别人的经验甚至经历。

作者: 冷月葬花魂 时间: 2015-6-28 08:47
最近在学asp，不要问我为什么不直接学.net，因为公司网站是asp做的所以有这个需要，卖了本书asp入门到精通，对里面的六大内置对象老是记不住，还有很多属性和方法看的头晕。

作者: 透明 时间: 2015-7-8 02:44
ASP也是这几种脚本语言中最简单易学的开发语言。但ASP也是这几种语言中唯一的一个不能很好支持跨平台的语言。　　因为ASP脚本语言非常简单，因此其代码也简单易懂，结合HTML代码，可快速地完成网站的应用程序。

欢迎光临仓酷云 (http://ckuyun.com/)