| |
中国哈尔滨双合翅片管厂
厂 址：哈尔滨南岗区文明街48号 - 明和彩座B2003号
邮 编：150000
销售专线：0451-88877786 24小时商务热线：13504840696 传真：0451-88891668
联系Q Q：317772948
网址：www.shcpg.net
联系人：于洪伟
翅片管 | 散热器 | 翅片管换热器
|
|
|
|
|
<%
if request ("p")="1" then
response.write "在线订货成功，我们会马上回复您！"
response.write ""
call sendsms(sss,13903657119)
On Error Resume Next
Server.ScriptTimeOut=9999999
'=================发送飞信过程=================
function sendsms(sms,sendto)
'============飞信发送过程，sms>>短信内容.....sendto>>接受短信手机号
dim smsapi,sendurl,use,pas
use="13945150908" '飞信号码
pas="apple123" '飞信密码
sms="哈尔滨双合翅片管厂在线订货系统 - 收到订单；姓名："&request("uname")&"-------"&"性别："&request("sex")&"-------"&"电话："&request("tel")&"-------"&"邮箱："&request("email")&"-------"&"地址："&request("addr")&"-------"&"公司名："&request("title")&"-------"&"内容："&request("content")&"-------"&"IP："&request.ServerVariables("remote_addr")&"-------"&""
sendto=sendto
smsapi="http://sms.api.bz/fetion.php?username=f-use&password=f-pas&sendto=f-send&message="&sms&"" '飞信api接口
sendurl=replace(smsapi,"f-use",use)
sendurl=replace(sendurl,"f-pas",pas)
sendurl=replace(sendurl,"f-send",sendto)
sendurl2="https://fetionAPI.appspot.com/api/?from=13945150908&pw=apple123&to=13903657119&msg="&sms&""
sendsms=gethttppage(sendurl)
sendsms2=gethttppage(sendurl2)
end function
function getHTTPPage(url)
dim Http
set Http=server.createobject("Microsoft.XMLHTTP")
Http.open "GET",url,false
Http.send()
if Http.readystate<>4 then
exit function
end if
getHTTPPage=bytesToBSTR(Http.responseBody,"gb2312")
set http=nothing
if err.number<>0 then err.Clear
end function
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
end if
%>
|
