mail.asp

一对一校友录多班级而且非常漂亮http://free.cnyys.com/my/yhe/DEFAULT.ASP

<!--#include file="head.asp"-->
<TABLE style="BORDER-RIGHT: #cccccc 1px solid; BORDER-LEFT: #cccccc 1px solid" 
cellSpacing=0 cellPadding=0 width=778 align=center bgColor=#ffffff>
  <TR vAlign=top>
    <TD bgColor=#cccccc><IMG height=1 alt="" src="image/stu.htm" width=1 
      name=""></TD>
    <TD>
      <TABLE cellSpacing=0 cellPadding=0 width="100%" align=center 
      bgColor=#ffffff border=0>
        <TBODY>
        <TR>
          <TD height=8 bgColor=#f4f4f4></TD></TR>
          <TD>
 <TABLE id=AutoNumber3 style="BORDER-COLLAPSE: collapse" 
            cellSpacing=0 cellPadding=0 width="100%" border=0>
              <TBODY>
              <TR>
                <TD vAlign=top height=52>
                  <TABLE id=AutoNumber5 style="BORDER-COLLAPSE: collapse" 
                  borderColor=#111111 cellSpacing=0 cellPadding=3 width="100%" 
                  border=0>
                    <TBODY>
                    <TR>
                      <TD class=6 width=495 background=image/type_bg.gif 
                      height=30><IMG height=12 src="image/type01.gif" width=12 
                        align=absMiddle> 当前位置: <A 
            href="index.asp">网站首页</A> - 个人信箱</TD>
                      <TD width=100 background=image/type_bg.gif>
                        <DIV align=center><IMG 
                        src="image/more.gif" 
                    border=0></DIV></TD></TR><TR>
                      <TD colSpan=2>
<%If session("wzname")="" Then%><br>
<font color=red>只有登录才能查看!</font>
<%else
dim username,sql,type2,ad,id
id =request.querystring("id")
username=Session("wzname")
ad=request.querystring("ad")
type2=Request.QueryString("type2")
Select Case type2
	Case "show":
		 call show
	Case "delall":
		 call delall
		 Case "add2":
		Call add2
	Case "del":
		Call del
		Case "view":
		Call view
		Case "add":
		Call add
	Case Else:
		 call show
End Select 
End If
sub show
%> 
                        <TABLE width="100%" border=0 cellPadding=0 cellSpacing=0 
                        background=image/line1.gif>
                          <TBODY>
           <TR bgcolor="#99CCFF">
                             <TD height=20><div align="center"><a href="editreg.asp"></a><a href="note.asp"><font color="#000000">记事本</font></a></div></TD>
                            <TD><div align="center"><a href="bj/ly.asp?type2=cz&type3=username&key=<%=session("wzname")%>&bj=<%=session("userclass")%>"><font color="#000000">我的留言</font></a></div></TD>
                            <TD><div align="center"><a href="grphoto.asp?mmm=0&photocx=<%=username%>"><font color="#000000">我的相册</font></a></div></TD>
                            <TD><div align="center"><a href="editreg.asp"><font color="#000000">资料修改</font></a></div></TD>
                            <TD><div align="center"><a href="mail.asp"><font color="#000000">个人信箱</font></a></div></TD>
                            <TD align=left><div align="center"><a href="xx.asp"><font color="#000000">休闲区</font></a></div></TD>
						  <TR bgcolor="#FFFFFF">
                             <TD height=20>　<span style="color: #FF0000; font-family: &quot;宋体&quot;, &quot;隶书&quot;; font-size: 13px"><a href="?type2=add"><font color="#FF0000">写新的消息</font></a></span></TD>
							 <TD height=20 colspan="5"><span style="color: #000000"><L><span class="style2">　　　　　　　　　节省每一分空间，请及时删除无用信息</span></L></span></TD>
                          
						  </TR><TR>
                            <TD height=20 colspan="6">
                              <div align="center">
                                <%Dim rs,cur,rowcount,i
	set rs=Server.CreateObject("Adodb.Recordset")
	sql="select user.name,user.username, mail.* from mail,user where towho='"&username&"' and user.username=mail.username order by isread asc,id desc"
	rs.open sql,conn,1,3
	if rs.eof then
		response.write "还没有收到来信"
	else
cur=request.form("cur")
if cur="" then
cur=1
end if
rs.pagesize=20
rs.absolutepage=cint(cur)
rowcount=0%>
  
							  </div>
                              <table width="100%"  border="1" cellspacing="1" cellpadding="1">
                              <tr bgcolor="#99CCFF">
                                <td width="6%"><div align="center">已读 </div></td>
                                <td width="12%"><div align="center">发件人</div></td>
                                <td width="45%"><div align="center">主题</div></td>
                                <td width="30%"><div align="center">日期</div></td>
                                <td width="7%">   <div align="center">操作</div></td>
                              </tr>

<%do while not rs.eof and rowcount<rs.pagesize
if rs("isread")=0 then%>
                              <tr>
                                <td><div align="center" style="color: #000000; font-size: 12; font-weight: bold"><a href="?type2=view&id=<%=rs("id")%>"><img src="image/m_news.gif" alt="新消息" width="21" height="14"></a></div></td>
                                <td><a href="datum.asp?username=<%=rs("Username")%>"><span style="color: #000000"><%=rs("name")%></span></a></td>
                                <td><span class="style1" font-size: 12; font-weight: bold"><a href="?type2=view&id=<%=rs("id")%>"><b><font color="#000000"><%=rs("title")%></font></b></a></span></td>
                                <td><span class="style1" style="color: #000000; font-size: 12; font-weight: bold"><%=rs("date")%></span></td>
                                <td><span class="style1" style="color: #000000; font-size: 12; font-weight: bold"><a href="?type2=del&ad=<%=rs("id")%>" onClick="return confirm('真的要删除？')">删除</a></span></td>
                              </tr>
<%else%>
							  <tr>
                                <td><div align="center" style="color: #000000"><img src="image/m_olds.gif" alt="旧信息" width="21" height="14"></div></td>
                                <td><a href="datum.asp?username=<%=rs("Username")%>"><span style="color: #000000"><%=rs("name")%></span></a></td>
                                <td><a href="?type2=view&id=<%=rs("id")%>"><font color="#000000"><%=rs("title")%></font></a></td>
                                <td><span style="color: #000000"><%=rs("date")%></span></td>
                                <td><span style="color: #000000"><a href="?type2=del&ad=<%=rs("id")%>" onClick="return confirm('真的要删除？')">删除</a></span></td>
                              </tr>
<%end if
rowcount=rowcount+1
				rs.movenext
      loop%>
                            </table> 
	  <%end if%></TD>
                            </TR>
                  </TBODY></TABLE>
				  <table width="100%"  border="0">
  <tr><form name="form2" method="post" action="xy.asp"><TD align=left bgcolor="#99CCFF"><span class="style2">共<%=rs.recordcount%>条　 分<%=rs.pagecount%>页　　每页20条　　　当前页次：<%=cur%>/<%=rs.pagecount%>　　　　　　　　　　　　　　　　　
    转到: 
                      <select name="cur" size="1" onchange="javascript:submit()">
  <%for i = 1 to rs.pagecount%>              
    <option value="<%=i%>" <%if i=cint(cur) then%> selected <%end if%>>第<%=i%>页 </option>   
    <%next%>   
                      </select>
                      <%
  rs.close
	 set rs=nothing%>
　　　　　　　　
<a href="?type2=delall" style="font-weight: bold" onClick="return confirm('真的要清空信箱？')"><font color="#FF0000">清空信箱</font></a>
</span></td>
  </form>
  </tr>
</table>
<%
end sub
sub del
Set rs = Server.CreateObject("ADODB.Recordset")
sql="delete from mail where id="&ad&""
rs.open sql,conn,1,3
Response.Redirect "mail.asp"
end sub
sub delall
Set rs = Server.CreateObject("ADODB.Recordset")
sql="delete from mail where towho ='"&username&"'"
rs.open sql,conn,1,3
Response.Redirect "mail.asp"
end sub