在COM组件中使用ASP内置对象-速孚全球组件中文网——全球最大、最优秀的组件\控件产品中文门户

Online Service 在线服务

New Articles 最新更新

Hot Articles 热点文章

Google 广告

首页 … 技术文档 Technical Articles

在COM组件中使用ASP内置对象

（时间:2007-7-24 11:28:50 共有人次浏览）

下载源代码

　　在一些项目中，通常需要采用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

【打印该页】【关闭窗口】

此技术资料来自网络，仅供参考。未经许可，不得转载。
若有侵权，请及时与我们取得联系！

FAQS 常见问题

Consultation 即时咨询