search.asp

AspEase Auction System Ver2.0/动易拍卖系统 Ver2.0

<!--#include file="conn.asp"-->
<!-- #include file="inc/info.asp" -->
<!-- #include file="inc/const.asp" -->
<%response.buffer=true
'=========================================================
'Copyright (C) 2003-2004 AspEase.Com. All rights reserved.
'Web: http://www.aspease.com
'Email: [e-mail],[e-mail]
'=========================================================
'
'FileName: search.asp
'Version:2.0
'UpdateTime: 2004-10-4 14:08:35
'Script Written by www.aspease.com 
'=========================================================
stats=searchstats
header
activeonline
if Request.ServerVariables("REQUEST_METHOD")="POST" then
dim name1,name2,submitimage,ssubmit,searchtype,sorder
name1=checkstr(request("name1"))
name2=checkstr(request("name2"))
submitimage=request("submitimage")
catid=fval(fstr(request("catid")))
if rst("submit")<>"" then
	ssubmit=rst("submit")
else
	ssubmit=searchbtn2
end if
searchtype=fstr(rst("searchtype"))
ownerid=fval(fstr(rst("ownerid")))
response.Cookies("name1")=name1
response.Cookies("name2")=name2
response.Cookies("submitimage")=submitimage
response.Cookies("catid")=catid
response.Cookies("submit")=rst("submit")
response.Cookies("searchtype")=searchtype
response.Cookies("ownerid")=ownerid
else
name1=request.Cookies("name1")
name2=request.Cookies("name2")
ssubmit=request.Cookies("submit")
searchtype=request.Cookies("searchtype")
submitimage=request.Cookies("submitimage")
catid=request.Cookies("catid")
ownerid=request.Cookies("ownerid")
end if
if fstr(rst("order"))<>"" then
select case fstr(rst("order"))
case "pricetolow"
sorder="order by auc_CurrentBid desc"
case "pricetohigh"
sorder="order by auc_CurrentBid asc"
case "closefirst"
sorder="order by auc_CloseDate asc"
case "closelast"
sorder="order by auc_CloseDate desc"
case else
sorder="order by auc_CloseDate desc"
end select
end if
if ssubmit=searchbtn1 then
if searchtype=2 and isnumeric(name1)=false then
response.Write("<script language=javascript>{alert( '" & searchalert & "');history.back();}</script>")
response.end
end if
sql="select * from auctions,users where auc_itemOwner=regid and auc_Ended='N' and "
select case searchtype
case 0
sql=sql&"auc_ItemTitle like '%" &name1& "%' "&sorder
case 1
sql=sql&"auc_Description like '%" &name1& "%' "&sorder
case 2
sql=sql&"auc_id =" &name1& ""
case 3
sql=sql&"regusername ='" &name1& "' "&sorder
case else
sql=sql&"auc_ItemTitle like '%" &name1& "%' or auc_Description like '%" &name1& "%' "&sorder
end select
end if
if ssubmit=searchbtn3 then ' or submitimage<>"" then index.asp
sql="select * from auctions,users where auc_itemowner=regid and auc_ItemTitle like '%" &name1& "%' and auc_catid="&sqlval(catid)&" and auc_ended='N'"&sorder	
end if
if ssubmit=searchbtn2 then	's1.asp
	sql = "select * from auctions,users where regid=auc_itemowner and auc_Ended='N' and auc_ItemTitle like '%" &name2& "%'"&sorder
end if
if ssubmit=searchbtn4 then	'shop.asp
	sql = "select * from auctions,upshelf,users where auc_itemOwner=regid and auc_id=up_aucid and auc_Ended='N' and auc_ItemTitle like '%" &name1& "%' and up_shelfowner="&sqlval(ownerid)&" "&sorder
end if
if ssubmit="" then
	sql = "select * from auctions,users where regid=auc_itemowner and auc_Ended='N' and auc_ItemTitle like '%" &name2& "%'"&sorder
end if
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
totalcs=rs.recordcount
response.Write("<table width=""760"" border=""0"" align=""center"" style=""border:#cccccc 1px solid"">")
response.Write("<form name=""daohang"" action=""search.asp?order=")
response.Write(rst("order"))
response.Write(""" method=""get"">  <TR class=tdbg1>          ")
response.Write("      <td width=716 colspan=""8"" align=""left"" vAlign=center> ")
response.Write(searchselect)
response.Write(" ")
response.Write("        <select name=""order"" size=""1"" onChange=""daohang.submit()"">")
response.Write("          <option value=""pricetolow""")
 If rst("order")="pricetolow" Then 
response.Write("selected")
 End If 
response.Write(">")
response.Write(searchpricetolow)
response.Write("</option>")
response.Write("          <option value=""pricetohigh""")
 If rst("order")="pricetohigh" Then 
response.Write("selected")
 End If 
response.Write(">")
response.Write(searchpricetohigh)
response.Write("</option>")
response.Write("          <option value=""closefirst""")
 If rst("order")="closefirst" Then 
response.Write("selected")
 End If 
response.Write(">")
response.Write(searchclosefirst)
response.Write("</option>")
response.Write("          <option value=""closelast""")
 If rst("order")="closelast" Then 
response.Write("selected")
 End If 
response.Write(">")
response.Write(searchcloselast)
response.Write("</option>")
response.Write("        </select>")
response.Write("      </td>         ")
response.Write("  </TR> </form></table>")
response.Write("<table width=""760"" border=""0"" align=""center"" class=border1b>")
response.Write(" <tr align=""center""> ")
response.Write("    <td width=""85"" nowrap bgcolor=""")
response.Write(listtop1)
response.Write("""><script language=""JavaScript"" src=""js/setimage.js""></script><A href=""javascript:"" onclick=SetImg()>")
response.Write(chr(10))
response.Write(easeshowhidepic)
response.Write("</a></td>")
response.Write("    <td width=""194"" nowrap bgcolor=""")
response.Write(listtop2)
response.Write(""">")
response.Write(easegoodsname)
'=========================================================
'Copyright (C) 2003-2004 AspEase.Com. All rights reserved.
'Web: http://www.aspease.com
'Email: [e-mail],[e-mail]
'=========================================================
'
'FileName: search.asp
'Version:2.0
'UpdateTime: 2004-10-4 14:08:35
'Script Written by www.aspease.com 
'=========================================================
response.Write("</td>")
response.Write("    <td width=""80"" nowrap bgcolor=""")
response.Write(listtop1)
response.Write(""">")
response.Write(easecurrentbid)
response.Write("</td>")
response.Write("    <td width=""57"" nowrap bgcolor=""")
response.Write(listtop2)
response.Write(""">")
response.Write(easebidsnum)
response.Write("</td>")
response.Write("    <td width=""50"" nowrap bgcolor=""")
response.Write(listtop1)
response.Write(""">")
response.Write(easegoodsleftnum)
response.Write("</td>")
response.Write("    <td width=""103"" nowrap bgcolor=""")
response.Write(listtop2)
response.Write(""">")
response.Write(easegoodsowner)
response.Write("</td>")
response.Write("    <td width=""92"" nowrap bgcolor=""")
response.Write(listtop1)
response.Write(""">")
response.Write(easegoodsplace)
response.Write("</td>")
response.Write("    <td width=""56"" nowrap bgcolor=""")
response.Write(listtop2)
response.Write(""">")
response.Write(easelefttime)
response.Write("</td>")
response.Write("  </tr>")
  if rs.eof and rs.bof then
  Response.Write "<tr class=tdbg2><td colspan=8>"&searchgetno&"<b>"
  		if ssubmit=searchbtn2 then
  			response.write name2&"</b></td></tr></table>"
  		else
  			response.write name1&"</b></td></tr></table>"
		end if
 else
searchpage=20
auction_page=searchpage
%><!--#include file="inc/libt.inc"--><%
response.Write(" <tr align=center ")
if i mod 2 =0 then
response.Write("class=tdbg2")
else
response.Write("class=tdbg1")
end if
response.Write("> ")
response.Write("    <td><DIV id=SeeImg>  <a href=""" & rs("auc_ImageURL") & """ target=_blank>" & easeseepic & "</A> </DIV>")
response.Write("	   <DIV id=NoImg style=""DISPLAY: none""><A href=""viewitem.asp?aucid=" & FVal(rs("auc_ID")) & """ target=_blank><IMG border=0 height=50 src=""" & rs("auc_ImageURL") & """ width=70></A> </DIV></td>")
response.Write("    <td><a href=""viewitem.asp?aucid=" & FVal(rs("auc_ID")) & """ target=_blank>")
if ssubmit=searchbtn2 or ssubmit="" then
	response.write replace(rs("auc_ItemTitle"),name2,"<font color=#ff0000>"&name2&"</font>")
  else
	response.write replace(rs("auc_ItemTitle"),name1,"<font color=#ff0000>"&name1&"</font>")
  end if
if FVal(rs("auc_Isbuygoods"))=1 then response.write "<b><font color=red>(" & easeykjname & ")</font></b>"
response.Write("</a></td>")
response.Write("    <td>" & FVal(rs("auc_CurrentBid")) & "</td>")
response.Write("    <td>" & easebidtimes(sqlval(rs("auc_id"))) & "</td>")
response.Write("    <td>" & FVal(rs("auc_numleft")) & "</td>")
response.Write("    <td>" & aspeaseusername(sqlval(rs("auc_ItemOwner"))) & "</td>")
response.Write("    <td>" & easeshowfldvalue("users","regid",sqlval(rs("auc_ItemOwner")),"regState,regCity") & "</td>")
response.Write("    <td>" & auclefttime(fval(rs("auc_id")),"short") & "</td>")
response.Write("  </tr>")
%> <!--#include file="inc/libf.inc"--><%
end if
response.Write("</table>")
action=rst("action")
if action="" then
	action="all"
end if
Response.Write fpage("search.asp",fstr(rst("action")),"",fstr(rst("order")),"")
footer
'=========================================================
'Copyright (C) 2003-2004 AspEase.Com. All rights reserved.
'Web: http://www.aspease.com
'Email: [e-mail],[e-mail]
'=========================================================
'
'FileName: search.asp
'Version:2.0
'UpdateTime: 2004-10-4 14:08:35
'Script Written by www.aspease.com 
'=========================================================%>