1 问题提出
经常看到一些网站或者Web应用系统，在浏览器看来，他们只采用一个页面，所有的页面地址都是通过这个页面的参数链接得到的。例如：
http://abc.com/default.asp?pg=AdminPage&command=View
http://abc.com/default.asp?pg=ShowPage&command=List
等等诸如此类的东西。以前我没有仔细想过该怎么实现，也许页面差别不大用几个不同的Sub来做就行了；可是仔细看了看两个地址，两个页面的差别太大了；如果这一个页面包含这么多的Sub，这对程序员而言简直是一种摧残，而且美工根本无法插手。我和一个网友讨论了很久，他提出用ISAPI，我觉得很恐怖。
后来想了想，记起来转向的几种方法：Server.Transfer, Response.Redirect, Server.Execute就不算了。Response.Redirect是IIS明确表明不太用的（但是我以前做ASP的时候用得最多）。后来看看Server.Transfer，越看越觉得能够使用的样子。IIS的帮助中进行了如下阐述：
When you call Server.Transfer, the state information for all the built-in objects will be included in the transfer. This means that any variables or objects that have been assigned a value in session or application scope will be maintained. In addition, all of the current contents for the request collections will be available to the .asp file receiving the transfer. 也就是说，所有的Request集合、Session、Application都是共享的。这样就能够在不同的页面进行交互了。
看到这些，我就动手做了一些代码，阐述如下：
2 实现
我的初步想法是：在一个xml文件中记录所有的名称-地址对照集合，然后在default.asp中读取这个集合，在查询字符串的pg中读取page name, 然后Server.Transfer到相应的页面中。关键代码如下：
default.asp:
<!--#include file="Functions.asp"-->
<%
On Error Resume Next
Response.CharSet = "gb2312"
Dim opageName, opageURL
opageName = Request.QueryString("pg")
If opageName <> "" Then
opageURL = GetPage(opageName)
Else
Response.Write "OKOK, You didn't pass a pg parameter."
Response.End
End If
If opageURL = "" Then
Response.Write "找不到映射文件for: " & opageName
Else
Server.Transfer(opageURL)
End If
If Err.Number <> 0 Then
Response.Write Err.Description
End If
%>
Functions.asp:
<%
Option Explicit
Dim configPath, Page_URL_Dict
configPath = Server.MapPath("./conf/app-conf.xml")
Set Page_URL_Dict = Server.CreateObject("Scripting.Dictionary")
‘根据pageName取得页面地址
Function GetPage(pageName)
If Page_URL_Dict.Count = 0 Then
ReadPageURLToDict
End If
GetPage = Page_URL_Dict(pageName)
End Function
‘初始化pageName-pageURL对照字典
Function ReadPageURLToDict()
On Error Resume Next
Page_URL_Dict.RemoveAll
Dim logNode, xmlDom, root
Set xmlDom = Server.CreateObject("Microsoft.XMLDOM")
xmlDom.async = False
xmlDom.load(configPath)
Set root = xmldom.selectSingleNode("//url-mappings")
For Each logNode In root.childNodes
Page_URL_Dict.Add logNode.childNodes(0).text, logNode.childNodes(1).text
Next
Set xmlDom = Nothing
If Err.Number <> 0 Then
Response.Write Err.Source & "<br>"
Response.Write Err.Description & "<br>"
End If
End Function
%>
||||||app-conf.xml
<?xml version="1.0"?>
<app-conf>
<url-mappings>
&nb
