📄 research.asp

📁 一个不错的拍卖网站,fdsafdsfdfe
💻 ASP
字号:
<!--#include file="conn.asp" -->
<!-- #include file="inc/info.asp" -->
<!-- #include file="webtop.asp" -->
<html>
<head>
<TITLE><%=webname%>--商品详细搜索</TITLE>
<META http-equiv=Content-Type content="text/html; charset="<%=charset%>">
<META name="keywords" content="<%=keywords%>">
<META name="description" content="<%=description%>">
<link href="images/yq_style.css" rel="stylesheet" type="text/css">
</HEAD>
<BODY bgColor=#ffffff leftMargin=0 onmouseover=exitpop=false text=#000000 topMargin=0 marginheight="0" marginwidth="0">
<center>
<%
dim rs
dim sql
dim count
catid=request("catid")
catsid=request("catsonid")
name1=request("name1")
name2=request("name2")
set rs=server.createobject("adodb.recordset")
sql = "select * from auctions where aucEnded='N' and catid="&catid&" and catsonid="&catsid&" and aucItemTitle like '%" &name1& "%' order by aucCloseDate asc"
rs.open sql,conn,1,1
count=0
if rs.eof and rs.bof then
response.write "没有找到<b>"&name1&"</b>"
else
showtable
end if
sub showtable%>
<table width="760" border="0" cellspacing="1" cellpadding="0" align="center" bgcolor="#cccccc">
  <tr bgcolor="#FFCC00"> 
    <td width="106" bgcolor="#EDECEC"> 
      <div align="center">商品图片</div>
    </td>
    <td width="312" bgcolor="#EDECEC"> 
      <div align="center">商品名称</div>
    </td>
    <td width="91" bgcolor="#EDECEC"> 
      <div align="center">现价</div>
    </td>
    <td width="81" bgcolor="#EDECEC"> 
      <div align="center">竞标数</div>
    </td>
    <td bgcolor="#EDECEC" width="167"> 
      <div align="center">剩余时间</div>
    </td>
  </tr>
  <%
  i=0
  
  
   while not rs.eof
if i mod 2 =0 then
  %>
  <tr id=b2 bgcolor="#FFFFFF"> 
    <td width="106" id=bg02> 
      <div align="center">
	  <%
	  if rs("aucImageURL")="" then
	  response.write "没有图片"
	  else%>
	 <img src="<%=rs("aucImageURL")%>" width="72" height="72">
	  <%end if%></div>
    </td>
    <td width="312" id=bg02> 
      <div align="center"><a href="viewaucid.asp?aucid=<%=rs("aucID")%>"><%
	  if request("b1")<>"" then
	  response.write Replace(rs("aucItemTitle"),name1,"<font color=red>"&name1&"</font>")
	 else
	response.write Replace(rs("aucItemTitle"),name2,"<font color=red>"&name2&"</font>")
	  end if
	  %></a></div>
    </td>
    <td width="91" id=bg02> 
      <div align="center"><%=rs("aucCurrentBid")%></div>
    </td>
    <td width="81" id=bg02> 
      <div align="center"><%
	  sql3="select count(*) as Bnum from bids where bidItemID="&rs("aucid")
	  set rs3=conn.execute(sql3)
	response.write rs3("Bnum")%></div>
    </td>
    <td width="167" id=bg02> 
      <div 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 '余数
response.write sDay & "天" & sHour & "小时" & sMinute & "分钟" & sDate3 & "秒"
%>
      </div>
    </td>
  </tr>
  <%else%>
  <tr> 
    <td width="106" id=bg06> 
      <div align="center">
	  <%
	  if rs("aucImageURL")="" then
	  response.write "没有图片"
	  else%>
	 <img src="<%=rs("aucImageURL")%>" width="72" height="72">
	  <%end if%></div>
    </td>
    <td width="312" id=bg06> 
      <div align="center"><a href="viewaucid.asp?aucid=<%=rs("aucID")%>"><%=rs("aucItemTitle")%></a></div>
    </td>
    <td width="91" id=bg06> 
      <div align="center"><%=rs("aucCurrentBid")%></div>
    </td>
    <td width="81" id=bg06> 
      <div align="center"><%
	  sql3="select count(*) as Bnum from bids where bidItemID="&rs("aucid")
	  set rs3=conn.execute(sql3)
	response.write rs3("Bnum")%></div>
    </td>
    <td width="167" id=bg06> 
      <div 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 '余数
response.write sDay & "天" & sHour & "小时" & sMinute & "分钟" & sDate3 & "秒"
%>
      </div>
    </td>
  </tr>
  <% end if
  rs.movenext
 i=i+1
  wend


set conn=nothing

 %>
</table>
<%end sub%>
<!-- #include file="copyright.asp" -->
</CENTER>
</BODY></HTML>
⌨️ 快捷键说明

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