📄 vqqqykj_auction.asp

📁 实用的拍卖源码。适合个人建站学习使用。仅供学习参考
💻 ASP
字号:
<!-- #include file="inc/char.asp" -->
<!-- #include file="conn.asp" -->
<!-- #include file="inc/adovbs.inc" -->
<!-- #include file="head2.asp" -->
<!-- #include file="chksession.asp" -->
<!--#include file="perpage.asp"-->
<html>
<head>
<TITLE><%=webname%>--会员管理中心---联系QQ:6439358，联系邮箱vqqq59r@163.com，网站www.vqqq.com，谢谢大家对我们系统的支持</title>
<META http-equiv=Content-Type content="text/html; charset="<%=charset%>">
<META name="keywords" content="<%=keywords%>">
<META name="description" content="<%=description%>">
<link href="images/main_style.css" rel="stylesheet" type="text/css">
</HEAD>
<BODY leftMargin=0 onmouseover=exitpop=false text=#000000 topMargin=0 marginheight="0" marginwidth="0">
<%
response.buffer=true

dim user
user=session("user")

ukey=session("user")
keytype="uname"
%>
<!--#include file="inc/calluser.asp"-->
<%
sql="select * from ykjbids where ykjbidsellerid="&rs_user("regid")
set rsbidder=server.createobject("adodb.recordset")
rsbidder.open sql,conn,1,1
if rsbidder.eof then
%>
<table width="760" border="0" cellspacing="0" cellpadding="0" align=center>
  <tr>
    <td width="150" align="left" valign="top"> 
      <!--#include file="vqqqleft.asp" -->
    </td>
    <td width="5">&nbsp;</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">&nbsp;</td>
          <td width="100" align="center" valign="bottom" id="bg11">&nbsp;</td>
          <td width="4" valign="top" id="bg11">&nbsp;</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" cellpadding=0 cellspacing=1  class=tablebg>
<tr><td align=center class=td>您没有竞标商品！请选择商品目录先参加拍卖！</td></tr>
		</table>
	</tr></tr></table>
</tr></tr></table>
<%
else
%>
<table width="760" border="0" cellspacing="0" cellpadding="0" align=center>
  <tr>
    <td width="150" align="left" valign="top"> 
      <!--#include file="vqqqleft.asp" -->
    </td>
    <td width="5">&nbsp;</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">&nbsp;</td>
          <td width="100" align="center" valign="bottom" id="bg11"><font color="#FFFFFF">评价买家</font></td>
          <td width="4" valign="top" id="bg11">&nbsp;</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" cellpadding=0 cellspacing=1  class=tablebg>
<%
 Set mypage=new xdownpage   '创建对象
 mypage.getconn=conn    '得到数据库连接
 mypage.getsql="select * from auctions where aucid="&rsbidder("ykjbiditemid")
 mypage.pagesize=jsperpage   '设置每一页的记录
 set rs=mypage.getrs()    '返回Recordset
  if rs.eof then 
  response.write "<tr><td align=center class=td>您没有竞标商品！请选择商品目录先参加拍卖！</td></tr>"
  else
%>
              <tr class=titletd> 
                <td width="50%" align=center>商品名称</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%" align="center" class=td1>剩余时间</td>
              </tr>
<%
 for i=1 to mypage.pagesize    '接下来的操作就和操作一个普通Recordset对象一样操作
  if not rs.eof then   '这个标记是为了防止最后一页的溢出
%>
              <tr class=td> 
                <td width="50%">&nbsp;<a href="aucinfo.asp?aucid=<%=rs("aucid")%>">
<%
auctitle=rs("aucItemTitle")
if len(auctitle)>22 then
auctitle=left(auctitle,20)&"..."
response.write auctitle
else
response.write auctitle
end if
%></a></td>
<%
ukey=rsbidder("ykjbidBidderid")
keytype="uid"
%>
<!--#include file="inc/calluser.asp"-->
                <td width="10%" align=center><%=rs("aucbuyprice")%></td>
                <td width="10%" align=center><%=rsbidder("ykjbidnum")%></td>
                <td width="15%"> 
                  <div align="center">
<a href=dispykjbuyer.asp?ykjbid=<%=rsbidder("ykjbidid")%>><%=rs_user("regusername")%></a>
		</div>
                </td>
                <td width="15%" align="center" class=td1>
                 &nbsp;
                </td>
              </tr>
<%
   rs.movenext
  else
   exit for
  end if
 next
%>
<tr><td colspan=5 class=td><center><font class=td><% mypage.showpage() %></font></center></td></tr>
<%
end if
%>
            </table>
          </td>
        </tr>
      </table>
    </td>
  </tr>
</table>
<%end if%>
</body></html>
<!-- #include file="bottom.asp" -->
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -