ASP编程中15个非常有用的例子（一）

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

enet学院


　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=/images/NullPic.gif" alt="<%=request.serverVariables("HTTP_REFERER")%>">

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

　答〈%=Request.serverVariables("REMOTE_ADDR)%>

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

　<% @Languages=vbscript %>

　<% response.expires=0

　strimagename="graphix/errors/erroriamge.gif"

　response.redirect(strimagename)

　%>