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

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


相关文档:

asp 操作xml

<% dim xml,root,allitem,nodecount
set xml=server.CreateObject("MicroSoft.XMLDom")
      xml.load(server.mappath("style.xml"))
       if   xml.parseError.errorCode   <>   0   then ......

asp下闰年计算方法

计算闰年主要是为了判断2月份的天数,一般闰年2月份是29天,平年2月份是28天。计算闰年的算法非常简单,即:能被400整除,或者能被4整除而不能被100整除。
算法如下:
 function isLeapYear(pYear)
    set oreg=new RegExp
    oreg.Pattern="^\d{4}$"
    if n ......

asp vb com组件开发与调试

今天在公司服务器上看一个老掉牙的asp程序,发现竟然调用了自定义com组件,是vb写的,封装了数据库连接与操作,文档上写这样做是为什么用户到服务器也看不到数据库的用户名与密码,也对啊,这个是财务的服务器,当然不能让我们it随便看了,呵呵!(it忽悠finance,让finance相信it看不到数据库用户名与密码,my god)由于, ......

使用ASP验证email邮箱地址

<%
'true=是邮件;false=不是;
Function validate(ByVal str)
Dim temp,reg
Set reg = new regexp
reg.ignorecase=true
reg.global=true
reg.pattern = "^\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*$"
validate = reg.test(Trim(str))
Set reg = Nothing
End Function
'************************ ......

ASP中调用带参数输出的COM接口

 COM接口VC实现,接口:
[id(1), helpstring("method Test")] HRESULT Test([in] BSTR strInputA, [in] BSTR strInputB, [out,retval] VARIANT* result);
ASP调用:
Set   objCompInfo   =server.CreateObject("组件在系统中的名字")  
      ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号