ASP编程中20个非常有用的例子；Vbscript和Javascript相互调用详解

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:    
<  %  yourVar="测试对话框"%  >    
<  %  s  cript  language='javas  cript'  >    
alert("<  %=yourvar%  >")    
<  /s  cript  >    
 
11.有没有办法保护自己的源代码，不给人看到    
答：可以去下载一个微软的Windows  s  cript  Encoder，它可以对asp的脚本和客户端javas  cript/vbs  cript脚本进行加密。。。不过客户端加密后，只有ie5才能执行，服务器端脚本加密后，只有服务器上安装有s  cript  engine  5（装一个ie5就有了）才能执行。    
 
12.怎样才能将  query  string  从一个  asp  文件传送到另一个？    
答：前者文件加入下句：  Response.Redirect("second.asp?"  &  Request.ServerVariables("QUERY_STRING"))    
 
13.global.asa文件总是不起作用?    
答：只有web目录设置为web  application,  global.asa才有效，并且一个web  application的根目录下  global.asa才有效。IIS4可以使用Internet  Service  Manager设置application  setting  怎样才能使得htm文件如同asp文件一样可以执行脚本代码？    
 
14.怎样才能使得htm文件如同asp文件一样可以执行脚本代码？    
答：Internet  Sevices  Manager  -  >  选择default  web  site  -  >右鼠键-  >菜单属性-〉主目录-  >  应用程序设置（Application  Setting）-  >  点击按钮  "配置"-  >  app  mapping  -  >点击按钮"Add"  -  >  executable  browse选择  /WINNT/SYSTEM32/INETSRV/ASP.DLL  EXTENSION  输入  htm  method  exclusions  输入PUT.DELETE  全部确定即可。但是值得注意的是这样对htm也要由asp.dll处理，效率将降低。    
 
15.如何注册组件    
答：有两种方法。    
第一种方法：手工注册  DLL  这种方法从IIs  3.0一直使用到IIs  4.0和其它的Web  Server。它需要你在命令行方式下来执行，进入到包含有DLL的目录，并输入：regsvr32  component_name.dll  例如  c:/temp/regsvr32  AspEmail.dll  它会把dll的特定信息注册入服务器中的注册表中。然后这个组件就可以在服务器上使用了，但是这个方法有一个缺陷。当使用这种方法注册完毕组件后，该组件必须要相应的设置NT的匿名帐号有权限执行这个dll。特别是一些组件需要读取注册表，所以，这个注册组件的方法仅仅是使用在服务器上没有MTS的情况下，要取消注册这个dll，使用：regsvr32  /u  aspobject.dll  example  c:/temp/regsvr32  /u  aneiodbc.dll    
 
第二种方法：使用MTS(Microsoft  Transaction  Server)  MTS是IIS  4新增特色，但是它提供了巨大的改进。MTS允许你指定只有有特权的用户才能够访问组件，大大提高了网站服务器上的安全性设置。在MTS上注册组件的步骤如下：    
1)  打开IIS管理控制台。    
2)  展开transaction  server，右键单击"pkgs  installed"然后选择"new  package"。    
3)  单击"create  an  empty  package"。    
4)  给该包命名。    
5)  指定administrator帐号或则使用"interactive"（如果服务器经常是使用administrator  登陆的话）。    
6)  现在使用右键单击你刚建立的那个包下面展开后的"components"。选择  "new  then  component"。    
7)  选择  "install  new  component"  。    
8)  找到你的.dll文件然后选择next到完成。    
要删除这个对象，只要选择它的图标，然后选择delete。    
附注：特别要注意第二种方法，它是用来调试自己编写组件的最好方法，而不必每次都需要重新启动机器了。  
 
16.  ASP与Access数据库连接：    
 
<%@  language=VBs  cript%>    
<%    
dim  conn,mdbfile    
mdbfile=server.mappath("数据库名称.mdb")    
set  conn=server.createobject("ado
4000
db.connection")    
conn.open  "driver={microsoft  access  driver  (*.mdb)};uid=admin