ASP 编程中20个非常有用的例子（二）.txt

1、如何用Asp判断你的网站的虚拟物理路径

答：使用Mappath方法：< %= Server.MapPath("\")% > 

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