my_message.asp

购物网站源码有需要的赶快下载机不可失

  <tr><td bgcolor=#ffffff height=25>
<!--======-->
<table width="90%" border="0" cellspacing="0" cellpadding="5" align=center>
<form name="addform" method="post" action="my_message.asp?action=sendsave" onSubmit="return checkdata()">
  <tr>
    <td width="19%" align=right><font color=red>*</font> 收件人：</td>
	<td width="81%"><input name="SMT_yp_id" type="text" size="30" ID="magicfacepic(1)" onclick="lookmagic(1)" style="cursor:hand"> <img src="img/card.gif" align=absmiddle alt="从我的名片选择" onclick="lookmagic(1)" style="cursor:hand"> 多个请用 "," 隔开
	<div id="magicframe(1)" style="visibility:hidden; position: absolute;width:10; left: 2px; top: 479px;"><iframe src="my_friend_view.asp?action=1" width="380" height="210" frameborder="0" scrolling="no"></iframe></div></td>
  </tr>
  <tr>
    <td width="19%" align=right><font color=red>*</font> 标 题：</td>
	<td width="81%"><input name="SMT_title" type="text" size="42" maxlength="30" value="<%=SMT_title%>"></td>
  </tr>
  <tr>
    <td width="19%" align=right><font color=red>*</font> 内 容：</td>
	<td width="81%"><p style="line-height:180%"><textarea name="SMT_message" cols=40 rows=5 onkeyUp="textLimitCheck(this, 150);"></textarea><br>限 150 个字符  已输入 <font color="#CC0000"><span id="messageCount">0</span></font> 个字</td>
  </tr>
  <tr>
    <td></td>
	<td><input type="submit" name="Submit" value="回 复" class="input1"></td>
  </tr>
  <tr><td bgcolor=#efefef colspan=2><strong>原件：</strong><%=trim(rs("SMT_title"))%></td></tr>
  <tr><td colspan=2><p style="line-height:150%">　　<%=trim(rs("SMT_message"))%></td></tr>
</form>
</table>
</td>
  </tr>
</table>
<%end if
rs.close%>
<!--========================短信转发 end======================-->
<%elseif action="send" then%>
<!--========================发件箱======================-->
<table width="100%" border="0" cellspacing="1" cellpadding="0" bgcolor=#6C94D1>
  <tr><td height=25 bgcolor=#6C94D1>　　<font color=white>我的发件箱</font></td></tr>
  <tr><td bgcolor=#ffffff height=25>
<!--======-->
<table width="100%" border="0" cellspacing="1" cellpadding="5" align=center bgcolor=#ffffff>
  <tr align=center bgcolor=#efefef>
    <td width=*>收件人</td>
	<td width="60%">主 题</td>
	<td width="8%">状态</td>
  </tr>
<%sql="select * from SMT_message where SMT_send_id="&session("id")&" order by SMT_id desc"
rs.open sql,conn,1,1                     
if rs.eof and rs.bof then                     
	response.write "<tr><td height=194 colspan=4 align=center bgcolor=#efefef>暂无内容</td></tr>"
else  
'分页的实现 
listnum=20
Rs.pagesize=listnum
page=Request("page")
if (page-Rs.pagecount) > 0 then
page=Rs.pagecount
elseif page = "" or page < 1 then
page = 1
end if
Rs.absolutepage=page
'编号的实现
j=rs.recordcount
j=j-(page-1)*listnum
i=0
do while not rs.eof and i<listnum

sql1="select *  from SMT_yp where SMT_ID="&rs("SMT_yp_id")
rs1.open sql1,conn,1,1
if not rs1.eof then
SMT_coname=rs1("SMT_coname")
end if
rs1.close%>
  <tr bgcolor=#fafafa>
    <td><%=leftT(SMT_coname,22)%></td>
	<td><a href=my_message.asp?action=see&id=<%=rs("SMT_id")%>><%=leftT(rs("SMT_title"),44)%></a></td>
	<td align=center><%if rs("SMT_key")=0 then%><font color=red>未读</font><%else%>已读<%end if%></td>
  </tr>
<%rs.movenext 
i=i+1 
j=j-1
loop%>
<%filename="my_message.asp?action="&action&""%>
<tr><td colspan=3 align=right bgcolor=#efefef><%=page%>/<%=Rs.pagecount%> 页 
      <% if page=1 then %>
      <%else%>
      <a href=<%=filename%>>|<<</a>
      <a href=<%=filename%>&page=<%=page-1%>><<</a>
      <a href=<%=filename%>&page=<%=page-1%>>[<%=page-1%>]</a>
<%end if%><% if Rs.pagecount=1 then %>
<%else%>[<%=page%>]
<%end if%>
	  <% if Rs.pagecount-page <> 0 then %>
      <a href=<%=filename%>&page=<%=page+1%>>[<%=page+1%>]</a>
      <a href=<%=filename%>&page=<%=page+1%>>>></a>
      <a href=<%=filename%>&page=<%=Rs.pagecount%>>>>|</a>
	  <%end if%></td>
<%end if%></tr>
</table>
</td></tr></table>
<!--========================发件箱 end======================-->
<%elseif action="see" then%>
<!--========================查看======================-->
<%if key="yes" then
conn.execute("update SMT_message set SMT_key=1 where SMT_id="&id)
sql="select * from SMT_message where SMT_id="&id&" and (SMT_yp_id="&session("id")&" or SMT_yp_id=0)"
else
sql="select * from SMT_message where SMT_id="&id&" and (SMT_send_id="&session("id")&" or SMT_send_id=0)"
end if

rs.open sql,conn,1,1
if rs.eof then
response.write "<table width=""100%"" border=0 cellspacing=1 cellpadding=0 bgcolor=#6C94D1><tr><td height=194 colspan=4 align=center bgcolor=#efefef>您没有权限查看此内容</td></tr></table>"
else
sql1="select *  from SMT_yp where SMT_ID="&rs("SMT_send_id")
rs1.open sql1,conn,1,1
if not rs1.eof then
SMT_sendname=rs1("SMT_coname")
else
SMT_sendname="<font color=red>...系统消息...</font>"
end if
rs1.close

sql1="select *  from SMT_yp where SMT_ID="&rs("SMT_yp_id")
rs1.open sql1,conn,1,1
if not rs1.eof then
SMT_ypname=rs1("SMT_coname")
else
SMT_ypname="<font color=red>...系统消息...</font>"
end if
rs1.close
%>
<table width="100%" border="0" cellspacing="1" cellpadding="0" bgcolor=#6C94D1>
  <tr><td height=25 bgcolor=#6C94D1>　　<font color=white>阅读短信</font></td></tr>
  <tr><td bgcolor=#ffffff height=25>

<table width="100%" border="0" cellspacing="1" cellpadding="5" align=center bgcolor=ffffff>

<tr bgcolor=#efefef><td width="18%" align=right>发件人：</td><td width="82%"><%=SMT_sendname%></td></tr>
<tr bgcolor=#efefef><td width="18%" align=right>收件人：</td><td width="82%"><%=SMT_ypname%></td></tr>
<tr bgcolor=#efefef><td width="18%" align=right>时 间：</td><td width="82%"><%=rs("SMT_date")%></td></tr>
<tr bgcolor=#efefef><td width="18%" align=right>主 题：</td><td width="82%"><%=rs("SMT_title")%></td></tr>
<tr bgcolor=#efefef><td align=right>内 容：</td><td><%=rs("SMT_message")%></td></tr>
</table>

	</td>
  </tr>
</table>
<%end if
rs.close%>
<!--========================查看 end======================-->
<%else%>
<!--========================收件箱======================-->
<table width="100%" border="0" cellspacing="1" cellpadding="0" bgcolor=#6C94D1>
  <tr><td height=25 bgcolor=#6C94D1>　　<font color=white>我的收件箱</font></td></tr>
  <tr><td bgcolor=#ffffff height=25>
<!--======-->
<table width="100%" border="0" cellspacing="1" cellpadding="3" align=center bgcolor=#ffffff>
<form name="from1" method="post" action="my_message.asp?action=del">
  <tr align=center bgcolor=#efefef>
    <td width=*>发件人</td>
	<td width="56%">主 题</td>
	<td width="8%">状态</td>
	<td width="4%"><input name="chkall" type="checkbox" id="chkall" value="select" onclick="CheckAll(this.form)" style="border:0"></td>
  </tr>
<%sql="select * from SMT_message where SMT_yp_id="&session("id")&" or (SMT_send_id=0 and SMT_yp_id=0) order by SMT_yp_id,SMT_id desc"
rs.open sql,conn,1,1                     
if rs.eof and rs.bof then                     
	response.write "<tr><td height=194 colspan=4 align=center bgcolor=#efefef>暂无内容</td></tr>"
else  
'分页的实现 
listnum=20
Rs.pagesize=listnum
page=Request("page")
if (page-Rs.pagecount) > 0 then
page=Rs.pagecount
elseif page = "" or page < 1 then
page = 1
end if
Rs.absolutepage=page
'编号的实现
j=rs.recordcount
j=j-(page-1)*listnum
i=0
do while not rs.eof and i<listnum

sql1="select *  from SMT_yp where SMT_ID="&rs("SMT_send_id")
rs1.open sql1,conn,1,1
if not rs1.eof then
SMT_coname=leftT(rs1("SMT_coname"),22)
else
SMT_coname="<font color=cc3300>...系统消息...</font>"
end if
rs1.close%>
  <tr bgcolor=#fafafa>
    <td><%=SMT_coname%></td>
	<td><a href=my_message.asp?action=see&id=<%=rs("SMT_id")%>&key=yes><%=leftT(rs("SMT_title"),42)%></a></td>
	<td align=center><%if rs("SMT_yp_id")<>0 then%><%if rs("SMT_key")=0 then%><font color=red>未读</font><%else%>已读<%end if%><%else%>——<%end if%></td>
	<td align=center><input type="checkbox" name="ID" value="<%=rs("SMT_id")%>" style="border:0"<%if rs("SMT_yp_id")=0 and rs("SMT_send_id")=0 then%> disabled<%end if%>></td>
  </tr>
<%rs.movenext 
i=i+1 
j=j-1
loop%>
<%filename="my_message.asp?action="&action&""%>
<tr><td colspan=4 align=right bgcolor=#efefef><%=page%>/<%=Rs.pagecount%> 页 
      <% if page=1 then %>
      <%else%>
      <a href=<%=filename%>>|<<</a>
      <a href=<%=filename%>&page=<%=page-1%>><<</a>
      <a href=<%=filename%>&page=<%=page-1%>>[<%=page-1%>]</a>
<%end if%><% if Rs.pagecount=1 then %>
<%else%>[<%=page%>]
<%end if%>
	  <% if Rs.pagecount-page <> 0 then %>
      <a href=<%=filename%>&page=<%=page+1%>>[<%=page+1%>]</a>
      <a href=<%=filename%>&page=<%=page+1%>>>></a>
      <a href=<%=filename%>&page=<%=Rs.pagecount%>>>>|</a>
	  <%end if%> <input type="submit" name="Submit" value="删 除" class=input1 style="height:18"></td>
<%end if%></tr>
</form>
</table>
<%end if%>
	</td>
  </tr>
</table>
<!--========================收件箱 end======================-->
	</td>
  </tr>
</table>
	</td>
  </tr>
</table>
<!--====== bottom ========-->
<table width="760" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor=#ffffff>
<tr><td height=2 bgcolor=#6C94D1></td></tr>
  <tr>
    <td align="center" height=80><%=citybottom%></td>
  </tr>
</table>
<%set rs=nothing
set rs1=nothing%>
</body>
</html>