### ASP编程中20个非常有用的例子解析
#### 1. 如何用ASP判断网站的虚拟物理路径
在ASP编程中，了解当前网站的物理路径是非常重要的，这有助于开发人员更好地管理和操作文件系统。要获取当前网站的虚拟路径并转换为物理路径，可以使用`Server.MapPath`方法。
**示例代码**:
```asp
<%
Response.Write("The Physical path to this virtual website is: ")
Response.Write(Server.MapPath("/"))
%>
```
此段代码将输出当前网站的物理路径。`Server.MapPath("/")`将根目录（"/"）转换为其对应的物理路径。
#### 2. 如何知道使用者所用的浏览器
识别用户的浏览器类型对于实现兼容性、提供定制化的用户体验等方面非常重要。可以通过分析`Request.ServerVariables("HTTP_USER_AGENT")`来获取用户代理字符串，然后根据其中的关键字判断浏览器类型。
**示例代码**:
```asp
<%
Dim strBrowser
strBrowser = Request.ServerVariables("HTTP_USER_AGENT")
If InStr(strBrowser, "MSIE") > 0 Then
Response.Redirect("ForMSIEOnly.htm")
Else
Response.Redirect("ForAll.htm")
End If
%>
```
这段代码检查用户代理字符串中是否包含“MSIE”关键字。如果是，则重定向到针对IE浏览器的页面；否则，重定向到适用于所有浏览器的页面。
#### 3. 如何计算每天的平均反复访问人数
统计每日的平均访问量可以帮助网站管理员更好地理解网站的流量趋势。通过记录自某个时间点以来的总访问次数，然后计算出天数差，就可以得到平均每天的访问次数。
**示例代码**:
```asp
<%
Dim startdate, usercnt
startdate = DateDiff("d", Now(), "01/01/1990")
If startdate < 0 Then
startdate = startdate * -1
End If
' 假设 usercnt 是自定义的计数器变量
avgvpd = Int((usercnt) / startdate)
%>
<% Response.Write("Average Visits Per Day: " & avgvpd) %>
```
这段代码首先计算自1990年1月1日以来的天数差，然后用总的访问次数除以天数差得到平均每天的访问次数。
#### 4. 如何显示随机图像
随机显示不同的图片可以增加网页的趣味性和互动性。使用ASP中的`Rnd`函数和`Int`函数可以轻松实现这一功能。
**示例代码**:
```asp
<%
Dim ppic, p, dpic
ppic = 12
Randomize
p = Int((ppic * Rnd()) + 1)
dpic = "graphix/randompics/" & p & ".gif"
%>
<img src="<%=dpic%>">
```
这里设置了一个包含12张图片的目录，每次页面加载时都会随机选择一张显示。
#### 5. 如何回到先前的页面
在用户点击链接后返回前一页是一个常见的需求。可以利用`Request.ServerVariables("HTTP_REFERER")`获取前一个页面的URL。
**示例代码**:
```asp
<a href="<%=Request.ServerVariables("HTTP_REFERER")%>">Previous Page</a>
```
此代码会创建一个指向前一页面的链接。
#### 6. 如何确定对方的IP地址
获取用户的IP地址对于跟踪访问者、实施地理位置相关的功能等非常有用。
**示例代码**:
```asp
<%=Request.ServerVariables("REMOTE_ADDR")%>
```
此代码将直接输出用户的IP地址。
#### 7. 如何链接到一幅图片
直接链接到图片文件可以让页面更美观。
**示例代码**:
```asp
<%@ Language="vbscript" %>
<%
Response.Expires = 0
strImageName = "graphix/errors/errorimage.gif"
Response.Redirect(strImageName)
%>
```
这段代码将重定向到指定的图片文件。
#### 8. 强迫输入密码对话框
有时需要确保只有授权用户才能访问某些页面。
**示例代码**:
```asp
<%
Response.Status = "401 Not Authorized"
Response.End
%>
```
这段代码会在页面头部设置状态码，强制用户输入密码。
#### 9. 如何传递变量从一页到另一页
在不同页面间传递变量是ASP编程的基本需求之一。
**示例代码**:
```asp
<%
FormMethod = "post"
Action = "mynextpage.asp"
%>
<form method="<%=FormMethod%>" action="<%=Action%>">
<% For Each Item In Request.Form %>
<input name="<%=Item%>" type="hidden" value="<%=Server.HTMLEncode(Request.Form(Item))%>">
<% Next %>
</form>
```
这里使用`<input type="hidden">`标签来传递变量。
#### 10. 为什么在ASP程序内使用MsgBox会提示没有权限
在服务器端使用`MsgBox`是不可行的，因为服务器通常无人值守。然而，可以使用客户端脚本来实现弹窗效果。
**示例代码**:
```asp
<%
YourVar = "测试对话框"
%>
<script language='javascript'>
alert("<%=YourVar%>")
</script>
```
此代码将在客户端显示一个警告框。
#### 11. 有没有办法保护自己的源代码不让人看到
虽然完全隐藏ASP源代码是不可能的，但可以采取一些措施提高安全性。
**示例解决方案**:
可以使用Windows Script Encoder对ASP脚本进行加密。这样即使用户查看源代码也无法轻易地读懂代码逻辑。然而需要注意的是，这种加密并非绝对安全，经验丰富的开发者仍然可能逆向工程。
