www.gusucode.com > 艺术签名文章资讯网源代码 > 艺术签名文章资讯网源代码/624/user/usersms.asp
<!--#include file="config.asp"--> <!--#include file="check.asp"--> <!--#include file="../inc/md5.asp"--> <!--#include file="head.inc"--> <% Call InnerLocation("用户短信服务") Dim Rs,SQL,i,Action Dim Maxsms,boxname,smstype,readaction If CInt(GroupSetting(22)) = 0 Then ErrMsg = ErrMsg + "<li>对不起!您没有使用短信服务的权限,如有什么问题请联系管理员。</li>" Founderr = True End If Maxsms = CLng(GroupSetting(24)) Call showmain If Founderr = True Then Call Returnerr(ErrMsg) End If Sub showmain() If Founderr = True Then Exit Sub Dim smsCount,DelCount smsCount=0 Set Rs = Newasp.Execute("SELECT Count(id) FROM NC_Message WHERE flag=0 And incept='"& Membername &"'") smsCount = CLng(Rs(0)) '以下判断为自动删除多出来的短消息 If smsCount > Maxsms And Maxsms <> 0 Then i = smsCount-Maxsms Set Rs=Newasp.Execute("SELECT TOP "& i &" id FROM NC_Message WHERE incept='"& Membername &"' ORDER BY id,isRead DESC") While Not Rs.EOF Newasp.Execute("DELETE FROM NC_Message WHERE id="& rs(0)) Rs.movenext Wend smsCount = Maxsms End if Rs.Close:Set Rs = Nothing %> <script language="JavaScript"> <!-- function newasp_usersms_smsbox_top(smstype){ document.write ('<th valign=middle width=30 height=25 noWrap>已读</th>'); document.write ('<th valign=middle width=100>'); if (smstype=='inbox') { document.write ('发件人'); }else{ document.write ('收件人'); } document.write ('</th>'); document.write ('<th valign=middle width=300>主题</th>'); document.write ('<th valign=middle width=150>日期</th>'); document.write ('<th valign=middle width=50>大小</th>'); document.write ('<th valign=middle width=30 noWrap>操作</th>'); document.write ('</tr>'); } function newasp_usersms_smsbox_emp(boxname){ document.write ('<tr>'); document.write ('<td class=Usertablerow1 align=center valign=middle colspan=6>您的'+boxname+'中没有任何内容。</td>'); document.write ('</tr>'); } function newasp_usersms_smsbox_loop(flag,isread,sms_type,sender,incept,title,sendtime,clength,id,readaction){ var tablebody,newstyle; if (isread==0) { tablebody="Usertablerow2"; newstyle="font-weight:bold"; }else{ tablebody="Usertablerow1"; newstyle="font-weight:normal"; } document.write ('<tr>'); document.write ('<td class='+tablebody+' align=center valign=middle>'); if (flag==0){ if (isread==0){ document.write ('<img src="images/m_news.gif" border=0 alt="新短信">'); }else{ document.write ('<img src="images/m_olds.gif" border=0 alt="旧短信">'); } }else{ document.write ('<img src="images/m_issend_2.gif" border=0 alt="系统短信">'); } document.write ('</td>'); document.write ('<td noWrap class='+tablebody+' align=center valign=middle style="'+newstyle+'">'); if (sms_type=='inbox') { document.write ('<a href="userlist.asp?name='+sender+'" target=_blank>'+sender+'</a>'); }else { document.write ('<a href="userlist.asp?name='+incept+'" target=_blank>'+incept+'</a>'); } document.write ('</td>'); document.write ('<td class='+tablebody+' align=left style="'+newstyle+'"><a href="message.asp?action='+readaction+'&sid='+id+'&sender='+sender+'">'+title+'</a> </td>'); document.write ('<td noWrap class='+tablebody+' style="'+newstyle+'">'+sendtime+'</td>'); document.write ('<td noWrap class='+tablebody+' style="'+newstyle+'">'+clength+'Byte</td>'); document.write ('<td align=center valign=middle width=30 class='+tablebody+'><input type=checkbox name=id value='+id+'></td>'); document.write ('</tr>'); } function newasp_usersms_smsbox_footer(boxname){ document.write ('<tr>'); document.write ('<td align=right valign=middle colspan=6 class=Usertablerow2>节省每一分空间,请及时删除无用信息 <input type=checkbox name=chkall value=on onclick="CheckAll2(this.form)">选中所有显示记录 <input type=submit name=action onclick="{if(confirm(\'确定删除选定的纪录吗?\')){return true;}return false;}" value="删除'+boxname+'" class=button> <input type=submit name=action onclick="{if(confirm(\'确定清除'+boxname+'所有的纪录吗?\')){this.document.inbox.submit();return true;}return false;}" value="清空'+boxname+'" class=button></td>'); document.write ('</tr>'); document.write ('</form></table>'); } //--> </script> <table cellspacing=1 align=center cellpadding=3 border=0 class=Usertableborder> <tr> <th>>> 短信服务 <<</th> </tr> <tr> <td align=center class=Usertablerow1><a href="usersms.asp?action=inbox"><img src="images/m_inbox.gif" border="0" alt="收件箱"></a> <a href="usersms.asp?action=sendbox"><img src="images/M_issend.gif" border="0" alt="已发送邮件"></a> <a href="message.asp?action=alldel" onclick=showClick('您确定要清空所有短消息吗?')><img src="images/recycle.gif" border="0" alt="清空所有短消息"></a> <a href="friend.asp"><img src="images/M_address.gif" border="0" alt="地址簿"></a> <a href="message.asp?action=new"><img src="images/m_write.gif" border="0" alt="发送讯息"></a></td> </tr> </table> <br style="overflow: hidden; line-height: 10px"> <table cellspacing=1 align=center cellpadding=3 bgcolor=#cccccc border=0 class=Usertableborder> <tr height=20> <td colspan=6 class=Usertablerow1><table Width="100%" cellpadding=2 cellspacing=1 border=0 align=center style="display:nowrap"><TR> <td Width="100" align=right>您的邮箱容量:</td> <td Width="*"><img src="images/bar1.gif" width="0" height="16" id="Sms_bar" align=absmiddle></td> <td Width="150" align=center id="Sms_txt">0%</td> </tr></table></td> </tr> <form action="message.asp" method=post name=inbox> <% SQL = "SELECT * FROM NC_Message " Action = LCase(Replace(Request("action"), "'", "")) Select Case Trim(Action) Case "inbox" SQL = SQL + " WHERE incept = '"& Membername &"' Or flag = 1 ORDER BY id DESC" boxname = "收件箱" smstype = "inbox" readaction = "read" Case "sendbox" SQL = SQL + " WHERE sender = '"& Membername &"' And delSend = 0 ORDER BY id DESC" boxname = "发件箱" smstype = "sendbox" readaction = "outread" Case Else SQL = SQL + " WHERE incept = '"& Membername &"' Or flag = 1 ORDER BY id DESC" boxname = "收件箱" smstype = "inbox" readaction = "read" End Select Call usersmsbox Response.Write ShowTable("Sms_bar","Sms_txt",smsCount,Maxsms) End Sub '================================================ ' 过程名:usersmsbox ' 作 用:用户信箱列表 '================================================ Sub usersmsbox() Dim newstyle Dim CurrentPage,page_count,totalrec,Pcount,PageListNum PageListNum = 20 CurrentPage = Request("page") If CurrentPage = "" Or Not IsNumeric(CurrentPage) Then CurrentPage = 1 Else CurrentPage = CLng(CurrentPage) End If Response.Write "<script>newasp_usersms_smsbox_top('"& smstype &"')</script>" Set Rs = Server.CreateObject("ADODB.Recordset") Rs.Open SQL,conn,1,1 If Rs.EOF And Rs.BOF Then Response.Write "<script>newasp_usersms_smsbox_emp('"& boxname &"')</script>" Else Rs.PageSize = PageListNum Rs.AbsolutePage = CurrentPage page_count = 0 totalrec = Rs.recordcount Do While Not Rs.EOF And (Not page_count = Rs.PageSize) Response.Write VbCrLf Response.Write "<script>newasp_usersms_smsbox_loop(" Response.Write Rs("flag") Response.Write "," Response.Write Rs("isRead") Response.Write ",'" Response.Write smstype Response.Write "','" Response.Write EncodeJS(Rs("sender")) Response.Write "','" Response.Write EncodeJS(Rs("incept")) Response.Write "','" Response.Write EncodeJS(Rs("title")) Response.Write "','" Response.Write Rs("sendtime") Response.Write "'," Response.Write Len(Rs("content")) Response.Write "," Response.Write Rs("id") Response.Write ",'" Response.Write readaction Response.Write "')</script>" Response.Write VbCrLf page_count = page_count + 1 Rs.movenext Loop End If Rs.close:Set Rs = nothing If totalrec Mod PageListNum = 0 Then Pcount = totalrec \ PageListNum Else Pcount = totalrec \ PageListNum+1 End If If page_count = 0 Then CurrentPage = 0 Response.Write " <tr height=20>" & vbNewLine Response.Write " <td colspan=6 class=Usertablerow1>" Response.Write ShowPages(CurrentPage,Pcount,totalrec,PageListNum,"action="& Request("action")) Response.Write "</td>" Response.Write " </tr>" & vbNewLine Response.Write VbCrLf Response.Write "<script>newasp_usersms_smsbox_footer('"& boxname &"')</script>" End Sub '================================================ ' 函数名:ShowTable ' 作 用:表示信箱容量 ' 参 数:(图片对象名称,标题对象名称,更新数,总数) '================================================ Function ShowTable(SrcName,TxtName,str,c) Dim Tempstr,Src_js,Txt_js,TempPercent Tempstr = str/C TempPercent = FormatPercent(tempstr,0,-1) Src_js = "document.getElementById(""" + SrcName + """)" Txt_js = "document.getElementById(""" + TxtName + """)" ShowTable = VbCrLf + "<script>" ShowTable = ShowTable + Src_js + ".width=""" & FormatNumber(tempstr*300,0,-1) & """;" ShowTable = ShowTable + Src_js + ".title=""容量上限为:"&c&"条,总共已储存("&str&")条短信!"";" ShowTable = ShowTable + Txt_js + ".innerHTML=""" If FormatNumber(tempstr*100,0,-1) < 80 Then ShowTable = ShowTable + "已使用:" & TempPercent & """;" Else ShowTable = ShowTable + "<font color=\""red\"">已使用:" & TempPercent & ",请赶快清理!</font>"";" End If ShowTable = ShowTable + "</script>" End Function Function EncodeJS(str) str = Newasp.HtmlEncode(str) str = Replace(Replace(Replace(Replace(str,"\","\\"),"'","\'"),VbCrLf,"\n"),Chr(13),"") EnCodeJs = str End Function %> <!--#include file="foot.inc"-->