ASP 编程中20个非常有用的例子
上一篇 / 下一篇 2007-07-19 16:36:37 / 个人分类:ASP
1.如何用Asp判断你的网站的虚拟物理路径
_0e.L9^8E]Q0 答:使用Mappath方法:<%= Server.MapPath('\')%>
`"N3{8Hm M\t3nqI051Testing软件测试网&bs
s2q:Q
2.我如何知道使用者所用的浏览器?
W+Bp Q:UJfI0 答:使用the Request object方法:51Testing软件测试网"x5}0g l$r%u2g5mk
<%51Testing软件测试网#CdO4rh D`*r0nl
strBrowser=Request.ServerVariables('HTTP_USER_AGENT')51Testing软件测试网A P+uc,V+`"P
If Instr(strBrowser,'MSIE') <> 0 Then
F8HUQpIK0 Response.redirect('formSIEOnly.htm')51Testing软件测试网y6F&G8JE.H2O9]@7f
Else
rd%FN`J5s0 Response.redirect('ForAll.htm')51Testing软件测试网*a7?[I"[-\
End If
+XE#h j.LXg0 %>
*u.q"eX6B B8W6[.R6P0
"}ps3e1h~!j%f03.如何计算每天的平均反复访问人数51Testing软件测试网
\_5T*IGWi1y
答:解决方法51Testing软件测试网2zD6URft%J
<% startdate=DateDiff('d',Now,'01/01/1990')51Testing软件测试网&YCe@T5ZL
if strdate< 0 then startdate=startdate*-151Testing软件测试网?nv#MCeue
avgvpd=Int((usercnt)/startdate)51Testing软件测试网3?:n.Z\&U^
%>
+k gcZI"FT0 显示结果
0j TyU?s+l0 <% response.write(avgvpd) %>
7z"W4jzW.Ld;y`0 that is it.this page have been viewed since November 10,199851Testing软件测试网
` E4P/E
qiZ4O
!\`$O:s;U8TT1]G04.如何显示随机图象51Testing软件测试网F gtR p
X:s
<% dim p,ppic,dpic51Testing软件测试网D:Dp
^].bK%k5bH
ppic=1251Testing软件测试网2VLX1r@@z~
randomize51Testing软件测试网9h(H%s_z1s f
?VJ
p=Int((ppic*rnd)+1)
9z*ZSo#QMV!g!`1g0 dpic='graphix/randompics/'&p&'.gif'
G&Z'}$Qj
E0 %>51Testing软件测试网/a%u[}h
显示51Testing软件测试网6g
Z,j)TM
<img src='< %=dpic% >' >
B$C,`xf)z051Testing软件测试网t/@Q(F ]
5.如何回到先前的页面51Testing软件测试网%Bgo$KR ao n
答:<a href='<%=request.serverVariables('Http_REFERER')%>' >preivous page</a>
\q@dhc0d0 或用图片如:< img src='arrowback.gif' alt='< %=request.serverVariables ('HTTP_REFERER')% >' >51Testing软件测试网HV`$pVAK j
51Testing软件测试网S%~4U;q@3u9Xy
6.如何确定对方的IP地址51Testing软件测试网 vP,M ha
S/}O(l
答:< %=Request.serverVariables('REMOTE_ADDR)% >51Testing软件测试网6q6R.ZiJ,\ U W X
51Testing软件测试网t7|tuxf&V
7.如何链结到一副图片上
w oJ"B[0答:< % @Languages=vbscrīpt % >
2tV.[-V^!wdA T0< % response.expires=051Testing软件测试网
Wy3Eh+S8D1g
strimagename='graphix/errors/erroriamge.gif'51Testing软件测试网'lxZ%JTo:X%_
response.redirect(strimagename)
"r$w+UNk"p%p"S:RSN$se
^0% >
5ffv N'JU
n~051Testing软件测试网}4T4P~c(kP5s
8.强迫输入密码对话框51Testing软件测试网Q@^~3r}|
答:把这句话放载页面的开头51Testing软件测试网K2M:m"C1~)c(@
< % response.status='401 not Authorized'
3pa~-h t,x0response.end
cT]Y,t3c i`3Q0% >51Testing软件测试网W:s
hI7Ab&z+P D9f
+l f j2u.x:O09.如何传递变量从一页到另一页
G v:|^%H/D Vf)`0答:用 HIDDEN 类型来传递变量51Testing软件测试网]3N%m;kF }R
<form method='post' action='mynextpage.asp' >
.nHd&Y [:uV0< % for each item in request.form % >
g;Z_!q:v`0< input name='< %=item% >' type='HIDDEN'
:i%}5zW'BkP \*Y3D~&pHS0value='< %=server.HTMLEncode(Request.form(item)) % >' >51Testing软件测试网4X0mdgw h
< % next % >
[$|rzm/?1AU0< /form >
Q)Fc7V?8[k051Testing软件测试网M+T3Y I2udb
10.为何我在 asp 程序内使用 msgbox,程序出错说没有权限51Testing软件测试网}
Q:m{(O_]%X
答:由于 asp 是服务器运行的,如果可以在服务器显示一个对话框,那么你只好等有人按了确定之后,你的程序才能继续执行,而一般服务器不会有人守着,所以微软不得不禁止这个函数,并胡乱告诉你 ( 呵呵) 没有权限。但是ASP和客户端脚本结合倒可以显示一个对话框,as follows:51Testing软件测试网
{wMz$e
<%yourVar='测试对话框'%>51Testing软件测试网8?g|S8Y0T9@)I1w L_l}
<scrīpt language='javascrīpt'>51Testing软件测试网 T3{&{D(BJsk O
alert('<%=yourvar%>')51Testing软件测试网-^3cG_-ZslYh
</scrīpt>
}
_
v
J}X@011.有没有办法保护自己的源代码,不给人看到
Epi2v1aO
^!@7kSZ0答:可以去下载一个微软的Windows scrīpt Encoder,它可以对asp的脚本和客户端javascrīpt/vbscrīpt脚本进行加密。。。不过客户端加密后,只有ie5才能执行,服务器端脚本加密后,只有服务器上安装有scrīpt engine 5(装一个ie5就有了)才能执行。51Testing软件测试网\
M5Q#}u0MlT m
51Testing软件测试网*[V^-B5r6d\
12.怎样才能将 querystring 从一个 asp 文件传送到另一个?51Testing软件测试网,RRVNk0L-Q
答:前者文件加入下句: Response.Redirect('second.asp?' & Request.ServerVariables('QUERY_STRING'))
V$x&J