隨著網路的普及，網路調查往往能達到較好的效果。在自己的個人網站上放一個趣味問題調查板，著實能為網站添色不少；況且透過調查結果你能更多更準確了解網友對自己站點的看法。身為Webmaster，如果你的網站也需要就某個主題進行調查，而你又討厭使用別人免費提供的調查板（免費往往是要付出代價的，比如打廣告！），那麼我建議你花十幾分鐘時間看完這篇介紹用ASP製作調查板的文章。你只要把文中的程式碼Copy到你的機子上，稍做修改，你立刻就擁有一個屬於你自己的個人化調查板。好了，打起精神往下看吧。
本調查板共有三個文件：顯示調查問題(research.html)、處理使用者選擇(select.asp)、瀏覽調查結果(viewresult.asp)。設計想法為：ASP取得由表單發來的信息，並據此修改記錄調查得票數的數據庫，然後ASP讀取數據庫，獲得各個調查問題的得票數目，通過得票數多少來調節對應條形圖顯示的寬來直觀比例地給出調查結果。在程式的關鍵處，我都給了較為詳細的註釋，這裡就不再講述ASP的基本知識。讀者可以到陶吧ASP專欄查閱。當然，我希望你在自己的伺服器上調試程式時，有不懂的地方，還是查查身邊的ASP技術手冊，看看物件、方法或函數的詳細語法試著修改，看看結果如何變化——這可是學習程式設計的一個好方法呢。
一、顯示調查問題(research.html)
調查問題的設計要依據實際情況，或講究實用性或講究趣味性，在網頁上顯示的風格也或樸素或活潑，本例中是筆者主頁上的一個關於「21世紀最重要的是什麼？」的趣味調查，為說明問題，下面的代碼中省略了美觀修飾的代碼，你自己動手設計時完全可以使用表格等技巧美化調查問題的顯示。為了讓提換蜾?賴韃槭輩揮跋斕鼻耙趁媯?綏蛑懈?雋說?魴麓翱詘姆槳浮?BR>
researchindex.html:
< html >
< title >調查板測試< /title >
< head >
< !-- start：定義新開的視窗-- >
< script language=javascript >
< !--
var newWindow = null
function OpenWindow(htmurl)
{
if (! newWindow || newWindow.closed)
{
newWindow =
window.open(htmurl,"newwin","toolbar=no,resiza =no,scrollbars=no,width=400,height=280");
}else
{
newWindow.focus();
}
}
//-- >
< /script >
< !-- end：定義新開的視窗-- >
< /head >
< 身體 >
< !-- start：調查題目、選項-- >
< p >您認為21世紀最重要的是什麼？ < /p >
< form method="POST" action="vote/select.asp" name="research" LANGUAGE="javascript"
onSubmit="OpenWindow()" target="newwin" >
< p align="left" >
< br >
< input type="radio" value="1" name="Options" >知識（知識就是力量）< br >
< input type="radio" value="2" name="Options" >學歷（學歷社會沒有結束）< br >
< input type="radio" value="3" name="Options" >金錢（經濟就是基礎）< br >
< input type="radio" value="4" name="Options" >愛情（永不進入墳墓的愛）< br >
< input type="radio" value="5" name="Options" >理想（天啦，理想是什麼）< br >
< input type="radio" value="6" name="Options" >民主意識（關心政治）< br >
< input type="radio" value="7" name="Options" >科學思想（科教興國）< br >
< input type="submit" value="提交" name="voting" >
< input type="button" value="查看" name="viewing" onClick="OpenWindow(vote/viewresult.asp)" >
< /form >
< !-- start：調查題目、選項-- >
< /身體 >
< /html >
二、處理使用者選擇(select.asp)
依據上面的調查選項，我們得出記錄調查得票的資料庫researchdb.mdb的設計（以Access為例)，表名為：research。如果你的資料庫和表格沒有存為以上的名字，那麼在後面的程式和操作中你不要忘記也相應修改過來。
存放調查投票數的表research：
字段名資料類型預設值
id 自動編號1
select1 數字0
select2 數字0
select3 數字0
select4 數字0
select5 數字0
select6 數字0
select7 數字0
建好資料庫後，我們來在伺服器上建立資料來源。首先，執行“控制台”中的“ODBC”，選擇“系統DSN”，按“新增”按鈕，選取“Microsoft Access Driver”，選定後按“完成”按鈕,然後在ODBC設定中“資料來源名”輸入框輸入資料庫名稱，本例中為researchdb，然後按下“選取”按鈕選擇資料庫文件（你不會說你忘記了剛剛設計的資料庫存在那裡了吧），選定後按“確定”，你即可看到新建的資料來源researchdb。這樣，我們就可以在ASP中呼叫了。
select.asp:
< %
下面的if語句是透過驗證selected是否為空來判斷使用者是否作了選擇
if request.form("options") < >Empty then
% >
< %
下面的if語句是透過比較Request的兩個collection(ServerVariables和Cookies)的值來防止使用者連續按提交而影響調查的結果
if not Request.ServerVariables("REMOTE_ADDR")=request.cookies("IPAddress") then
把訪問客戶的IP資訊寫入Cookies
response.cookies("IPAddress")=Request.ServerVariables("REMOTE_ADDR")
% >
< %
建立連線（Connection）對象，開啟記錄調查結果的資料庫
set conn=server.createobject("ADODB.CONNECTION")
conn.open "researchdb"
% >
< %
定義變數
dim rs
dim sql
dim selected
selected=request.form("options")
建立記錄集合（Recordset）對象，用方法Open開啟對象，同時修改對應的數據
set rs=server.createobject("adodb.recordset")
修改數據表ressearch中的數據，即對應的投票數增加1
sql="update research set select"&selected&"=select"&selected&"+1 where id=1"
rs.open sql,conn,3,3
從記憶體中清除記錄集合對象
set rs=nothing
關閉連接
conn.close
從記憶體中清除連接對象
set conn=nothing
連接到瀏覽調查結果的頁面
response.redirect "viewresult.asp"
else
Response.write "投票失敗提示：您剛才已投了票，謝謝您的支持！"
end if
else
Response.write "投票失敗提示：您忘記選擇了！"
end if
% >
三、瀏覽調查結果(viewresult.asp)
本例中使用長條圖直觀地顯示調查結果，方法是用選項的投票數佔總投票數的百分比值乘上5，得出的值作為條形圖bar.gif顯示的寬度（可用常見的圖象工具製作一個漸變色的小長條圖，或到網路上down一個)。為了給出兩為小數的得票的百分比，程式中使用了VBScript中的四捨五入函數Round。為了美觀，把調查結果放到表格中顯示，如圖所示。下面給的程式碼中略去了表格的設計。
viewresult.asp
< %
set conn=server.createobject("ADODB.CONNECTION")
conn.open "researchdb"
% >
< %
dim rs
dim sql
dim select1
dim select2
dim select3
dim select4
dim select5
dim select6
dim select7
dim total
set rs=server.createobject("adodb.recordset")
sql="select * from research where id=1"
rs.open sql,conn,1,1
total=rs("select1")+rs("select2")+rs("select3")+
_ rs("select4")+rs("select5")+rs("select6")+rs("select7")
判斷總票數是否為0，確保下面的除法有效
if total > 0 then
select1=(rs("select1")/total)*100
select2=(rs("select2")/total)*100
select3=(rs("select3")/total)*100
select4=(rs("select4")/total)*100
select5=(rs("select5")/total)*100
select6=(rs("select6")/total)*100
select7=(rs("select7")/total)*100
% >
< p >謝謝您的參與，以下是目前的調查結果
< p >
◇知識:
< img src=bar.gif width=< %=int(select1*5)% > height=4 >
< %=rs("select1")% >人佔：< %=round(select1,2)% >%< br >
◇學歷:
< img src=bar.gif width=< %=int(select2*5)% > height=4 >
< %=rs("select2")% >人佔：< %=round(select2,2)% >%< br >
◇金錢:
< img src=bar.gif width=< %=int(select3)*5% > height=4 >
< %=rs("select3")% >人佔：< %=round(select3,2)% >%< br >
◇愛情:
< img src=bar.gif width=< %=int(select4)*5% > height=4 >
< %=rs("select4")% >人佔：< %=round(select4,2)% >%< br >
◇理想:
< img src=bar.gif width=< %=int(select5)*5% > height=4 >
< %=rs("select5")% >人佔：< %=round(select5,2)% >%< br >
◇民主意識:
< img src=bar.gif width=< %=int(select6)%*5 > height=4 >
< %=rs("select6")% >人佔：< %=round(select6,2)% >%< br >
◇科學思想:
< img src=bar.gif width=< %=int(select7)%*5 > height=4 >
< %=rs("select7")% >人佔：< %=round(select7,2)% >%< /p >
< p align="center" >已經有：< %=total% >人參加調查< br >< br >
【< a href="javascript:window.close()" >關閉視窗< /a >】< /p >
< p >
< %
else
response.write "還沒有人參與調查"
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
% >
附註：
以上代碼皆在WindowsNT4.0中文(Pack 6)/IIS4.0上調試通過。
下列任何一種環境都可執行ASP：
一、Windows NT Server 4.0 / IIS3.0以上二、Windows NT WorkStation 4.0 / Microsoft Peer Web Service3.0以上三、Windows 95/98 / Microsoft Personal Web Server 1.0a以上