asp如何通过websevice接口发送短信
websevice接口如下：
sysid=111111  (接入账号)；
authCode=123456789  接入密码（密码＋校验码）,MD5 32位加密；
reqno=20120815194701 短信提交流水号
dest=13800138000 （接收号码）
sourceAddr=1061111111111 （消息源地址）
content=短信内容
param 手机号码数组，一次可发送多个号码
webservice接口地址：http://111.111.111.111:20/msgService/services/submitService?wsdl

找到一个PHP的示例，但无奈对PHP几乎不了解，求懂PHP的照着给改个asp的。
或者提供下解决方案。。感激不尽

<?

$PHONE="15186997171,18786077320,15180862841";

$CONTENT="测试：test";

//-- 向手机号码发送 --

	$wsdl="http://111.111.111.111:20/msgService/services/submitService?wsdl";//webservice接口地址

	$username="111111";//用户名（sendsmsuser）

	$password="12345";//密码（sendsmsuser）

	$checkcode="6789"; //校验码

	$sourceAddr="1061111111111"; //消息源地址

	$serialnumber= (string)time(); //流水号

	$sysid=$username;

	$authCode=MD5($password.$checkcode);

	$reqno=$serialnumber;

	mb_substr ($CONTENT, 0, 200, $MYOA_CHARSET);

	

	if($SEND_TIME=="")

	   $SEND_TIME=date("Y-m-d H:i:s",time());

	

	$message = iconv("gb2312","utf-8",$CONTENT);

	$MY_ARRAY=explode(",",$PHONE);

	$ARRAY_COUNT=sizeof($MY_ARRAY);

	$ERROR_CODE="";

  for($I=0;$I< $ARRAY_COUNT;$I++)

  {

    if(trim($MY_ARRAY[$I])!="")

    {

      if(is_number($MY_ARRAY[$I]) || $MY_ARRAY[$I][0] == "+" && is_number(substr($MY_ARRAY[$I], 1)))

      {

      	 $PHONE_LIST=array();

      	 $PHONE_LIST[count($PHONE_LIST)]=$MY_ARRAY[$I];

         $message = iconv("gb2312","utf-8",$CONTENT);

				 $ReqHeader=array(

				 								'authCode'=> $authCode,

				 								'reqno'=> $reqno,

				 								'sysid'=> $sysid

				 							);

				 $SmsSubmit=array(

				 								'content'=> $message,

				 								'dest' => $PHONE_LIST,

				 								'param' => null,

				 							  'sourceAddr' => $sourceAddr

				 							 );

				 $parameters=array(

				 									'arg0'=> $ReqHeader,

				 									'arg1'=> $SmsSubmit

				 								);

				 $client = new SoapClient($wsdl);

				 try

				{

            $result=$client->__Call("smsSubmit",array('parameters'=> $parameters ));

				 }

				 catch(SoapFault $e){}

			}

		}

	}





?>

------解决方案--------------------
可以用第三方组件pocketsoap去调用 http://www.pocketsoap.com/pocketsoap
主要是soap请求头正确就可以了.
------解决方案--------------------
参考代码：
<%
'定义参数
dim name,password
'依次为WebService的服务器地址、文件名称、方法接口
url = "http://192.168.10.1/Email.asmx/EmailSend"
'传递参数,如果包含&,需要使用%26进行替换
SoapRequest="name=name&password=password"
 
 
Set xmlhttp = server.CreateObject("Msxml2.XMLHTTP")
xmlhttp.Open "POST",url,false
xmlhttp.setRequestHeader "Content-Type","application/x-www-form-urlencoded"
xmlhttp.setRequestHeader "HOST","192.168.10.1"
xmlhttp.setReq