|
源代码网推荐
瀵逛簬FLASH鏉ョ敓鎴愰ゼ褰㈡垜浠凡缁忎笉鏄緢闄岀敓锛屾垜浠氨鐢ㄥ畠鏉ユ樉绀烘姇绁ㄧ粨鏋滐紝涓�鑸垜璋冩煡缁撴灉鎴戜滑閮芥槸鐢ㄥ浘鐗囨垨鑰呴鑹插潡鏉ヨ〃绀哄悇椤圭殑缁撴灉浜嗭紟
銆�銆�杩欓噷灏变笉璁ㄨFLASH濡備綍瀹炵幇楗煎舰鐨勭粨鏋滀簡锛屾垜浠浣滅殑灏辨槸鎶婅皟鏌ョ粨鏋滅敤FLASH+ASP鎸変笂闈㈢殑褰㈠紡瀹炵幇鍑烘潵锛�
銆�銆�棣栧厛鐢ˋSP鎶婅皟鏌ョ粨鏋滃啓鎴怷ML鏂囦欢锛�
Response.charset="gb2312"
Response.ContentType="text/xml"
銆�銆�鍦ˋSP鏂囦欢鐨勫ご閮ㄤ娇鐢ㄤ笂闈㈢殑璇彞鍙互灏嗙粨鏋滄樉绀烘垚XML鏂囦欢鏍煎紡锛�
銆�銆�涓嬮潰鎴戜滑瀹氫箟涓�涓媂ML鏂囦欢鐨勬牸寮忥細
<pieData QUESTION="浣犺寰楃珯鐐瑰浣曪紵">
<pie color="FF0000">
<value>14</value>
<text>棰滆壊涓嶅ソ</text>
</pie>
<pie color="00FF00">
<value>37</value>
<text>娌℃湁鍐呭</text>
</pie>
<pie color="0000FF">
<value>19</value>
<text>鏇存柊澶參</text>
</pie>
<pie color="FFFF00">
<value>7</value>
<text>娌℃湁浜や簰鎬�</text>
</pie>
<pie color="FF00FF">
<value>14</value>
<text>閮戒笉鍠滄</text>
</pie>
</pieData>
鍏朵腑锛歈UESTION锛濊皟鏌ョ殑鏍囬
銆�銆�銆�color锛濋鑹�
銆�銆�銆�value锛濇姇绁ㄦ暟
銆�銆�銆�text锛濇姇绁ㄩ�夐」
涓嬮潰鏄垜鐢熼潰XML鎵�鐢ㄧ殑ASP鏂囦欢锛屽悇浣嶅彲浠ュ弬鑰冧竴涓嬶細
鏂囦欢鍚嶏細xmlpoll.asp銆�鎶婃娆℃姇绁ㄥ唴瀹瑰垪鍑烘潵锛屾樉绀烘垚XML鏂囦欢锛�
浠ｇ爜鎷疯礉妗�
<!--#include file="../admin/config.asp"-->
<!-- #include file="colors.asp" -->
<%
Response.expires=0
Response.charset="gb2312"
Response.ContentType="text/xml"
"璇蜂笉瑕佷慨鏀规浠ｇ爜
dim lngPollID
lngPollID=Request("PollID")
"濡傛灉娌℃湁鍙栧緱鏁版嵁 灏卞彇绗竴涓姇绁�
if (not isnumeric(lngPollid)) or lngPollid="" then
SQL = "select top 1 id from " & strDbTable & "title order by id desc"
set rs1=conn.execute(SQL)
lngPollid=rs1("id")
rs1.close
set rs1=nothing
end if
"鍙栧緱璋冩煡鍚嶅拰鎬荤殑鎶曠エ鏁�
dim rs
dim strTitle ,lngVoter
SQL = "SELECT * FROM " & strDbTable & "title WHERE id = " & int(lngPollid)
Set rs=conn.execute(SQL)
strTitle=rs("title")
lngVoter=rs("votes")
"闃叉闄ら浂
if lngVoter=0 then
lngVoter=1
end if
"鍙栧緱璋冩煡鐨勬姇绁ㄥ垪琛�
SQL = "SELECT * FROM " & strDbTable & "vote WHERE poll_id=" & int(lngPollid) & " order by answer_id asc"
set rs=conn.execute(SQL)
"浠ｇ爜鏇挎崲鍔熻兘 闃叉涓�浜涗笉蹇呰鐨勭鍙�
function ReplaceChr(Content)
"Content=Replace(Content,"婧愬瓧绗�","鐩爣瀛楃")
Content=Replace(Content,"%","%25")
Content=Replace(Content,"&","%26")
Content=Replace(Content,"+","%2b")
Content=Replace(Content,chr(13),"%0d")
ReplaceChr=Content
end function
i=1
StrXML="<pieData QUESTION="""&strTitle&""">"
do until rs.eof
StrXML=StrXML&"<pie color="&color(i)&">"
StrXML=StrXML&"<value>"&rs("no_votes")+1&"</value>"
StrXML=StrXML&"<text>"&ReplaceChr(rs("answer"))&"</text>"
StrXML=StrXML&"</pie>"
i = i+1
rs.MoveNext
Loop
strXML=strXML &"</pieData>"
set i=nothing
rs.close
set rs=nothing
conn.close
set conn=nothing
response.Write(strXML)
%>
[Ctrl+A 鍏ㄩ儴閫夋嫨 鐒跺悗鎷疯礉]
FLASH鏄剧ず闈㈤〉锛�
graph.asp銆�鏄剧ずFLASH
浠ｇ爜鎷疯礉妗�
<% Language=VBScript%>
<html>
<head>
<title>
鎶曠エ缁撴灉
</title>
</head>
<body LEFTMARGIN="0" TOPMARGIN="0" MARGINWIDTH="0" MARGINHEIGHT="0">
<%
Dim Weeknum,PollID
PollID=Request.Querystring("PollID")
Dim Dtrdatasrc
Dtrdatasrc="http://edu.cnzz.cn/NewsInfo/xmlpoll.asp?PollID="&PollID
Dtrdatasrc=flshpollencURL(Dtrdatasrc)
%> <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0" width="550" height="220" align="middle">
<param name=movie value="http://edu.cnzz.cn/NewsInfo/flashpoll.swf?dataurl=<%=Dtrdatasrc%>"> <param name=quality value=high>
<embed src="http://edu.cnzz.cn/NewsInfo/flashpoll.swf?dataurl=<%=Dtrdatasrc%>" quality=high pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" width="550" height="220" align="middle" bgcolor=#99ccff>
</embed> </object>
</body>
</html>
<%
Function flshpollencURL(strURL)
strURL=replace(strURL,"?","&")
strURL=replace(strURL,"&","*")
flshpollencURL=strURL
End Function
%>
[Ctrl+A 鍏ㄩ儴閫夋嫨 鐒跺悗鎷疯礉]
涓婇潰灏辨槸瀹炵幇FLASH鎶曠エ鐨勬牳蹇冩枃浠朵簡锛�
涓嬮潰鏄垜浠墍瑕佺敤鍒扮殑FLASH鏂囦欢鍜岃皟鐢ㄧ殑XML鏂囦欢鏍煎紡锛�
鏂囦欢鍚嶏細pieData.xml銆�鎸夊彸閿繚瀛�
浠ｇ爜鎷疯礉锛岃鐢╬ieData.xml鍛藉悕锛�
<?xml version="1.0"?>
<pieData QUESTION="浣犺寰楃珯鐐瑰浣曪紵">
<pie color="FF0000">
<value>14</value>
<text>棰滆壊涓嶅ソ</text>
</pie>
<pie color="00FF00">
<value>37</value>
<text>娌℃湁鍐呭</text>
</pie>
<pie color="0000FF">
<value>19</value>
<text>鏇存柊澶參</text>
</pie>
<pie color="FFFF00">
<value>7</value>
<text>娌℃湁浜や簰鎬�</text>
</pie>
<pie color="FF00FF">
<value>14</value>
<text>閮戒笉鍠滄</text>
</pie>
</pieData>
[Ctrl+A 鍏ㄩ儴閫夋嫨 鐒跺悗鎷疯礉]
FLASH鏂囦欢锛�
flashpoll.swf
源代码网供稿. | 
