📄 ismsgetnew.asp
字号:
<HTML>
<HEAD>
<TITLE>SMSServer短信消息平台演示程序</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</HEAD>
<BODY>
<%
Dim intSms_Count
Set Rs = Server.CreateObject("ADODB.RecordSet")
mSql = "select count(1) as Sms_Count from Sms_Tb_Msg where Msg_Status='R'"
Rs.Open mSql,Session("iSMSDemo"),1,1
if Not Rs.EOF then
intSms_Count=Rs("Sms_Count")
if (intSms_Count>0) then
mHTML = "<script language='javascript'>parent.parent.idSmsRecNew.innerHTML='目前有接收新短信 "& CStr(intSms_Count) &" 条，<a href=iSMSList.asp><font color=red>阅读短信>></a>';</script>"
Response.Write (mHTML)
else
Response.Write ("<script language='javascript'>parent.parent.idSmsRecNew.innerHTML='目前没有接收新短信。'</script>")
end if
End If
Rs.Close
Set Rs = Nothing
%>
</BODY>
</HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -