?? 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 + -