showinfo.asp

闲置物品免费交易的平台

<table width="100%" align="center" border="0" cellspacing="0" cellpadding="0" class="table-zuoyou" bordercolor="#CCCCCC">
  <tr> 
    <td width="100%" valign="top" align="center" bordercolor="#FFFFFF" bgcolor="#FFFFFF"> 
      <table width=100% align=center class=table-shang border=0 cellpadding=0 cellspacing=0 bgcolor=#f1f1f1>
        <TR> 
          <TD bgColor=#ffffff colSpan=6 height=1></TD>
        <TR> 
        <tr> 
          <td align=center width=11% height=30><div align="center"><font color="#0099CC">商家</font></div></td>
          <td align=center width=47% height=30><div align="center"><font color="#0099CC">产品名称</font></div></td>
          <td align=center width=7% height=30><div align="center"><font color="#0099CC">起拍价</font></font></div></td>
          <td align=center width=6%><div align="center"><font color="#0099CC">人气</font></div></td>
          <td align=center width=9%><div align="center"><font color="#0099CC">竞价梯度</font></div></td>
          <td align=center width=20%><div align="center"><font color="#0099CC">剩余时间</font></div></td>
        </tr>
        <TR> 
          <TD bgColor=#cccccc colSpan=6 height=1></TD>
        </TR>
        <TR> 
          <TD bgColor=#f1f1f1 colSpan=6 height=3></TD>
        </TR>
      </table>
        <%dim shjiaid 
		shjiaid=request("id")
		set rs=server.createobject("adodb.recordset")
			if shjiaid="" then
			rs.open "select * from shop_books where datediff('s',now(),closedate)>=0 order by b desc,c,adddate desc",conn,1,1
		    else
			rs.open "select * from shop_books where shjiaid="&shjiaid&" and datediff('s',now(),closedate)>=0 order by b desc,c,adddate desc",conn,1,1
		    end if
		if rs.recordcount=0 then 
		CloseDate=rs("closedate")
		%>
        <table width="370" border="0" cellspacing="0" cellpadding="5" align="center">
        <tr><td align=center>暂无商品</td></tr>
        </table>
        <%
		else
	  		rs.PageSize =33 '每页记录条数
			iCount=rs.RecordCount '记录总数
			iPageSize=rs.PageSize
    		maxpage=rs.PageCount 
    		page=request("page")
    
    if Not IsNumeric(page) or page="" then
        page=1
    else
        page=cint(page)
    end if
    
    if page<1 then
        page=1
    elseif  page>maxpage then
        page=maxpage
    end if
    
    rs.AbsolutePage=Page

	if page=maxpage then
		x=iCount-(maxpage-1)*iPageSize
	else
		x=iPageSize
	end if
	
			For i=1 To x
		%>
		
<table width="100%" height="11" border="0" align="center" cellpadding="3" cellspacing="0" class="table-xia">
        <tr> 
          <td width="11%" height="11" rowspan="3" align="center" class="table-you"> 
		  <%
		  response.write "<a href=index.asp?id="&rs("shjiaid")&"><font color=#A886AC>"
response.write trim(rs("shjianame"))
response.write "</font></a>"
%> </td>
          <td width="47%"> <a href=list.asp?id=<%=rs("bookid")%> > 
            <%
			if rs("a")<>0 then
response.write"<font color=#"&rs("a")&">"
end if
%>
<%if len(rs("bookname"))>13 then%>
<%=left(rs("bookname"),13)%>..
<%else%>
<%=rs("bookname")%>
<%end if%><%
if rs("yikoujia")=1 then
response.write"<font color=#A886AC>[一口价]</font>"
end if
%></a><%if rs("b")>=1 then
			response.write "<font color=#A886AC>"
response.write "[<img src=""images/jsq.gif"">"&rs("b")&"]</font>"
end if%></td>
          <td width="7%" rowspan="3" class="table-zuo"> <div align="center"><%
		  response.write "<font color=#A886AC>"
		  response.write trim(rs("shichangjia"))
		  response.write "</font>"
		  %></div></td>
          <td width="6%" rowspan="3" class="table-zuo"><div align="center"><%
		  response.write "<font color=#A886AC>"
		  response.write trim(rs("liulancount"))
		  response.write "</font>"
		  %></div></td>
          <td width="9%" rowspan="3" class="table-zuo"><div align="center"><%
		  response.write "<font color=#A886AC>"
		  response.write trim(rs("jjtdu"))
		  response.write "</font>"
		  %></div></td>
          <td width="20%" rowspan="3" class="table-zuo"><div align="center"> <div align="right">
              <%
		  enddate=trim(rs("closedate"))
		  s1=DateDiff("s",now(),enddate)
		  showdate=int(s1/3600/24)
		  h=int((s1-showdate*3600*24)/3600)
		  m=int((s1-showdate*3600*24-h*3600)/60)
		  s=s1-showdate*3600*24-h*3600-m*60
		  %>
              <%
			  response.write "<font color=#A886AC>"
			  if showdate>0 then
			  response.write ""&showdate&"天"
			  end if
			  if h>0 then
			  response.write"" &h&"小时"
			  end if 
			  if m>0 then
			  response.write"" &m&"分"
			  end if
			  if s>0 then
			  response.write"" &s&"秒"
			  end if 
			  response.write "</font>"
			  if showdate<=0 and h<=0 and m<=0 and s<=0 then
			  response.write"该商品已经过期"
			  end if
			  %></td>
        </tr>
      </table>

        <%rs.movenext
		next
		call PageControl(iCount,maxpage,page,"border=0 align=center","<p align=center>")
		end if
		rs.close
		set rs=nothing
Sub PageControl(iCount,pagecount,page,table_style,font_style)
'生成上一页下一页链接
    Dim query, a, x, temp
    action = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")

    query = Split(Request.ServerVariables("QUERY_STRING"), "&")
    For Each x In query
        a = Split(x, "=")
        If StrComp(a(0), "page", vbTextCompare) <> 0 Then
            temp = temp & a(0) & "=" & a(1) & "&"
        End If
    Next

    Response.Write("<table width=100% border=0 cellpadding=0 cellspacing=0 bgcolor=#f1f1f1>" & vbCrLf )        
    Response.Write("<form method=get onsubmit=""document.location = '" & action & "?" & temp & "Page='+ this.page.value;return false;""><TR bgcolor=#f1f1f1>" & vbCrLf )
    Response.Write("<TD align=center height=35>" & vbCrLf )
    Response.Write(font_style & vbCrLf )    
        
    if page<=1 then
        Response.Write ("首 页 " & vbCrLf)        
        Response.Write ("上一页 " & vbCrLf)
    else        
        Response.Write("<A HREF=" & action & "?" & temp & "Page=1>首 页</A> " & vbCrLf)
        Response.Write("<A HREF=" & action & "?" & temp & "Page=" & (Page-1) & ">上一页</A> " & vbCrLf)
    end if

    if page>=pagecount then
        Response.Write ("下一页 " & vbCrLf)
        Response.Write ("尾 页 " & vbCrLf)            
    else
        Response.Write("<A HREF=" & action & "?" & temp & "Page=" & (Page+1) & ">下一页</A> " & vbCrLf)
        Response.Write("<A HREF=" & action & "?" & temp & "Page=" & pagecount & ">尾 页</A> " & vbCrLf)            
    end if

    Response.Write(" 页次：" & page & "/" & pageCount & "页" &  vbCrLf)
    Response.Write(" 共有" & iCount & "种商品" &  vbCrLf)
    Response.Write(" 转到" & "<INPUT CLASS=wenbenkuang TYEP=TEXT NAME=page SIZE=2 Maxlength=5 VALUE=" & page & ">" & "页"  & vbCrLf & "<INPUT CLASS=go-wenbenkuang type=submit value=GO>")
    Response.Write("</TD>" & vbCrLf )                
    Response.Write("</TR></form>" & vbCrLf )        
    Response.Write("</table>" & vbCrLf )        
End Sub
%>
    </td>
</tr>
</table>
<%
Conn.Execute("Update shop_books Set c=0 where DateDiff('D',adddate,now())>=1")
Conn.Execute("Update shop_books Set b=0 where DateDiff('s',closedate,now())>=1")
closedb
%>