用ASP編寫更人性化的彈出窗口程序_ASP教程

教程Tag：暫無Tag,歡迎添加,賺取U幣!

推薦：初學(xué)者的ASP教程：常用ASP內(nèi)置函數(shù)
函數(shù)，就是該語言封裝了的一個(gè)功能塊，以方便用戶的調(diào)用。比如“now()”在VBScript中就是一個(gè)能顯示出當(dāng)前日期和時(shí)間的函數(shù)。至于具體為什么能顯示，則是該語言內(nèi)核所定的，用戶只需

ASP實(shí)例：用ASP編寫更人性化的彈出窗口程序，來幫我們制作一個(gè)不煩人的調(diào)查的方法。

用彈出窗口來顯示調(diào)查表，被認(rèn)為是達(dá)到我們收集訪問用戶信息的最方便快捷的方法。當(dāng)制作出第一份調(diào)查表后，我們客氣的詢問人們是否愿意填這份表，但結(jié)果卻令人失望。于是我們決定把這份調(diào)查表放到我們主頁里，當(dāng)人們訪問時(shí)就自動(dòng)彈出，其效果出人意料的好。

下面就是我們成功的秘訣：

1：自動(dòng)彈出窗口只能顯示一次，不管用戶是否填寫了調(diào)查表。

2：自動(dòng)彈出窗口不能影響主頁的顯示速度。

3：自動(dòng)彈出窗口在用戶填寫完調(diào)查表后，自動(dòng)消失。

4: 自動(dòng)彈出窗口顯示在屏幕的左上方。

5：自動(dòng)彈出窗口里不要加廣告，因?yàn)槲覀兊哪康氖堑玫接脩舻恼{(diào)查報(bào)告。

為了判斷是否彈出窗口，我們用了一個(gè)小小的cookie。我們定義一個(gè)cookie可以多次使用并且判斷多個(gè)彈出窗口。我們給這個(gè)cookie起名為“s”,它包含所有已經(jīng)彈出的窗口的id。

現(xiàn)在，當(dāng)用戶訪問主頁時(shí)，我們判斷請求的id是否已經(jīng)包含在cookie中。如果cookie不存在，我們彈出窗口并且寫入cookie，以防止窗口再次彈出。

在下面的例子里，我們在服務(wù)器端寫入cookie,用javascript一樣可以實(shí)現(xiàn)，我們選擇服務(wù)器端，是因?yàn)樗容^簡單。

在我們主頁的最開始，我們執(zhí)行一下asp代碼.這段代碼要放在HTML輸出之前，因?yàn)槲覀冃枰庉媓eader。

以下為引用的內(nèi)容：
<%
Dim bSurvey ' 是否顯示調(diào)查表
const bID="1" ' 調(diào)查表的id
bSurvey=false
' 檢查調(diào)查表是否已經(jīng)顯示過
if instr(request.cookies("s"),":" & bID & ":")=0
then
' 調(diào)查表沒有顯示，更新cookie
' 設(shè)定cookie過期時(shí)間為60天
response.cookies("s").expires = DateAdd("d",60,now())
' 設(shè)定路徑
response.cookies("s").path = "/"
' 寫入cookie
response.cookies("s") = request.cookies("s") & ":"
& bID & ":"
bSurvey=true
end if
%>

我們給每個(gè)調(diào)查表一個(gè)id,如果你有多個(gè)彈出窗口，可以很容易的有計(jì)劃的輸出。

我們在頁尾加入一段asp腳本去判斷是否彈出窗口，這段腳本方在頁末，不影響主頁的下載速度。這段腳本十分簡單，它用window.open()來打開新窗口。

以下為引用的內(nèi)容：
<% if bSurvey then %>
<SCRIPT>
window.open("/survey/displaysurvey.asp?q=" & bID,"SURVEY","width=350,height=400,top=0,left=0,scrollbars=yes")
</SCRIPT>
<% end if %>

分享：ASP入門：認(rèn)識(shí)ASP程序所使用的幾種腳本語言
在瀏覽器中通過查看源代碼的方式是無法看到ASP源代碼的，你只能看到由ASP文件輸出的結(jié)果，而那些只是純粹的HTML而已。這是因?yàn)椋诮Y(jié)果被送回瀏覽器前，腳本已經(jīng)在服務(wù)器執(zhí)行了。實(shí)例：用