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

源码开发语言/平台
当前位置：首页 > 源码/资料 > Internet/网络编程 > WEB源码(ASP,PHP,...) > 查看源码
messanger.asp
资源名称：txl.zip　[点击查看]
上传用户：comthink
上传日期：2021-05-06
资源大小：1280k
文件大小：22k
源码类别：

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

开发平台：

HTML/CSS

messanger.asp：源码内容
  1. <!--#include file="conn.asp"-->
  2. <!-- #include file="inc/const.asp" -->
  3. <!--#include file="inc/ubbcode.asp"-->
  4. <!--#include file="inc/chkinput.asp"-->
  5. <html>
  6. <head>
  7. <title><%=txl_info(0)%>--短消息</title>
  8. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  9. <!--#include file="inc/txl_css.asp"-->
  10. </head>
  11. <body>
  12. <%
  13. dim msg
  14. dim abgcolor
  15. if not founduser then
  16.    errmsg=errmsg+"<br>"+"<li>您没有<a href=login.asp target=_blank>登录</a>。"
  17. founderr=true
  18. end if
  19. if Cint(GroupSetting(23))=1 then
  20. Errmsg=Errmsg+"<br>"+"<li>您没有浏览发送短信的权限，请<a href=login.asp>登陆</a>或者同管理员联系。"
  21. founderr=true
  22. end if
  24. stats="短信管理"
  25. if founderr then
  26. call head()
  27. call head_var("错误信息",Request.ServerVariables("HTTP_REFERER"))
  28. call txl_error()
  29. call foot()
  30. else
  31. select case request("action")
  32. case "new"
  33. call sendmsg()
  34. case "read"
  35. call read()
  36. case "outread"
  37. call read()
  38. case "delet"
  39. call delete()
  40. case "newmsg"
  41. call newmsg()
  42. case "send"
  43. call savemsg()
  44. case "fw"
  45. call fw()
  46. case "edit"
  47. call edit()
  48. case "savedit"
  49. call savedit()
  50. case "删除收件"
  51. stats=request("action")
  52. call head()
  53. call head_var("","")
  54. call delinbox()
  55. case "清空收件箱"
  56. stats=request("action")
  57. call head()
  58. call head_var("","")
  59. call AllDelinbox()
  60. case "删除草稿"
  61. stats=request("action")
  62. call head()
  63. call head_var("","")
  64. call deloutbox()
  65. case "清空草稿箱"
  66. stats=request("action")
  67. call head()
  68. call head_var("","")
  69. call AllDeloutbox()
  70. case "删除已发送的消息"
  71. stats=request("action")
  72. call head()
  73. call head_var("","")
  74. call delissend()
  75. case "清空已发送的消息"
  76. stats=request("action")
  77. call head()
  78. call head_var("","")
  79. call AllDelissend()
  80. case "删除垃圾"
  81. stats=request("action")
  82. call head()
  83. call head_var("","")
  84. call delrecycle()
  85. case "清空垃圾箱"
  86. stats=request("action")
  87. call head()
  88. call head_var("","")
  89. call AllDelrecycle()
  90. case else
  91.    errmsg=errmsg+"<br>"+"<li>请指定正确的参数。"
  92. founderr=true
  93. end select
  94. if founderr then call txl_error()
  95. end if
  97. '发送信息
  98. sub sendmsg()
  99. stats="发送短信"
  100. dim sendtime,title,content
  101. if request("id")<>"" and isNumeric(request("id")) then
  102. set rs=server.createobject("adodb.recordset")
  103. sql="select sendtime,title,content from message where incept='"&membername&"' and id="&request("id")
  104. rs.open sql,conn,1,1
  105. if not(rs.eof and rs.bof) then
  106. sendtime=rs("sendtime")
  107. title="RE " & rs("title")
  108. content=rs("content")
  109. end if
  110. rs.close
  111. set rs=nothing
  112. end if
  113. %>
  114. <form action="messanger.asp" method=post name=messager>
  115. <input type=hidden name="action" value="send">
  116. <table cellpadding=3 cellspacing=1 align=center class=tableborder1>
  117.           <tr> 
  118.             <th colspan=3>发送短消息（请输入完整信息）</td>
  119.           </tr>
  120.           <tr> 
  121.             <td class=tablebody1 valign=middle><b>收件人：</b></td>
  122.             <td class=tablebody1 valign=middle>
  123.               <input type=text name="touser" value="<%=request("touser")%>" size=50>
  124.               <SELECT name=font onchange=DoTitle(this.options[this.selectedIndex].value)>
  125.               <OPTION selected value="">选择</OPTION>
  126. <%
  127. set rs=server.createobject("adodb.recordset")
  128. sql="select realname from [user] where usergroupid<=3 order by userid desc"
  129. rs.open sql,conn,1,1
  130. do while not rs.eof
  131. %>
  132.   <OPTION value="<%=rs(0)%>"><%=rs(0)%></OPTION> 
  133. <%
  134. rs.movenext
  135. loop
  136. rs.close
  137. set rs=nothing
  138. %>
  139.   </SELECT>
  140.             </td>
  141.           </tr>
  142.           <tr> 
  143.             <td class=tablebody1 valign=top width=15%><b>标题：</b></td>
  144.             <td class=tablebody1 valign=middle>
  145.               <input type=text name="title" size=70 maxlength=80 value="<%=title%>">
  146.             </td>
  147.           </tr>
  148.           <tr> 
  149.             <td class=tablebody1 valign=top width=15%><b>内容：</b></td>
  150.             <td  class=tablebody1 valign=middle>
  151.               <textarea cols=70 rows=6 name="message" title="Ctrl+Enter发送"><%if request("id")<>"" then%>
  152. ====== 在 <%=sendtime%> 您来信中写道： ======
  153. <%=server.htmlencode(content)%>
  154. =====================================
  155. <%end if%></textarea>
  156.             </td>
  157.           </tr>
  158.           <tr> 
  159.             <td  class=tablebody1 colspan=2>
  160. <b>说明</b>：<br>
  161. ① 您可以使用<b>Ctrl+Enter</b>键快捷发送短信<br>
  162. ② 可以用英文状态下的逗号将用户名隔开实现群发，最多<b><%=GroupSetting(24)%></b>个用户<br>
  163. ③ 标题最多<b>50</b>个字符，内容最多<b><%=GroupSetting(25)%></b>个字符<br>
  164.             </td>
  165.           </tr>
  166.           <tr> 
  167.             <td  class=tablebody2 valign=middle colspan=2 align=center> 
  168.               <input type=Submit value="发送" name=Submit>
  169.               &nbsp; 
  170.               <input type=Submit value="保存" name=Submit>
  171.               &nbsp; 
  172.               <input type="reset" name="Clear" value="清除">
  173.               &nbsp; 
  174. <%if request("reaction")="chatlog" then%>
  175.               <input type=button value="关闭聊天记录" name="chatlog" onclick="location.href='?action=new&id=<%=request("id")%>&touser=<%=request("touser")%>'">
  176. <%else%>
  177.               <input type=button value="查看聊天记录" name="chatlog" onclick="location.href='?action=new&id=<%=request("id")%>&touser=<%=request("touser")%>&reaction=chatlog'">
  178. <%end if%>
  179.               &nbsp; 
  180.               <input type="button" name="close" value="关闭" onclick="window.close()">
  181.             </td>
  182.           </tr>
  183. <%if request("reaction")="chatlog" then%>
  184.           <tr> 
  185.             <th colspan=3>我与<%=request("touser")%>的聊天记录</th>
  186.           </tr>
  187. <%if membername=request("touser") then%>
  188.           <tr> 
  189.             <td class=tablebody1 colspan=3>自己跟自己的聊天记录没什么好看的：）</td>
  190.           </tr>
  191. <%else%>
  192. <%
  193. set rs=server.createobject("adodb.recordset")
  194. sql="select * from message where ((sender='"&trim(membername)&"' and incept='"&replace(request("touser"),"'","")&"') or (sender='"&replace(request("touser"),"'","")&"' and incept='"&membername&"')) and delS=0 order by sendtime desc"
  195. rs.open sql,conn,1,1
  196. if rs.eof and rs.bof then
  197. %>
  198.           <tr> 
  199.             <td class=tablebody1 colspan=3>还没有任何聊天记录！</td>
  200.           </tr>
  201. <%
  202. else
  203. do while not rs.eof
  204. %>
  205.                 <tr>
  206.                     <td class=tablebody2 height=25 colspan=3>
  207. <%if rs("sender")=membername then%>
  208.                     在<b><%=rs("sendtime")%></b>，您发送此消息给<b><%=htmlencode(rs("incept"))%></b>！
  209. <%else%>
  210.     在<b><%=rs("sendtime")%></b>，<b><%=htmlencode(rs("sender"))%></b>给您发送的消息！
  211. <%end if%></td>
  212.                 </tr>
  213.                 <tr>
  214.                     <td  class=tablebody1 valign=top align=left colspan=3>
  215.                     <b>消息标题：<%=htmlencode(rs("title"))%></b><hr size=1>
  216.                     <%=ubbcode(rs("content"))%>
  217.     </td>
  218.                 </tr>
  219. <%
  220. rs.movenext
  221. loop
  222. end if
  223. rs.close
  224. set rs=nothing
  225. %>
  226. <%end if%>
  227. <%end if%>
  228.         </table>
  229. </form>
  230. <%
  231. end sub
  232. '读取信息
  233. sub read()
  234. stats="阅读短信"
  235. if request("id")="" or not isNumeric(request("id")) then
  236. Errmsg=Errmsg+"<br>"+"<li>请指定相关参数。"
  237. Founderr=true
  238. exit sub
  239. end if
  240. set rs=server.createobject("adodb.recordset")
  241. if request("action")="read" then
  242.     sql="update message set flag=1 where ID="&cstr(request("id"))
  243. conn.execute(sql)
  244. end if
  245. sql="select * from message where (incept='"&membername&"' or sender='"&membername&"') and id="&cstr(request("id"))
  246. rs.open sql,conn,1,1
  247. if rs.eof and rs.bof then
  248. errmsg=errmsg+"<br>"+"<li>你是不是跑到别人的信箱啦、或者该信息已经收件人删除。"
  249. founderr=true
  250. end if
  251. if not founderr then
  252. %>
  253. <table cellpadding=3 cellspacing=1 align=center class=tableborder1 style="width:95%">
  254.             <tr>
  255.                 <th colspan=3>欢迎使用短消息接收，<%=membername%></th>
  256.             </tr>
  257.             <tr>
  258.                 <td class=tablebody1 valign=middle align=center colspan=3><a href="messanger.asp?action=delet&id=<%=rs("id")%>"><img src="<%=txl_info(7)%>m_delete.gif" border=0 alt="删除消息"></a> &nbsp; <a href="messanger.asp?action=new"><img src="<%=txl_info(7)%>m_write.gif" border=0 alt="发送消息"></a> &nbsp;<a href="messanger.asp?action=new&touser=<%=htmlencode(rs("sender"))%>&id=<%=request("id")%>"><img src="<%=txl_info(7)%>m_reply.gif" border=0 alt="回复消息"></a>&nbsp;<a href="messanger.asp?action=fw&id=<%=request("id")%>"><img src=<%=txl_info(7)%>m_fw.gif border=0 alt=转发消息></a></td>
  259.             </tr>
  260.                 <tr>
  261.                     <td class=tablebody2 height=25>
  262. <%if request("action")="outread" then%>
  263.                     在<b><%=rs("sendtime")%></b>，您发送此消息给<b><%=htmlencode(rs("incept"))%></b>！
  264. <%else%>
  265.     在<b><%=rs("sendtime")%></b>，<b><%=htmlencode(rs("sender"))%></b>给您发送的消息！
  266. <%end if%></td>
  267.                 </tr>
  268.                 <tr>
  269.                     <td  class=tablebody1 valign=top align=left>
  270.                     <b>消息标题：<%=htmlencode(rs("title"))%></b><hr size=1>
  271.                     <%=ubbcode(rs("content"))%>
  272.     </td>
  273.                 </tr>
  274. <%
  275. rs.close
  276. set rs=nothing
  277. sql="select id,sender from message where incept='"&membername&"' and flag=0 and issend=1 and id>"&cstr(request("id")&" order by sendtime")
  278. set rs=conn.execute(sql)
  279. if not (rs.eof and rs.bof) then
  280. %>
  281.                 <tr>
  282.                     <td  class=tablebody2 valign=top align=right><a href=messanger.asp?action=read&id=<%=rs(0)%>&sender=<%=rs(1)%>>[读取下一条信息]</a>
  283.     </td>
  284.                 </tr>
  285. <%
  286. end if
  287. rs.close
  288. set rs=nothing
  289. %>
  290.                 </table>
  291. <%end if%>
  292. <%
  293. end sub
  294. '转发信息
  295. sub fw()
  296. stats="发送短信"
  297. dim title,content,sender
  298. if request("id")<>"" and isNumeric(request("id")) then
  299. set rs=server.createobject("adodb.recordset")
  300. sql="select title,content,sender from message where (incept='"&membername&"' or sender='"&membername&"') and id="&request("id")
  301. rs.open sql,conn,1,1
  302. if rs.eof and rs.bof then
  303. Errmsg=Errmsg+"<br>"+"<li>请选择相关参数。"
  304. Founderr=true
  305. exit sub
  306. else
  307. title=rs("title")
  308. content=rs("content")
  309. sender=rs("sender")
  310. end if
  311. rs.close
  312. set rs=nothing
  313. end if
  314. %>
  315. <form action="messanger.asp" method=post name=messager>
  316.         <table cellpadding=3 cellspacing=1 align=center class=tableborder1>
  317.           <tr> 
  318.             <th colspan=2 height=25>
  319.               <input type=hidden name="action" value="send">
  320.               发送短消息--请完整输入下列信息</th>
  321.           </tr>
  322.           <tr> 
  323.             <td class=tablebody1 valign=middle width=15%><b>收件人：</b></td>
  324.             <td  class=tablebody1 valign=middle>
  325.               <input type=text name="touser" value="<%=request("touser")%>" size=50>
  326.               <SELECT name=font onchange=DoTitle(this.options[this.selectedIndex].value)>
  327.               <OPTION selected value="">选择</OPTION>
  328. <%
  329. set rs=server.createobject("adodb.recordset")
  330. sql="select realname from [user] where usergroupid<=3 order by userid desc"
  331. rs.open sql,conn,1,1
  332. do while not rs.eof
  333. %>
  334.   <OPTION value="<%=rs(0)%>"><%=rs(0)%></OPTION> 
  335. <%
  336. rs.movenext
  337. loop
  338. rs.close
  339. set rs=nothing
  340. %>
  341.   </SELECT>
  342.             </td>
  343.           </tr>
  344.           <tr> 
  345.             <td class=tablebody1 valign=top><b>标题：</b></td>
  346.             <td class=tablebody1 valign=middle>
  347.               <input type=text name="title" size=70 maxlength=80 value="Fw：<%=title%>">&nbsp;
  348.             </td>
  349.           </tr>
  350.           <tr> 
  351.             <td class=tablebody1 valign=top><b>内容：</b></td>
  352.             <td class=tablebody1 valign=middle>
  353.               <textarea cols=70 rows=6 name="message" title="Ctrl+Enter发送">
  356. ========== 下面是转发信息 =========
  357. 原发件人：<%=sender%><%=chr(13)&chr(13)%>
  358. <%=server.htmlencode(content)%>
  359. ===================================</textarea>
  360.             </td>
  361.           </tr>
  362.           <tr> 
  363.             <td  class=tablebody1 colspan=2>
  364. <b>说明</b>：<br>
  365. ① 您可以使用<b>Ctrl+Enter</b>键快捷发送短信<br>
  366. ② 可以用英文状态下的逗号将用户名隔开实现群发，最多<b><%=GroupSetting(24)%></b>个用户<br>
  367. ③ 标题最多<b>50</b>个字符，内容最多<b><%=GroupSetting(25)%></b>个字符<br>
  368.             </td>
  369.           </tr>
  370.           <tr> 
  371.             <td class=tablebody2 valign=middle colspan=2 align=center> 
  372.               <input type=Submit value="发送" name=Submit>
  373.               &nbsp; 
  374.               <input type=Submit value="保存" name=Submit>
  375.               &nbsp; 
  376.               <input type="reset" name="Clear" value="清除">
  377.               &nbsp; 
  378.               <input type="button" name="close" value="关闭" onclick="window.close()">
  379.             </td>
  380.           </tr>
  381.         </table>
  382. </form>
  383. <%
  384. end sub
  386. sub savemsg()
  387. stats="发送短信成功"
  388. dim incept,title,message,subtype
  389. if request("touser")="" then
  390. errmsg=errmsg+"<br>"+"<li>您忘记填写发送对象了吧。"
  391. founderr=true
  392. exit sub
  393. else
  394. incept=CheckStr(request("touser"))
  395. incept=split(incept,",")
  396. end if
  397. if request("title")="" then
  398. errmsg=errmsg+"<br>"+"<li>您还没有填写标题呀。"
  399. founderr=true
  400. exit sub
  401. elseif strlength(request("title"))>50 then
  402. errmsg=errmsg+"<br>"+"<li>标题限定最多50个字符。"
  403. founderr=true
  404. exit sub
  405. else
  406. title=CheckStr(request("title"))
  407. end if
  408. if request("message")="" then
  409. errmsg=errmsg+"<br>"+"<li>内容是必须要填写的噢。"
  410. founderr=true
  411. exit sub
  412. elseif strlength(request("message"))>Cint(GroupSetting(25)) then
  413. errmsg=errmsg+"<br>"+"<li>内容限定最多"&GroupSetting(25)&"个字符。"
  414. founderr=true
  415. exit sub
  416. else
  417. message=CheckStr(request("message"))
  418. end if
  420. for i=0 to ubound(incept)
  421. sql="select realname from [user] where realname='"&replace(incept(i),"'","")&"'"
  422. set rs=conn.execute(sql)
  423. if rs.eof and rs.bof then
  424. errmsg=errmsg+"<br>"+"<li>同学录没有这个用户，看看你的发送对象写对了嘛？"
  425. founderr=true
  426. exit sub
  427. end if
  428. set rs=nothing
  430. if request("Submit")="发送" then
  431. sql="insert into message (incept,sender,title,content,sendtime,flag,issend) values ('"&incept(i)&"','"&membername&"','"&title&"','"&message&"',Now(),0,1)"
  432. subtype="已发送信息"
  433. elseif request("Submit")="保存" then
  434. sql="insert into message (incept,sender,title,content,sendtime,flag,issend) values ('"&incept(i)&"','"&membername&"','"&title&"','"&message&"',Now(),0,0)"
  435. subtype="发件箱"
  436. else
  437. sql="insert into message (incept,sender,title,content,sendtime,flag,issend) values ('"&incept(i)&"','"&membername&"','"&title&"','"&message&"',Now(),0,1)"
  438. subtype="已发送信息"
  439. end if
  440. conn.execute(sql)
  441. if i>Cint(GroupSetting(24))-1 then
  442. errmsg=errmsg+"<br>"+"<li>最多只能发送给"&GroupSetting(24)&"个用户，您的名单"&GroupSetting(24)&"位以后的请重新发送"
  443. founderr=true
  444. exit sub
  445. exit for
  446. end if
  447. next
  448. sucmsg=sucmsg+"<br>"+"<li><b>恭喜您，发送短信息成功。</b><br>发送的消息同时保存在您的"&subtype&"中。"
  449. call txl_suc()
  450. end sub
  452. '更改信息
  453. sub edit()
  454. stats="修改短信"
  455. dim incept,title,content,id
  456. if request("id")<>"" and isNumeric(request("id")) then
  457. set rs=server.createobject("adodb.recordset")
  458. sql="select id,incept,title,content from message where sender='"&membername&"' and issend=0 and id="&request("id")
  459. rs.open sql,conn,1,1
  460. if not(rs.eof and rs.bof) then
  461. incept=rs("incept")
  462. title=rs("title")
  463. content=rs("content")
  464. id=rs("id")
  465. else
  466. Errmsg=Errmsg+"<br>"+"<li>没有找到您要编辑的信息。"
  467. Founderr=true
  468. exit sub
  469. end if
  470. rs.close
  471. set rs=nothing
  472. else
  473. Errmsg=Errmsg+"<br>"+"<li>请指定相关参数。"
  474. Founderr=true
  475. exit sub
  476. end if
  477. %>
  478. <form action="messanger.asp" method=post name=messager>
  479.         <table cellpadding=3 cellspacing=1 align=center class=tableborder1>
  480.           <tr> 
  481.             <th colspan=2 height=25> 
  482.               <input type=hidden name="action" value="savedit"> 
  483.               <input type=hidden name="id" value="<%=id%>">
  484.               发送短消息--请完整输入下列信息</th>
  485.           </tr>
  486.           <tr> 
  487.             <td  class=tablebody1 valign=middle width=70><b>收件人：</b></td>
  488.             <td  class=tablebody1 valign=middle>
  489.               <input type=text name="touser" value="<%=incept%>" size=70>
  490.             </td>
  491.           </tr>
  492.           <tr> 
  493.             <td class=tablebody1 valign=top><b>标题：</b></td>
  494.             <td  class=tablebody1 valign=middle>
  495.               <input type=text name="title" size=70 maxlength=80 value="<%=title%>">
  496.             </td>
  497.           </tr>
  498.           <tr> 
  499.             <td  class=tablebody1 valign=top><b>内容：</b></td>
  500.             <td  class=tablebody1 valign=middle>
  501.               <textarea cols=70 rows=8 name="message" title=""><%=server.htmlencode(content)%></textarea>
  502.             </td>
  503.           </tr>
  504.           <tr> 
  505.             <td  class=tablebody1 colspan=2>
  506. <b>说明</b>：<br>
  507. ① 您可以使用<b>Ctrl+Enter</b>键快捷发送短信<br>
  508. ② 标题最多<b>50</b>个字符，内容最多<b><%=GroupSetting(25)%></b>个字符<br>
  509.             </td>
  510.           </tr>
  511.           <tr> 
  512.             <td  class=tablebody2 valign=middle colspan=2 align=center> 
  513.               <input type=Submit value="发送" name=Submit>
  514.               &nbsp; 
  515.               <input type=Submit value="保存" name=Submit>
  516.               &nbsp; 
  517.               <input type="reset" name="Clear" value="清除">
  518.               &nbsp; 
  519.               <input type="button" name="close" value="关闭" onclick="window.close()">
  520.             </td>
  521.           </tr>
  522.         </table>
  523.       </td>
  524.     </tr>
  525.   </table>
  526. </form>
  527. <%
  528. end sub
  530. sub savedit()
  531. dim incept,title,message,subtype
  532. if request("id")="" or not isNumeric(request("id")) then
  533. Errmsg=Errmsg+"<br>"+"<li>请指定相关参数。"
  534. Founderr=true
  535. exit sub
  536. end if
  537. if request("touser")="" then
  538. errmsg=errmsg+"<br>"+"<li>您忘记填写发送对象了吧。"
  539. founderr=true
  540. exit sub
  541. else
  542. incept=checkStr(request("touser"))
  543. end if
  544. if request("title")="" then
  545. errmsg=errmsg+"<br>"+"<li>您还没有填写标题呀。"
  546. founderr=true
  547. exit sub
  548. else
  549. title=checkStr(request("title"))
  550. end if
  551. if request("message")="" then
  552. errmsg=errmsg+"<br>"+"<li>内容是必须要填写的噢。"
  553. founderr=true
  554. exit sub
  555. else
  556. message=checkStr(request("message"))
  557. end if
  559. sql="select realname from [user] where realname='"&incept&"'"
  560. set rs=conn.execute(sql)
  561. if rs.eof and rs.bof then
  562. errmsg=errmsg+"<br>"+"<li>同学录没有这个用户，看看你的发送对象写对了嘛？"
  563. founderr=true
  564. exit sub
  565. end if
  566. set rs=nothing
  568. if request("Submit")="发送" then
  569. sql="update message set incept='"&incept&"',sender='"&membername&"',title='"&title&"',content='"&message&"',sendtime=Now(),flag=0,issend=1 where id="&request("id")
  570. subtype="已发送信息"
  571. else
  572. sql="update message set incept='"&incept&"',sender='"&membername&"',title='"&title&"',content='"&message&"',sendtime=Now(),flag=0,issend=0 where id="&request("id")
  573. subtype="发件箱"
  574. end if
  575. conn.execute(sql)
  577. sucmsg=sucmsg+"<br>"+"<li><b>恭喜您，发送短信息成功。</b><br>发送的消息同时保存在您的"&subtype&"中。"
  578. call txl_suc()
  579. end sub
  581. '收件逻辑删除，置于回收站，入口字段delR，可用于批量及单个删除
  582. sub delinbox()
  583. dim delid
  584. delid=replace(request("id"),"'","")
  585. if delid="" or isnull(delid) then
  586. Errmsg=Errmsg+"<li>"+"请选择相关参数。"
  587. Founderr=true
  588. else
  589. conn.execute("update message set delR=1 where incept='"&trim(membername)&"' and id in ("&delid&")")
  590. sucmsg=sucmsg+"<br>"+"<li>删除短信息成功。删除的消息将转移到您的回收站。"
  591. call txl_suc()
  592. call foot()
  593. end if
  594. end sub
  595. sub AllDelinbox()
  596. conn.execute("update message set delR=1 where incept='"&trim(membername)&"' and delR=0")
  597. sucmsg=sucmsg+"<br>"+"<li>删除短信息成功。删除的消息将转移到您的回收站。"
  598. call txl_suc()
  599. call foot()
  600. end sub
  602. '发件逻辑删除，置于回收站，入口字段delS，可用于批量及单个删除
  603. sub deloutbox()
  604. dim delid
  605. delid=replace(request("id"),"'","")
  606. if delid="" or isnull(delid) then
  607. Errmsg=Errmsg+"<li>"+"请选择相关参数。"
  608. Founderr=true
  609. else
  610. conn.execute("update message set delS=1 where sender='"&trim(membername)&"' and issend=0 and id in ("&delid&")")
  611. sucmsg=sucmsg+"<br>"+"<li>删除短信息成功。删除的消息将转移到您的回收站。"
  612. call txl_suc()
  613. call foot()
  614. end if
  615. end sub
  616. sub AllDeloutbox()
  617. conn.execute("update message set delS=1 where sender='"&trim(membername)&"' and delS=0 and issend=0")
  618. sucmsg=sucmsg+"<br>"+"<li>删除短信息成功。删除的消息将转移到您的回收站。"
  619. call txl_suc()
  620. call foot()
  621. end sub
  623. '已发送逻辑删除，置于回收站，入口字段delS，可用于批量及单个删除
  624. 'delS：0未操作，1发送者删除，2发送者从回收站删除
  625. sub delissend()
  626. dim delid
  627. delid=replace(request("id"),"'","")
  628. if delid="" or isnull(delid) then
  629. Errmsg=Errmsg+"<li>"+"请选择相关参数。"
  630. Founderr=true
  631. else
  632. conn.execute("update message set delS=1 where sender='"&trim(membername)&"' and issend=1 and id in ("&delid&")")
  633. sucmsg=sucmsg+"<br>"+"<li>删除短信息成功。删除的消息将转移到您的回收站。"
  634. call txl_suc()
  635. end if
  636. end sub
  637. sub AllDelissend()
  638. conn.execute("update message set delS=1 where sender='"&trim(membername)&"' and delS=0 and issend=1")
  639. sucmsg=sucmsg+"<br>"+"<li>删除短信息成功。删除的消息将转移到您的回收站。"
  640. call txl_suc()
  641. end sub
  643. '用户能完全删除收到信息和逻辑删除所发送信息，逻辑删除所发送信息设置入口字段delS参数为2
  644. sub delrecycle()
  645. dim delid
  646. delid=replace(request("id"),"'","")
  647. 'response.write delid
  648. if delid="" or isnull(delid) then
  649. Errmsg=Errmsg+"<li>"+"请选择相关参数。"
  650. Founderr=true
  651. exit sub
  652. else
  653. conn.execute("delete from message where incept='"&membername&"' and delR=1 and id in ("&delid&")")
  654. conn.execute("update message set delS=2 where sender='"&trim(membername)&"' and delS=1 and id in ("&delid&")")
  655. sucmsg=sucmsg+"<br>"+"<li>删除短信息成功。删除的消息将不可恢复。"
  656. call txl_suc()
  657. call foot()
  658. end if
  659. end sub
  660. sub AllDelrecycle()
  661. conn.execute("delete from message where incept='"&membername&"' and delR=1")
  662. conn.execute("update message set delS=2 where sender='"&trim(membername)&"' and delS=1")
  663. sucmsg=sucmsg+"<br>"+"<li>删除短信息成功。删除的消息将不可恢复。"
  664. call txl_suc()
  665. call foot()
  666. end sub
  668. sub delete()
  669. dim delid
  670. delid=checkstr(request("id"))
  671. if not isNumeric(request("id")) or delid="" or isnull(delid) then
  672. Errmsg=Errmsg+"<li>"+"请选择相关参数。"
  673. Founderr=true
  674. else
  675. conn.execute("update message set delR=1 where incept='"&trim(membername)&"' and id="&delid)
  676. conn.execute("update message set delS=1 where sender='"&trim(membername)&"' and id="&delid)
  677. sucmsg=sucmsg+"<br>"+"<li>删除短信息成功。删除的消息将置于您的回收站内。"
  678. call txl_suc()
  679. call foot()
  680. end if
  681. end sub
  682. %>
  683. <script language="javascript"> 
  684. function DoTitle(addTitle) {  
  685.  var revisedTitle;  
  686.  var currentTitle = document.messager.touser.value; 
  688.  if(currentTitle=="") revisedTitle = addTitle; 
  689.  else { 
  690.   var arr = currentTitle.split(","); 
  691.   for (var i=0; i < arr.length; i++) { 
  692.    if( addTitle.indexOf(arr[i]) >=0 && arr[i].length==addTitle.length ) return; 
  693.   } 
  694.   revisedTitle = currentTitle+","+addTitle; 
  695.  } 
  697.  document.messager.touser.value=revisedTitle;  
  698.  document.messager.touser.focus(); 
  699.  return; 
  700. } 
  701. </script>