login  Naam:   Wachtwoord: 
Registreer je!
 Scripts:
Scripts > ASP > Poll/Stem systemen > ASP Poll(zonder db)

ASP Poll(zonder db)

Auteur: tomk - 19 november 2004 - 15:28 - Gekeurd door: Dennisvb - Hits: 5084 - Aantal punten: 2.50 (9 stemmen)




ik heb een poll gemaakt met asp. Ik zal effe uitleggen hoe je het moet installeren.
Open eerst met dreamweaver of kladblok of een ander programma password.asp. Daar verander je het password wat er staat in je eigen password. ( standaart pass is : password). Creëer een geroepen omslag "poll" in de zelfde omslag van uw Webruimte zoals de pagina (s) waarop u de opiniepeiling wilt verschijnen. Bijvoorbeeld, als u de opiniepeiling op http://www.yourdomain.com wilt verschijnen toen riep de omslag "poll" http://www.mydomain.com/poll. uploaden de elk van ASP pagina's en GIF- beelddossiers in dit zip archief aan de geroepen omslag "poll" zal bedragen. Er is geen db voor nodig. Dus je kan hem bijv gewoon op brinkster draaien. Je moet style effe aanpassen en een afbeelding maken genaamd bar1.gif.
Als er nog vragen zijn moet je mij maar even een pm sturen

Code:
php code - Bekijk de code zonder highlighting - Klap code in 
  1. +++Logout.asp+++
  2. <%   
  3.  
  4. %><%
  5.  
  6. Response.Buffer = True
  7.  
  8. Session("loggedin") = "false"
  9.  
  10. Response.Redirect "default.asp"
  11.  
  12. %>
  13. +++pollstyle.css+++
  14. body {
  15. background-color : #ffffff; 
  16. margin : 0px;
  17. } 
  18. .titlebar {
  19. background-color : #5895d0; 
  20. padding : 2px; 
  21. border-bottom : 1px solid #303090;
  22. } 
  23. .navbar {
  24. background-color : #5894d0; 
  25. padding : 4px; 
  26. border-bottom : 1px solid #303090; 
  27. text-align : right; 
  28. font-family : verdana, arial, helvetica, monaco, sans-serif; 
  29. font-size : 12px; 
  30. color : #ffffff; 
  31. background-color : 5895d0;
  32. } 
  33. a.nav {
  34. color : #ffffff; 
  35. background-color : transparent;
  36. } 
  37. a.nav:hover {
  38. font-family : verdana, arial, helvetica, monaco, sans-serif; 
  39. font-size : 12px; 
  40. color : #ffffff; 
  41. background-color : transparent; 
  42. text-decoration : underline;
  43. } 
  44. .normal {
  45. font-family : verdana, arial, sans=serif; 
  46. font-size : 12px; 
  47. color : #000000; 
  48. backgroud-color : transparent; 
  49. margin : 8px;
  50. } 
  51. .warning {
  52. font-family : verdana, arial, sans=serif; 
  53. font-size : 12px; 
  54. color : #d03030; 
  55. backgroud-color : transparent; 
  56. margin : 8px;
  57. } 
  58. .header {
  59. font-family : trebuchet ms, verdana, arial, sans=serif; 
  60. font-size : 20px; 
  61. color : #303090; 
  62. backgroud-color : transparent; 
  63. margin : 8px;
  64. } 
  65. a {
  66. color : #303090; 
  67. background-color : transparent;
  68. } 
  69. form {
  70. margin : 0px;
  71. }
  72. +++vote.asp+++
  73. <%   
  74.  
  75. %><!--#include file ="variables.asp"-->
  76.  
  77. <%
  78. If Request.Cookies("voted") = question Then
  79.  
  80. 'find which is the largest number of votes
  81. Dim mostvotes
  82. mostvotes = 0
  83. For i = 1 to 8
  84. If mostvotes < votes(i) Then
  85. mostvotes = votes(i)
  86. End If
  87. Next
  88.  
  89. 'calculate the total number of votes
  90. Dim totalvotes
  91. totalvotes = 0
  92. For i = 1 to 8
  93. totalvotes = totalvotes + votes(i)
  95. %>
  96.  
  97. <div class="question"><% Response.Write(question) %></div>
  98.  
  99. <%
  100. For i = 1 to 8
  101. If responses(i) <> "" Then
  102. %>
  103.  
  104. <div class="responsetwo"><% Response.Write(responses(i)) %></div>
  105.  
  106. <div class="barline">
  107. 	<%
  108. 	If votes(i) <> 0 Then
  109. 	%>
  110. 	<img src="poll/bar1.gif" height="11" width="<%
  111. 	Response.Write(Round((votes(i) / mostvotes * 150),0))
  112. 	%>" alt="" />&nbsp;<%
  113. 	Response.Write(Round((votes(i) / totalvotes * 100),0) & "%")%>
  114.  
  115. 	<%
  116. 	Else
  117. 	%>0%
  118. 	<%
  119. 	End If
  120. 	%>
  121. </div>
  122.  
  123. <%
  124. End If
  126.  
  127. %>
  128.  
  129. <div class="responses">Total number of votes: <% Response.Write(totalvotes) %></div>
  130.  
  131. <%
  132. Else
  133. %>
  134.  
  135. <div class="question"><% Response.Write(question) %></div>
  136.  
  137. <form class="votingform" action="poll/processvote.asp" method="post">
  138.  
  139. <%
  140. For i = 1 to 8
  141. If responses(i) <> "" Then
  142. %>
  143. <div class="responses"><input type="radio" name="vote" value="<% Response.Write(i) %>" /> <% Response.Write(responses(i)) %></div>
  144. <%
  145. End If
  147. %>
  148.  
  149. <input type="hidden" name="referrer" value="<% Response.Write("http://" & Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("SCRIPT_NAME")) %>" />
  150.  
  151. <div class="responses"><input type="submit" value="Vote" class="votebutton" />&nbsp;&nbsp;<a href="poll/results.asp" target="_blank">View Results</a></div>
  152.  
  153. </form>
  154.  
  155. <%
  156. End If
  157. %>
  158. +++default.asp+++(login en admin)
  159. <%   
  160.  
  161. %><!--#include file="password.asp"--><%
  162.  
  163. ' check if page is being reloaded after password submit
  164. If Request.Form("password") <> "" Then
  165.  
  166. ' verify password
  167. If Request.Form("password") = password Then
  168.  
  169. Session("loggedin") = "true"
  170. Response.Redirect "newpoll.asp"
  171.  
  172. End If
  173.  
  174. End If
  175.  
  176. %>
  177. <html>
  178. <head>
  179. <title> - Log in</title>
  180. <link rel="stylesheet" type="text/css" href="pollbuddy.css" />
  181.  
  182. </head>
  183. <body>
  184. <div class="titlebar"><img src="pollbuddy.gif" width="142" height="33" border="0" align="middle" alt="PollBuddy" /></div>
  185.  
  186. <form action="default.asp" method="post">
  187. <div class="header">Log in</div>
  188. <div class="normal">Password: <input type="password"  name="password" /> <input type="submit" value="Log in" /></div>
  189. </form>
  190.  
  191. <% 
  192. If Request.Form("password") <> "" Then
  193. If Request.Form("password") <> password Then
  194. %>
  195. <div class="warning">The password you entered was incorrect.</div>
  196. <%
  197. End If
  198. End If
  199. %>
  200.  
  201. <div class="normal" align="right">Copyright &copy; 2002 <a href="http://www.blogtastic.com">Benjamin James</a></div>
  202.  
  203. </body>
  204. </html>
  205. +++newpoll.asp+++
  206. <%   
  207.  
  208. %><%
  209.  
  210. 'check user is logged in
  211.  
  212. If Session("loggedin") = "true" Then
  213.  
  214.    %>
  215.    <html>
  216.    <head>
  217.    <title>PollBuddy - Create new poll</title>
  218.    <link rel="stylesheet" type="text/css" href="pollbuddy.css" />
  219.    </head>
  220.    <body>
  221.  
  222.    <table width="100%" cellpadding="0" cellspacing="0" border="0">
  223.    <tr>
  224.        <td class="titlebar"><img src="pollbuddy.gif" width="142" height="33" border="0" align="middle" alt="PollBuddy" /></td>
  225.        <td class="navbar"><a href="results.asp" class="nav" target="_blank">view results</a> | <a href="logout.asp" class="nav">log out</a></td>
  226. 	   </tr>
  227. 	   </table>
  228.  
  229. 	   <div class="header">Create new poll</div>
  230.  
  231. 	   <%
  232.  
  233. 	   ' check if pages is being reloaded after new poll form submit
  234. 	   If Request.Form("question")<>"" Then
  235.  
  236. 	   'create a variable for the poll question
  237. 	   Dim question
  238. 	   question = Request.Form("question")
  239.  
  240. 	   'create an array for the response strings
  241. 	   Dim responses(8)
  242.  
  243. 	   'add the response strings to the array
  244. 	   responses(1) = Request.Form("response1")
  245. 	   responses(2) = Request.Form("response2")
  246. 	   responses(3) = Request.Form("response3")
  247. 	   responses(4) = Request.Form("response4")
  248. 	   responses(5) = Request.Form("response5")
  249. 	   responses(6) = Request.Form("response6")
  250. 	   responses(7) = Request.Form("response7")
  251. 	   responses(8) = Request.Form("response8")
  252.  
  253. 	   'replace characters that might cause errors on the javascript voting form
  254. 	   question = replace(question,"/","&#47;")
  255. 	   question = replace(question,"'","&#39;")
  256. 	   question = replace(question,"""","&#34;")
  257.  
  258. 	   For i = 1 to 8
  259. 	   responses(i) = replace(responses(i),"/","&#47;")
  260. 	   responses(i) = replace(responses(i),"'","&#39;")
  261. 	   responses(i) = replace(responses(i),"""","&#34;")
  263.  
  264. 	   'create an array for the number of votes
  265. 	   Dim votes(8)
  266.  
  267. 	   'set all votes to zero
  268. 	   For i = 1 to 8
  269. 	   votes(i) = 0
  271.  
  272. 	   'open the file variables.asp
  273. 	   Set FS=Server.CreateObject("Scripting.FileSystemObject")
  274. 	   Set RS=FS.OpenTextFile(Server.MapPath("variables.asp"), 2, False)
  275.  
  276. 	   'write in the new variables
  277. 	   RS.WriteLine("<" & "%")
  278. 	   RS.WriteLine("Dim question, responses(8), votes(8)")
  279. 	   RS.WriteLine("question = """ & question & """")
  280. 	   For i = 1 to 8
  281. 	   RS.WriteLine("responses(" & i & ") = """ & responses(i) & """")
  282. 	   RS.WriteLine("votes(" & i & ") = " & votes(i))
  284. 	   RS.WriteLine("%" & ">")
  285.  
  286. 	   RS.Close
  287. 	   Set RS=Nothing
  288. 	   Set FS=Nothing
  289.  
  290. 	   %>
  291.  
  292. 	   <div class="normal">New poll created. The variables you entered are as follows:</div>
  293.  
  294. 	   <div class="normal"><b><% Response.Write(question) %></b></div>
  295. 	   <%
  296. 	   For i = 1 to 8
  297. 	   If responses(i) <> "" Then
  298. 	   %>
  299. 	   <div class="normal"><% Response.Write(responses(i)) %></div>
  300.  
  301. 	   <%
  302. 	   End if
  304. 	   %>
  305. 	   <br />
  306. 	   <div class="normal"><a href="javascript:history.back()">Click here</a> to go back.</div>
  307.  
  308. 	   <div class="normal" align="right">Copyright &copy; 2002 <a href="http://www.blogtastic.com">Benjamin James</a></div>
  309.  
  310. 	   <%
  311. 	   Else
  312. 	   %>
  313.  
  314.  
  315. 	  <form action="newpoll.asp" method="post">
  316. 	  <table>
  317. 	  <tr>
  318. 	  	<td align="right"><div class="normal"><b>Question:</b></div></td>
  319. 		<td><input type="text" name="question" /></td>
  320. 	  </tr>
  321. 	  <% For i = 1 to 8 %>
  322. 	  <tr>
  323. 	  	<td align="right"><div class="normal">Response <% Response.Write(i) %>:</div></td>
  324. 			<td><input type="text" name="response<% Response.Write(i) %>" /></td>
  325. 	  </tr>
  326. 	  <% Next %>
  327. 	  </table>
  328. 	  <div class="normal"><input type="reset" value="Clear" /> <input type="submit" value="Create Poll" /></div>
  329. 	  </form>
  330.  
  331. 	  <div class="normal" align="right">Copyright &copy; 2002 <a href="http://www.blogtastic.com">Benjamin James</a></div>
  332.  
  333. 	  </body>
  334. 	  </html>
  335.  
  336. 	  <%
  337. 	  End If
  338.  
  339. Else
  340.  
  341. 	  Response.Redirect "default.asp"
  342.  
  343. End If
  344.  
  345. %>
  346.  
  347. +++results.asp+++
  348. <html>
  349. <head>
  350. <title> - Results</title> Results</title>
  351. <style type="text/css"> 
  352. body {
  353. margin : 12px; 
  354. color : #000000; 
  355. background-color : #ffffff;
  356. } 
  357. .question {
  358. font-family : arial, helvetica, monaco, sans-serif; 
  359. font-size : 13px; 
  360. font-weight : bold; 
  361. color : #303090; 
  362. background-color : transparent; 
  363. margin-left : 0px; 
  364. margin-right : 0px; 
  365. margin-top : 8px; 
  366. margin-bottom : 8px;
  367. } 
  368. .responses {
  369. font-family : arial, helvetica, monaco, sans-serif; 
  370. font-size : 12px; 
  371. font-weight : bold; 
  372. color : #000000; 
  373. background-color : transparent; 
  374. margin-left : 0px; 
  375. margin-right : 0px; 
  376. margin-top : 4px; 
  377. margin-bottom : 4px;
  378. } 
  379. .percent {
  380. font-family : arial, helvetica, monaco, sans-serif; 
  381. font-size : 12px; 
  382. color : #000000; 
  383. background-color : transparent; 
  384. margin-left : 0px; 
  385. margin-right : 0px; 
  386. margin-top : 4px; 
  387. margin-bottom : 4px;
  388. } 
  389. .totalvotes {
  390. font-family : arial, helvetica, monaco, sans-serif; 
  391. font-size : 12px; 
  392. color : #000000; 
  393. background-color : transparent; 
  394. margin-left : 0px; 
  395. margin-right : 0px; 
  396. margin-top : 8px; 
  397. margin-bottom : 8px;
  398. } 
  399. </style>
  400. <!--#include file ="variables.asp"-->
  401. <%
  402.  
  403. 'find which is the largest number of votes
  404. Dim mostvotes
  405. mostvotes = 0
  406. For i = 1 to 8
  407. If mostvotes < votes(i) Then
  408. mostvotes = votes(i)
  409. End If
  410. Next
  411.  
  412. 'calculate the total number of votes
  413. Dim totalvotes
  414. totalvotes = 0
  415. For i = 1 to 8
  416. totalvotes = totalvotes + votes(i)
  418. %>
  419. </head>
  420. <body>
  421. <div class="question"><% Response.Write(question) %></div>
  422. <table>
  423. <%
  424. For i = 1 to 8
  425. If responses(i) <> "" Then
  426. %>
  427. <tr>
  428. 	<td align="right"><div class="responses"><% Response.Write(responses(i)) %></div></td>
  429. 	<td>
  430. 	<div class="percent">
  431. 	<%
  432. 	If votes(i) <> 0 Then
  433. 	%>
  434. 	<img src="bar1.gif" height="11" width="<%
  435. 	Response.Write(Round((votes(i) / mostvotes * 150),0))
  436. 	%>" alt="" />&nbsp;<%
  437. 	Response.Write(Round((votes(i) / totalvotes * 100),0) & "%")
  438. 	Else
  439. 	%> 0%
  440. 	<%
  441. 	End If
  442. 	%>
  443. 	</div>
  444. 	</td>
  445. </tr>
  446. <%
  447. End If
  449. %>
  450. </table>
  451. <div class="totalvotes">Total number of votes: <% Response.Write(totalvotes) %></div>
  452. </body>
  453. </html>
  454. +++vote_js.asp+++
  455. <%   
  456.  
  457. %><!--#include file ="variables.asp"-->
  458.  
  459. <%
  460. If Request.Cookies("voted") = question Then
  461.  
  462. 'find which is the largest number of votes
  463. Dim mostvotes
  464. mostvotes = 0
  465. For i = 1 to 8
  466. If mostvotes < votes(i) Then
  467. mostvotes = votes(i)
  468. End If
  469. Next
  470.  
  471. 'calculate the total number of votes
  472. Dim totalvotes
  473. totalvotes = 0
  474. For i = 1 to 8
  475. totalvotes = totalvotes + votes(i)
  477. %>
  478.  
  479. document.writeln('<div class="question"><% Response.Write(question) %><\/div>')
  480.  
  481. <%
  482. For i = 1 to 8
  483. If responses(i) <> "" Then
  484. %>
  485.  
  486. document.writeln('<div class="responsetwo"><% Response.Write(responses(i)) %><\/div>')
  487.  
  488. document.writeln('<div class="barline">')
  489. 	<%
  490. 	If votes(i) <> 0 Then
  491. 	%>
  492. 	document.writeln('<img src="poll\/bar1.gif" height="11" width="<%
  493. 	Response.Write(Round((votes(i) / mostvotes * 100),0))
  494. 	%>" alt="" \/>&nbsp;<%
  495. 	Response.Write(Round((votes(i) / totalvotes * 100),0) & "%")%>')
  496.  
  497. 	<%
  498. 	Else
  499. 	%> document.writeln('0%')
  500. 	<%
  501. 	End If
  502. 	%>
  503. document.writeln('<\/div>')
  504.  
  505. <%
  506. End If
  508.  
  509. %>
  510.  
  511. document.writeln('<div class="menutext">Total number of votes: <% Response.Write(totalvotes) %><\/div>')
  512.  
  513. <%
  514. Else
  515. %>
  516.  
  517. document.writeln('<div class="question"><% Response.Write(question) %><\/div>')
  518.  
  519. document.writeln('<form class="votingform" action="poll\/processvote.asp" method="post">')
  520.  
  521. <%
  522. For i = 1 to 8
  523. If responses(i) <> "" Then
  524. %>
  525. document.writeln('<div class="responses"><input type="radio" name="vote" value="<% Response.Write(i) %>" \/> <% Response.Write(responses(i)) %><\/div>')
  526. <%
  527. End If
  529.  
  530. %>
  531.  
  532. document.writeln('<input type="hidden" name="referrer" value="' + window.location + '" \/>')
  533.  
  534. document.writeln('<div class="responses"><input type="submit" value="Vote" class="votebutton" \/>&nbsp;&nbsp;<a href="poll\/results.asp" target="_blank">View Results</a><\/div>')
  535.  
  536. document.writeln('<\/form>')
  537.  
  538. <%
  539. End If
  540. %>
  541. +++password.asp+++
  542. <%   
  543.  
  544. %><%
  545. Dim password
  546. password="password"
  547. %>
  548. +++processvote.asp+++
  549. <%   
  550.  
  551. %><!--#include file="variables.asp"--><% 
  552.  
  553. Dim vote
  554. vote = Request.Form("vote")
  555.  
  556. If Request.Cookies("voted") <> question Then
  557. If vote <> "" Then
  558.  
  559. 'set a cookie to stop multiple votes
  560. Response.Cookies("voted") = question
  561. Response.Cookies("voted").Expires = DateAdd("d",30,date())
  562.  
  563. votes(vote) = votes(vote) + 1
  564.  
  565. 'open the file variables.asp
  566. Set FS=Server.CreateObject("Scripting.FileSystemObject")
  567. Set RS=FS.OpenTextFile(Server.MapPath("variables.asp"), 2, False)
  568.  
  569. 'write in the new variables
  570. RS.WriteLine("<" & "%")
  571. RS.WriteLine("Dim question, responses(8), votes(8)")
  572. RS.WriteLine("question = """ & question & """")
  573. For i = 1 to 8
  574. RS.WriteLine("responses(" & i & ") = """ & responses(i) & """")
  575. RS.WriteLine("votes(" & i & ") = " & votes(i))
  576. Next
  577. RS.WriteLine("%" & ">")
  578.  
  579. RS.Close
  580. Set RS=Nothing
  581. Set FS=Nothing
  582.  
  583. End If
  584. End If
  585.  
  586. Dim redirectURL
  587. redirectURL = Request.Form("referrer")
  588.  
  589. If redirectURL <> "" Then
  590.  
  591. Response.Redirect(redirectURL)
  592.  
  593. End If
  594.  
  595. %>
  596. +++variables.asp+++
  597. <%   
  598.  
  599. %><%
  600. Dim question, responses(8), votes(8)
  601. question = ""
  602. responses(1) = ""
  603. votes(1) = 0
  604. responses(2) = ""
  605. votes(2) = 0
  606. responses(3) = ""
  607. votes(3) = 0
  608. responses(4) = ""
  609. votes(4) = 0
  610. responses(5) = ""
  611. votes(5) = 0
  612. responses(6) = ""
  613. votes(6) = 0
  614. responses(7) = ""
  615. votes(7) = 0
  616. responses(8) = ""
  617. votes(8) = 0
  618. %>
Download code! Download code (.txt)

 Stemmen
Niet ingelogd.

 Reacties
Post een reactie
Lees de reacties (2)
© 2002-2024 Sitemasters.be - Regels - Laadtijd: 0.044s