易截截图软件、单文件、免安装、纯绿色、仅160KB

使用ASP发送飞信的免费短信

 使用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


相关文档:

ASP中ByVal与ByRef的区别

废话不多说,贴代码:
先来看看ByVal传值:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Dim arr(2)
arr(0) = 0
arr(1) = 1
arr(2) = 2
Call sub1(arr)
Sub sub1(ByVal a)
a(0) = 9
a(1) = 8
a(2) = 7
Response.Write("我在sub过程中更改了值:"&a(0)&","&a(1)&","&a(2))
......

ASP 多图片上传

1:上传页面
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="te ......

asp 图片循环滚动(left)

<div class="scrollImgList1" id="scrollImgList1">
 <div class="LeftBotton" onmousedown="ISL_GoUp_1()" onmouseup="ISL_StopUp_1()" onmouseout="ISL_StopUp_1()"></div>
 <div class="Cont" id="ISL_Cont_1">
  <div class="ScrCont">
   <d ......

asp数组随机排序

这段代码的功能是:将一个数组打乱顺序,显示出来,让每一次显示的顺序都不一样。
<%
Dim tt
tt=Split("1,2,3,4,5,6",",")
'随机排序  
leng=UBound(tt)
randomize  
for ii=0 to leng-1  
 b=int(rnd()*leng)  
 temp=tt(b)  
 tt(b ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号