最常用的20个ASP代码片段 上

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.asp"   >  
<  % 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:

来源：51js.com