<!--#include virtual="/inc/conn.asp"--> 
<!--#include virtual="/inc/sitecon.asp"-->
<%

'========商户使用本平台短信网关接口========
aysmsuser=aysmsuser
aysmspass=aysmspass


function getHTTPPagetel(tel,con) 
url="https://api.28ye.com/apisms.asp?id="&aysmsuser&"&pwd="&aysmspass&"&ito="&tel&"&content="&con
dim Http 
set Http=server.createobject("MSXML2.XMLHTTP") 
Http.open "GET",url,false 
Http.send() 
if Http.readystate<>4 then exit function 
getHTTPPagetel=BytesToBstrT(Http.responseBody,"gb2312") 
set http=nothing 
if err.number<>0 then err.Clear  
end function 

Function  BytesToBstrT(body,Cset)
if lenb(body)=0  then
BytesToBstrT=""
exit  function
end if
dim mystream
set mystream=server.createobject("adodb.stream")
mystream.type=2
mystream.mode=3
mystream.open
mystream.writetext body
mystream.position=0
mystream.charset=Cset
mystream.position=2
bstr=mystream.readtext()
mystream.close
set mystream=nothing
BytesToBstrT=bstr
End Function


'teln="18600079563"
'content="欢迎注册成为会员，请激活帐号。"
'ustr=getHTTPPagetel(teln,content)
'response.Write ustr
%>

