📄 mlforauc.asp

📁 实用的拍卖源码。适合个人建站学习使用。仅供学习参考
💻 ASP
字号:
<!--#include file="inc/char.asp"-->
<%
call chk(session("mlid"),"id")
%>
<!--#include file="conn.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 bgColor=#ffffff leftMargin=0 onmouseover=exitpop=false text=#000000 topMargin=0 marginheight="0" marginwidth="0">

<table cellpadding=0 cellspacing=0 width=560 align=center>
<tr>
<td width=100% align=center valign=top>
	<table width='560' 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="560" 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="560">
        <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 left join users on auctions.aucItemOwner=users.regID where regUsername='"&session("user")&"' and aucEnded='N'"
 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="60%" align=center>商品名称</td>
                <td width="10%"> 
                  <div align="center">现价</div>
                </td>
                <td width="18%" align=center>剩余时间</td>
                <td width="10%" align=center>操作</td>
              </tr>
<%
 for i=1 to mypage.pagesize 
  if not rs.eof then   
%>
<form action="usemoli.asp?toid=<%=rs("aucid")%>" method="post">
              <tr class=td> 
                <td width="60%">&nbsp;<A href="aucinfo.asp?aucid=<%=rs("aucid")%>" target=_blank>
<%
auctitle=rs("aucItemTitle")
if len(auctitle)>28 then
auctitle=left(auctitle,25)&"..."
response.write auctitle
else
response.write auctitle
end if
%>
</a></td>
           				
                <td width="10%" align=center> <%response.write rs("aucCurrentBid")%> 元	
                </td>
                <td width="18%" align=center>
                  <%
date2 = rs("aucCloseDate")
date1 = now()
sDate = DateDiff("s", date1, date2) '总秒数
sDay = fix(sDate/60/60/24) '天数
sDate1 = sDate mod 60*60*24 '余数
sHour = fix(sDate1/60/60) '小时
sDate2 = sDate1 mod 60*60 '余数
sMinute = fix(sDate2/60) '分钟
sDate3 = sDate2 mod 60 '余数
if sDay>0 then
response.write sDay & "天"
end if
if sDay=0 and shour>=0 then 
'and sHour=0 and sMinute=0 and sDate3=0
'response.write sDay & "天" & sHour & "小时" & sMinute & "分钟" & sDate3 & "秒"
response.write sHour & "小时"
end if
if sDay=0 and shour=0 and sMinute>=0 then
response.write sMinute & "分钟" 
end if
if sDay=0 and shour=0 and sMinute=0 and sDate3>=0 then
response.write sDate3 & "秒"
end if
%>
                  &nbsp; </td>
                <td width="12%" align=center><input name=mlid type=hidden value=<%=session("mlid")%>><input name=act type=hidden value="Y"><input type=submit name=B2 value="使用"></td>
              </tr>
</form>
<%
   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>
</BODY></HTML>
⌨️ 快捷键说明

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