<!--#include file="../Include/Conno.asp" -->
<!--#include file="IsLogin.asp" -->
<%
m_UserID = Session("CurUserID")

if Trim(Request("types"))="del" then
 s_id=trim(request("ID"))
If s_id="" then
 response.Write("<script>this.location.href='msmdy.asp';</script>")
 response.end
end if

 set rsu=server.CreateObject("adodb.recordset")
 sqlu="select * from info_ad where F_UserID="&m_UserID&" and F_id="&s_id

 rsu.open sqlu,conn,1,3
 if rsu.eof then
%>
<script language=javascript>
 alert('此记录不存在或您没有权限删除！');
 window.location.replace('Logout.asp');
</script>
<%
else
conn.execute("delete from info_ad where F_id="&s_id)
%>
<script language=javascript>
alert("删除成功,点确定返回管理首页");
window.location.href="msmdy.asp";
</script>
<%
response.End()
end if
end if

if Trim(Request("types"))="up" then
s_id=clng(trim(request("ID")))
If s_id="" then
 response.Write("<script>this.location.href='msmdy.asp';</script>")
 response.end
end if

 set rsu=server.CreateObject("adodb.recordset")
 sqlu="select * from info_ad where F_UserID="&m_UserID&" and F_id="&s_id
 rsu.open sqlu,conn,1,3
 if rsu.eof then
%>
<script language=javascript>
 alert('此记录不存在或您没有权限更新！');
 window.location.replace('Logout.asp');
</script>
<%
else
rsu("F_addtime")=now()
rsu.update
%>
<script language=javascript>
alert("更新成功,点确定返回管理首页");
window.location.href="msmdy.asp";
</script>
<%
response.End()
end if

end if
%>
<HTML><HEAD><TITLE>黄冈信息港会员俱乐部修改密码</TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<link href="../css/member.css" rel="stylesheet" type="text/css">
<SCRIPT language="JavaScript">
function jDelete(url)
{
  if((confirm(" 警告:请确定是否删除,删除后不能恢复! "))==true) 
	self.location=url+'&types=del';
}
</SCRIPT>
<style type="text/css">
<!--
.style1 {color: #FF0000}
-->
</style>
</HEAD>
<BODY leftMargin=0 topMargin=0>
<!--#include file="../include/top.asp" -->
<!--#include file="../include/member_top.asp" --><!--#include file="club_top.asp" -->
<!--#include file="Top.asp" -->
<table width="780" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
  <tr> 
    <td width="183" height="400" align="center" valign="top"> 
      <!--#include file="left.asp" -->
    </td>
    <td width="597" align="center" valign="top"><table width="96%"  border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td width="60%" height="40" align="left" valign="bottom" class="red"><strong><img src="../Images/member/fire.gif" width="13" height="13"></strong><a href="msadd.asp" class="style1">发布新的信息</a><strong> 提示：</strong><span class="style1">点击<img src="../Images/member/reds.gif" alt="刷新此信息排列到第一" width="16" height="16" border="0">图标，刷新到第一条。</span></td>
          <td width="40%" align="right"><img src="../Images/member/hy_c_11.gif" width="230" height="80"></td>
        </tr>
        <tr> 
          <td height="1" colspan="2" bgcolor="#c7c7c7"></td>
        </tr>
      </table>
      <table width="100%"  border="0" cellspacing="2" cellpadding="2">
        <tr>
          <td><table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#DCDCDC">
                    <tr>
                      <td width="76%" height="30" bgcolor="#DCDCDC"><span class="t"><strong>我己发布的信息</strong></span></td>
                      <td width="24%" bgcolor="#DCDCDC"><a href="msadd.asp"><img src="../Images/member/collect.gif" width="10" height="12" border="0">发布新信息</a></td>
                    </tr>
                    <tr>
                      <td colspan="2" bgcolor="#FFFFFF"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
                          <tr align="center">
                            <td width="18%" height="23">信息类型</td>
                            <td width="32%">标题</td>
                            <td width="22%">发布时间</td>
                            <td width="11%">浏览次数</td>
                            <td width="17%">操作选项</td>
                          </tr>
                      </table></td>
                    </tr>
                    <tr>
                      <td height="13" colspan="2" bgcolor="#FFFFFF">
                        <%
set sonylist = Server.CreateObject("ADODB.Recordset")
sqlsonylist="select * from info_ad where F_UserID="&m_UserID&" order by F_addtime desc"
sonylist.open sqlsonylist,conn,1,1
do while not sonylist.eof
f_adclassid=sonylist("f_adclassid")
set rss=conn.execute("select * from info_adclass where f_id="&f_adclassid&"")
if not rss.eof then
f_value=rss("f_value")
else
f_value="未知栏目"
end if
%>
                        <table width="100%"  border="0" cellspacing="0" cellpadding="0">
                          <tr align="center">
                            <td width="18%" height="23"><%=f_value%></td>
                            <td width="32%"><a href=/info/showinfo.asp?id=<%=sonylist("f_id")%> target="_blank"><%=left(sonylist("f_title"),20)%></a></td>
                            <td width="22%"><%=sonylist("F_addtime")%></td>
                            <td width="11%"><%=sonylist("f_hits")%>次</td>
                            <td width="17%"><a title="请确定是否删除,删除后不能恢复!" href="javascript:jDelete('msmdy.asp?id=<%=sonylist("f_id")%>')"><img src="../Images/member/deletes.gif" alt="删除此信息" width="13" height="13" border="0"></a>　<a href="?types=up&ID=<%=sonylist("f_id")%>"><img src="../Images/member/reds.gif" alt="刷新此信息排列到第一" width="16" height="16" border="0"></a></td>
                          </tr>
                        </table>
                        <%
sonylist.movenext
loop
sonylist.close
set sonylist=nothing
%>
                        <span class="red"></span></td>
                    </tr>
                    <tr>
                      <td colspan="2" bgcolor="#FFFFFF"> </td>
                    </tr>
                </table></td>
        </tr>
        <tr>
          <td>&nbsp;</td>
        </tr>
        <tr>
          <td>&nbsp;</td>
        </tr>
      </table></td>
  </tr>
</table>
<!--#include file="../include/bottom.asp" -->
</BODY></HTML>