user_message.asp

网人分类信息5.0商业版。非常优秀的分类信息系统。比较少见。

	  Rs.Open Sql, Conn, 1, 1
        If Rs.EOF Then
		    Call WRMPS.ErrView("·消息不存在",0)
        Else
		    Dim RedFlag
			RedFlag = 0
			WM_Addresser = Rs(1) '发
		    WM_Addressee = Rs(2) '收
			WM_Key = Rs(6)
			WM_Type = Rs(7)
			If IsNull(WM_Addresser) = False and WM_Addresser <> "" Then
			  If WM_Addresser = MemName Or WM_Addressee = MemName Then RedFlag = 1
			Else
			  If WM_Addressee = MemName Or IsNull(WM_Addressee) or WM_Addressee = "" Then RedFlag = 1
			End If
			
			If RedFlag = 1 Then
			  If Rs(2) = MemName and WM_Key = 0 Then
                Set Rso = Conn.Execute("Select WM_Message From WM_Member Where WM_UserName = '"&WM_Addressee&"'")
                If Not Rso.Eof Then
                  messageCount = Rso(0)
				  If Int(Split(messageCount,"|")(1))-1 < 0 Then messageCount = Int(Split(messageCount,"|")(0))&"|0" Else messageCount = Int(Split(messageCount,"|")(0))&"|"&Int(Split(messageCount,"|")(1))-1
				  Conn.Execute("Update WM_Member Set WM_Message = '"&messageCount&"' Where WM_UserName = '"&WM_Addressee&"'")
                Else
                  Call WRMPS.ErrView("操作错误",0)
                End If
                Rso.Close
			    Conn.Execute("Update WM_Message Set WM_Key = 1 Where WM_ID = "&ID)
			  End If
	          Content = Content & MenuTop(WM_Type)
              Content = Content & "<table width='100%' cellpadding=2 cellspacing=1 border=0 align=center class=td1>" & vbCrLf
              Content = Content & "<tr><td class=td3 height=30px><strong>"&Rs(3)&"</strong></td></tr>" & vbCrLf
              Content = Content & "<tr class=td2><td style=""height:100px;padding:10px 20px"" valign=top>"&WRMPS.UBBCode(WRMPS.CheckStr(Rs(4),11))&"</td></tr>" & vbCrLf
              Content = Content & "<tr><td class=td3></td></tr>" & vbCrLf
              Content = Content & "<tr class=td2><td style=""padding:5px"" valign=top>时间："&Rs(5)
			  If W <> "Sender" Then
			    If WM_Type = 0 Then Content = Content & "<br>来自：<strong>"&WRUser.DispUser(3,WM_Addresser)&"</strong>"
			  Else
			    If WM_Type = 0 Then Content = Content & "<br>接收人：<strong>"&WRUser.DispUser(3,WM_Addressee)&"</strong>"
			  End If 
			  Content = Content & "</td></tr>" & vbCrLf
              Content = Content & "</table>" & vbCrLf
			Else
	          Rs.Close
              Call WRMPS.ErrView("·您没有权限查看此消息",0)
			End if
        End If
	  Rs.Close
	  Set Rs=Nothing

  Case Else
	  Content = Content & MenuTop(0)
      Content = Content & "<table width='100%' cellpadding=2 cellspacing=1 border=0 align=center class=td1>" & vbCrLf
      Content = Content & "<form action='?W="&W&"&Page="&Page&"' name=myform method=POST>" & vbCrLf
      Content = Content & "<tr align=center>" & vbCrLf
      If W <> "Sender" Then Content = Content & "<td class=td4 width='3%'>&nbsp;</td>" & vbCrLf
      Content = Content & "<td class=td4 width='15%'>"
	  If W <> "Sender" Then Content = Content & "发件人" Else Content = Content & "收件人"
	  Content = Content & "</td>" & vbCrLf
      Content = Content & "<td class=td4>标题</td>" & vbCrLf
	  Content = Content & "<td class=td4 width='18%'>时间</td>" & vbCrLf
      Content = Content & "</tr>" & vbCrLf
	  Set Rs=server.createobject("adodb.recordset")
      If W <> "Sender" Then
	    Sql = "select WM_ID,WM_Addresser,WM_Addressee,WM_Title,WM_Time,WM_Key,WM_Type from WM_Message where WM_Addressee='"&MemName&"' Or (WM_Type=1 and (WM_Addressee='' or WM_Addressee is null)) order by WM_Type desc,WM_Time desc"
	  Else
	    Sql = "select WM_ID,WM_Addresser,WM_Addressee,WM_Title,WM_Time,WM_Key,WM_Type from WM_Message where WM_Type=0 and WM_Addresser='"&MemName&"' order by WM_Type desc,WM_Time desc"
	  End If
	  Rs.Open Sql, Conn, 1, 1
        If Rs.EOF Then
          Content = Content & "<tr><td colspan=4>还没有短消息</td></tr></table>" & vbCrLf
        Else
          '分页的实现
          ListNum = 18
          Rs.PageSize = ListNum
          If Page = "" Then Page = 1
          If Page < 1 Then Page = 1
          Rs.AbsolutePage = Page
          i = 0
          If Page = "" Then N = 0 Else N = ListNum * (Page - 1)
          Do While Not Rs.EOF And i < ListNum
            N = N + 1
            Content = Content & "<tr class=td2>" & vbCrLf
            If W <> "Sender" Then 
			  Content = Content & "<td height=20px align=center>"
			  If Rs(2) <> "" and IsNUll(Rs(2)) = False Then Content = Content & "<input type=checkbox name=cID value="&Rs(0)&">"
			  Content = Content & "</td>" & vbCrLf
            End If
		    Content = Content & "<td align=center>"
			WM_Addresser = Rs(1)
			If W <> "Sender" Then
		  	  If Rs(6) = 0 Then
			    If Rs(5) < 1 Then Content = Content & "<strong>" & WRUser.DispUser(3,Rs(1)) &"</strong>" Else Content = Content & WRUser.DispUser(3,Rs(1))
		      Else
			    If Rs(5) < 1 Then Content = Content & "<strong>系统消息</strong>" Else Content = Content & "系统消息"
			  End if
			Else
			  If Rs(5) < 1 Then Content = Content & "<strong>"
              Content = Content & WRUser.DispUser(3,Rs(2))
			  If Rs(5) < 1 Then Content = Content & "</strong>"
			End If
			Content = Content & "</td>" & vbCrLf
            Content = Content & "<td align=left><a href=?Action=View&ID="&Rs(0)&"&W="&W&"&Page="&Page&">"
			If Rs(5) < 1 Then Content = Content & "<strong>" & Rs(3) &"</strong>" Else Content = Content & Rs(3)
			Content = Content & "</a></td>" & vbCrLf
            Content = Content & "<td>"
			If Rs(5) < 1 Then Content = Content & "<strong>" & Rs(4) &"</strong>" Else Content = Content & Rs(4)
			Content = Content & "</td>" & vbCrLf
			Content = Content & "</tr>" & vbCrLf
          Rs.MoveNext
          i = i + 1
          Loop
          URLParameter = "W="&W
          Content = Content & "</table>" & vbCrLf
          Content = Content & "<table width='100%' cellpadding=3 cellspacing=1 align=center class=td5><tr>" & vbCrLf
          If W <> "Sender" Then Content = Content & "<td height=30><input name='chkall' type='checkbox' id='chkall' value='select' onclick=""CheckAll(this.form)"" style='border:0'>全选　<select name='Action'><option value='Del'>删除</option></select>　<input type='submit' name='submit' value='操 作' onclick=""Loading.style.display='';""></td>" & vbCrLf
          Content = Content & "<td align=right>" & vbCrLf
          Content = Content & WRMPS.GetPageList(URLParameter, ListNum, Rs.RecordCount, Page) ' 插入分页
          Content = Content & "</td></tr></Form></table>" & vbCrLf
        End If
	  Rs.Close
	  Set Rs=Nothing
End Select
Content = Content & PageButtom()
Call DBConnEnd()
response.write Content
Call WRMPS.Loading("")
Call ClassEnd()
%>