📄 ismslist.asp
字号:
<HTML>
<HEAD>
<TITLE>SMSServer短信消息平台演示程序</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel='stylesheet' type='text/css' href='iSMSCss.css'>
<SCRIPT LANGUAGE="JavaScript">
function CheckFrm(theForm)
{
function trim(strInput)
{
if (strInput != null)
return strInput.replace(/(^\s*)|(\s*$)/g, "");
else
return "";
}
if (trim(theForm.To_Mobile.value)=="")
{
alert("请输入接收手机号码");
theForm.To_Mobile.focus();
return (false);
}
if (theForm.Content.value == "")
{
alert("请输入消息内容");
theForm.Content.focus();
return (false);
}
var ContentStr=theForm.Content.value;
if (ContentStr.length>60){
alert("消息内容已经大于60个字.");
theForm.Content.focus();
return (false);
}
return (true);
}
</SCRIPT>
</HEAD>
<BODY>
<Form method="post" name="SendFrm" action="iSMSSend.asp" onsubmit="return CheckFrm(this);">
<input type="hidden" name="From_Mobile" value="+8613760732599">
<table width="100%" border="0" cellpadding="0" cellspacing="0" align="center" class=TBStyle>
<tr>
<td class="TDTitleStyle" valign=top>
<table width="100%" border="0" cellpadding="0" cellspacing="0" align="center" class=TBStyle>
<tr>
<td colspan="2" height="26" class="TDTitleStyle" align="center"><b>SMSServer短信消息平台——使用说明</b></td>
</tr>
<tr>
<td colspan="2" height="93" class="TDTitleStyle">
SMSServer短信消息平台提供高可靠的扩展，支持jsp 的JavaBean和asp,.net的COM调用，结合无线Modem进行开发，是企业、政府单位随时随地提醒的解决方案。本演示接收短信号码为：<font color='red'>13760732599</font>，测试接收功能可通过您的手机发送短信息到本号码上，本系统收到短消息后，会在本页面提示有新短信，您刷新本页就可以看到接收的信息。<!--br> <font color='red'>SMSServer程序正在测试中... ...</font-->
</td>
</tr>
</table>
</td>
<td class="TDTitleStyle" width=320 align=center>
<table width="100%" border="0" cellpadding="0" cellspacing="0" align="center" class=TBStyle>
<tr>
<td colspan="2" height="26" class="TDTitleStyle" align="center"><b>发送短信</b></td>
</tr>
<tr>
<td align="right" width="40%" class="TDTitleStyle">手机号码：</td>
<td class="TDTitleStyle"><input type="text" name="To_Mobile" size="11" value="" maxlength="11">姓名:<input type="text" name="Sender" size="8" maxlength="8"></td>
</tr>
<tr>
<td align="right"class="TDTitleStyle">信息内容：</td>
<td class="TDTitleStyle"><textarea name="Content" rows="4" cols="32"></textarea></td>
</tr>
</table>
<input type="submit" name="btnLogin" accessKey="L" value="发 送-S" >
<input type="reset" name="btnQuit" accessKey="R" value="重 填-R">
</td>
</tr>
</table>
</Form>
<table width="100%" border="0" cellpadding="0" cellspacing="0" align="center" class=TBStyle>
<tr>
<td colspan="10" height="26" class="TDTitleStyle" align="center"><b>短信消息列表</b></td>
</tr>
<tr>
<td colspan="10" height="26" class="TDTitleStyle"><div id="idSmsRecNew"> </div></td>
</tr>
<tr>
<td nowrap align=center class="TDTitleStyle" height="25">编号</td>
<td nowrap align=center class="TDTitleStyle">发送号码</td>
<td nowrap align=center class="TDTitleStyle">接收号码</td>
<td nowrap align=center class="TDTitleStyle">内容</td>
<td nowrap align=center class="TDTitleStyle">状态</td>
<td nowrap align=center class="TDTitleStyle">完成时间</td>
<td nowrap align=center class="TDTitleStyle">创建时间</td>
</tr>
<%
Dim mSql,blFlag
blFlag = false
Set Rs = Server.CreateObject("ADODB.RecordSet")
mSql = "select top 30 Sms_Msg_No,From_Mobile,To_Mobile,Content,Msg_Status,Finish_DateTime,Enter_DateTime from Sms_Tb_Msg order by Sms_Msg_No desc"
Rs.Open mSql,Session("iSMSDemo"),1,1
if Not Rs.EOF then
Do while Not Rs.EOF
strMsg_Status = Rs("Msg_Status")
strContent = Rs("Content")
if (strMsg_Status="R") then
blFlag = true
strMsg_Status_Name = "已收"
strContent="<font color='red'>"+strContent+"</font>"
end if
if (strMsg_Status="L") then
strMsg_Status_Name = "接收"
end if
if (strMsg_Status="N") then
strMsg_Status_Name = "待发"
end if
if (strMsg_Status="Y") then
strMsg_Status_Name = "已发"
end if
if (strMsg_Status="F") then
strMsg_Status_Name = "无效"
end if
%>
<tr>
<td class="TDStyle"><%=Rs("Sms_Msg_No")%> </td>
<td class="TDStyle"><%=Rs("From_Mobile")%> </td>
<td class="TDStyle"><%=Rs("To_Mobile")%> </td>
<td class="TDStyle"><%=strContent%> </td>
<td class="TDStyle" width="40"><%=strMsg_Status_Name%> </td>
<td class="TDStyle"><%=Rs("Finish_DateTime")%> </td>
<td class="TDStyle"><%=Rs("Enter_DateTime")%> </td>
</tr>
<%
Rs.MoveNext
Loop
Rs.Close
Set Rs = Nothing
End If
If (blFlag) Then
mSql="update Sms_Tb_Msg Set Msg_Status='L' where Msg_Status='R'"
Session("iSMSDemo").execute(mSql)
End IF
%>
</table>
<iframe name="FrmRefresh" src="iSMSRefresh.asp" width="0" height="0" border=1 frameborder=1></iframe>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -