crazy_1892
چهارشنبه 13 مهر 1390, 19:32 عصر
سلام دوستان گلم
من این فانکشن را سایت کپی گرفتم و اینجا میذارم
میشه به یک تابع در aspx تبدیل کنید برام
Function SMSSEND(username,password,too,text)
sMsg = server.urlencode(text)
sBaseUrl = "http://www.azadsms.com/API_sendsms.asp"
set objHTTP = Server.CreateObject("msxml2.XMLHTTP")
objHTTP.open "POST", sBaseUrl, False
objHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
objHTTP.send "username=" & username & "&password=" & password & "&to=" & too & "&text=" & sMsg
SMS_SEND = objHTTP.responseText
Set objHTTP = Nothing
End Function
response.write SMSSEND("username","password","09120009999","tttttttssst")
من این فانکشن را سایت کپی گرفتم و اینجا میذارم
میشه به یک تابع در aspx تبدیل کنید برام
Function SMSSEND(username,password,too,text)
sMsg = server.urlencode(text)
sBaseUrl = "http://www.azadsms.com/API_sendsms.asp"
set objHTTP = Server.CreateObject("msxml2.XMLHTTP")
objHTTP.open "POST", sBaseUrl, False
objHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
objHTTP.send "username=" & username & "&password=" & password & "&to=" & too & "&text=" & sMsg
SMS_SEND = objHTTP.responseText
Set objHTTP = Nothing
End Function
response.write SMSSEND("username","password","09120009999","tttttttssst")