send.asp

根据需要

<%

'  常见问题
'  1.开通飞信服务是中国移动提供的一个业务,该业务是免费的.
'  2.该服务收www.nbhtml.com提供,请保存此信息.
'  3.该服务只支持开通中国移动飞信的朋友,把你的手机开通飞信是免费的.可以打10086进行咨询.您的网站使用该功能,可以及时的了解情况,对于第一时间与客户沟通提供了方便.而且是免费的服务
'  作者:A.Gaooo
'  QQ:12094815  网址 www.nbhtml.com

'  安装说明
'  将sendmsgtomobile目录中的文件上传到贵站根目录下,调用请使用js,具体参照test.html




' 您在使用的时候，要做好以下三个参数的设置，才能收到短信-----------------------------------------------
username="13631180371"'这里要设置飞信的手机号码
password="l0v1ngyy2429"'这里是您的飞信密码,把123456修改成你的密码
sendto="13631180371"'默认发送的手机号码，该号码也要开通中国移动飞信服务
yes=1  'yes=1表示开通此功能,0不开通
'-----------------------------------以上请设置好--------------------------------------------------------




if yes=1 then

function ChkPost()
	dim server_v1,server_v2
	chkpost=false
	server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
	server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))
	if mid(server_v1,8,len(server_v2))<>server_v2 then
		chkpost=false
	else
		chkpost=true
	end if
end function

if chkpost=false then
   		response.Write("请不要从站处提交。")
		response.end
else

'定义手机发送短信开始------------------------------------------------------------------------
On Error Resume Next
function getHTTPPage(url)
    dim Http
    set Http=server.createobject("MSXML2.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
msg=request.form("msg")
zz=request.form("zz")
if msg="" or msg="请输入短信内容" then
response.write "<script>alert('短信内容不能为空，如果超过180个字，只发送前180个字。');</script>"
response.Write("<script>history.back();</script>")
response.end
end if
if zz="" or zz="你的大名"  then
response.write "<script>alert('您的大名不能为空');</script>"
response.Write("<script>history.back();</script>")
response.end
end if
ip=Request.serverVariables("REMOTE_ADDR")
message=request.form("msg")
message=left(request.form("zz"),5)&"["&ip&"]:"&message
message=left(message,180)
if username="" then
response.write "<script>alert('短信发送功能未设置好');</script>"
response.Write("<script>javascript:window.close()</script>")
response.end
end if
if password="" then
response.write "<script>alert('短信发送功能未设置好');</script>"
response.Write("<script>javascript:window.close()</script>")
response.end
end if
if sendto="" then
response.write "<script>alert('短信发送功能未设置好');</script>"
response.Write("<script>javascript:window.close()</script>")
response.end
end if
if message="" then
response.write "<script>alert('短信内容不能为空，如果超过180个字，只发送前180个字。');</script>"
response.Write("<script>javascript:window.close()</script>")
response.end
end if
url="http://www.nbhtml.com/api/index.asp?username="&username&"&password="&password&"&sendto="&sendto&"&message="&message&"" 
html=getHTTPPage(url)   
response.write "<script>alert('成功发送短信息。');</script>"
response.Write("<script>javascript:window.close()</script>")
response.end
end if




else
response.write "<script>alert('短信发送功能暂不开通');</script>"
response.Write("<script>javascript:window.close()</script>")
response.end
end if

%>