vqqq_pjbj.asp

一个不错的竞价程序

<!--#include file="conn.asp" -->
<!-- #include file="inc/info.asp" -->
<!-- #include file="inc/const.asp" -->

<%
response.buffer=true
call header()


dim user
user=session("user")

sql="select * from auctions left join users on auctions.aucItemOwner=users.regID where aucEnded='Y'"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1%>
<table width="100%" border="0" cellspacing="0" cellpadding="4">
  <tr> 
    <td align="center" valign="top">
      <span id=b2>欢迎您，<%=session("User")%> </span>    </td>
  </tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td width="150" align="left" valign="top"> 
      <!--#include file="User_left.asp" -->
    </td>
    <td width="5"><img src="img/tran_1.gif" width="1" height="1"></td>
    <td align="left" valign="top">
		<table width='100%' border=0 cellPadding=4 cellSpacing=0 id='b1'><tr><td height='10' colspan='2'></td></tr><tr>
          <td height='25' >您的位置：信用管理 〉成交做信用评价</td>
        </tr></table>      <table width="100%" border="0" cellspacing="0" cellpadding="0" id="b1">
        <tr> 
          <td width="4" valign="top" id="bg11"><img src="img/corner_1.gif" width="4" height="4"></td>
          <td width="100" align="center" valign="bottom" id="bg11"><font color="#FFFFFF">评价买家</font></td>
          <td width="4" valign="top" id="bg11"><img src="img/corner_2.gif" width="4" height="4"></td>
          <td>&nbsp;</td>
        </tr>
        <tr> 
          <td height="2" colspan="4" id="bg11"></td>
        </tr>
      </table>
	        <table border=0 cellPadding=0 cellSpacing=0 width="100%">
        <tr> 
          <td height="10"> 
            <table width="100%" border="0">
              <tr> 
                <td width="40%">商品名称</td>
                <td width="10%"> 
                  <div align="center">成交价</div>
                </td>
                <td width="10%"> 
                  <div align="center">数量</div>
                </td>
                <td width="15%">
                  <div align="center">提醒</div>
                </td>
                <td width="15%">
                  <div align="center">警告</div>
                </td>
                <td width="15%">
                  <div align="center">评价</div>
                </td>
              </tr>
              <%if rs.eof then 
			  response.write "您没有成交的商品！请选择商品目录先进行拍卖！"
			  else
			  while not rs.eof
			  %>
              <tr> 
                <td width="40%">&nbsp;<a href="viewaucid.asp?aucid=<%=rs("aucid")%>"><%=rs("aucItemTitle")%></a></td>
                <td width="10%">&nbsp;<%=rs("aucCurrentBid")%></td>
                <td width="10%">&nbsp;<%=rs("aucnum")%></td>
                <td width="15%">&nbsp;<a href="pjbuyer.asp?action=tx&email=<%=rs("regemail")%>&buyer=<%=rs("regusername")%>">提醒</a></td>
                <td width="15%">&nbsp;<a href="pjbuyer.asp?action=jg&email=<%=rs("regemail")%>&buyer=<%=rs("regusername")%>">警告</a></td>
                <td width="15%">&nbsp;&nbsp;&nbsp;&nbsp;<a href="pjbuyer.asp?action=pj&email=<%=rs("regemail")%>&buyer=<%=rs("regusername")%>">评价</a></td>
              </tr>
              <%rs.movenext
			  wend
end if%>
            </table>
          </td>
        </tr>
      </table>
    </td>
  </tr>
</table>
<%


footer%>