<!--#include file="../../conn/conn.asp"-->
<!--#include file="../../conn/nosql.asp"-->
<!--#include file="../../conn/config.asp"-->
<!--#include file="../../conn/md5.asp"-->
<!--#include file="../../conn/headpage.asp"-->
 <%
if session("user")="" then
response.write "<script language='javascript'>"
response.write "alert('您没还有登录，请登录后再访问本页！');"
response.write"this.location.href='/index.asp';</SCRIPT>"
response.end
end if
if session("id")="" then 
response.write "<script language='javascript'>"
response.write "alert('您没还有登录，请登录后再访问本页！');"
response.write"this.location.href='/index.asp';</SCRIPT>"
response.end
end if
show=request("show")
if show="del" then
if isChkInteger(request.Form("selAnnounce")) then
selAnnounce=request("selAnnounce")
else
response.write "<script language='javascript'>"
response.write "alert('非法操作，正在返回！');"
response.write"this.location.href='/index.asp';</SCRIPT>"
response.end
end if
set rs=server.createobject("adodb.recordset")
sql="delete from [snsn_Shoucang] where id in ("&selAnnounce&")"
conn.execute sql
response.write"<SCRIPT language=JavaScript>alert('删除成功，请返回！');"
response.write"javascript:history.go(-1)</SCRIPT>"
response.end
else
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>交易助手管理操作平台_<%=webname%></title>
<link rel="stylesheet" href="/css.css" type="text/css">
<style type="text/css">
<!--
body {
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
}
-->
</style></head>
<body><!--#include file="../../top.asp"-->
<table width="90%"  border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td>&nbsp;</td>
    <td width="970"><table width="970"  border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td width="10"><img src="/img/m_left.gif" width="10" height="20"></td>
          <td width="950" bgcolor="#FFFFFF"></td>
          <td width="10"><img src="/img/m_right.gif" width="10" height="20"></td>
        </tr>
        <tr bgcolor="#FFFFFF">
          <td height="188" colspan="3"><table width="950"  border="0" align="center" cellpadding="0" cellspacing="0">
              <tr>
                <td width="1" bgcolor="efefef"></td>
                <td width="200" height="77" valign="top"><!--#include file="../left.asp"--></td>
                <td width="1" bgcolor="efefef"></td>
                <td valign="top">
                    <table width="90%"  border="0" align="center" cellpadding="0" cellspacing="0">
                      <tr>
                        <td height="25">&nbsp;<a href="shoucang_add.asp">我要添加收藏记录</a></td>
                      </tr>
                    </table>
                    <%
set rs=server.createobject("adodb.recordset") 
sql="select * from snsn_Shoucang where u_id="&session("id")&" order by id desc"
rs.open sql,conn,1,1 
if rs.eof and rs.bof then 
response.write "<p align='center'>对不起，没有您要查询的信息 </p>" 
else 
rs.pagesize=msg_per_page '定义分页记录集每页显示记录数
if not (rs.eof and rs.bof) then
	totalrec=RS.RecordCount'总记录条数
	if rs.recordcount mod msg_per_page=0 then'计算总页数,recordcount:数据的总记录数
		n=rs.recordcount\msg_per_page'n:总页数
	else
		n=rs.recordcount\msg_per_page+1                        
	end if                                                                
	currentpage=request("page")'currentpage:当前页
	If currentpage <> "" then
		currentpage =  cint(currentpage)
		if currentpage < 1 then  
			currentpage = 1
		end if  
		if err.number <> 0 then '错误处理
			err.clear
			currentpage=1
		end if
	else
		currentpage=1
	End if                                                                
	if currentpage*msg_per_page > totalrec and not((currentpage-1)*msg_per_page < totalrec)then 
		currentPage=1
	end if
	rs.absolutepage=currentpage'absolutepage：设置指针指向某页开头
	rowcount=rs.pagesize'pagesize：设置每一页的数据记录数
end if
%>
                    <CENTER>
                      <Form name="search" method="POST" action="shoucang.asp?show=del">
                        <TABLE width="94%" border="0" cellpadding="0" cellspacing="1" bordercolorlight="#CAE6FF" bordercolordark="#CAE6FF" bgcolor="#BBD7FF" style="border-collapse: collapse">
                          <tr height=25 bgcolor="#e8f4ff">
                            <TD width="50" height="23" align="center"><div align="center"><font color="#Ff6600"><b>ID号</b></font></div></TD>
                            <TD width="160" align="center"><span style="font-weight: bold; color: #FF6500;">名称</span></TD>
                            <TD align="center" bgcolor="#e8f4ff"><span style="font-weight: bold; color: #FF6500;">网址</span></TD>
                            <TD width="120" align="center" bgcolor="#e8f4ff"><span style="font-weight: bold"><font color="#Ff6600">时间</font></span></TD>
                            <TD width="80" align="center" bgcolor="#e8f4ff">修改</TD>
                            <TD width="50" align="center"><font color="#Ff6600">
                              <input name="submit" type='submit' value='删除' class="go-wenbenkuang">
                            </font></TD>
                          </TR>
                          <%do while not rs.eof and rowcount > 0%>
                          <tr bgcolor="#FFFFFF">
                            <td width="50" height="23" align="center"><font face="Arial"><b><%=rs("id")%></b></font></td>
                            <td width="160"><div align="center"><%=rs("webname")%> [
                                    <%if rs("xs")=0 then%>
                                    显示
                                    <%else%>
            不显示
            <%end if%>
            ] </div></td>
                            <td>&nbsp;<a href="<%=rs("url")%>" target="_blank"><%=rs("url")%></a></td>
                            <td width="120" align="center" bgcolor="#FFFFFF"><%=rs("adddate")%></td>
                            <td width="80" align="center" bgcolor="#FFFFFF"><a href="shoucang_add.asp?action=save&id=<%=rs("id")%>">查看修改</a></td>
                            <td width="50" align="center"><input type='checkbox' name='selAnnounce' value='<%=cstr(rs("id"))%>'></td>
                          </tr>
                          <%
rowcount=rowcount-1
rs.movenext
loop
%>
                        </table>
                        <br>
                        <TABLE width="94%" border="0" cellpadding="0" cellspacing="1" bordercolorlight="#D7EBFF" bordercolordark="#D7EBFF" bgcolor="efefef" style="border-collapse: collapse">
                          <TR height=25 bgcolor="#e8f4ff">
                            <td bgcolor="f9f9f9"><div align="center">
                                <%call listPages()%>
                            </div></td>
                          </tr>
                        </table>
                      </form>
                    </center>
                    <center>
                      <%end if%>
                    </center>
                </td>
              </tr>
          </table></td>
        </tr>
    </table></td>
    <td valign="top"><img src="/img/index_img.jpg" width="10"></td>
  </tr>
</table>
<%end if%>
<!--#include file="../../end.asp"-->
</body>
</html>
