pingjia.asp

一个不错的竞价程序

<!-- #include file="inc/info.asp" -->
<!-- #include file="inc/const.asp" -->
<!-- #include file="conn.asp" -->
<%
call header()
%>

<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 width="100%" border="0">
        <tr bgcolor="#CCCCCC"> 
          <td>商品编号</td>
          <td>商品名称</td>
          <td>买家编号</td>
          <td>买家</td>
          <td>结束时间</td>
          <td>评价</td>
        </tr>
        <%
	 getid="select regid from users where regusername='"&session("user")&"'"
	 set rsid=conn.execute(getid)
	 sql ="select aucItemTitle,aucid,aucCurrentBidder,aucCloseDate from auctions where aucEnded='Y' and aucCurrentBidder <> null and aucItemOwner="&rsid("regid")
	set rs2=conn.execute(sql)
	
	 if rs2.eof then
	response.write ""
	else
	  while not rs2.eof 

	  
	  %><form action=pj.asp method=post>
	  
        <tr bgcolor="#FFFF99" id=bg06> 
          <td> 
<%=rs2("aucid")%> </td>
          <td>&nbsp;<a href=viewaucid.asp?aucid=<%=rs2("aucid")%> target=_blank><%=rs2("aucItemTitle")%></a></td>
          <td>&nbsp;<%=rs2("aucCurrentBidder")%></td>
          <td>&nbsp;<%
		 
		  sqlm="select regusername from users where regid="&rs2("aucCurrentBidder")
		
		  
		  set rsm=conn.execute(sqlm)
		  response.write rsm("regusername")
		 
		  %></td>
          <td> <%=rs2("aucCloseDate")%> </td>
          <td><input type="hidden" name="aucid" value="<%=rs2("aucid")%>">
	  <input type="hidden" name="aucname" value="<%=rs2("aucItemTitle")%>">
	  <input type="hidden" name="mj" value="<%=rsm("regusername")%>">
	  <input type="hidden" name="mjid" value="<%=rs2("aucCurrentBidder")%>">
	  <%sqlchk="select * from pingjia where aucid="&rs2("aucid")
	  set rsc=conn.execute(sqlchk)
	  if rsc.eof then%>
              <input type="submit" name="Submit" value="评价">
			  <%else%>
			  编辑
			   <%end if%>
            </td>
        </tr></form>
        <%rs2.movenext
		wend
			  end if
			  
		  conn.close
		 set conn= nothing
		%>
      </table>
      
    </td>
  </tr>
</table>
<%call footer()%>