Hadi Anket Yapalım

db.asp diye kaydedin... Kod Alanı: db bağlantımızı yapıyoruz... <% Set Bag = Server.CreateObject("ADODB.Connection") Bag.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/db.mdb") Set Rs=Server.CreateObject("Adodb.Recordset") %> anket.asp diye kaydedin... Kod Alanı: <% Sorgu = "select * from anket " Rs.Open Sorgu, bag, 1, 3 %> <% if Request.Cookies("magnet")("anket")="oylandi" then ' cookie mizi alıyorz eğer cookiemizi önceden atmışsak response.write "Bu Anketi Daha Önce Oylamışsınız..." ' bu yazı çıkıyor end if %> <% if Request.Cookies("magnet")("anket") = "" then ' cookie mizi alıyorz eğer cookiemiz boş veya hiç yoksa anket çıkacak %>

<% if rs("alan1")="" then ' eğer alan1 yani 1. anketimiz boşsa response.write "" ' boş çıkartıyoruz ki adam boş yazdığında boş anket çıkmasın END İF %> <% if rs("alan1")<>"" then ' eğer boştan büyük veya küçükse yani bp değilse anketimizi yazdırıyoruz ' AYNI İŞLEMLER ALTTAKİLER İÇİNDE GEÇERLİ %> <% end if %> <% if rs("alan2")="" then response.write "" end if %> <% if rs("alan2")<>"" then %> <%end if%> <% if rs("alan3")="" then response.write "" end if %> <% if rs("alan3")<>"" then %> <%end if%> <% if rs("alan4")="" then response.write "" end if %> <% if rs("alan4")<>"" then %> <%end if%> <% if rs("alan5")="" then response.write "" end if %> <% if rs("alan5")<>"" then %> <%end if%>

<%=rs("soru")%>

"><%=rs("alan1")%>

"><%=rs("alan2")%>

"><%=rs("alan3")%>

"><%=rs("alan4")%>

"><%=rs("alan5")%>

<%end if%><% rs.close set rs=nothing bag.close set bag=nothing %>

Anket Sonuçları anket_oyla.asp diye kaydedin... Kod Alanı: <% id = request.querystring("id") Sorgu = "select * from anket " Rs.Open Sorgu, bag, 1, 3 %> <% Response.Cookies("magnet")("anket") = "oylandi" ' cookie mizi atıyoruz response.cookies("magnet").expires=Now()+30 ' pc de kalma süresünü 30 gün yapıoruz... %> <% anket=Request.Form ("Anket") ' formdan gelen anketi alıyoruz Select Case Anket ' ve seçtiriyoruz Case rs("alan1") ' eğer işaretli alan1 ise rs("alan1_1")=rs("alan1_1")+1 ' alan1_1 i 1 arttırıyoruz ve diğerleride aynı... rs.update Case rs("alan2") rs("alan2_2")=rs("alan2_2")+1 rs.update Case rs("alan3") rs("alan3_3")=rs("alan3_3")+1 rs.update Case rs("alan4") rs("alan4_4")=rs("alan4_4")+1 rs.update Case rs("alan5") rs("alan5_5")=rs("alan5_5")+1 rs.update End Select 'seçme bittikten sonra anket_sonuc.asp ye yallah response.redirect "anket_sonuc.asp" %> anket_sonuc.asp diye kaydeedin... Kod Alanı: <% Set sonuclar = Server.Createobject("ADODB.Recordset") sql = "select * from anket" sonuclar.open sql, bag, 1, 3 TOPLAMOY = sonuclar("alan1_1") + sonuclar("alan2_2") + sonuclar("alan3_3") + sonuclar("alan4_4") + sonuclar("alan5_5") ' tüm sonuçları tolluyoruz ve yoplam oy belirliyoruz %> <%if sonuclar("alan1_1") = "0" then 'eğer alan1_1 eşit 0 ise sonuc1 = "0" ' ekrana 0 yazdırıoruz else 'değilse sonuc1 = sonuclar("alan1_1") / TOPLAMOY 'toplam oyu alan1_1 bölüyoruz sonuc1 = sonuc1 * 100 If Len(sonuc1) > 4 Then ' aynıları altada geçerli sonuc1 = Left(sonuc1, 4) & "" end if end if %> <%if sonuclar("alan2_2") = "0" then sonuc2 = "0" else sonuc2 = sonuclar("alan2_2") / TOPLAMOY sonuc2 = sonuc2 * 100 If Len(sonuc2) > 4 Then sonuc2 = Left(sonuc2, 4) & "" end if end if %> <%if not sonuclar("alan3") = "" then %> <%if sonuclar("alan3_3") = "0" then sonuc3 = "0 " else sonuc3 = sonuclar("alan3_3") / TOPLAMOY sonuc3 = sonuc3 * 100 If Len(sonuc3) > 4 Then sonuc3 = Left(sonuc3, 4) & "" end if end if %> <%end if%> <%if not sonuclar("alan4") = "" then %> <%if sonuclar("alan4_4") = "0" then sonuc4 = "0 " else sonuc4 = sonuclar("alan4_4") / TOPLAMOY sonuc4 = sonuc4 * 100 If Len(sonuc4) > 4 Then sonuc4 = Left(sonuc4, 4) & "" else end if end if %> <%end if%> <%if not sonuclar("alan5") = "" then %> <%if sonuclar("alan5_5") = "0" then sonuc5 = "0 " else sonuc5 = sonuclar("alan5_5") / TOPLAMOY sonuc5 = sonuc5 * 100 If Len(sonuc5) > 4 Then sonuc5 = Left(sonuc5, 4) & "" else end if end if %> <%end if%>

Anket Sonuçları Anket Sorusu : <%=sonuclar("soru")%> Cevaplar :
<%=sonuclar("alan1")%> : ( <%=sonuclar("alan1_1")%> Oy )	%<%=sonuc1%>
<%=sonuclar("alan2")%> : ( <%=sonuclar("alan2_2")%> Oy )	%<%=sonuc2%>
<%=sonuclar("alan3")%> : ( <%=sonuclar("alan3_3")%> Oy )	%<%=sonuc3%>
<%=sonuclar("alan4")%> : ( <%=sonuclar("alan4_4")%> Oy )	%<%=sonuc4%>
<%=sonuclar("alan5")%> : ( <%=sonuclar("alan5_5")%> Oy )	%<%=sonuc5%>
Toplam Oy : <%=TOPLAMOY%>
Pencereyi Kapat

admin bölümündeyiz... anket_admin.asp diye kaydedin Kod Alanı: <% if request("update")<>"" then soru=request("soru") alan1=request("alan1") alan2=request("alan2") alan3=request("alan3") alan4=request("alan4") alan5=request("alan5") alan1_1=request("alan1_1") alan2_2=request("alan2_2") alan3_3=request("alan3_3") alan4_4=request("alan4_4") alan5_5=request("alan5_5") Rs.ActiveConnection = bag Sorgu="SELECT * FROM anket" rs.open Sorgu,bag,3,2 rs.update "soru",soru rs.update "alan1",alan1 rs.update "alan2",alan2 rs.update "alan3",alan3 rs.update "alan4",alan4 rs.update "alan5",alan5 rs.update "alan1_1",alan1_1 rs.update "alan2_2",alan2_2 rs.update "alan3_3",alan3_3 rs.update "alan4_4",alan4_4 rs.update "alan5_5",alan5_5 rs.close set rs=nothing Response.write "Güncellendi..." else end if %> <% Rs.ActiveConnection = bag Rs.Open="Select * from anket " %>

<% rs.close set rs=nothing bag.close set bag=nothing %>

Anket Sorusu :	" size="88" maxlength="50">
Alan1 :	" size="41" maxlength="250">	" size="41" maxlength="50">
Alan2 :	" size="41" maxlength="250">	" size="41" maxlength="50">
Alan3 :	" size="41" maxlength="250">	" size="41" maxlength="50">
Alan4 :	" size="41" maxlength="250">	" size="41" maxlength="50">
Alan5 :	" size="41" maxlength="250">	" size="41" maxlength="50">

Asp KodBank
Deprecated: strtotime(): Passing null to parameter #1 ($datetime) of type string is deprecated in /var/www/vhosts/melekkentmen.com/httpdocs/config.php on line 1077
60 yıl önce Melek Kentmen 815