Register Register Member Login Member Login Member Login Forgot Password ??
PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone
 

Registered : 109,027

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



 

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

 



Topic : 001260

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>ทะเล &nbsp;</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>ภูเขา &nbsp;</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>น้ำตก &nbsp;</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>ต่างประเทศ &nbsp;</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%> คน &nbsp;&nbsp;</td>
</tr>
</table>
</center>


Tag : - - - -







Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 4 May 2547 17:18:51 By : nop_chann View : 3612 Reply : 1
 

 

No. 1

Guest


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






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

   

ค้นหาข้อมูล


   
 

แสดงความคิดเห็น
Re : ช่วยผมด้วยครับ ทำอย่างไรถึงจะรัน poll นี้ได้ คือผมสร้าง poll ขึ้นมาอันนึง ต้องการให้แสดงผลโหวตเป็นกราฟแท่ง
 
 
รายละเอียด
 
ตัวหนา ตัวเอียง ตัวขีดเส้นใต้ ตัวมีขีดกลาง| ตัวเรืองแสง ตัวมีเงา ตัวอักษรวิ่ง| จัดย่อหน้าอิสระ จัดย่อหน้าชิดซ้าย จัดย่อหน้ากึ่งกลาง จัดย่อหน้าชิดขวา| เส้นขวาง| ขนาดตัวอักษร แบบตัวอักษร
ใส่แฟลช ใส่รูป ใส่ไฮเปอร์ลิ้งค์ ใส่อีเมล์ ใส่ลิ้งค์ FTP| ใส่แถวของตาราง ใส่คอลัมน์ตาราง| ตัวยก ตัวห้อย ตัวพิมพ์ดีด| ใส่โค้ด ใส่การอ้างถึงคำพูด| ใส่ลีสต์
smiley for :lol: smiley for :ken: smiley for :D smiley for :) smiley for ;) smiley for :eek: smiley for :geek: smiley for :roll: smiley for :erm: smiley for :cool: smiley for :blank: smiley for :idea: smiley for :ehh: smiley for :aargh: smiley for :evil:
Insert PHP Code
Insert ASP Code
Insert VB.NET Code Insert C#.NET Code Insert JavaScript Code Insert C#.NET Code
Insert Java Code
Insert Android Code
Insert Objective-C Code
Insert XML Code
Insert SQL Code
Insert Code
เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

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

Notice

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

   
  เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง
 
โดย
อีเมล์
บวกค่าให้ถูก
<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)







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

Load balance : Server 03
ThaiCreate.Com Logo
© www.ThaiCreate.Com. 2003-2024 All Rights Reserved.
ไทยครีเอทบริการ จัดทำดูแลแก้ไข Web Application ทุกรูปแบบ (PHP, .Net Application, VB.Net, C#)
[Conditions Privacy Statement] ติดต่อโฆษณา 081-987-6107 อัตราราคา คลิกที่นี่