<%
Function Post(url,data)
	dim Https 
	set Https=server.createobject("MSXML2.XMLHTTP")
	Https.open "POST",url,false
	Https.setRequestHeader "Content-Type","application/x-www-form-urlencoded;charset=UTF-8"
	Https.send data
	if Https.readystate=4 then
		dim objstream 
		set objstream = Server.CreateObject("adodb.stream")
		objstream.Type = 1
		objstream.Mode =3
		objstream.Open
		objstream.Write Https.responseBody
		objstream.Position = 0
		objstream.Type = 2
		objstream.Charset = "utf-8"
		Post = objstream.ReadText
		objstream.Close
		set objstream = nothing
		set https=nothing
	end if
End Function

dim target,post_data
target = "http://sms.106jiekou.com/utf8/sms.aspx"
post_data = "account=&password=&mobile=&content="&Server.URLEncode("您的驗(yàn)證碼是：4557。請(qǐng)不要把驗(yàn)證碼泄露給其他人。如非本人操作，可不用理會(huì)！")

response.Write(Post(target,post_data))
''//請(qǐng)自己解析Post(target,post_data)返回的字符串并實(shí)現(xiàn)自己的邏輯
''100表示成功,其它的參考文檔
%>