当前位置: 首页 > 图文教程 > 网络编程 > ASP > Asp编写不再让人讨厌的自动弹出窗口

ASP
分享一段代码show.asp?id=26变成show/?26的形式
多域名一网站时如果返回最原来的域名
[原创]完美解决ASP 不能更新。数据库或对象为只读。
5天学会asp
TSYS中生成静态页时溢出: ''CInt''
对象标记具有无效的 ''MSWC.MyInfo'' ProgID
[原创]随机增加网站点击的一个不错的方法
Microsoft JET Database Engine 错误 ''80004005'' 未指定的错误的完美解决方法
反SPAM新思路—换Z-BLOG的验证码!
七步倒┈→专用asp后门
asp下实现代码的“运行代码”“复制代码”“保存代码”功能源码
使用ASP实现网站的“目录树”管理的代码
ShowPage 显示“上一页 下一页”等信息的封装代码
[原创]站长感慨asp编程究竟何去何从
响应对象 错误 ''ASP 0185 : 80020003'' 缺少默认属性
[原创]asp下用实现模板加载的的几种方法总结
[原创]asp获取URL参数的几种方法分析总结
Access数据库中“所有记录中均未找到搜索关键字”的解决方法
ASP程序中输出Excel文件实例一则
ASP应用中如何限制同一表单被多次提交

ASP 中的 Asp编写不再让人讨厌的自动弹出窗口


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-11-03   浏览: 117 ::
收藏到网摘: n/a

自动弹出窗口是一个让人讨厌的事情,为什么我们用它来显示我们的调查表呢?

  用弹出窗口来显示调查表,被认为是达到我们收集访问用户信息的最方便快捷的方法。当制作出第一份调查表后,我们客气的询问人们是否愿意填这份表,但结果却令人失望。于是我们决定把这份调查表放到我们主页里,当人们访问时就自动弹出,其效果出人意料的好。

  下面就是我们成功的秘诀:
  1:自动弹出窗口只能显示一次,不管用户是否填写了调查表。
  2:自动弹出窗口不能影响主页的显示速度。
  3:自动弹出窗口在用户填写完调查表后,自动消失。
  4:   自动弹出窗口显示在屏幕的左上方。
  5:自动弹出窗口里不要加广告,因为我们的目的是得到用户的调查报告。

  为了判断是否弹出窗口,我们用了一个小小的cookie。我们定义一个cookie可以多次使用并且判断多个弹出窗口。我们给这个cookie起名为“s”,它包含所有已经弹出的窗口的id。

  现在,当用户访问主页时,我们判断请求的id是否已经包含在cookie中。如果cookie不存在,我们弹出窗口并且写入cookie,以防止窗口再次弹出。

  在下面的例子里,我们在服务器端写入cookie,用javascript一样可以实现,我们选择服务器端,是因为它比较简单。

  在我们主页的最开始,我们执行一下asp代码.这段代码要放在HTML输出之前,因为我们需要编辑header。

<%

Dim bSurvey ' 是否显示调查表

const bID="1" ' 调查表的id
bSurvey=false

' 检查调查表是否已经显示过

if instr(request.cookies("s"),":" & bID & ":")=0
then

' 调查表没有显示,更新cookie
' 设定cookie过期时间为60天

response.cookies("s").expires = DateAdd("d",60,now())

' 设定路径

response.cookies("s").path = "/"

' 写入cookie

response.cookies("s") = request.cookies("s") & ":"
& bID & ":"


bSurvey=true

end if

%>


  我们给每个调查表一个id,如果你有多个弹出窗口,可以很容易的有计划的输出。

  我们在页尾加入一段asp脚本去判断是否弹出窗口,这段脚本方在页末,不影响主页的下载速度。这段脚本十分简单,它用window.open()来打开新窗口。

<% 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 %>