当前位置: 首页 > 图文教程 > 网络编程 > ASP > 一个投票系统的源程序(coveryourasp.com)

ASP
网络寻呼机数据库版删除选中的消息deletemessage.asp
网络寻呼机数据库版隐藏文件watch.asp
网络寻呼机数据库版总结
一种在线人数统计方法(只用1个APPLICATION)
用ASP.NET构建完整E-mail发送系统
用ASP.NET建立简单的Web Form
为你的ASP程序制作一个编译组件(上)
为你的ASP程序制作一个编译组件(中)
为你的ASP程序制作一个编译组件(下)
利用ASP将HTML格式数据传输给Excel(1)
利用ASP将HTML格式数据传输给Excel(2)
利用ASP将HTML格式数据传输给Excel(3)
利用ASP将HTML格式数据传输给Excel(4)
磁盘ID在ASP源码防拷贝中的应用
WEB环境下打印报表的crystal的解决方案
如何把存储在数据库中的图片根据自己的需要的大小显示出来
客户端用ASP+rds+VBA参生报表
利用ASP.NET设计FTP文件上传(上)
利用ASP.NET设计FTP文件上传(中)
利用ASP.NET设计FTP文件上传(下)

ASP 中的 一个投票系统的源程序(coveryourasp.com)


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-11-03   浏览: 52 ::
收藏到网摘: n/a

  SurveyDescr.asp
<!--#include file = "include/Startup.asp"-->
<!--#include file = "utils/Survey.asp"-->

<%
// ============================================
// NOTE: all source code downloaded from CoverYourASP was written by
// James Shaw (unless stated otherwise), and is copyright (c) 2000 by
// James Shaw. You may use this source code on your web sites, but
// please don't publish or distribute in any way.
//
// I would appreciate an HTML comment in any code you use, i.e.
//         <!-- portions (c) [email protected]>
// (see Footer(), documented in SSI.asp for details on how to do this)
//
// <shameless plug>
//      Please contact me to discuss any ASP contract work you may have.
// </shameless plug>
// ============================================

// output relevant meta tags
Init( "Survey your readers" );

// output common top of page
Header( 'Survey your readers' );

// output page content
Content ( );

// output common bottom of page
Footer( );

// ============================================
// the content of this page - every page has a function 'Content' that
// is called above.
// ============================================
function Content ( )
{
   Out ( '<td colspan=2 width="80%" valign="top">' );

      // if the survey hasnt been submitted yet...
      if ( !Request.Form.Count )
      {
         //...display some blah, blah
         Out ( 'Finally, surveys come to CoverYourASP! I\'ve been wanting to ask you guys and gals
questions for a long time, and now I can. It\'s up to you if you want to answer of course!' );

         Out ( '<p>Of course, the real benefit to you is that if you tell me what you like I\'ll probably
provide it. If you send in your <a href="Donate.asp">donations</a> the probability increases rather
dramatically!' );

         Out ( '<p>Take the example survey below if you have the time and inclination. I plan to post more
in a special survey category, and start offering incentives to take them.' );

         Out ( '<p>Afterwards, look at the code. I think you\'ll be surprised how simple it is to create
surveys with this code. This page has one function call in it, with just one parameter - the name of the
survey! All questions, answers and results are stored in the database.' );
      }

      // show the survey, or process it's input
      ProcessSurvey ( 'Who are you and what do you think?' );

      if ( !Request.Form.Count )
         Out ( '<p><a href="ShowSource.asp?page=SurveyDescr"><img src="/upload/tech/20091103/20091103102618_6c524f9d5d7027454a783c841250ba71.gif"" align="right"
border=0></a>Please submit the survey first before looking at the source code - this link is on the result
page too!' );
      else
         Out ( '<p><center><a href="ShowSource.asp?page=SurveyDescr"><img src="/upload/tech/20091103/20091103102618_6c524f9d5d7027454a783c841250ba71.gif""
border=0></a></center>' );

   Out ( '</td>' );
 &nb