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="arrowback.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)

 %>