编程中20个非常有用的例子.docVIP

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=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=javascript ＞ alert(＜ %=yourvar% ＞) ＜ /script ＞ 　　11.有没有办法保护自己的源代码，不给人看到 　　答：可以去下载一个微软的Windows Script Encoder，它可以对asp的脚本和客户端javascript/vbscript脚本进行加密。。