📄 sendsms.asp.bak
字号:
<!--#include file="asp/sqlstr.asp"-->
<!--#include file="asp/opendb.asp"-->
<!--#include file="asp/checked.asp"-->
<!--#include file="asp/keepformat.asp"-->
<!--#include file="js/htm.inc"-->
<%
'*****企业用户******
Dim isSend
rmobile = request("r-mobile")
smobile = request("s-mobile")
smstext=htmlencode2(request("smstext"))
if r-mobile<>"" and smstext<>"" then
Set Dsms=server.createobject("DllSendSms.DllSendSms")
isSend=Dsms.Send(smobile,rmobile,smstext,"test","test","8080011")
if isSend=true then
Response.write "发送成功"
else
Response.write "发送失败"
end if
set Dsms=nothing
end if
%>
<html>
<head>
<title>发送短消息</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body bgcolor="#EBEBEB" text="#000000" leftmargin="0" topmargin="0">
<table width="100%" border="0" cellspacing="0">
<tr>
<td bgcolor="3F6090"> <font color="3F6090">-</font></td>
</tr>
</table>
<form name="form1" method="post" action="sendsms.asp">
<table width="520" border="0" cellspacing="1" align="center" cellpadding="5">
<tr>
<td colspan="2" bgcolor="#EEEEEE" height="40">
<div align="center"><b><font size="4">发送手机短消息</font></b></div>
</td>
</tr>
<tr>
<td width="26%" bgcolor="#F5F5F5" height="30">收者手机号码： </td>
<td width="74%" bgcolor="#FFFFFF" height="30">
<input type="text" name="r-mobile" size="50">
</td>
</tr>
<tr>
<td width="26%" bgcolor="#F5F5F5" height="30">您的手机号码： </td>
<td width="74%" bgcolor="#FFFFFF" height="30">
<input type="text" name="s-mobile">
</td>
</tr>
<tr>
<td width="26%" bgcolor="#F5F5F5" valign="top">短消息 内 容:</td>
<td width="74%" bgcolor="#FFFFFF" height="30">
<textarea name="smstext" cols="50" rows="6"></textarea>
</td>
</tr>
<tr bgcolor="#EEEEEE">
<td colspan="2">
<div align="center">
<input type="submit" name="Submit" value=" 发 送 ">
<font color="#EEEEEE">-- </font>
<input type="reset" name="Submit2" value=" 重 来 ">
</div>
</td>
</tr>
</table>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -