服务器 频道

ASP 编程中 20 个非常有用的例子

  【IT168 服务器学院】1.如何用Asp判断你的网站的虚拟物理路径

  答:使用Mappath方法 < p align="center" >< font size="4" face="Arial" >< b >
  The Physical path to this virtual website is:
  < /b >< /font >
  < font color="#FF0000" size="6" face="Arial" >
  < %= Server.MapPath("\"% >
  < /font >< /p >
  
2.我如何知道使用者所用的浏览器?
  答:使用the Request object方法
  strBrowser=Request.ServerVariables("HTTP_USER_AGENT"
  If Instr(strBrowser,"MSIE" < > 0 Then
  Response.redirect("ForMSIEOnly.htm"
  Else
  Response.redirect("ForAll.htm"
  End If

  3.如何计算每天的平均反复访问人数

  答:解决方法

  < % startdate=DateDiff("d",Now,"01/01/1990"
  if strdate< 0 then startdate=startdate*-1
  avgvpd=Int((usercnt)/startdate) % >

  显示结果

  < % response.write(avgvpd) % >
  that is it.this page have been viewed since November 10,1998

  4.如何显示随机图象

  < % dim p,ppic,dpic
  ppic=12
  randomize
  p=Int((ppic*rnd)+1)
  dpic="graphix/randompics/"&p&".gif"
  % >

  显示

  < img src="< %=dpic% >" >

  5.如何回到先前的页面

  答:< a href="< %=request.serverVariables("Http_REFERER"% >" >preivous page< /a >

  或用图片如:< img src="arrowback.gif" alt="< %=request.serverVariables("HTTP_REFERER"% >" >

  6.如何确定对方的IP地址

  答:< %=Request.serverVariables("REMOTE_ADDR)% >

  7.如何链结到一副图片上

  答:< % @Languages=vbs cript % >
  < % response.expires=0
  strimagename="graphix/errors/erroriamge.gif"
  response.redirect(strimagename)
  % >

  8.强迫输入密码对话框

  答:把这句话放载页面的开头

  < % response.status="401 not Authorized"
  response.end
  % >

  9.如何传递变量从一页到另一页

  答:用 HIDDEN 类型来传递变量

  < % form method="post" action="mynextpage.html" >
  < % for each item in request.form % >
  < input namee="< %=item% >" type="HIDDEN"
  value="< %=server.HTMLEncode(Request.form(item)) % >" >
  < % next % >
  < /form >
  
10.为何我在 asp 程序内使用 msgbox,程序出错说没有权限

   

  答:由于 asp 是服务器运行的,如果可以在服务器显示一个对话框,那么你只好等有人按了确定之后,你的程序才能继续执行,而一般服务器不会有人守着,所以微软不得不禁止这个函数,并胡乱告诉你 ( 呵呵) 没有权限。但是ASP和客户端脚本结合倒可以显示一个对话框,as follows:

  < % yourVar="测试对话框"% >
  < % s cript language=''javas cript'' >
  alert("< %=yourvar% >"
  < /s cript >

0
相关文章