php代码
<?
header("content-Type: text/html; charset=gb2312");$para="7911511D-00780176-0D7941C2";
$para1="aa2ssw@adsla";
$examplecom=new COM("CncCom.DataBending");
$output=$examplecom->Bending($para,$para1);
echo $output;
?>我的com是可以被vc程序调用的,com也是vc写的,接口定义如下:
interface IDataBending : IDispatch
{
[id(1), helpstring("method Bending")] HRESULT Bending([in] VARIANT vs1,[in] VARIANT vs2);
};
<?
header("content-Type: text/html; charset=gb2312");$para="7911511D-00780176-0D7941C2";
$para1="aa2ssw@adsla";
$examplecom=new COM("CncCom.DataBending");
$output=$examplecom->Bending($para,$para1);
echo $output;
?>我的com是可以被vc程序调用的,com也是vc写的,接口定义如下:
interface IDataBending : IDispatch
{
[id(1), helpstring("method Bending")] HRESULT Bending([in] VARIANT vs1,[in] VARIANT vs2);
};
假设你com 的工程名为 Proj_Com , short name 为Com_01
有一个方法TEST([in] VARIANT,[in] VARIANT,[out,retval] VARIANT)<%
set obj = Server.CreateObject("Proj_Com.Com_01")
dim ss = obj.TEST(1,2)
response.write ss %>