Kuflu Forum  

Geri Git   Kuflu Forum > Teknoloji > Programlama Dilleri ve Grafik > Programlama



Asp Anket Yapımı

Programlama


Yeni Konu aç  Cevapla
 
LinkBack Seçenekler Stil
Alt 30.11.09, 23:57   #1 (permalink)
..daha çirkin, daha huysuz
 
sha. - ait Kullanıcı Resmi (Avatar)
 
Üyelik tarihi: Aug 2009
Mesajlar: 7.625
Teşekkürleri: 3.932
3.011 mesajına 28.143 kere teşekkür edildi.
Standart Asp Anket Yapı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ı:



<!-- #include file="db.asp" -->

<%
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
%>
<FORM action="anket_oyla.asp" name="anket" method="post" target="anket" onsubmit="javascript:void window.open('anket_oyla.asp''''width=450height= 280scrollbars=0')">

<table border=0 bordecolor=efefef width="201">
<tr><td width="195"><font face="Verdana" size="1"><b><%=rs("soru")%></b><font size="1" face="Verdana"><br></td></tr>
<% 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İ
%></font>
<tr><td width="195"><font face="Verdana" size="1"><input type="radio" name="Anket" value="<%=rs("alan1")%>"><%=rs("alan1")%></td></tr>
<% end if %>

<% if rs("alan2")="" then
response.write ""
end if
%>
<% if rs("alan2")<>"" then %> </font>
<tr><td width="195"><font face="Verdana" size="1"><input type="radio" name="Anket" value="<%=rs("alan2")%>"><%=rs("alan2")%></td></tr>
<%end if%>

<% if rs("alan3")="" then
response.write ""
end if
%>
<% if rs("alan3")<>"" then %> </font>
<tr><td width="195"><font face="Verdana" size="1"><input type="radio" name="Anket" value="<%=rs("alan3")%>"><%=rs("alan3")%></td></tr>
<%end if%>

<% if rs("alan4")="" then
response.write ""
end if
%>
<% if rs("alan4")<>"" then %> </font>
<tr><td width="195"><font face="Verdana" size="1"><input type="radio" name="Anket" value="<%=rs("alan4")%>"><%=rs("alan4")%></td></tr>
<%end if%>

<% if rs("alan5")="" then
response.write ""
end if
%>
<% if rs("alan5")<>"" then %> </font>

<tr><td width="195"><font face="Verdana" size="1"><input type="radio" name="Anket" value="<%=rs("alan5")%>"><%=rs("alan5")%></td></tr>
<%end if%> </font>

<tr><td width="195"><font size="1" face="Verdana"><input name="submit" type="submit" value=" Oy Ver " class="binyedi"></font></td></tr>
</form>
</table>
<%end if%><%
rs.close
set rs=nothing
bag.close
set bag=nothing
%>
<br><br>
<a href="anket_sonuc.asp" target="sonuc" alt="Anket Sonuçları" onclick="javascript:void window.open('anket_oyla.asp''''width=450height= 280scrollbars=0')"><font face="Tahoma" style="font-size: 8pt" color="#197c8f" >Anket Sonuçları</a>






anket_oyla.asp diye kaydedin...


Kod Alanı:


<!-- #include file="db.asp" -->


<%
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ı:



<!-- #include file="db.asp" -->



<%
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
%>
<table cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1">

<tr><td colspan=2><b>
<font face="Verdana" size="1"><p>Anket Sonuçları</font></b></p>
<font face="Verdana" size="2" color="000000">Anket Sorusu :<b> <%=sonuclar("soru")%></b><br><br>Cevaplar : </font></td></tr>


<%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
%><font size="1" face="Verdana"> </font>
<tr><td width=50%>
<font face="Verdana" size="2" color="blue"><%=sonuclar("alan1")%></font><font size="1" face="Verdana">
</font><font size="1" face="Verdana">: ( <%=sonuclar("alan1_1")%> Oy ) </font> </td>
<td width=50%> <font face="Verdana" size="1">%<%=sonuc1%> <img height="12" width="<%=sonuc1%>%" src=images/derece1.gif></font></td></tr>


<%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
%> </font>
<tr><td width=50%>
<font face="Verdana" size="2" color="blue"><%=sonuclar("alan2")%></font><font size="1" face="Verdana">
</font><font size="1" face="Verdana">: ( <%=sonuclar("alan2_2")%> Oy ) </font> </td>
<td width=50%> <font face="Verdana" size="1">%<%=sonuc2%> <img height="12" width="<%=sonuc2%>%" src=images/derece2.gif></font></td></tr>

<%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
%> </font>
<tr><td width=50%>
<font face="Verdana" size="2" color="blue"><%=sonuclar("alan3")%></font><font size="1" face="Verdana">
</font><font size="1" face="Verdana">: ( <%=sonuclar("alan3_3")%> Oy ) </font> </td>
<td width=50%> <font face="Verdana" size="1">%<%=sonuc3%> <img height="12" width="<%=sonuc3%>%" src=images/derece3.gif></font></td></tr>


<%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
%> </font>
<tr><td width=50%>
<font face="Verdana" size="2" color="blue"><%=sonuclar("alan4")%></font><font size="1" face="Verdana">
</font><font size="1" face="Verdana">: ( <%=sonuclar("alan4_4")%> Oy ) </font> </td>
<td width=50%> <font face="Verdana" size="1">%<%=sonuc4%> <img height="12" width="<%=sonuc4%>%" src=images/derece4.gif></font></td></tr>


<%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
%> </font>
<tr><td width=50%>
<font face="Verdana" size="2" color="blue"><%=sonuclar("alan5")%></font><font size="1" face="Verdana">
</font><font size="1" face="Verdana">: ( <%=sonuclar("alan5_5")%> Oy ) </font> </td>
<td width=50%> <font face="Verdana" size="1">%<%=sonuc5%> <img height="12" width="<%=sonuc5%>%" src=images/derece5.gif></font></td></tr>


<%end if%> </font>



<tr><td colspan=2><center><font face="Verdana" size="1">Toplam Oy : <%=TOPLAMOY%></font></center></td></tr>



<tr><td colspan=2>
<p align="center"><b><font face="Verdana" size="1" color="#008000">
<a href="JavaScript:onClick= window.close()" style="text-decoration: none">Pencereyi Kapat</a></font><font face="Verdana" size="1"> </font>
</b>
<font face="Verdana" size="1">
<br><br></font></p></td></tr>
</table>





admin bölümündeyiz...

anket_admin.asp diye kaydedin

Kod Alanı:




<!--#include file="db.asp"-->
<%
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 Sorgubag32

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
%>





<!--#include file="db.asp"-->
<%
Rs.ActiveConnection = bag
Rs.Open="Select * from anket "
%>







<form action="anket_admin.asp" method="post">
<table border="0" cellpadding="2" cellspacing="2" width="833">

<tr>
<td width="290" align=right><b>
<font face="Tahoma" style="font-size: 8pt">Anket Sorusu</font></b><font face="Tahoma" style="font-size: 8pt" color="#000000"><b>
:</b></td>
<td colspan=2 width="529">
<input type="text" name="soru" style="font-size: 8pt" color="#003366" value="<%Response.Write RS("soru")%>" size="88" maxlength="50"> </td>
</tr>
<tr>
<td width="290" align=right><b>
<font face="Tahoma" style="font-size: 8pt">Alan1</font></b><font face="Tahoma" style="font-size: 8pt" color="#000000"><b>
:</b></td>
<td width="220">
<input type="text" name="alan1" style="font-size: 8pt" color="#003366" value="<%Response.Write RS("alan1")%>" size="41" maxlength="250"> </td>
<td width="603">
<input type="text" name="alan1_1" style="font-size: 8pt" color="#003366" value="<%Response.Write RS("alan1_1")%>" size="41" maxlength="50"> </td>
</tr>
<tr>
<td width="290" align=right><b>
<font face="Tahoma" style="font-size: 8pt">Alan2</font></b><font face="Tahoma" style="font-size: 8pt" color="#000000"><b>
:</b></td>
<td width="220">
<input type="text" name="alan2" style="font-size: 8pt" color="#003366" value="<%Response.Write RS("alan2")%>" size="41" maxlength="250"> </td>
<td width="603">
<input type="text" name="alan2_2" style="font-size: 8pt" color="#003366" value="<%Response.Write RS("alan2_2")%>" size="41" maxlength="50"> </td>
</tr>
<tr>
<td width="290" align=right><b>
<font face="Tahoma" style="font-size: 8pt">Alan3</font></b><font face="Tahoma" style="font-size: 8pt" color="#000000"><b>
:</b></td>
<td width="220">
<input type="text" name="alan3" style="font-size: 8pt" color="#003366" value="<%Response.Write RS("alan3")%>" size="41" maxlength="250"> </td>
<td width="603">
<input type="text" name="alan3_3" style="font-size: 8pt" color="#003366" value="<%Response.Write RS("alan3_3")%>" size="41" maxlength="50"> </td>
</tr>
<tr>
<td width="290" align=right><b>
<font face="Tahoma" style="font-size: 8pt">Alan4</font></b><font face="Tahoma" style="font-size: 8pt" color="#000000"><b>
:</b></td>
<td width="220">
<input type="text" name="alan4" style="font-size: 8pt" color="#003366" value="<%Response.Write RS("alan4")%>" size="41" maxlength="250"> </td>
<td width="603">
<input type="text" name="alan4_4" style="font-size: 8pt" color="#003366" value="<%Response.Write RS("alan4_4")%>" size="41" maxlength="50"> </td>
</tr>
<tr>
<td width="290" align=right><b>
<font face="Tahoma" style="font-size: 8pt">Alan5</font></b><font face="Tahoma" style="font-size: 8pt" color="#000000"><b>
:</b></td>
<td width="220">
<input type="text" name="alan5" style="font-size: 8pt" color="#003366" value="<%Response.Write RS("alan5")%>" size="41" maxlength="250"> </td>
<td width="603">
<input type="text" name="alan5_5" style="font-size: 8pt" color="#003366" value="<%Response.Write RS("alan5_5")%>" size="41" maxlength="50"> </td>
</tr>




<input type="hidden" name="update" value="1">






<%
rs.close
set rs=nothing
bag.close
set bag=nothing
%>
<tr><td colspan=2 width="503"><center><INPUT TYPE="submit" VALUE=" Kaydet " style="BACKGROUND-COLOR: #FFFFFF; BORDER-BOTTOM: #486078 1px inset; BORDER-LEFT: #486078 1px inset; BORDER-RIGHT: #486078 1px inset; BORDER-TOP: #486078 1px inset; COLOR: #486078; FONT-FAMILY: Verdana; FONT-SIZE: 8pt"> <INPUT type="Button" VALUE=" İptal " OnClick='history.go( -1 );return true;' style="BACKGROUND-COLOR: #FFFFFF; BORDER-BOTTOM: #486078 1px inset; BORDER-LEFT: #486078 1px inset; BORDER-RIGHT: #486078 1px inset; BORDER-TOP: #486078 1px inset; COLOR: #486078; FONT-FAMILY: Verdana; FONT-SIZE: 8pt"></td></tr>
</table>
</form>
__________________


d ü n y a b i z i ç i n d ö n m ü y o r s a d u r s u n
k a l s ı n y a ş a m a k
...

.






.



sha. isimli Üye şimdilik offline konumundadır   Alıntı ile Cevapla
Alt 06.12.11, 21:56   #2 (permalink)
Yeni Üye
 
erkenci1 - ait Kullanıcı Resmi (Avatar)
 
Üyelik tarihi: Dec 2011
Mesajlar: 1
Teşekkürleri: 0
0 mesajına 0 kere teşekkür edildi.
Standart vt alan adlarını ve türleri

vt alan adlarını ve türlerini de eklerseniz çok iyi olur iyi anlatmışsınız ama orası eksik
erkenci1 isimli Üye şimdilik offline konumundadır   Alıntı ile Cevapla
Cevapla

Etiketler
anket, asp, yapimi


Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)
 
Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB kodu Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Açık
Pingbacks are Açık
Refbacks are Açık



Tüm Zamanlar GMT +2 Olarak Ayarlanmış. Şuanki Zaman: 08:10.


Powered by vBulletin® Copyright © 2017 vBulletin Solutions, Inc. All rights reserved.
2008-2016 Her hakkı kendinde saklı olan forum.
Sitemiz bir forum sitesi olduğu için kullanıcılar paylaşımlarını önceden onay almadan anında siteye yazabilmektedir. Bu yazılardan dolayı doğabilecek her türlü sorumluluk yazan kullanıcılara aittir. Yinede sitemizde yasalara aykırı unsurlar bulursanız iletisim adresine bildirebilirsiniz, şikayetiniz incelenip en kısa sürede gereken yapılır.