ASP编程常用的15个非常有用的代码及用法

1. 如何用 Asp 判断你的网站的虚拟物理路径

 

答：使用 Mappath 方法：

 

< b > The Physic

al path to this virtual website is: < /b >< /font > 

< font color="#FF0000" size="6" face="Arial" > 

< %= Server.MapPath("\")% > 

 

 

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) 

% >

 

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=" 测试对话框 "% > 

< % script language='''' > 

alert("< %=yourvar% >") 

< /script >

 

11. 有没有办法保护自己的源代码，不给人看到

 

答：可以去下载一个微软的 Windows Script Encoder ，它可以对 asp 的脚本和客户端 javascript/vbscript 脚本进行加密。。。不过客户端加密后，只有 ie5 才能执行，服务器端脚本加密后，只有服务器上安装有 script 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 。  

附注：特别要注意第二种方法，它是用来调试自己编写组件的最好方法，而不必每次都需要重新启动机器了。