ASP编程实用20例

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,01011990) 
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((ppicrnd)+1) 
dpic=graphixrandompics&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=graphixerrorserroriamge.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，程序出错说没有权限