ASP经典代码列举实例

1.如何用Asp判断你的网站的虚拟物理路径
答：使用Mappath方法

The Physical path to this virtual website is: <%= 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 startdate =" startdate" 1avgvpd =" Int((usercnt)">显示结果<% response.write(avgvpd) %>that is it.this page have been viewed since November 10,1998

4.如何显示随机图象
<%Dim p, ppic, dpicppic = 12Randomizep = Int((ppic * Rnd) + 1)dpic = graphix / randompics / &p&.gif%>显示>

5.如何回到先前的页面 答：
>preivous page 或用图片如：
>

6.如何确定对方的IP地址 答：
<%=Request.serverVariables(REMOTE_ADDR)%>

7.如何链结到一副图片上 答：
<%@Languages=vbscript %><%response.expires = 0strimagename = "graphix/errors/erroriamge.gif"response.redirect(strimagename)%>

8.强迫输入密码对话框 答：把这句话放载页面的开头
<%response.status = 401 ' Not Authorizedresponse.End%>

9.如何传递变量从一页到另一页 答：用 HIDDEN 类型来传递变量

<%For Each Item in request.Form%> type=HIDDEN value=<%=server.HTMLEncode(Request.form(item)) %>><% next %>

10.为何我在 asp 程序内使用 msgbox，程序出错说没有权限 答：由于 asp 是服务器运行的，如果可以在服务器显示一个对话框，那么你只好等有人按了确定之后，你的程序才能继续执行，而一般服务器不会有人守着，所以微软不得不禁止这个函数，并胡乱告诉你 (:) 呵呵) 没有权限。但是ASP和客户端脚本结合倒可以显示一个对话框，as follows:
<% yourVar="测试对话框"%>

11.有没有办法保护自己的源代码，不给人看到 答：可以去下载一个微软的Windows script Encoder，它可以对asp的脚本和客户端javascript/vbscript脚本进行加密。。。不过客户端加密后，只有ie5才能执行，服务器端脚本加密后，只有服务器上安装有script engine 5（装一个ie5就有了）才能执行。

12.怎样才能将 query string 从一个 asp 文件传送到另一个？ 答：前者文件加入下句：
<%Response.Redirect "second.asp?"&Request.ServerVariables(QUERY_STRING)%>
阅读全文点这里