Forgot Password ??

PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone

	Registered : 109,038

HOME > ASP > ASP Forum > ช่วยปรับให้ poll โหวตได้วันละ 1 ครั้งด้วยครับ.... ช่วยปรับให้ poll โหวตได้วันละ 1 ครั้งด้วยครับ....

ช่วยปรับให้ poll โหวตได้วันละ 1 ครั้งด้วยครับ.... ช่วยปรับให้ poll โหวตได้วันละ 1 ครั้งด้วยครับ....

เริ่มหัวข้อใหม่

อาท

โพสกระทู้ ( 77 )
บทความ ( 0 )

ช่วยปรับให้ poll โหวตได้วันละ 1 ครั้งด้วยครับ....

หน้า poll.asp


<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-874" />
<title>แบบสำรวจความพึงพอใจ</title>
</head>

<body>
<form action="pollsave.asp" method="post" target="_blank">
<table width="188" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="center"> </td>
</tr>
<tr>
<td align="center"><%
SetPoll = 1
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM poll WHERE ID="&SetPoll
rs.Open sql, Conn, 1, 3
total = rs.RecordCount

choice = Split(rs("choice"),"*")
count = UBound(choice)
%>
<%=rs("title")%> <br /></td>
</tr>
<tr>
<td><% For i=0 to count%>
<input type="radio" name="poll" value="<%=i+1%>" />
<%=choice(i)%><br />
<%Next%></td>
</tr>
<tr>
<td align="center"><a href="pollshowtotal.asp" target="_blank"></a></td>
</tr>
<tr>
<td align="center"><input type="submit" name="Submit" value="ส่งผลโหวต" />
<input type="hidden" name="SetPoll" value="<%=SetPoll%>" />
<%
rs.Close
set rs=Nothing
Conn.Close
set Conn = Nothing
%></td>
</tr>
</table>
</form>
</body>
</html>

หน้า pollsave.asp


<%
IF Request.Form("poll")="" THEN
Response.Write("คุณไม่ได้เลือกข้อมูล กรุณาเลือกข้อมูลก่อนส่งผลโหวต<br><br>")
Else Response.Write("บันทึกข้อมูลแล้ว....<br><br>")
Response.Write("ขอบคุณสำหรับการตอบคำถาม....<br><br>")
END IF

SetPoll = Request.Form("SetPoll")
'if SetPoll = "" then SetPoll = Request("SetPoll")

Set rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM poll WHERE ID="&SetPoll
rs.Open sql, Conn, 1, 3
total = rs.RecordCount

poll = Request.Form("poll")
choicevalue = split(rs("choice_value"),"*")

choice = Split(rs("choice"),"*")
count = UBound(choice)

if poll <> "" then
For i = 0 to count

if CInt(poll) = i+1 then choicevalue(i) = Int(choicevalue(i))+1
Next

rs("choice_value") = Join(choicevalue,"*")
rs("sum") = rs("sum") + 1
rs.Update
End if
%>

Tag : - - - -

Date : 2010-05-03 09:31:48

By : arta_u

View : 1899

Reply : 8

No. 1

xxx

โพสกระทู้ ( 3,144 )
บทความ ( 1 )

เมื่อ vote แล้วให้เขียน cookie ครับให้ expire 24 ชั่วโมง

ถ้ายังมี cookie อยู่ห้าม vote

Date : 2010-05-03 16:39:57

By : tungman

No. 2

อาท

โพสกระทู้ ( 77 )
บทความ ( 0 )

ขอบคุณสำหรับคำแนะนำครับ
เด่วผมจอลองไปปรับดู

Date : 2010-05-04 16:26:01

By : arta_u

No. 3

Guest

เก็บใน db ครับว่าคลิกนี้ คลิกวันที่เท่าไหร่ ถ้าเปิดให้ทุกคนใช้ ก็ใช้ ip เป็น key แล้วตอนแสดงปุ่มให้คลิกก็เช็คเอาว่า key นี้คลิกหรือยังวันนี้
เพราะถ้าใช้ ขนมกรุบกรอบเหมือนคุณ tungman บอกละก็ แค่ clear temp clear cookies ก็คลิกได้ทั้งวันมันส์เชียว

Date : 2010-05-05 00:47:27

By : ขี้เกียจล็อกอิน

No. 4

xxx

โพสกระทู้ ( 3,144 )
บทความ ( 1 )

แล้วถ้าที่บ้านมี adsl modem อันเดียวใช้ 4 คน ไม่ทราบว่าสามารถ vote ได้ทุกคนไหมครับ

ได้อย่างเสียอย่างน่า ก็แล้วแต่จะเลือกใช้แล้วกัน

Date : 2010-05-06 11:45:11

By : tungman

No. 5

PlaKriM

โพสกระทู้ ( 11,835 )
บทความ ( 10 )

ถ้ามีระบบสมาชิกเปิดให้โหวตแต่สมาชิก ก็เหมือน No. 3 บอกครับ แค่ใช่ user_id เป็น key เก็บวันที่คลิกโหวตไว้เช็ค

ถ้าเปิดให้ guest โหวตได้ ก็ใช้ ip เป็น key ผมว่าดีกว่า cookies เหมือนกันครับ

Date : 2010-05-06 11:54:09

By : plakrim

No. 6

อาท

โพสกระทู้ ( 77 )
บทความ ( 0 )

ช่วยไกด์โค้ดให้หน่อยนะ แบบไหนก็ได้......

เช่น
การส่ง Cookie

Response.Cookies("website")="learning" 'กำหนดชื่อคุกกี้ว่า website โดยมีค่า learning
Response.Cookies("website").Expires=DATE+1 ' กำหนดเวลาหมดอายุของคุกกี้ไว้ที่ 1 วัน

การรับ Cookie

cookie_value=Request.Cookies("website")
Response.write cookie_value

แล้วที่นี้ที่ผมงงคือเราจะสั่งให้มันเขียน cookie ลงเครื่องตอนไหนอ่ะ

Date : 2010-05-06 14:23:27

By : arta_u

No. 7

Guest

หน้า poll.asp
<%@LANGUAGE="VBSCRIPT" %>
<%
'*** Cookies None Key ***'
Response.Cookies("SweetCookie") = "true" 'กำหนดชื่อคุกกี้ว่า SweetCookie โดยมีค่า true
Response.Cookies("SweetCookie").Expires=DATE+1 ' กำหนดเวลาหมดอายุของคุกกี้ไว้ที่ 1 วัน
%>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-874" />
<title>แบบสำรวจความพึงพอใจ</title>
<style type="text/css">

</style></head>

<body>
<form action="pollsave.asp" method="post" target="_blank">
<table width="188" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="center"> </td>
</tr>
<tr>
<td align="center"><%
SetPoll = 1
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM poll WHERE ID="&SetPoll
rs.Open sql, Conn, 1, 3
total = rs.RecordCount

choice = Split(rs("choice"),"*")
count = UBound(choice)
%>
<%=rs("title")%> <br /></td>
</tr>
<tr>
<td><% For i=0 to count%>
<input type="radio" name="poll" value="<%=i+1%>" />
<%=choice(i)%><br />
<%Next%></td>
</tr>
<tr>
<td align="center"><a href="pollshowtotal.asp" target="_blank"></a></td>
</tr>
<tr>
<td align="center"><input type="submit" name="Submit" value="ส่งผลโหวต" />
<input type="hidden" name="SetPoll" value="<%=SetPoll%>" />
<%
rs.Close
set rs=Nothing
Conn.Close
set Conn = Nothing
%>
</td>
</tr>
</table>
</form>
</body>
</html>

หน้า pollsave.asp


<%
If Request.Cookies("SweetCookie") = "true" Then
sResponse = "Welcome returning visitor!"
Else

SetPoll = Request.Form("SetPoll")
'if SetPoll = "" then SetPoll = Request("SetPoll")

Set rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM poll WHERE ID="&SetPoll
rs.Open sql, Conn, 1, 3
total = rs.RecordCount

poll = Request.Form("poll")
choicevalue = split(rs("choice_value"),"*")

choice = Split(rs("choice"),"*")
count = UBound(choice)

if poll <> "" then
For i = 0 to count

if CInt(poll) = i+1 then choicevalue(i) = Int(choicevalue(i))+1
Next

rs("choice_value") = Join(choicevalue,"*")
rs("sum") = rs("sum") + 1
rs.Update
End if

'จบเงื่อนไข IF ด้านบนสุด
sResponse = "Welcome new visitor!"
Response.Cookies("SweetCookie") = "true"
Response.Cookies("SweetCookie").Expires=DATE+1
End If
Response.Write sResponse
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-874" />
<title>ผลแสดงการสำรวจ</title>
<style type="text/css">

</style>
</head>

<body>
</body>
</html>

จากการเขียนโค้ดด้านบนสามารถสร้าง cookie ไว้คอยเช็คได้แล้ว แต่ว่ามันเจอปัญหาอีกคือแค่กดปุ่ม refresh บนแท็บ(หน้า poll.asp) เครื่องก็จะทำการสร้าง cookie เลย ทั้งๆ ที่ยังไม่ได้กด ส่งค่า

Date : 2010-05-07 13:13:36

By : อาท

No. 8

อาท

โพสกระทู้ ( 77 )
บทความ ( 0 )

ทำได้ละจากโค้ดด้านบนนี้และคับ ขอบคุณทุกท่านที่ให้คำแนะนำสำหรับท่านใดที่จะนำโค้ดไปปรับใช้ก็ไม่ว่ากันครับ

Date : 2010-05-11 09:29:33

By : arta_u

ค้นหาข้อมูล

แสดงความคิดเห็น

Re : ช่วยปรับให้ poll โหวตได้วันละ 1 ครั้งด้วยครับ.... ช่วยปรับให้ poll โหวตได้วันละ 1 ครั้งด้วยครับ....

รายละเอียด

เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

อัพโหลดแทรกรูปภาพ

Notice

เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ
อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง

เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง

โดย

อีเมล์

บวกค่าให้ถูก