一个投票系统的源程序(coveryourasp.com)
一个投票系统的源程序(coveryourasp.com),一个投票系统的源程序(coveryourasp.com)
<!--#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) james@CoverYourASP.com--
// (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 ( '<pOf 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 ( '<pTake 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 ( '<pAfterwards, 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="http://img.jcwcn.com/attachment/portal/jcwcj/2005-12/10/05121001170093906.gif"" align="right"
border=0</aPlease 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="http://img.jcwcn.com/attachment/portal/jcwcj/2005-12/10/05121001170093906.gif""
border=0</a</center' );
Out ( '</td' );
&nb