ismsgetnew.asp

来自「目前政府、企业信息化」· ASP 代码 · 共 25 行

ASP
25 行
字号 
<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>

ismsgetnew.asp - 源码说明

本页面展示了「目前政府、企业信息化」中的 ismsgetnew.asp 源码文件，采用 ASP 编程语言编写，共 25 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与短信平台相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?