Forgot Password ??

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

	Registered : 109,038

HOME > ASP > ASP Forum > ช่วยผมด้วยครับ ทำอย่างไรถึงจะรัน poll นี้ได้ คือผมสร้าง poll ขึ้นมาอันนึง ต้องการให้แสดงผลโหวตเป็นกราฟแท่ง

ช่วยผมด้วยครับ ทำอย่างไรถึงจะรัน poll นี้ได้ คือผมสร้าง poll ขึ้นมาอันนึง ต้องการให้แสดงผลโหวตเป็นกราฟแท่ง

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

Guest

คือผมสร้าง poll ขึ้นมาอันนึง ต้องการให้แสดงผลโหวตเป็นกราฟแท่ง ทำไมพอคลิกปุ่มโหวต กับปุ่มดูผลโหวต มันกลับแสดงผลเป็น code asp ที่เขียนขึ้นมาล่ะครับ จะแก้ยังไง

รายละเอียดของ souce code
poll.html (สร้างฟอร์มการโหวต)
<html>
<head>
<style type=text/css>
.poll {
font-family: Tahoma;
font-size: 10pt;
}
</style>
</head>
<body>
<table class="poll" border=0 width=200 cellspacing=0 cellpadding=0>
<tr><td><img src=pollhead.gif width="202" height="36"></td></tr>
<tr bgcolor="#f5f5f5"><td><font color="#666699"><b>คุณชอบไปเที่ยวที่ไหนมากที่สุด?</b></font></td></tr>
<tr bgcolor="#f5f5f5"><td>
<form method=post action=poll.asp target=_blank>
<input type=radio name=choice value=1>ทะเล<br>
<input type=radio name=choice value=2>ภูเขา<br>
<input type=radio name=choice value=3>น้ำตก<br>
<input type=radio name=choice value=4>ต่างประเทศ<br>
<center><input type=submit value=โหวต><input type=button value=ดูผลโหวต onclick="window.open('show.asp')"></center></form>
</td></tr></table>

</body>

</html>

ต่อมาเป็น poll.asp
<%
Set objFS=Server.CreateObject("Scripting.FileSystemObject")
Set objRF=objFS.OpenTextFile("/result.txt")

Dim ChoiceArray(3)
ChoiceArray(0)=objRF.ReadLine
ChoiceArray(1)=objRF.ReadLine
ChoiceArray(2)=objRF.ReadLine
ChoiceArray(3)=objRF.ReadLine
objRF.Close
Set objRF=Nothing

answer=Request.Form("choice")
Select Case answer
Case 1
ChoiceArray(0)=ChoiceArray(0)+1
Case 2
ChoiceArray(1)=ChoiceArray(1)+1
Case 3
ChoiceArray(2)=ChoiceArray(2)+1
Case 4
ChoiceArray(3)=ChoiceArray(3)+1
End Select

Set objRF=objFS.OpenTextFile("/result.txt", 2)
objRF.WriteLine ChoiceArray(0)
objRF.WriteLine ChoiceArray(1)
objRF.WriteLine ChoiceArray(2)
objRF.WriteLine ChoiceArray(3)

objRF.Close
Set objRF=Nothing
Set objFS=Nothing

Response.Redirect "show.asp"
%>

ต่อมาเป็น show.asp
<%
Dim ChoiceArray(3)

Set objFS=Server.CreateObject("Scripting.FileSystemObject")
Set objRF=objFS.OpenTextFile("/result.txt")
ChoiceArray(0)=objRF.ReadLine
ChoiceArray(1)=objRF.ReadLine
ChoiceArray(2)=objRF.ReadLine
ChoiceArray(3)=objRF.ReadLine
objRF.Close
Set objRF=Nothing
Set objFS=Nothing

sum=(CInt(ChoiceArray(0))+CInt(ChoiceArray(1))+CInt(ChoiceArray(2))+CInt(ChoiceArray(3)))
percent1=ChoiceArray(0)*100/sum
percent2=ChoiceArray(1)*100/sum
percent3=ChoiceArray(2)*100/sum
percent4=ChoiceArray(3)*100/sum
%>

<br>
<center>
<table cellspacing=0>
<colgroup>
<col width=85>
</colgroup>
<tr bgcolor="#3399ff">
<td colspan=3><b>คุณชอบไปเที่ยวที่ไหนมากที่สุด</b></td>
</tr>
<tr bgcolor="#f5f5f5">
<td valign=top>ทะเล  </td>
<td align=right valign=top><%=ChoiceArray(0)%> คน ::</td>
<td><img src=bar31.jpg height=20 width=<%=2*percent1%>> <%=round(percent1)%>%<br><br></td>
</tr>
<tr bgcolor="#eeeeee">
<td valign=top>ภูเขา  </td>
<td align=right valign=top><%=ChoiceArray(1)%> คน ::</td>
<td><img src=bar32.jpg height=20 width=<%=2*percent2%>> <%=round(percent2)%>%<br><br></td>
</tr>
<tr bgcolor="#f5f5f5">
<td valign=top>น้ำตก  </td>
<td align=right valign=top><%=ChoiceArray(2)%> คน ::</td>
<td><img src=bar33.jpg height=20 width=<%=2*percent3%>> <%=round(percent3)%>%<br><br></td>
</tr>
<tr bgcolor="#eeeeee">
<td valign=top>ต่างประเทศ  </td>
<td align=right valign=top><%=ChoiceArray(3)%> คน ::</td>
<td><img src=bar34.jpg height=20 width=<%=2*percent4%>> <%=round(percent4)%>%<br><br></td>
</tr>
<tr bgcolor="#f5f5f5">
<td>รวม</td>
<td align=right><%=sum%> คน   </td>
</tr>
</table>
</center>

Tag : - - - -

Date : 4 May 2547 17:18:51

By : nop_chann

View : 3658

Reply : 1

No. 1

Guest

ให้รันภายใต้ web server (IIS)

Date : 2011-07-03 06:53:41

By : thaicreate

ค้นหาข้อมูล

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

Re : ช่วยผมด้วยครับ ทำอย่างไรถึงจะรัน poll นี้ได้ คือผมสร้าง poll ขึ้นมาอันนึง ต้องการให้แสดงผลโหวตเป็นกราฟแท่ง

รายละเอียด

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

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

Notice

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

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

โดย

อีเมล์

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

<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)

Exchange: นำเข้าสินค้าจากจีน, Taobao, เฟอร์นิเจอร์, ของพรีเมี่ยม, ร่ม, ปากกา, power bank, แฟลชไดร์ฟ, กระบอกน้ำ

Load balance : Server 05

Registered : 109,038

No. 1

ค้นหาข้อมูล

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

Notice