pjbuyer.asp

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

<!--#include file="conn.asp" -->
<!--#include file="inc/check.asp"-->
<!-- #include file="inc/info.asp" -->
<!-- #include file="inc/const.asp" -->
<!-- #include file="inc/myinc.asp" -->
<%response.buffer=true
'=========================================================
'Copyright (C) 2003-2004 AspEase.Com. All rights reserved.
'Web: http://www.aspease.com
'Email: [e-mail],[e-mail]
'=========================================================
'
'FileName: pjbuyer.asp
'Version:2.0
'UpdateTime: 2004-10-4 12:40:35
'Script Written by www.aspease.com 
'=========================================================
stats=easepjbuyerstats
header
activeonline
sql="select * from gets,auctions where auc_id=get_itemid and get_sellerid="&sqlval(userid)&" order by get_date desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
totalcs=rs.recordcount
mytabletop
mynavtop easepjbuyerstats
mycontenttop "26%,9%,10%,26%,15%,*|"&easepjbuyertoplist
if rs.eof then 
response.write("<tr class=tdbg2><td colspan=6 style=padding-left:10px>" & easepingjianull & "</td></tr>")
else
auction_page=10
%><!--#include file="inc/libt.inc"--><%
response.write("<tr align=""center"" valign=""middle"" height=25 ")
if i mod 2 =0 then
response.write("class=tdbg2")
else
response.write("class=tdbg1")
end if
response.write(">")
response.write("<td><a href=""viewitem.asp?aucid=" & FVal(rs("auc_id")) & """ target=""_blank"">" & rs("auc_ItemTitle") & "</a></td>")
response.write("<td>" & FVal(rs("get_Amount")) & "</td>")
response.write("<td>" & FVal(rs("get_num")) & "</td>")
response.write("<td>" & sqldate(rs("get_date")) & "</td>")
response.write("<td>" & aspeaseusername(rs("get_buyerid")) & "</td>")
response.write("<td>")
	sql5="select * from pingjia where pj_asbuyer='N' and pj_aucid="&sqlval(rs("auc_id"))
	set rs5=conn.execute(sql5)
		if rs5.eof then 
			if datediff("d",sqldate(rs("get_date")),sqldate(now()))>=fval(fval(pingjiatime(0))) and datediff("d",sqldate(rs("get_date")),sqldate(now()))<=fval(fval(pingjiatime(1))) then
				response.write("<a href=javascript:popw(" & FVal(rs("auc_id")) & ")>" & easepingjiavalue(0) & "</a>")
			elseif datediff("d",sqldate(rs("get_date")),sqldate(now()))<fval(fval(pingjiatime(0))) then
				response.write(easepingjiavalue(3))
			elseif datediff("d",sqldate(rs("get_date")),sqldate(now()))>fval(fval(pingjiatime(1))) then
				response.write(easepingjiavalue(1))
            End If
		Else			
			response.write(easepingjiavalue(2))
		end if
	rs5.close
response.write(" </td></tr>")
%><!--#include file="inc/libf.inc"--><%
end if
mycontentfoot
myFPage "pjbuyer.asp",rst("action")
mynavfoot
mytablefoot
footer
response.Write("<script language=""javascript"">")
response.Write(chr(10))
response.Write("<!--")
response.Write(chr(10))
response.Write("function popw(id){		")
response.Write(chr(10))
response.Write("window.open(""pingjia_tobuyer.asp?aucid=""+id,"""",""height=400,width=500,resizable=yes,scrollbars=yes,status=no,toolbar=no,menubar=no,location=no"");")
response.Write(chr(10))
response.Write("}")
response.Write(chr(10))
response.Write("//-->")
response.Write(chr(10))
response.Write("</script> ")
'=========================================================
'Copyright (C) 2003-2004 AspEase.Com. All rights reserved.
'Web: http://www.aspease.com
'Email: [e-mail],[e-mail]
'=========================================================
'
'FileName: pjbuyer.asp
'Version:2.0
'UpdateTime: 2004-10-4 12:40:35
'Script Written by www.aspease.com 
'=========================================================%>