string HttpPost(string uri, string parameters)
{
    WebRequest webRequest = WebRequest.Create(uri);
    webRequest.ContentType = "application/x-www-form-urlencoded";
    webRequest.Method = "POST";
    byte[] bytes = Encoding.UTF8.GetBytes(parameters);//这里需要指定提交的编码
    Stream os = null;
    try
    { // send the Post
	webRequest.ContentLength = bytes.Length;   //Count bytes to send
	os = webRequest.GetRequestStream();
	os.Write(bytes, 0, bytes.Length);         //Send it
    }
    catch (WebException ex)
    {
	MessageBox.Show(ex.Message, "HttpPost: Request error",
	   MessageBoxButtons.OK, MessageBoxIcon.Error);
    }
    finally
    {
	if (os != null)
	{
	    os.Close();
	}
    }

$post_data = array();
$post_data['userid'] = 企业ID;
$post_data['account'] = '用户帐号';
$post_data['password'] = '密码';
$post_data['content'] = urlencode('测试php提交'); //短信内容需要用urlencode编码下
$post_data['mobile'] = '号码';
$post_data['sendtime'] = ''; //不定时发送，值为0，定时发送，输入格式YYYY-MM-dd HH:mm:ss的日期值
$url='http://客户端地址/sms.aspx?action=send';
$o='';
foreach ($post_data as $k=-->$v)
{
   $o.="$k=".urlencode($v).'&';
}
$post_data=substr($o,0,-1);
$ch = curl_init();
curl_setopt($ch, CURLOPT_POST, 1);
curl_setopt($ch, CURLOPT_HEADER, 0);
curl_setopt($ch, CURLOPT_URL,$url);
curl_setopt($ch, CURLOPT_POSTFIELDS, $post_data);
//curl_setopt($ch, CURLOPT_RETURNTRANSFER, 1); //如果需要将结果直接返回到变量里，那加上这句。
$result = curl_exec($ch);

<% 
Class SmsSend
	'____________________
	Private value_			'反回信息
	Private src_			'提交的目标URL地址
	Private userid_				'
	Private password_			'密码，中英文及数字
	Private account_			'用户名，中英文及数字
	Private content_		'短信内容，中英文及数字
	Private mobile_			'手机号码，用半角逗号（,）间隔
	Private sendtime_		'定时发送时间，默认0，格式yyyymmddhhnnss，小于当前时间的立即发送
	Private charset_		'
	Private isGet_			'判断是否已经提交
	Private strxml_			'
	
	Public property let src(srcs)	'赋值—短信内容
	src_ = srcs
	End Property
	
	Public property let userid(userids)	'赋值—短信内容
	userid_ = userids
	End Property
	
	Public property let password(passwords)	'赋值—短信内容
	password_ = passwords
	End Property
	
	Public property let account(accounts)	'赋值—短信内容
	account_ = accounts
	End Property
	
	Public property let content(contents)	'赋值—短信内容
	content_ = contents
	End Property
	
	Public property let mobile(mobiles)		'赋值—手机号码
	mobile_ = mobiles
	End Property
	
	Public property let sendtime(sendtimes)		'赋值—手机号码
	sendtime_ = sendtimes
	End Property
	
	Public property let charset(charsets) '赋值—提交的目标URL地址/属性
	charset_ = charsets
	End property
	
	Public property get value '返回值—应用类方法加工过的内容/属性
	value = value_
	End property
	
	Public Property get Version
		Version="短信发送类"
	End Property
	
	private Sub class_initialize()
		value_ = ""
		src_ = "http://客户端地址/sms.aspx"
		userid_ = "12"
		password_ = "123456"
		account_="test"
		content_ = ""
		mobile_ = ""
		sendtime_ = 0
		charset_ = "gb2312"
		isGet_ = False
	End Sub
		
	private Sub class_terminate()
	End Sub
	
	private Function BytesToBstr(body,Cset) '中文处理
		dim objstream
		set objstream = Server.CreateObject("adodb.stream")
		objstream.Type = 1
		objstream.Mode =3
		objstream.Open
		objstream.Write body
		objstream.Position = 0
		objstream.Type = 2
		objstream.Charset = Cset
		BytesToBstr = objstream.ReadText 
		objstream.Close
		set objstream = nothing
	End Function
	
	Public Sub getto() '窃取目标URL地址的HTML代码/方法
		Dim Http
		Set Http = Server.CreateObject("Msxml2.XMLHTTP.3.0")
		If Err Then
			Err.Clear
			Set Http = Server.CreateObject("Msxml2.XMLHTTP")
			If Err Then
				Err.Clear
				Set Http = Server.CreateObject("Microsoft.XMLHTTP")
				If Err Then
					Err.Clear
					Rem 服务器不支持Msxml，本程序无法运行！
					Exit Sub
				End If
			End If
		End If
		Http.Open "POST", src_, False
		If action_ = 1 Or action_ = 2  Then
		strxml_ = "action=send&userid="&userid_&"&account="&account_&"&password="&password_&"&action="&action_
		Else
		strxml_ = "action=send&userid="&userid_&"&account="&account_&"&password="&password_&"&content="&content_&"&mobile="&mobile_&"&sendtime="&sendtime_
		End If
		Http.SetRequestHeader "CONTENT-LENGTH ",len(strxml_)
		Http.SetRequestHeader "CONTENT-TYPE", "application/x-www-form-urlencoded"
		Http.Send(strxml_)
		If Http.Status<>200 Then
			value_="sms error"
			Exit Sub
		End If
		value_=BytesToBSTR(Http.responseBody,charset_)
		isGet_= True
		Set http=Nothing
		If err.number<>0 Then err.Clear
		
		Set objXML = Server.CreateObject("MSXML2.DOMDocument")
		objXML.validateonparse = true
		objXML.async=false
		objXML.loadXML(value_)
		Set objNodes = objXML.getElementsByTagName("returnsms") 
		Dim returnstatus
		Dim remainpoint
		Dim message
		if not isNUll(objNodes(0)) then
			returnstatus=Trim(objNodes(0).getAttribute("returnstatus"))
			if returnstatus="Success" then
				response.Write("提交成功")
			else
				
				response.Write("提交失败")
			end if
		end if
		
	End Sub

End class

dim sendsms
Set sendsms = New SmsSend
call sendsms.getto()
Set sendsms=nothing
%>