|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
只要你想学,就没什么优缺点,上面那位大哥已经把网上的评论说了,但我认为想学哪个都一样,不然它就不可能在当今时代数字艺术方面存活到今天投票怎样利用ASP在本人的网站创建投票机制(一)
翻译收拾
一个很不错的创建本人的投票体系的ASP程序人人细心读读,只需可以了解两头的关头手艺,就可以够在本人的网站上创建本人的投票站了。文件收拾得很仓皇,但愿人人体谅。
版权一切:
ASPPolls
version1.0
TippedCowDevelopmentandAdrenalinLabs
布局复杂先容:
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={MicrosoftAccessDriver(*.mdb)};"
cnString=cnString&"DBQ="&Server.MapPath("Events.mdb")
Application("ASPPollDSN")=cnString
%>
1.文件creat_poll1.asp
<%Title="PollGenerator"%>
<head><linkrel="STYLESHEET"type="text/CSS"href="style.css">
<title><%=Title%></title>
</head>
<body>
<divalign="left"><imgsrc=http://www.163design.net/a/y/"asp_poll.gif"width="231"height="90"><br>Anotherjointproductfrom<ahref="http://www.ncws.com/tippycow">TippedCowDevelopment</a>and<ahref="http://dstoflet.calweb.com">AdrenalinLabs</a>
<br><br>
</div>
<center>
<%
Response.Write"<fontface=arial>"
IfRequest("errormessage")""Then
Response.Write"<b>Error!</b>"&Request("errormessage")
Else
Response.Write"Pleasecompletetheformbelowtobegincreatingyourownpoll."
EndIf
%>
<br><br>
<tableborder=2cellspacing=0cellpadding=0><tr><td>
<formmethod="post"action="create_poll2.asp">
<tableborder=0cellspacing=0cellpadding=10width=500><tr>
<tdcolspan=2bgcolor=#000000align=centerclass="bold2">
EnterYourNameasthePollCreator
</td>
</tr><tr>
<tdbgcolor=#ffffffwidth=25%class="bold">PollCreator:</td>
<tdbgcolor=#ffffff>
<inputtype="text"name="creator"value="<%=Request("creator")%>"size=20class="input">
</td>
</tr>
</table>
</td></tr>
<tr><td>
<tableborder=0cellspacing=0cellpadding=10width=500><tr>
<tdcolspan=2bgcolor=#000000align=centerclass="bold2">
CreateaPasswordForYourPollSoThatYouCanModifyItAtA
LaterTime
</td>
</tr><tr>
<tdbgcolor=#ffffffwidth=25%class="bold">PollAdminPassword:</td>
<tdbgcolor=#ffffff>
<inputtype="password"name="password"value="<%=Request("password")%>"size=10maxlength=10maxsize=10class=input>
</td>
</tr>
</table>
</td></tr>
<tr><td>
<tableborder=0cellspacing=0cellpadding=10width=500><tr>
<tdcolspan=2bgcolor=#000000align=centerclass="bold2">
GiveYourPollaUniqueName
</td>
</tr><tr>
<tdbgcolor=#ffffffwidth=25%class="bold">PollName:</td>
<tdbgcolor=#ffffff>
<inputtype="text"name="name"value="<%=Request("name")%>"size=20class=input>
</td>
</tr>
</table>
<tableborder=0cellspacing=0cellpadding=10width=500><tr>
<tdcolspan=2bgcolor=#000000align=centerclass="bold2">
Doyouwanttohavetheuserentertheirname?
</td>
</tr><tr>
<tdbgcolor=#ffffffwidth=25%class="bold">Requireusertoentertheirname:</td>
<tdbgcolor=#ffffffclass="bold">
Yes<inputtype="radio"name="GetName"value="1"><br>
No<inputtype="radio"name="GetName"value="0"CHECKED>
</td>
</tr>
</table>
</td></tr>
<tr><td>
<tableborder=0cellspacing=0cellpadding=10width=500><tr>
<tdcolspan=3bgcolor=#000000align=centerclass="bold2">
</p>减少客户内IT专业人才缺乏带来的影响。ASP的客户员工利用浏览器进入相关的应用软件,简单易用,无需专业技术支持。 |
|