使用ASP发送飞信的免费短信
要实现在asp网站上发送飞信,要求是中国移动的手机用户,并且开通移动飞信功能。
使用以下asp代码,修改参数为你的手机号及飞信密码,就可以实现在网站发免费短信功能。
fsend.asp文件源代码如下:
<%
Dim fno,fp,tofno,rurl
fno="138xxxxxxxx" '手机号
fp="xxxxxxxx" '飞信密码
tofno="137xxxxxxxx" '发送目标手机号(要求是自己的号码或飞信好友)
rurl="" '提交后转移到的目标地址(留空将不转移)
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>请留下你的联系信息</title>
</head>
<body style="font-size: 10pt; font-family: 宋体">
<%if (Request("msg")="") then%>
<form method="POST" action="fsend.asp">
<br>请留下你的联系信息<br>
<hr>
联系信息:<br><textarea rows="5" name="msg" cols="27"></textarea><br>
<p><input type="submit" value="提交" name="B1"></p>
</form>
<%
else
Dim returnString
Dim msg
msg=Request("msg")
returnString=sendf(fno,fp,tofno,msg)
if rurl="" then
Response.Write returnString&"<br><a href='fsend.asp'>返回</a>"
else
Response.Redirect rurl
end if
end if
%>
</body>
</html>
<%
function sendf(fno,fp,tofno,msg)
'函数参数说明:fno=登录手机号,fp=登录密码,tofno=目标手机号,msg=要发送的信息
Dim returnString
Dim SoapRequest
&n
相关文档:
hzhost防asp攻击函数
Function SafeRequest(ParaName)
Dim ParaValue
ParaValue=Request(ParaName)
if IsNumeric(ParaValue) then
SafeRequest=ParaValue
exit Function
else
ParaValuetemp=lcase(ParaValue)
tempvalue="select
|insert |delete from|'|count(|dr ......
dim arr(36),xx,tt,tmp
for xx=1 to 36
arr(xx-1)=xx
next
for xx=1 to 5
Randomize
tt=clng((ubound(arr)-xx)*rnd())
response.write(arr(tt) & "<br>")
tmp=arr(tt)
arr(tt)=arr(ubound(arr)-xx)
arr(ubou ......
<% dim xml,root,allitem,nodecount
set xml=server.CreateObject("MicroSoft.XMLDom")
xml.load(server.mappath("style.xml"))
if xml.parseError.errorCode <> 0 then ......
在ASP中使用 Request.ServerVariables("REMOTE_ADDR") 来取得客户端的IP地址,但如果客户端是使用代理服务器来访问,那取到的就是代理服务器的IP地址,而不是真正的客户端IP地址。要想透过代理服务器取得客户端的真实IP地址,就要使用 Request.ServerVariables("HTTP_X_FORWARDED_FOR") 来读取。不过要注意的事,并不是每个 ......
按“F12”试试效果。
注:常用的时间函数:
now() 获取当前系统日期和时间,ASP输出可以这样写:<%=now()%>
Year(now()) 获取年份 ......