ASP一些常用代码的分享及使用方法
下面介绍的是关于ASP一些常用代码的剪辑分享，对于ASP初学者还是有很大用处的，现在让我们一起来学习一下吧。
计算字符的大小
len()是一个字算一个，一个字母也一个
lenb()是字母和字都是两个
function getlen(str)
n=0
for i=1 to len(str)
charasc=asc(mid(str,i,1))
if ((charasc<127) and (charasc>=32)) then n=n+1 else n=n+2
next
getlen=n
end function
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" %=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='java script' >
alert("< %=yourvar% >")
< /script >
11.有没有办法保护自己的源代码，不给人看到
答：可以去下载一个微软的Windows Script Encoder，它可以对asp的脚本和
客户端java script/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" [b]。
8) 找到你的.dll文件然后选择next到完成。
要删除这个对象，只要选择它的图标，然后选择delete。
附注：特别要注意第二种方法，它是用来调试自己编写组件的最好方法，而不
必每次都需要重新启动机器了。
