<%
'商易仿淘宝4.0(多用户)
'ACCESS版演示网站：http://www.ftaobao.com(商易仿淘宝商城)
'SQL版演示网站：http://sql.ftaobao.com
'电话：0571-56907100
'QQ：1147100
%>
<style type="text/css">
<!--
.STYLE1 {color: #FFFFFF}
-->
</style>
<body onLoad="show(e51),show(e52)">
<!--#include file="top.asp"-->
<!--#include file="../include/page.asp" -->
<link href="include/css.css" rel="stylesheet" type="text/css">
<table width="762" border="0" align="center" cellpadding="2" cellspacing="0" style='BORDER-COLLAPSE: collapse;MARGIN: 3px'>
  <tr> 
    <td height="15" colspan="2"></td>
  </tr>
  <tr> 
    <td width="180" valign="top">
<!--#include file="left.asp"-->
    </td>
    <td width="582" height="280" valign="top"><%hy "login.asp"
Select case request("abc")
case "del_q"
conn.execute("Delete * from duanxin where name1='"&Request.Cookies(Rikee)("huiyuan")&"'")
Response.redirect "?"
case "del"
conn.execute("Delete * from duanxin where id="&shopnet("id")&" and name1='"&Request.Cookies(Rikee)("huiyuan")&"'")
Response.redirect "?abc="&request("go")&"&page="&request("page")&""
case "hf_ok"
if request("name")<>"" and request("bt")<>"" and request("nr")<>"" then
name1=shopnet("name")
bt=shopnet("bt")
nr=shopnet("nr")
set user=conn.execute("select huiyuan from huiyuan where huiyuan='"&name1&"'")
if user.eof then
width="500"
my_bt="操 作 失 败 ！"
my_nr="<meta http-equiv=refresh content=4;url=index.asp>&nbsp;<b>对不起！您不能成功地发出站内信！！！</b></font><br>·在数据库中未能找到与之匹配的会员名称！"
xitongtishi()
Else
Set user=Server.CreateObject("ADODB.Recordset")
sql="select * from huiyuan where huiyuan='"&name1&"'"
user.open sql,conn,1,1 
email=user("mail")
user.close
if datediff("s",cdate(Request.Cookies(Rikee)("dx_sj")),now())<30 then
width="500"
my_bt="操 作 失 败 ！"
my_nr="<meta http-equiv=refresh content=4;url=index.asp>&nbsp;<b>对不起！您不能成功地发出站内信！！！</b></font><br>·本系统为了防止灌水，限制了同一人发站内信的时间间隔为 <b>30</b> 秒！"
my()
else
conn.execute("Insert into duanxin(bt,nr,name1,name2,lx)values('"&bt&"','"&nr&"','"&name1&"','"&Request.Cookies(Rikee)("huiyuan")&"',1)")
%>
<!--#include file="../include/jmail.asp"-->
<%
Response.Cookies(Rikee)("dx_sj")=sqlnow
width="500"
my_bt="发 送 成 功 ！"

my_nr="<meta http-equiv=refresh content=2;url="&request("url")&">&nbsp;<b>您已成功发出站内信！！！</b></font><br>·恭喜您，站内信成功发送！"
my()
end if
end if
end if
case "xs"
set rs = conn.execute("select id,zt,bt,name2,nr,sj,lx from duanxin where id="&shopnet("id")&" and name1='"&Request.Cookies(Rikee)("huiyuan")&"'")
if rs("zt")=0 then
conn.execute("Update duanxin set zt=1 where id="&shopnet("id")&" and name1='"&Request.Cookies(Rikee)("huiyuan")&"'")
end if%>
<!--#include file="ubb.asp"-->
      <table width="100%" border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td><table border="0" align="left" cellpadding="0" cellspacing="0">
              <tr>
                <td width="1"><IMG SRC="../images/mytaobaobj1_3.gif" WIDTH=3 HEIGHT=25 ALT=""></td>
                <td width="120" align="center" background="../images/mytaobaobj1_4.gif"><span class="STYLE1">收件箱</span></td>
                <td width="1"><IMG SRC="../images/mytaobaobj1_6.gif" WIDTH=7 HEIGHT=25 ALT=""></td>
              </tr>
            </table>
              <table border="0" align="left" cellpadding="0" cellspacing="0">
                <tr>
                  <td width="1"><IMG SRC="../images/mytaobaobj1_8.gif" WIDTH=3 HEIGHT=25 ALT=""></td>
                  <td width="120" align="center" background="../images/mytaobaobj1_9.gif"><font color="#FF0000"><span class="C"><a href="duanxin.asp?abc=fjj">已发信件</a></span></font></td>
                  <td width="1"><IMG SRC="../images/mytaobaobj1_11.gif" WIDTH=7 HEIGHT=25 ALT=""></td>
                </tr>
              </table>
            <table border="0" align="left" cellpadding="0" cellspacing="0">
                <tr>
                  <td width="1"><IMG SRC="../images/mytaobaobj1_8.gif" WIDTH=3 HEIGHT=25 ALT=""></td>
                  <td width="120" align="center" background="../images/mytaobaobj1_9.gif"><font color="#FF0000"><span class="C"><a href="?abc=fa">发送信件</a></span></font></td>
                  <td width="1"><IMG SRC="../images/mytaobaobj1_11.gif" WIDTH=7 HEIGHT=25 ALT=""></td>
                </tr>
            </table></td>
        </tr>
      </table>
      <table width="100%" border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td height="4" bgcolor="1E88C1"></td>
        </tr>
      </table>
      <table width="100%" border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td height="5"></td>
        </tr>
      </table>
      <br>
      <table width="100%" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#efefef">
        <tr valign="middle">
          <td height="23" colspan="2" align="center" background="../image/bk.gif" bgcolor="#FFFFFF"><%=rs("bt")%></td>
        </tr>
        <tr valign="middle"> 
          <td width="76" height="25" align="center" bgcolor="#FFFFFF">发 送 人</td>
          <td width="479" height="25" bgcolor="#FFFFFF"><%if rs("name2")<>my_name then Response.Write "<a href=../bbs/huiyuan.asp?huiyuan="&rs("name2")&" target=_blank>"&rs("name2")&"</a>" else Response.Write rs("name2")%></td>
        </tr>
        <tr valign="middle"> 
          <td height="25" align="center" valign="middle" bgcolor="#FFFFFF"><p>内&nbsp;&nbsp; 容</p>
            </td>
          <td height="150" valign="top" bgcolor="#FFFFFF" style="word-break:break-all"><%=ubb(Replace(Replace(rs("nr"), chr(32), "&nbsp;"), vbCrLf, "<br>"))%></td>
        </tr>
        <tr valign="middle"> 
          <td height="25" align="center" valign="top" bgcolor="#FFFFFF"><p>时间</p>          </td>
          <td height="25" bgcolor="#FFFFFF"><%=rs("sj")%></td>
        </tr>
        <tr valign="middle"> 
          <td height="25" colspan="2" align="center" bgcolor="#FFFFFF">
<input name="Submit" type="submit" class="go-wenbenkuang" value="返回上一页"  onclick="window.location='?page=<%=request("page")%>'">
            <%if rs("name2")<>my_name then%><input name="Submit" type="button" value="回复站内信" onClick="window.location='?abc=hf&id=<%=rs("id")%>&page=<%=request("page")%>'"><%end if%></td>
        </tr>
        <tr valign="middle">
          <td height="21" colspan="2" align="center" background="../image/bk1.gif" bgcolor="#FFFFFF">&nbsp;</td>
        </tr>
      </table> 
<%rs.close
set rs=nothing
case "hf"
set rs = conn.execute("select bt,name2,nr from duanxin where id="&shopnet("id")&" and name1='"&Request.Cookies(Rikee)("huiyuan")&"'")%>
<br>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td><table border="0" align="left" cellpadding="0" cellspacing="0">
      <tr>
        <td width="1"><IMG SRC="../images/mytaobaobj1_3.gif" WIDTH=3 HEIGHT=25 ALT=""></td>
        <td width="120" align="center" background="../images/mytaobaobj1_4.gif"><span class="STYLE1">回复站内信</span></td>
        <td width="1"><IMG SRC="../images/mytaobaobj1_6.gif" WIDTH=7 HEIGHT=25 ALT=""></td>
      </tr>
    </table>
        <table border="0" align="left" cellpadding="0" cellspacing="0">
          <tr>
            <td width="1"><IMG SRC="../images/mytaobaobj1_8.gif" WIDTH=3 HEIGHT=25 ALT=""></td>
            <td width="120" align="center" background="../images/mytaobaobj1_9.gif"><font color="#FF0000"><a href="?">收件箱</a><span class="C"><a href="auc_fend.asp"></a></span><span class="C"><a href="duanxin.asp?abc=fjj"></a></span></font></td>
            <td width="1"><IMG SRC="../images/mytaobaobj1_11.gif" WIDTH=7 HEIGHT=25 ALT=""></td>
          </tr>
        </table>
      <table border="0" align="left" cellpadding="0" cellspacing="0">
          <tr>
            <td width="1"><IMG SRC="../images/mytaobaobj1_8.gif" WIDTH=3 HEIGHT=25 ALT=""></td>
            <td width="120" align="center" background="../images/mytaobaobj1_9.gif"><font color="#FF0000"><span class="C"><a href="?abc=fa">发送信件</a></span></font></td>
            <td width="1"><IMG SRC="../images/mytaobaobj1_11.gif" WIDTH=7 HEIGHT=25 ALT=""></td>
          </tr>
      </table></td>
  </tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td height="4" bgcolor="1E88C1"></td>
  </tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td height="5"></td>
  </tr>
</table>
<form action="?abc=hf_ok&name=<%=rs("name2")%>" method="post" name="form" id="form" onSubmit="javascript:return jc(this)">
        <script language="javascript">
		function jc(aa){		 
				if(aa.bt.value==''){			
					alert("对不起,您必须输入回复站内信标题!");
					aa.bt.focus();
					return false;								
				}
				if(aa.bt.value.length<3){			
					alert("对不起,回复站内信标题字数太少站内信不明确!");
					return false;								
				}
				if(aa.nr.value==''){
					alert("对不起,回复站内信内容不能为空!");
					return false;								
				}
				if(aa.nr.value.length>255){			
					alert("对不起,每条回复站内信内容不能超过255字!");
					return false;								
				}
		}
		
		</script>
  <br>
  <br>
        <table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#efefef">
          <tr>
            <td height="21" colspan="2" align="center" valign="middle" background="../image/bk.gif">&nbsp;</td>
          </tr>
          <tr> 
            <td width="93" height="30" align="center" valign="middle" bgcolor="#FFFFFF"><font color="#FF6600">回复标题</font></td>
            <td width="482" height="30" valign="middle" bgcolor="#FFFFFF"> <input name="bt" type="text" class="wenbenkuang" id="bt" value="Re:<%=rs("bt")%>" size="38" maxlength="25">
            25字以内</td>
          </tr>
          <tr> 
            <td width="93" height="90" align="center" valign="middle" bgcolor="#FFFFFF"><font color="#FF6600">回复内容</font><br></td>
            <td height="90" valign="middle" bgcolor="#FFFFFF"> <textarea name="nr" cols="52" rows="8" class="wenbenkuang" id="nr"><%=rs("nr")%>
====================================
</textarea>            </td>
          </tr>
          <tr> 
            <td height="35" colspan="2" align="center" valign="middle" bgcolor="#FFFFFF"> (255字以内) 
              <input name="Submit" type="submit" class="go-wenbenkuang" value="发送"> 
              <input name="Submit" type="reset" class="go-wenbenkuang" value="重写"> 
              <input name="Submit" type="button" class="go-wenbenkuang" value="返回" onClick="javascript:window.history.go(-1)"> 
            <input name="page" type="hidden" id="page" value="<%=request("page")%>">            </td>
          </tr>
          <tr>
            <td height="21" colspan="2" align="center" valign="middle" background="../image/bk1.gif">&nbsp;</td>
          </tr>
        </table>
      </form>
<%rs.close
set rs=nothing
case "fa"%><form action="?abc=hf_ok" method="post" name="form" id="form" onSubmit="javascript:return jc(this)">
<script language="javascript">
function jc(aa){		 
if(aa.name.value==''){			
alert("对不起,您必须输入站内信接收会员!");
aa.name.focus();
return false;}
if(aa.bt.value==''){			
alert("对不起,您必须输入站内信标题!");
aa.bt.focus();
return false;}
if(aa.bt.value.length<3){			
alert("对不起,站内信标题字数太少站内信不明确!");
return false;}
if(aa.nr.value==''){
alert("对不起,站内信内容不能为空!");
return false;}
if(aa.nr.value.length>255){			
alert("对不起,每条站内信内容不能超过255字!");
return false;}}
</script>
  <table width="100%" border="0" cellpadding="0" cellspacing="0">
    <tr>
      <td><table border="0" align="left" cellpadding="0" cellspacing="0">
          <tr>
            <td width="1"><IMG SRC="../images/mytaobaobj1_3.gif" WIDTH=3 HEIGHT=25 ALT=""></td>
            <td width="120" align="center" background="../images/mytaobaobj1_4.gif"><span class="STYLE1">发送信件</span></td>
            <td width="1"><IMG SRC="../images/mytaobaobj1_6.gif" WIDTH=7 HEIGHT=25 ALT=""></td>
          </tr>
        </table>
          <table border="0" align="left" cellpadding="0" cellspacing="0">
            <tr>
              <td width="1"><IMG SRC="../images/mytaobaobj1_8.gif" WIDTH=3 HEIGHT=25 ALT=""></td>
              <td width="120" align="center" background="../images/mytaobaobj1_9.gif"><font color="#FF0000"><a href="?">收件箱</a><span class="C"><a href="auc_fend.asp"></a></span><span class="C"><a href="duanxin.asp?abc=fjj"></a></span></font></td>
              <td width="1"><IMG SRC="../images/mytaobaobj1_11.gif" WIDTH=7 HEIGHT=25 ALT=""></td>
            </tr>
          </table>
        </td>
    </tr>
  </table>
  <table width="100%" border="0" cellpadding="0" cellspacing="0">
    <tr>
      <td height="4" bgcolor="1E88C1"></td>
    </tr>
  </table>
  <br>
        <table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#efefef">
          <tr>
            <td height="21" colspan="2" align="center" valign="middle" background="../image/bk.gif" bgcolor="white">&nbsp;</td>
          </tr>
          <tr> 
            <td height="30" align="center" valign="middle" bgcolor="white"><font color="#FF6600">接收会员</font></td>
            <td height="30" valign="middle" bgcolor="white"><input name="name" type="text" class="wenbenkuang" id="name" size="20" maxlength="16"></td>
          </tr>
          <tr> 
            <td width="120" height="30" align="center" valign="middle" bgcolor="white"><font color="#FF6600">站内信标题</font></td>
            <td height="30" valign="middle" bgcolor="white"> <input name="bt" type="text" class="wenbenkuang" id="bt" size="38" maxlength="25">
              50字节以内</td>
          </tr>
          <tr> 
            <td width="120" height="90" align="center" valign="middle" bgcolor="white"><font color="#FF6600">站内信内容</font><br></td>
            <td height="90" valign="middle" bgcolor="white"> <textarea name="nr" cols="45" rows="8" class="wenbenkuang" id="nr"></textarea>            </td>
          </tr>
          <tr> 
            <td height="35" colspan="2" align="center" valign="middle" bgcolor="white"> (255字以内)
              <input name="Submit" type="submit" class="go-wenbenkuang" value="发送"> 
              <input name="Submit" type="reset" class="go-wenbenkuang" value="重写"> 
            <input name="Submit" type="button" class="go-wenbenkuang" value="返回" onClick="javascript:window.history.go(-1)">            </td>
          </tr>
          <tr>
            <td height="21" colspan="2" align="center" valign="middle" background="../image/bk1.gif" bgcolor="white">&nbsp;</td>
          </tr>
        </table>
      </form>
<%case "fjj"%>
      <table width="100%" border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td><br>
          <table border="0" align="left" cellpadding="0" cellspacing="0">
                <tr>
                  <td width="1"><IMG SRC="../images/mytaobaobj1_3.gif" WIDTH=3 HEIGHT=25 ALT=""></td>
                  <td width="120" align="center" background="../images/mytaobaobj1_4.gif"><font color="#FFFFFF" span class="C">已发信件<font color="#FFFFFF" span class="C"></font></font></td>
                  <td width="1"><IMG SRC="../images/mytaobaobj1_6.gif" WIDTH=7 HEIGHT=25 ALT=""></td>
                </tr>
            </table>
                <table border="0" align="left" cellpadding="0" cellspacing="0">
                  <tr>
                    <td width="1"><IMG SRC="../images/mytaobaobj1_8.gif" WIDTH=3 HEIGHT=25 ALT=""></td>
                    <td width="120" align="center" background="../images/mytaobaobj1_9.gif"><font color="#FF0000"><a href="?">收件箱</a><span class="C"><a href="auc_fend.asp"></a></span></font></td>
                    <td width="1"><IMG SRC="../images/mytaobaobj1_11.gif" WIDTH=7 HEIGHT=25 ALT=""></td>
                  </tr>
                </table>
              <table border="0" align="left" cellpadding="0" cellspacing="0">
                  <tr>
                    <td width="1"><IMG SRC="../images/mytaobaobj1_8.gif" WIDTH=3 HEIGHT=25 ALT=""></td>
                    <td width="120" align="center" background="../images/mytaobaobj1_9.gif"><font color="#FF0000"><span class="C"><a href="?abc=fa">发送信件</a></span></font></td>
                  <td width="1"><IMG SRC="../images/mytaobaobj1_11.gif" WIDTH=7 HEIGHT=25 ALT=""></td>
                  </tr>
            </table></td></tr>
      </table>
      <table width="100%" border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td height="4" bgcolor="1E88C1"></td>
        </tr>
      </table>
      <table width="100%" border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td height="5"></td>
        </tr>
      </table>
      <br>
      <table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#efefef">
        <tr valign="middle" bgcolor="#f1f1f1"> 
          <td height="21" align="center" background="../image/bk.gif">站内信标题</td>
          <td width="75" height="21" align="center" background="../image/bk.gif">收件人</td>
          <td width="120" height="21" align="center" background="../image/bk.gif">发送时间</td>
          <td width="35" height="21" align="center" background="../image/bk.gif">状态</td>
        </tr>
        <%Set rs=Server.CreateObject("ADODB.Recordset")
sql="select id,bt,name1,sj,zt from duanxin where name2='"&Request.Cookies(Rikee)("huiyuan")&"' order by id desc"
rs.open sql,conn,3,1 
if rs.eof then 
  response.write "<tr><td colspan=4 align=center bgcolor=white height=21 valgin=bottom >您还没有发过站内短信！</td></tr>"
else
page1("10")
i=1
do while not rs.eof and i<=rs.pagesize%>
        <tr valign="middle" bgcolor="#FFFFFF" onMouseOver ="this.style.backgroundColor = '#F8FFDF'" onMouseOut ="this.style.backgroundColor = ''"> 
          <td height="25"><%Response.Write("·"&left(rs("bt"),18)&"")%></td>
          <td width="75" align="center"><%Response.Write "<a href=../renzhengshow.asp?huiyuan="&rs("name1")&" target=_blank>"&rs("name1")&"</a>"%></td>
          <td width="120" height="25" align="center"><%=rs("sj")%></td>
          <td width="35" align="center"><%if rs("zt")=0 then Response.Write "<font color=red>未读</font>" else Response.Write "已读"%></td>
        </tr>
        <%i=i+1
        rs.MoveNext                                              
        loop%>
        <tr valign="middle" bgcolor="#FFFFFF"> 
          <td height="21" colspan="4" align="center" background="../image/bk1.gif"> <%page2("abc=fjj&")
rs.close
set rs=nothing
end if
%></td>
        </tr>
      </table>
      <%case else%>
      <table width="100%" border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td><table border="0" align="left" cellpadding="0" cellspacing="0">
              <tr>
                <td width="1"><IMG SRC="../images/mytaobaobj1_3.gif" WIDTH=3 HEIGHT=25 ALT=""></td>
                <td width="120" align="center" background="../images/mytaobaobj1_4.gif"><span class="STYLE1 STYLE1">收件箱</span></td>
                <td width="1"><IMG SRC="../images/mytaobaobj1_6.gif" WIDTH=7 HEIGHT=25 ALT=""></td>
              </tr>
            </table>
              <table border="0" align="left" cellpadding="0" cellspacing="0">
                <tr>
                  <td width="1"><IMG SRC="../images/mytaobaobj1_8.gif" WIDTH=3 HEIGHT=25 ALT=""></td>
                  <td width="120" align="center" background="../images/mytaobaobj1_9.gif"><font color="#FF0000"><span class="C"><a href="duanxin.asp?abc=fjj">已发信件</a></span></font></td>
                  <td width="1"><IMG SRC="../images/mytaobaobj1_11.gif" WIDTH=7 HEIGHT=25 ALT=""></td>
                </tr>
              </table>
            <table border="0" align="left" cellpadding="0" cellspacing="0">
                <tr>
                  <td width="1"><IMG SRC="../images/mytaobaobj1_8.gif" WIDTH=3 HEIGHT=25 ALT=""></td>
                  <td width="120" align="center" background="../images/mytaobaobj1_9.gif"><font color="#FF0000"><span class="C"><a href="?abc=fa">发送信件</a></span></font></td>
                  <td width="1"><IMG SRC="../images/mytaobaobj1_11.gif" WIDTH=7 HEIGHT=25 ALT=""></td>
                </tr>
            </table></td>
        </tr>
      </table>
      <table width="100%" border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td height="4" bgcolor="1E88C1"></td>
        </tr>
      </table>
      <table width="100%" border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td height="5"></td>
        </tr>
      </table>
      <br>
      <%msg="提示：为节约服务器资源，系统将自动删除大于15天以前的所有站内信。"
	  wmsg()%>
	  <br>
	  <table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#efefef">
        <tr valign="middle" bgcolor="#f1f1f1"> 
          <td height="21" align="center" background="../image/bk.gif">站内信标题</td>
          <td width="75" height="21" align="center" background="../image/bk.gif">发送人</td>
          <td width="120" height="21" align="center" background="../image/bk.gif">发送时间</td>
          <td width="35" height="21" align="center" background="../image/bk.gif">删除</td>
        </tr>
<%Set rs=Server.CreateObject("ADODB.Recordset")
sql="select id,bt,name2,sj,zt from duanxin where name1='"&Request.Cookies(Rikee)("huiyuan")&"' order by id desc"
rs.open sql,conn,3,1
if rs.eof then
  response.write "<tr><td colspan=4 align=center bgcolor=white height=21 valgin=bottom >您还没有发过站内短信！</td></tr>"
  else
page1("10")
i=1
do while not rs.eof and i<=rs.pagesize%>
        <tr valign="middle" bgcolor="#FFFFFF" onMouseOver ="this.style.backgroundColor = '#F8FFDF'" onMouseOut ="this.style.backgroundColor = ''"> 
          <td height="25"><%if rs("zt")=0 then Response.Write("<a href=?id="&rs("id")&"&page="&page&"&abc=xs><b>·"&left(rs("bt"),18)&"</b></a>") else Response.Write("<a href=?id="&rs("id")&"&page="&page&"&abc=xs>·"&left(rs("bt"),18)&"</a>")%></td>
          <td width="75" align="center"><%if rs("name2")<>my_name then Response.Write "<a href=../bbs/huiyuan.asp?huiyuan="&rs("name2")&" target=_blank>"&rs("name2")&"</a>" else Response.Write rs("name2")%></td>
          <td width="120" height="25" align="center"><%=rs("sj")%></td>
          <td width="35" align="center"> <%response.write "<a href=?id="&rs("id")&"&page="&page&"&abc=del>删除</a>"%></td>
        </tr>
        <%i=i+1
        rs.MoveNext                                              
        loop%>
        <tr valign="middle" bgcolor="#FFFFFF"> 
          <td height="21" colspan="4" align="center" background="../image/bk1.gif">
<%page2("")
rs.close
set rs=nothing
end if %></td>
        </tr>
      </table>
      <table width="550" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr> 
          <td height="25" valign="middle"><br><%response.write "<a href='javascript:confirmdel()'>[全部清空收件夹]</a>"%>
<script language="javascript">
function confirmdel(){
if (confirm("确定要清空收件夹？")) 
window.location.href="?abc=del_q"}  
</script></td>
        </tr>
      </table>
    <%end select%></td>
  </tr>
</table>
<br>
<br>
<br>
<!--#include file="../bottom.asp"-->
