ajax.asp

利用免费的API（飞信）给手机免费发短信的小程序

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
option explicit
response.charset = "UTF-8"
session.codepage = 65001

'需要设置的地方
Const username	= "13900010001"		'手机号码
Const password	= "admin888"		'密码
Const sendto	= "13900010001"		'发送的手机头，必须为本机或飞信好友
Const mypass	= "admin888"		'设置可以无限发送的密码
Const mysend	= 3					'设置每日发送次数


'###########################################下面不需要改动##########################################'

Dim m_name,m_content,m_cookies,m_session
	m_name		= Request.Form("name")
	m_content	= Request.Form("content")
	m_session	= Session("mobile")
	m_cookies	= request.Cookies("mobile")

'输入验证
If Len(m_name)=0 Then Response.Write "mob_name|False|昵称不能为空！":Response.End
If Len(m_content)=0 Then Response.Write "mob_content|False|内容不能为空！":Response.End

'密码验证
If m_name	= mypass Then

	'加上识别符
	Call fetion("[密码]:"&cls(m_content))
	Response.Write "mob_content|True|短信已成功发送！"

Else
	
	'服务器和本地同时验证
	If Len(m_session)=0 Then
		If Len(m_cookies)=0 Then
			m_session	= 1
		Else
			m_session	= m_cookies
		End If
	End if

	'每天最多发送
	If m_session > mysend Then
		Response.Write "ok|False|今日发送已达上限！"
	Else
		m_session=m_session+1
		Call fetion("[短信]"&Left(m_name,11)&":"&cls(m_content))
		Response.Write "mob_content|True|已成功发送"&m_session-1&"条短信！"
	End If

	'写入
	Session("mobile")=m_session
	response.Cookies("mobile")=m_session
	response.Cookies("mobile").Expires=dateadd("H",12,now())

End If


'# 发送飞信
Function fetion(text)
on error resume Next
dim http 
Set http=Server.createobject("Mic"&"ros"&"oft.XM"&"LHTTP") 
	Http.open "GET","http://sms.api.bz/fetion.php?username="&username&"&password="&password&"&sendto="&sendto&"&message="&text,True
	Http.send() 
set http=Nothing
End Function

'# 清理内容
Function cls(ByVal html)
	Html = replace(Html, chr(13), "")					'清除换行符
	Html = replace(Html, chr(10), "")					'清除换行
	Html = replace(Html, chr(9), "")					'清除TAB
	cls = left(Html,140)
End Function
%>