ASP编程中常用到的15个例子代码

asp编程中常用到的15个例子的代码
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/"
&

#38
p&

#38
"
.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=&
#39
javascript&
#39
>


alert("
<
%=yourvar%>
"
)

<
/script>


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

答 
可以去下载一个微软的Windows 
Script 
Encoder，它 
可以对asp的脚本和客户端javascript/vbscript脚本进行加密。。。不过客户端加密后，只有ie5才能执行，服务器端脚本加密后，只有服务器上安装有script 
engine 
5（装一个ie5就有了）才能执行。

12 
怎样才能将query 
string从一个asp文件传送到另一个？

答 
前者文件加入下句： 
Response.Redirect("
second.asp?"
 
&

#38
 
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上注册组件的步骤如下： 
I)&nbs