在COM组件中使用ASP内置对象
作者：飘鸥
在一些项目中，通常需要采用C/S&B/S的混合架构来实现，这样就涉及到了Web开发，在MS的.Net没有出现之前，因为是运行于windows环境之上，理所当然的首选ASP来实现了，直到有一天，盖茨扛出了.Net大旗，振臂高呼：用洒家的.Net吧，安全快捷无副作用，一个字"牛B"！
ASP经过这么多年的敲敲打打，一些自身难以克服的缺陷也渐渐浮出水面，此时听了他的话，兴奋地一阵小跑马上就.Net了，但几个闪着.Net金色光环的项目出手以后，结果并不尽如人意，于是暂时性的倒退回ASP了，呵呵，可能是境界不够高的缘故吧，sigh……
因为脚本属于基于对象的解释型语言，它的执行依赖于宿主，这就不可避免的存在一些固有的不足，如执行效率偏低，模块组织起来也没有C++项目来得得心应手，特别是脚本和HTML混杂的时候，很难有勇气再回头看第二遍。在这样的情况下，把服务端代码部分组件化倒是可以解决部分问题，这样WEB页面的代码除了几句机械的组件调用，剩下的全是DW生成的HTML了，页面编码部分我们的美工师都能轻松搞定。
另外不得不承认VB在实现ASP组件方面具有某些优势，现在网络上流行的一些Web组件很多就是用VB来实现的。因为它实现起来简单，跟VBScript又有一些形式上的相通之处。在对脚本代码组件化时可以很容易的引用ASP的内置对象。那么用VC呢？其实只要你对COM不算陌生，用起来也一样简单，而且你看了下面的实现后，也许会觉得不是一般的简单，因为它本身就是一个COM组件，跟我们使用其它组件没有什么不同，呵呵，来试试看。
1、新建一个名称为ASPCOM的"ATL项目"。
2、设置项目选项。
服务器类型：我们要在ASP中调用，选择DLL类型；
属性化：为了更清楚地看到实现代码，我们在这里暂时谢绝MS的好意，谢谢啦，不过这是一个贼有前途的东东，当然，只是对于构建MS的COM来说；
合并Stub：我们这里可以把客户端的代理/存根实现合并到服务端；
支持MFC：这个，这个 …… 免了吧，呵呵；
支持COM+：我们这里用不到啦；
3、添加支持ASP内建对象的组件接口类。
i、选择"ATL Active Server Page 组件"，添加一个名为MyTest的接口，同样，我们这里不使用"属性化"；
ii、"选项"选项卡内的各个选项采用默认值即可，因为我们刚才选择的是"ASP组件"，所以这里没有列出双重接口或自动化的选项。封装的脚本组件，你不在脚本里用还会在哪里用呢？呵呵；
iii、转到"ASP"选项卡，在这里我们可以看到ASP的五大内置对象（也可以说是六个，有时会把ObjectContext也算上，当然这些说法都不严格），不必客气啦，统统选上，即使我们这个DEMO中没有全部用到，嘿嘿。另外OnStartPage和OnEndPage分别在脚本开始使用和结束使用本对象时调用，这给了我们获取ASP对象接口和释放的机会，这个跟VB组件的实现是完全一致的；
4、好了，现在我们在类视图和实现文件里可以看到WIZARD兄已经帮我们搞定了所有的接口获取和释放工作，我们直接使用就可以了，真是一位好同志呀；
5、现在我们在MyTest接口里分别用Request和Response对象实现一个巨简单的方法，实际上现在ASP的五大法宝都交给你了，你要怎么用就看你自己的啦。
TestASPComp方法用来从一个Post到服务端的Form里获取元素的值，随后把刚才获取的值显示出来。具体实现如下：
STDMETHODIMP CMyTest::TestASPComp(void)
{
//declare a IRequestDictionary interface pointer
CComPtr<IRequestDictionary> pDict = NULL;
HRESULT hr = S_OK;
_bstr_t str;
try
{
//use the get_Form method of the Reqeust object to access the Form collection
hr = m_piRequest->get_Form(&pDict);
if (FAILED(hr))
return hr;
//get the specified field value
hr = GetDictItemValue(pDict, L"Name", str);
if (FAILED(hr))
_com_issue_errorex(hr, pDict, __uuidof(IRequestDictionary));
//write out the field name and its value
m_piResponse->Write(_variant_t(L"Name="));
m_piResponse->Write(_variant_t(str));
//ditto
hr = GetDictItemValue(pDict, L"Message", str);
if (FAILED(hr))
_com_issue_errorex(hr, pDict, __uuidof(IRequestDictionary));
m_piResponse->Write(_variant_t(L"<br>\nMessage="));
m_piResponse->Write(_variant_t(str));
}
catch (_com_error e)
{
return e.Error();
}
return S_OK;
}
6、简单测试一下咱们的组件
打开记事本，敲入下面的脚本代码，分别保存为form.htm和show.asp两个文件，然后，然后……当然是放到服务器上测试一把了 :-)
< form.htm >
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>windstep.com</title>
</head>
<body>
<table border="0" cellpadding="0" cellspacing="0">
<form name="form" method="post" action="show.asp"><tr>
<td width="100" height="30">Name:</td>
<td width="200">
<input name="Name" type="text" id="Name">
</td>
</tr>
<tr>
<td height="30">Message:</td>
<td><input name="Message" type="text" id="Message"></td>
</tr>
<tr>
<td height="36"> </td>
<td><input type="submit" name="Submit" value="Submit"></td>
</tr></form>
</table>
</body>
</html>
< show.asp >
<%@LANGUAGE="JSCRIPT" CODEPAGE="65001"%>
<%
function TestComponent()
{
try
{
var obj = new ActiveXObject ("ASPCOM.MyTest");
obj.TestASPComp();
delete obj;
}
catch(e)
{
Response.Write("Error " + (e.Number & 0xFFFF));
Response.Write(" - " + e.Description);
}
}
%><html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>windstep.com</title>
</head>
<body>
<%
TestComponent();
%>
</body>
</html>
下面分别是两个页面的执行结果：
< form.htm >
< show.asp >
OK，就是这个样子了，其它对象的使用都跟在脚本里差不多，你可以简单试一下。本DEMO在Windows 2003 Server（website）+ VC.Net 2003 + IIS 6.0 环境下测试通过。
杭州·飘鸥
Email: windstep(at)126.com
Website: http://www.windstep.com
2005.09.22
