<%
'商易仿淘宝4.0(多用户)
'ACCESS版演示网站：http://www.ftaobao.com(商易仿淘宝商城)
'SQL版演示网站：http://sql.ftaobao.com
'电话：0571-56907100
'QQ：1147100
%>
<%If shopnet("abc")="" then%>
<style type="text/css" media="screen">

@import url("../home/css/sys/detail.php@t=20060522.css");
</style>
<body onLoad="show(c51),show(c52)"><%ElseIf shopnet("abc")="ping" then%><body onLoad="show(c961),show(c962)"><%ElseIf shopnet("abc")="faq" then%><body onLoad="show(d71),show(d72)"><%ElseIf shopnet("abc")="guestbook" then%><body onLoad="show(c951),show(c952)"><%End if%>
<!--#include file="top.asp"-->
<html><head>
<meta http-equiv=Content-Type content='text/html; charset=gb2312'>
<link href="/include/css.css" rel="stylesheet" type="text/css">
<title><%=my_name%>-----会员中心</title></head>
<TABLE cellSpacing=0 cellPadding=0 width=762 align=center border=0>

<%hy "login.asp"
left_open="shop"
'//是否已开店铺
set yz = conn.execute("select id,zt,name from shop where huiyuan='"&Request.Cookies(Rikee)("huiyuan")&"'")
if yz.eof then
Response.redirect "../note.asp?errid=4"
Response.end
else
'userid=yz(0)
username=yz(2)
Select case yz(1)
case "4"
Response.redirect "../note.asp?errid=2"
Response.end
case "3"
Response.redirect "../note.asp?errid=3"
Response.end
End Select
end if
yz.close:set yz=nothing%>

<!--#include file="../include/page.asp"-->
<table width="762" border="0" align="center" cellpadding="2" cellspacing="0" style='BORDER-COLLAPSE: collapse;MARGIN: 3px'>
  <tr> 
    <td height="22" colspan="2">您的位置： <A href="../index.asp">首页</A> &gt;&gt; <a href="index.asp">会员中心</a>&nbsp;</td>
  </tr>
  <tr> 
    <td width="180" valign="top">
<!--#include file="left.asp"-->
    </td>
<td width="582" height="280" align="center" valign="top">
<%Select case request("abc")
case "hf"
if request("add")="yes" then
Select case request("lx")
case "ping"
conn.execute("Update pinglun set hf='"&left(shopnet("huifu"),500)&"' where userid="&myuserid&" and id="&shopnet("id")&"")
case "guestbook"
conn.execute("Update guestbook set huifu='"&left(shopnet("huifu"),500)&"' where shopid="&myuserid&" and id="&shopnet("id")&"")
End Select
Response.redirect "?abc="&request("lx")&""
end if%>
<table width="100%" height="200" border="0" cellpadding="0" cellspacing="1" bgcolor="#efefef">
  <form name="form" method="post" action=?abc=hf&add=yes><tr>
      <td height="40" valign="middle"><table width="100%" border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td bgcolor="#FFFFFF"><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="news.asp?abc=guestbook">留言管理</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="news.asp?abc=ping">评论管理</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_3.gif" WIDTH=3 HEIGHT=25 ALT=""></td>
                <td width="120" align="center" background="../images/mytaobaobj1_4.gif">留言及评论回复<font color="#FFFFFF" span class="C">&nbsp;</font></td>
                <td width="1"><IMG SRC="../images/mytaobaobj1_6.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></td>
  </tr>
    <tr>
      <td height="21" align="center" valign="middle" background="../image/bk.gif" bgcolor="#FFFFFF">&nbsp;</td>
    </tr>
    <tr>
    <td align="center" valign="middle" bgcolor="#FFFFFF"><textarea name="huifu" cols="50" rows="8" class="wenbenkuang" id="hf"></textarea></td>
  </tr>
  <tr>
    <td height="40" align="center" valign="middle" bgcolor="#FFFFFF"> 
      <input name="Submit" type="submit" class="go-wenbenkuang" value="OK,提交回复">
      <input name="Submit" type="reset" class="go-wenbenkuang" value="重置">
      <input name="Submit" type="button" class="go-wenbenkuang" value="关闭窗口"onClick="javascript:self.close();">
        <input name="id" type="hidden" id="id" value="<%=request("id")%>">
        <input name="lx" type="hidden" id="abc" value="<%=request("lx")%>"></td>
  </tr>
  <tr>
    <td height="21" align="center" valign="middle" background="../image/bk1.gif">&nbsp;</td>
  </tr>
  </form>
</table>
<%case "guestbook"%>
<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">留言管理<font color="#FFFFFF" span class="C">&nbsp;</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"><span class="C"><a href="news.asp?abc=ping">评论管理</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>
<div align="center"></div>
<br>
      <table width="570" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#efefef" style="TABLE-LAYOUT: fixed">
        <tr bgcolor="#f1f1f1"> 
          <td width="50" height="21" align="center" valign="middle" background="../image/bk.gif">ID</td>
          <td height="21" align="center" valign="middle" background="../image/bk.gif">留言人</td>
          <td height="21" align="center" valign="middle" background="../image/bk.gif">E-mail</td>
          <td height="21" align="center" valign="middle" background="../image/bk.gif">电话</td>
          <td width="120" height="21" align="center" valign="middle" background="../image/bk.gif">留言时间</td>
          <td width="50" height="21" align="center" valign="middle" background="../image/bk.gif">回复</td>
          <td width="50" height="21" align="center" valign="middle" background="../image/bk.gif">删除</td>
        </tr>
<%if request("del")="yes" then
conn.execute("Delete * from guestbook where shopid="&myuserid&" and id="&shopnet("id")&"")
end if
Set rs = Server.CreateObject("ADODB.Recordset")
sql="Select * From guestbook where shopid="&myuserid&" Order By id DESC"
rs.open sql,conn,3,1							
if rs.eof then
response.write("<tr><td colspan=7 bgcolor=white align=center>当前没有留言内容！！</td></tr>")
else

page1("5")
i=1
do while not rs.eof and i<=rs.pagesize%>
        <tr bgcolor="#FFFFFF"> 
          <td width="50" height="25" align="center" valign="middle"><font color="#FF0000"><%=rs("id")%></font></td>
          <td height="25" valign="middle"><%=rs("name")%></td>
          <td height="25" valign="middle"><% if rs("email")="" then Response.Write "" else Response.Write "<a href=mailto:"&rs("email")&"?subject=留言回复>"&rs("email")&"</a>" %></td>
          <td height="25" valign="middle"> <% if rs("tel")="" then Response.Write "" else Response.Write ""&rs("tel")&"" %></td>
          <td width="120" height="25" align="center" valign="middle"><%=rs("sj")%></td>
          <td width="50" align="center" valign="middle">
<% 
if rs("huifu")<>"" then 
Response.Write "已回复"
else
Response.Write "<a href=?abc=hf&lx=guestbook&id="&rs("id")&">回复</a>" 
end if%></td>
          <td width="50" height="25" align="center" valign="middle"> <a href="?abc=guestbook&del=yes&id=<%=rs("id")%>&page=<%=page%>">删除</a></td>
        </tr>
        <tr bgcolor="#FFFFFF"> 
          <td colspan="7" style="WORD-WRAP: break-word"> <%=rs("content")%> 
            <% if rs("huifu")<>"" then Response.Write "<br>&nbsp;【留言回复】"&rs("huifu")&"" %>
            <font color="#666666">            </font> </td>
        </tr>
<%i=i+1
rs.MoveNext                                              
loop
%>
        <tr bgcolor="#efefef"> 
            <td height="21" colspan="7" align="center" valign="middle" background="../image/bk1.gif"> 
<%page2("abc=guestbook&")
end if%>            </td>
        </tr>
      </table>
<%case "ping"%>
<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">评论管理<font color="#FFFFFF" span class="C">&nbsp;</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"><span class="C"><a href="news.asp?abc=guestbook">留言管理</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="注意：为保证信息的安全性和合法性，所有产品评论只有经过客服人员<font color=red>审核</font>后，才能在前台显示！"
  wmsg()
  %>
<br>
<table width="570" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="efefef" style="TABLE-LAYOUT: fixed">
        <tr bgcolor="#f1f1f1"> 
          <td height="21" align="center" valign="middle" background="../image/bk.gif">评论产品</td>
          <td width="100" height="21" align="center" valign="middle" background="../image/bk.gif">评论人</td>
          <td height="21" align="center" valign="middle" background="../image/bk.gif">评论时间</td>
          <td width="50" height="21" align="center" valign="middle" background="../image/bk.gif">回复</td>
          <td width="50" height="21" align="center" valign="middle" background="../image/bk.gif">删除</td>
        </tr>
<%if request("del")="yes" then
conn.execute("Delete * from pinglun where userid="&myuserid&" and id="&shopnet("id")&"")
Response.redirect "?abc=ping"
end if
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "Select * From pinglun where userid="&myuserid&" Order By id DESC", conn, 3, 1

if rs.eof then
response.write"<tr><td colspan=5 align=center bgcolor=white>当前没有任何评论！</td></tr>"


page1("5")
i=1
do while not rs.eof and i<=rs.pagesize%>
        <tr bgcolor="#FFFFFF"> 
          <td height="25" valign="middle"><a href=../merchandise.asp?id=<%=encode(rs("cpid"))%> target="_blank"><%=conn.execute("select mc from chanpin where id="&rs("cpid")&"")(0)%></a></td>
          <td width="100" height="25" align="center" valign="middle"><a href="javascript:void window.showModelessDialog('../zhanneixin/fa.asp?huiyuan=<%=rs("huiyuan")%>','','scroll:0;status:0;help:0;resizable:0;dialogWidth:420px;dialogHeight:280px')"><%=rs("huiyuan")%></a></td>
          <td align="center" valign="middle"><font color="#666666"><%=formatdatetime(rs("sj"),2)%></font></td>
          <td width="50" align="center" valign="middle"><%If rs("hf")<>"" Then %>已回复<%else%><a href=?abc=hf&lx=ping&id=<%=rs("id")%>>回复</a><%End If %></td>
          <td width="50" height="25" align="center" valign="middle"> <a href="?abc=ping&del=yes&id=<%=rs("id")%>">删除</a></td>
        </tr>
        <tr bgcolor="#FFFFFF"> 
          <td colspan="5" style="WORD-WRAP: break-word">评论留言:<%=rs("ping")%> <% if rs("hf")<>"" then Response.Write "<br><font color=#FF6600>【评论回复】"&rs("hf")&"</font>" %> </td>
        </tr>
        <tr bgcolor="#FFFFFF">
          <td height="21" colspan="5" valign="middle" background="../image/bk1.gif" style="WORD-WRAP: break-word">&nbsp;</td>
        </tr>
        <%i=i+1
rs.MoveNext                                              
loop 
page2("abc=ping&")
rs.close:set rs=nothing
end if %>
      </table>
<%case "faq_x"
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from user_kefu where id="&shopnet("id")
rs.open sql,conn,1,3
'判断时间限制

if request("dz")<>"" or not(isnumeric(request("dz"))) then
rs("dz")=1
else
rs("dz")=0
end if

rs("bt")=shopnet("bt")
rs("nr")=shopnet("nr")
if request("dz")<>"" or not(isnumeric(request("dz"))) then
rs("dz")=1
else
rs("dz")=0
end if

'判断结束开绐更新
rs.update
rs.close
set rs=nothing
Response.Write("<script>alert(""修改成功"");location.href=""?abc=faq&page="&request("page")&""";</script>")
case "faq_add"
if request("add")="yes" and request("bt")<>"" and request("nr")<>"" then
if shopnet("dz")<>"" then
dz=1
else
dz=0
end if
conn.execute("Insert into user_kefu(bt,nr,dz,userid)values('"&shopnet("bt")&"','"&shopnet("nr")&"',"&dz&","&myuserid&")")
Response.Write("<script>alert(""添加成功"");location.href=""?abc=faq"";</script>")
Response.end
end if%>
<form action="?abc=faq_add&add=yes" method="post" name="form" id="form">
  <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">添加问题<font span class="C"></font></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="news.asp?abc=faq">管理问题</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="92%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="efefef">
    
    <tr valign="middle" bgcolor="#f1f1f1">
      <td height="21" colspan="2" align="center" background="../image/bk.gif">&nbsp;</td>
      </tr>
    <tr valign="middle" bgcolor="#f1f1f1"> 
      <td width="150" height="25" align="center" bgcolor="#FFFFFF">问题内容</td>
      <td width="350" height="25" bgcolor="#FFFFFF"> 
        <input name="bt" type="text" class="wenbenkuang" id="bt" size="55" maxlength="100">      </td>
    </tr>
    <tr valign="middle" bgcolor="#f1f1f1"> 
      <td width="150" height="25" align="center" bgcolor="#FFFFFF">问题答案</td>
      <td width="350" height="25" bgcolor="#FFFFFF"> 
        <textarea name="nr" cols="58" rows="8" class="wenbenkuang" id="nr"></textarea></td>
    </tr>
    <tr valign="middle" bgcolor="#f1f1f1"> 
      <td width="150" height="25" align="center" bgcolor="#FFFFFF"> 
        </td>
      <td width="350" height="25" bgcolor="#FFFFFF">&nbsp; 
        <input name="submit" type="submit" class="go-wenbenkuang" value="Ok,确定"> 
        <input name="reset" type="reset" class="go-wenbenkuang" value="No,取消">      </td>
    </tr>
    <tr valign="middle" bgcolor="#f1f1f1">
      <td height="21" colspan="2" align="center" background="../image/bk1.gif">&nbsp;</td>
      </tr>
  </table>
</form>
<%case "faq"
if request("del")="yes" then
conn.execute("Delete * from user_kefu where userid="&myuserid&" and id="&shopnet("id")&"")
end if%><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">管理问题<font span class="C"></font></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="?abc=faq_add">添加问题</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>
 
 
    <table width="570" border="0" align="center" cellpadding="0" cellspacing="1" bordercolorlight="#000000" bordercolordark="#FFFFFF" bgcolor="#efefef">
     <tr valign="middle" bgcolor="#f1f1f1">
      <td height="21" colspan="3" align="center" background="../image/bk.gif" bgcolor="#efefef">&nbsp;</td>
      </tr> 
<%Set rs = Server.CreateObject("ADODB.Recordset")
sql="Select * From user_kefu where userid="&myuserid&" Order By id DESC"
rs.open sql,conn,3,1

  if rs.eof then
  response.write "<tr><td colspan=3 align=center bgcolor=white height=21 valgin=middle>没有问题信息！！</td></tr>"
  else

page1("4")
i=1
do while not rs.eof and i<=rs.pagesize%>
  <form action="?abc=faq_x" method="post" name="myform" id="myform">

    <tr valign="middle" bgcolor="#f1f1f1"> 
      <td width="92" height="25" align="center" bgcolor="#FFFFFF">
<%if datediff("n",rs("sj"),now())>=30 then
response.write "NO:"&rs("id")&""
else
response.write "<font color=#ff6600>[可修改]</font>"
end if%></td>
      <td width="366" height="25" bgcolor="#FFFFFF"> <input name="bt" type="text" class="wenbenkuang" id="bt" value="<%=rs("bt")%>" size="50" maxlength="255">      </td>
      <td width="108" align="center" bgcolor="#FFFFFF">操&nbsp; 作</td>
    </tr>
    <tr valign="middle" bgcolor="#FFFFFF"> 
      <td height="25" align="center" valign="top"><br>
        问题答案 <input name="id" type="hidden" id="id" value="<%=rs("id")%>">
        <input name="page" type="hidden" id="page" value="<%=page%>"></td>
      <td height="25"><textarea name="nr" cols="50" rows="6" class="wenbenkuang" id="nr"><%=rs("nr")%></textarea>      </td>
      <td width="108" align="center"><input name="Submit32" type="submit" class="go-wenbenkuang" value="修改"> 
        <input name="Submit" type="button" class="go-wenbenkuang" id="Submit3" value="删除" onClick=" window.location='?abc=faq&del=yes&id=<% =rs("id")%>&page=<%=page%>'">      </td>
    </tr>
  </form>
<%i=i+1
rs.MoveNext                                              
loop%>
  <tr valign="middle" bgcolor="#f1f1f1"> 
      <td height="21" colspan="3" align="center" background="../image/bk1.gif" bgcolor="#efefef"> 
<%page2("abc=faq&")
rs.close:set rs=nothing
end if
%>    </td>
  </tr>
</table>
<%case "add"
If request("add")="yes" and shopnet("bt")<>"" and shopnet("nr")<>"" Then
conn.execute("Insert into user_news(bt,nr,userid)values('"&shopnet("bt")&"','"&shopnet("nr")&"',"&myuserid&")")
Response.Write("<script>alert(""添加成功"");location.href=""?"";</script>")
end if%>
<script language="javascript">
function jc(aa){		 
if(aa.bt.value==''){			
alert("对不起,您必须输入标题!");
return false;}
if(aa.bt.value.length<2){			
alert("对不起,标题字数太少论题不明确!");
return false;}
if(aa.nr.value==''){
alert("对不起,内容不能为空!");
return false;}
if(aa.nr.value.length>15000){			
alert("对不起,每条内容不能超过15000字!");
return false;}
}
</script>
<form action="?abc=add&add=yes" method="post" name="form" id="form" onSubmit="javascript:return jc(this)">
  <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">添加新闻<font color="#FFFFFF" span class="C">&nbsp;</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"><span class="C"><a href="?">管理新闻</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="550" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="efefef">
    
    <tr valign="middle" bgcolor="#f1f1f1">
      <td height="21" colspan="2" align="center" background="../image/bk.gif">&nbsp;</td>
      </tr>
    <tr valign="middle" bgcolor="#f1f1f1"> 
      <td width="99" height="25" align="center" bgcolor="#FFFFFF">新闻标题</td>
      <td width="339" height="25" bgcolor="#FFFFFF"> <input name="bt" type="text" class="wenbenkuang" id="bt" size="67" maxlength="100"></td>
    </tr>
    <tr valign="middle" bgcolor="#f1f1f1"> 
      <td height="25" colspan="2" align="center" bgcolor="#FFFFFF"><script src=../../edit/ubb/code.js></script><div id="ubbDiv"></div>
<IFRAME NAME="ubbFrame" width=0 height=0 marginwidth=0 marginheight=0 frameborder=0 scrolling=no SRC="../../edit/ubb/ubb.htm" ></IFRAME></td>
    </tr>
    <tr valign="middle" bgcolor="#f1f1f1"> 
      <td height="25" align="center" bgcolor="#FFFFFF">内容<br>
        (1500字内)</td>
      <td height="25" bgcolor="#FFFFFF"> <textarea name="nr" cols="65" rows="8" class="wenbenkuang" id="nr"></textarea></td>
    </tr>
    <tr valign="middle" bgcolor="#f1f1f1"> 
      <td height="25" colspan="2" align="center" valign="middle" bgcolor="#FFFFFF"> 
        <input type="submit" value="Ok,确定" class="go-wenbenkuang"> 
        <input type="reset" value="No,取消" class="go-wenbenkuang">      
      </td>
    </tr>
    <tr valign="middle" bgcolor="#f1f1f1">
      <td height="21" colspan="2" align="center" background="../image/bk1.gif">&nbsp;</td>
    </tr>
  </table>
</form>
<%case else
if request("del")="yes" then
conn.execute("Delete * from user_news where userid="&myuserid&" and id="&shopnet("id")&"")
end if%>
<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">店铺新闻<font color="#FFFFFF" span class="C">&nbsp;</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"><span class="C"><a href="?abc=add">添加新闻</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="?">管理新闻</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="98%" border="0" align="center" cellpadding="0" cellspacing="1" bordercolorlight="#000000" bordercolordark="efefef" bgcolor="efefef">
  
    <tr > 
      <td width="50" height="21" align="center" valign="middle" background="../image/bk.gif">ID</td>
      <td height="21" align="center" valign="middle" background="../image/bk.gif">新 闻 标 题</td>
      <td width="120" height="21" align="center" valign="middle" background="../image/bk.gif">添加时间</td>
          <td width="50" height="21" align="center" valign="middle" background="../image/bk.gif">阅读</td>
      <td width="50" height="21" align="center" valign="middle" background="../image/bk.gif">删 除</td>
    </tr>
<%Set rs = Server.CreateObject("ADODB.Recordset")
sql="Select * From user_news where userid="&myuserid&" Order By id DESC"
rs.open sql,conn,3,1
if rs.eof  then
Response.Write("<tr><td colspan=5 align=center bgcolor=white height=21 valign=middle>暂无新闻</td></tr>")
else
page1("15")
i=1
do while not rs.eof and i<=rs.pagesize%>
    <tr valign="middle" bgcolor="#f1f1f1"> 
      <td width="50" height="21" align="center" bgcolor="#FFFFFF"><a href="../shop/1/shopnews.asp?shopid=<%=myuserid%>&id=<%=rs("id")%>" target="_blank"><%=rs("id")%></a></td>
      <td height="21" bgcolor="#FFFFFF"><a href="../shop/1/shopnews.asp?shopid=<%=myuserid%>&id=<%=rs("id")%>" target="_blank"><%=rs("bt")%></a> </td>
      <td width="120" height="21" align="center" bgcolor="#FFFFFF"><%=rs("sj")%></td>
      <td width="50" height="21" align="center" bgcolor="#FFFFFF"><%=rs("js")%></td>
    <td width="50" height="21" align="center" bgcolor="#FFFFFF"> <a href="?id=<%=rs("id")%>&del=yes">删除</a></td>
    </tr>
<%i=i+1
rs.MoveNext                                              
loop%>
    <tr align="center" valign="middle" bgcolor="#f1f1f1"> 
      <td height="21" colspan="5" valign="middle" background="../image/bk1.gif">
        <%page2("")
rs.close:set rs=nothing
end if
%></td>
    </tr>
  </table>
<%End Select%>
</td>
  </tr>
</table>
<!--#include file="../bottom.asp"-->
