showjing.asp

闲置物品免费交易的平台

<%
if request.Cookies("days6")("username")="" then
response.Redirect "user.asp"
response.End
end if
%>
<SCRIPT language=JavaScript>
function CheckAll(form)
  {
  for (var i=0;i<form.elements.length;i++)
    {
    var e = form.elements[i];
    if (e.name != 'chkall' )
       e.checked = form.chkall.checked;
    }
  }
 function loadThreadFollow(t_id,b_id){
	var targetImg =eval("document.all.followImg" + t_id);
	var targetDiv =eval("document.all.follow" + t_id);
	
	if ("object"==typeof(targetImg)){
		if (targetDiv.style.display!='block'){
			targetDiv.style.display="block";
			
		}else{
			targetDiv.style.display="none";
		}
	}
}
//-->
</SCRIPT>
<script>
function test()
{
  if(!confirm('确认删除吗？')) return false;
}
</script>
<script>
function test()
{
  if(!confirm('确认删除吗？')) return false;
}
</script>
<table width="90%" border="0" align="center" cellpadding="3" cellspacing="0" bgcolor="#cccccc">
  <FORM name=thisForm action="xinxi_del.asp" method=POST>
    <tr> 
      <td width="7%" height="13" align="center" background="images/bar_bg3.gif"> 
        <p>编号 </td>
      <td width="34%" height="13" align="center" background="images/bar_bg3.gif"> 
        标&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 题</td>
      <td width="6%" height="13" align="center" background="images/bar_bg3.gif"> 
        浏览</td>
      <td width="25%" height="13" align="center" background="images/bar_bg3.gif"> 
        发布时间</td>
      <td width="6%" height="13" align="center" background="images/bar_bg3.gif"> 
        　</td>
      <td width="14%" height="13" align="center" background="images/bar_bg3.gif" valign="middle"> 
        <div align="center">状态　</div></td>
      <td width="8%" height="13" align="center" background="images/bar_bg3.gif"> 
        <div align="center">选择　</div></td>
    </tr>
    <tr> 
      <td colspan="7"> <div align="center">
          <%

dim ThisPage,Pagesize,Allrecord,Allpage
i=0
ii=1
if request("page")="" then
  ThisPage=1		
else
  ThisPage=request("page")
end if
set rs = Server.CreateObject("ADODB.RecordSet")
rs.open "select bookjia.bookid,bookjia.username,shop_books.bookid,shop_books.bookname,shop_books.adddate from shop_books inner join  bookjia on shop_books.bookid=bookjia.bookid where bookjia.username='"&request.Cookies("days6")("username")&"'",conn,1,1
if rs.eof then
response.write "<tr><td></td><td><li>没有记录</td></tr>"
else
rs.Pagesize=10
Pagesize=rs.Pagesize
Allrecord=rs.Recordcount
Allpage=rs.Pagecount
if ThisPage<1 then                           
ThisPage=1
end if
On Error Resume Next
rs.move (ThisPage-1)*Pagesize
do while not rs.eof
b=trim(rs("b"))
bb=len(b)
id=rs("bookid")
%>
        </div></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td width="7%" height="26" align="center" style="border-bottom-style: solid; border-bottom-width: 1"> 
        <%=i+1%> </td>
      <td width="34%" height="26" align="center" style="border-bottom-style: solid; border-bottom-width: 1"> 
        <p align="left"><a target="_blank" href=list.asp?id=<%=rs("bookid")%>> 
          <%if rs("a")="0" then%>
          <%=rs("bookname")%> 
          <%else%>
          <font color="#<%=rs("a")%>"><%=rs("bookname")%></font> 
          <%end if%>
          </a> 
          <%if b<>0 then%>
          <img src="images/jsq.gif"> 
          <%for ii=1 to bb%>
          <%next%>
          <%end if%>
      </td>
      <td width="6%" height="26" align="center" style="border-bottom-style: solid; border-bottom-width: 1"> 
        <%=rs("liulancount")%> 
      <td width="25%" height="26" align="center" style="border-bottom-style: solid; border-bottom-width: 1"> 
        <%=datevalue(rs("adddate"))%> </td>
      <td width="6%" height="26" align="center" style="border-bottom-style: solid; border-bottom-width: 1"> 
        <font color="#666666">管理</font></td>
      <td width="14%" height="26" align="center" style="border-bottom-style: solid; border-bottom-width: 1"> 
        <%if rs("yz")=1 then%> <font color="#008000">√</font> <%else%> <font color="#FF0000">ⅹ</font> <%end if%> </td>
      <td width="8%" height="26" align="center" style="border-bottom-style: solid; border-bottom-width: 1"> 
        <input type="checkbox" name="selectedid" value="<%=id%>"></td>
    </tr>
    <%
i=i+1
rs.movenext
if i>=Pagesize then exit do
loop
end if
%>
    <tr bgcolor="#FFFFFF"> 
      <td height="25" colspan="7"> <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%">
          <tr bgcolor="#FFFFFF"> 
            <td width="152" height="25"> <p align="center"> 　</td>
            <td width="108" height="25"> <p align="center">　</td>
            <td width="163" height="25"> <p align="right">　</td>
            <td width="263" height="25"> <p align="center"> 
                <INPUT onclick=CheckAll(this.form) type=checkbox value=on name=chkall>
                选中所有记录 
                <input type="submit" name="Submit" value="删 除" onClick="return test();">
            </td>
          </tr>
          <tr> 
            <td height="26" width="152" align="center"> 共有&nbsp;<font color="#CC5200"><%=Allrecord%></font>&nbsp;条记录</td>
            <td height="26" width="108" align="center"> 共 <font color="#CC5200"><%=Allpage%></font> 页</td>
            <td height="26" width="163" align="center"> 现在是第 <font color="#CC5200"><%=ThisPage%></font> 页</td>
            <td height="26" width="263" align="center"> <%
if ThisPage<2 then     
response.write "<font color=""#808080"">首页</font>&nbsp;"
response.write "<font color=""#808080"">上一页</font>&nbsp;"     
else     
response.write "<a href=?page=1&action=shpingl>首页</a>&nbsp;"
response.write "<a href=?page="&ThisPage-1&"&action=shpingl>上一页</a>&nbsp;"     
end if
if Allpage-ThisPage<1 then     
response.write "<font color=""#808080"">下一页</font>&nbsp;"
response.write "<font color=""#808080"">尾页</font>&nbsp;"  
else     
response.write "<a href=?page="&(ThisPage+1)&"&action=shpingl>下一页</a>&nbsp;"   
response.write "<a href=?page="&Allpage&"&action=shpingl>尾页</a>&nbsp;"     
end if
%></td>
          </tr>
        </table></td>
    </tr>
  </form>
</table>