开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Internet/网络编程 > WEB源码(ASP,PHP,...) > 查看源码
Sms.Asp
资源名称：shop2.rar　[点击查看]
上传用户：btntkt
上传日期：2021-04-16
资源大小：5296k
文件大小：9k
源码类别：

WEB源码(ASP,PHP,...)

开发平台：

DOS

Sms.Asp：源码内容
  1. <!--#include file="Inc/SysConfig.Asp"-->
  2. <!--#include file="Inc/Page_Cls.Asp"-->
  3. <!--#include file="inc/ubb_Cls.Asp"-->
  4. <%
  5. Dim Action,ID,YxBBs_Ubb
  6. If Not YxBBs.FoundUser Then YxBBs.Error("您还没有注册或者登陆！")
  7. Call YxBBs.Head("论坛短信")
  9. ID=YxBBs.CheckNum(Request.QueryString("ID"))
  10. Action=Lcase(Request.QueryString("Action"))
  11. Select Case Action
  12. Case"save"
  13. SaveSms
  14. Case"del"
  15. Dim ThisSize
  16. ThisSize=Len(YxBBs.execute("Select Content From [YX_Sms] where ID="&ID&" and MyName='"&YxBBs.MyName&"'")(0))
  17. If Not YxBBs.Execute("Select ID From [YX_Sms] where ID="&ID&" and IsNew and MyName='"&YxBBs.MyName&"'").Eof Then
  18. YxBBs.ExeCute("Update [YX_User] Set NewSmsNum=NewSmsNum-1 Where Name='"&YxBBs.MyName&"'")
  19. End If
  20. YxBBs.Execute("Delete From [YX_sms] where ID="&ID&" and MyName='"&YxBBs.MyName&"'")
  21. YxBBs.Execute("Update [YX_User] set SmsSize=SmsSize-"&ThisSize&" where Name='"&YxBBs.MyName&"'")
  22. Response.redirect ("Sms.Asp")
  23. Case"delall"
  24. 'Temp=YxBBs.Execute("select count(ID) From[YX_Sms] where MyName='"&MyName&"'")(0)
  25. YxBBs.Execute("Delete From[YX_sms] where MyName='"&YxBBs.MyName&"'")
  26. YxBBs.Execute("Update [YX_User] set SmsSize=0 where Name='"&YxBBs.MyName&"'")
  27. YxBBs.ExeCute("Update [YX_User] Set NewSmsNum=0 Where Name='"&YxBBs.MyName&"'")
  28. Session(YxBBs.CacheName & "MyInfo") = Empty
  29. Response.redirect ("Sms.Asp")
  30. Case"write"
  31. WriteSms
  32. Case"readsms"
  33. Set YxBBs_ubb=New YxBBsubb_Cls
  34. ReadSms
  35. Set YxBBs_ubb=Nothing
  36. Case Else
  37. Call SmsList()
  38. End Select
  39. YxBBs.Footer()
  40. Set YxBBs=Nothing
  42. Sub ShowMySmsInfo()
  43. Dim Content,AllSmsSize
  44. AllSmsSize=(Int(YxBBs.MySmsSize)/(YxBBs.ClassSetting(13)*1000))*100
  45. If int(YxBBs.MySmsSize)>YxBBs.ClassSetting(13) Then Response.Write("<script language=javascript>alert('n您的短信空间已经超过了系统限制！nn请尽快清理您的无用消息！n');</script>")
  46. Content="<table border=0 height=40><tr><td width='35%'>&nbsp;<a href='Sms.Asp'><img src='Images/sms.gif' width='16' height='16' border='0'> 收取留言</a>&nbsp;<a href='?Action=Write'><img border='0' src='Images/edit.gif'> 写新留言</a>&nbsp;<a onclick=checkclick('按确定将删除所有接收短信！！nn您确定要删除吗？') href='Sms.Asp?Action=DelAll'><img src='Images/Del.gif' width='18' height='18' border='0' align='absmiddle'> 清空短信</a></td><td width='13%' align='right'>信箱容量：</td><td width='12%'><table width='250' height='10' border='1' cellpadding='0' cellspacing='0' style='TABLE-LAYOUT: fixed; WORD-BREAK: break-all;border-collapse:collapse' bordercolor='#FFCC00' bgcolor='#CCFF00'><tr><td width='250'><img src='Images/hr.gif' width='"&int(YxBBs.MySmsSize)/YxBBs.ClassSetting(13)*250/1000&"' height='10'></td></tr></table></td><td width='13%'>已使用 <font color=red>"&Int(AllSmsSize)&" </font>%</td><tr></table>"
  47. Call YxBBs.ShowTable("论坛留言信箱",Content)
  48. End Sub
  50. Sub SmsList()
  51. Dim Temp,Content,CanWrite,UserPic,Rs,Pages,strPageInfo,intPageNow,Arr_Rs,I,Caption
  52. intPageNow = Request.QueryString("page")
  53. Set Pages = New Cls_PageView
  54. Pages.strTableName = "[YX_Sms]"
  55. Pages.strFieldsList = "ID,name,Title,Addtime,IsNew"
  56. Pages.strCondiction = "MyName='"&YxBBs.MyName&"'"
  57. Pages.strOrderList = "ID desc"
  58. Pages.strPrimaryKey = "ID"
  59. Pages.intPageSize = 10
  60. Pages.intPageNow = intPageNow
  61. Pages.strCookiesName = "Sms"&YxBBs.MyName'客户端记录总数
  62. Pages.Reloadtime=3'每三分钟更新Cookies
  63. Pages.strPageVar = "page"
  64. Pages.InitClass
  65. Arr_Rs = Pages.arrRecordInfo
  66. strPageInfo = Pages.strPageInfo
  67. Set Pages = nothing
  68. If IsArray(Arr_Rs) Then
  69. Content=Content&"<tr><td width='50' align='center'>状态</td><td width='10%'>发件人</td><td width='50%'>短信标题</td><td> 发送时间 </td><td>操作</td></tr>"
  70. For i = 0 to UBound(Arr_Rs,2)
  71. Temp="<tr><td width='50' align='center'>"
  72. IF Arr_Rs(4,I) Then
  73. Temp=Temp&"<b><font color=red>未读</font></b>"
  74. Else
  75. Temp=Temp&"<b><font color=#NaNNaNNaN>已读</font></b>"
  76. End If
  77. Temp=Temp&"</td><td width='10%'><b>"
  78. If Arr_Rs(1,I)="系统消息" Then
  79. Temp=Temp&Arr_Rs(1,I)
  80. Else
  81. Temp=Temp&"<a href=""Profile.Asp?name="&Arr_Rs(1,I)&""">"&Arr_Rs(1,I)&"</a>"
  82. End If
  83. Temp=Temp&"</b></td><td width='50%'><a href=""Sms.Asp?Action=ReadSms&ID="&Arr_Rs(0,I)&""">"&Arr_Rs(2,I)&"</a>"
  84. Temp=Temp&"</td><td> <img src='Images/edit.gif' border='0'> "&Arr_Rs(3,I)&"</td><td><a onclick=checkclick('按确定将删除这条留言！！nn您确定要删除吗？') href='?id="&Arr_Rs(0,I)&"&Action=Del'><img border='0' alt='删除' src='Images/Del.gif'></a></td></tr>"
  85. Content=Content&Temp
  86. Next
  87. End If
  89. Content=Content&"<tr><td colspan='5' height=25>"&strPageInfo&"</td></tr>"
  90. Caption="收取留言"
  91. ShowMySmsInfo()
  92. Call YxBBs.ShowTable(Caption,Content)
  93. End Sub
  95. Sub ReadSms()
  96. Dim Rs,Caption,Content
  97. Set Rs=YxBBs.Execute("Select Top 1 ID,name,Title,Content,Addtime,IsNew,UbbString from [YX_sms] where MyName='"&YxBBs.MyName&"' and Id="&ID&"")
  98. if not Rs.eof then
  99. YxBBs_ubb.UbbString=Rs(6)
  100. Caption="阅读短信"
  101. Content="<tr><td><br>短信标题："&YxBBs.Fun.HtmlCode(Rs(2))&"<br><br>短信作者："
  102. If Rs(1)="系统消息" Then
  103. Content=Content&Rs(1)
  104. Else
  105. Content=Content&"<a href=""Profile.Asp?name="&Rs(1)&""">"&Rs(1)&"</a>"
  106. End If
  107. Content=Content&"<br><br><fieldset><legend>消息内容</legend><br>"&YxBBs_Ubb.UBB(Rs(3),2)&"<br><br></fieldset><br><img src='Images/edit.gif' border='0'> "&Rs(4)&" <a href=""Sms.Asp?Action=Write&ID="&Rs(0)&"&Name="&Rs(1)&"&title=Re:"&Rs(2)&""">【回复】</a><a onclick=""checkclick('按确定将删除这条留言！！nn您确定要删除吗？')"" href=""Sms.Asp?Action=Del&ID="&Rs(0)&""">【删除】</a><br></td></tr>"
  108.    If Rs(5) Then
  109. YxBBs.ExeCute("Update [YX_User] Set NewSmsNum=NewSmsNum-1 Where Name='"&YxBBs.MyName&"'")
  110. YxBBs.Execute("Update [YX_Sms] Set IsNew=False where MyName='"&YxBBs.MyName&"' and ID="&ID&"")
  111. End If
  112. Else
  113. Caption="阅读短信"
  114. Content="<tr><td><br>没有找到消息<br></td></tr>"
  115. End If
  116. Rs.Close
  117. ShowMySmsInfo()
  118. Call YxBBs.ShowTable(Caption,Content)
  119. End Sub
  121. Sub WriteSms()
  122. Dim Name,title,Rs,Caption,Content,Temp
  123. If Cint(YxBBs.ClassSetting(10))=0 Then YxBBs.Error("您没有发送论坛消息的权限！")
  124. Name=Request.QueryString("Name")
  125. title=Request.QueryString("title")
  126. If Not YxBBs.Fun.CheckName(Name) Then YxBBs.Error("错误的地址栏参数，请不要手动去更改地址栏参数！")
  127. Set Rs=YxBBs.execute("select Content from [YX_sms] where name='"&Name&"' and Id="&ID&"")
  128. if not Rs.eof then 
  129. Temp=Rs("Content")
  130. Temp=vbcrlf & vbcrlf& vbcrlf &"============在 "&Name&" 的来信中提到=========="& vbcrlf&YxBBs.Fun.StrLeft(Temp,250)&""
  131. End if
  132. Rs.Close
  133. ShowMySmsInfo()
  134. Caption="发送留言"
  135. Content="</tr><tr><td><form method=POST name=yimxu action='?Action=Save'><p style='margin: 10'>留言对象：<input type=text name='name' size=20 value='"&Name&"'><p style='margin: 10'>消息标题：<input type=text name='title' size=40 value='"&title&"'><p style='margin: 10'><textarea onkeydown=presskey(); rows=9 name='content' cols=90>"&Temp&"</textarea><p style='margin: 10'><input type='submit' value=' 发 送 '> <input type='reset' value=' 重 置 '></form>"
  136. Call YxBBs.ShowTable(Caption,Content)
  137. End Sub
  139. Sub SaveSms()
  140. Dim Temp,i,Title,Content,Caption,ToName,TmpUbbString
  141. YxBBs.Fun.CheckMake()
  142. ToName=YxBBs.Fun.GetStr("Name")
  143. Title=YxBBs.Fun.HtmlCode(YxBBs.Fun.GetStr("Title"))
  144. Content=YxBBs.Fun.htmlcode(YxBBs.Fun.GetStr("Content"))
  145. If ToName="" or Title="" or Content="" then YxBBs.Error("请填写完整的必填项目！")
  146.         If Lcase(ToName)=Lcase(YxBBs.MyName) Then YxBBs.Error("您不能给自己发送信息！")
  147.         If yxbbs.execute("select Name From [yx_User] where name='"&ToName&"'").eof Then YxBBs.Error("用户 "&ToName&" 不存在！")
  148. TmpUbbString=YxBBs.Fun.UbbString(Content)
  149. ToName=Split(ToName,",")
  150. IF Len(Content)>1000 Then YxBBs.Error("短信内容超过大小限制！")
  151.         IF int(YxBBs.MyCoin)<int(YxBBs.BBSSetting(3)) Then YxBBs.Error("您的金钱数小于"&YxBBs.BBSSetting(3)&",不能发送留言！")
  152. If Ubound(ToName)>Cint(YxBBs.ClassSetting(11)) Then YxBBs.Error("您最多发送用户不得超过 <font color=Red>"&YxBBs.ClassSetting(11)&"</font> ！")
  153. For i=0 To Ubound(ToName)
  154. If Not YxBBs.Fun.CheckName(ToName(i)) Then YxBBs.Error("用户 "&ToName(i)&" 不存在！")
  155. YxBBs.execute("Insert into [YX_sms](name,Title,Content,Myname,ubbString)values('"&YxBBs.MyName&"','"&Title&"','"&Content&"','"&ToName(i)&"','"&TmpUbbString&"')")
  156. YxBBs.ExeCute("Update [YX_user] Set NewSmsNum=NewSmsNum+1,SmsSize=SmsSize+"&Len(Content)&" Where Name='"&ToName(i)&"'")
  157.                 YxBBs.ExeCute("Update [YX_user] Set coin=coin-"&int(YxBBs.BBSSetting(3))&" Where Name='"&YxBBs.MyName&"'")
  158. Next
  159. Caption="发送成功"
  160. Content="<Div style='margin:15;line-height: 150%'><b>操作成功：</b><ul><li>此次发送扣除信息费 <font color=red><b>"&YxBBs.BBSSetting(3)&"</b></font> 元</li><li><a href=Default.Asp>返回首页</a></li><li><a href=Sms.Asp>返回我的信箱</a></li></ul></Div>"
  161. Call YxBBs.ShowTable(Caption,Content)
  162. End Sub
  163. %>