📄 aucinfo.asp
字号:
<%
id=rst("aucid")
call chk(rst("aucid"),"id")
%>
<!-- #include file="inc/char.asp" -->
<!-- #include file="conn.asp" -->
<!-- #include file="inc/adovbs.inc" -->
<!-- #include file="head.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%>">
</HEAD>
<BODY leftMargin=0 onmouseover=exitpop=false text=#000000 topMargin=0 marginheight="0" marginwidth="0">
<CENTER>
<%
'on error resume next
strsql = "SELECT aucid,aucEnded,aucbuyprice,aucEmailsSent,aucItemOwner,aucItemTitle,aucImageURL,catid,catsonid," & _
"aucAvailDate,aucCloseDate,aucStartingBid,aucReservePrice,aucMinimumIncrement,aucCurrentBid,bidtimes," & _
"aucCurrentBidder,aucDescription,aucnum,aucmoli,aucclick,aucmoliclosedate,oldnew,yunfei,zhifu,songhuo,fapiao,baoxiu,limit," & _
"regID,regUserName,regEmail,regCity,regState,regCountry,regtime,credit,degrade " & _
"FROM Auctions LEFT JOIN users on Auctions.aucItemOwner = users.regID " & _
"WHERE aucID="&id
set rs=server.createobject("adodb.recordset")
rs.open strsql,conn,1,3
if rs.eof then
response.write"<SCRIPT language=JavaScript>alert('没有找到此商品的信息，请重新尝试！');"
response.write"this.location.href='cat.asp?action=all';</SCRIPT>"
response.end
else
conn.execute("update auctions set aucclick=aucclick+1 where aucid="&rst("aucid"))
dim tempml
if now()>rs("aucmoliclosedate") then
tempml=rs("aucmoli")-aucml*5
if tempml<0 then tempml=0
conn.execute("update auctions set aucmoli="&tempml&" where aucid="&rst("aucid"))
end if
%>
<table border=0 cellpadding=0 cellspacing=0 width="760">
<tr>
<td height=5></td>
</tr>
</table>
<table border=0 cellpadding=0 cellspacing=1 id=bg01 width="760" class=tablebg>
<tbody>
<tr>
<td class=td>
<table border=0 cellpadding=2 cellspacing=0 width="100%">
<tbody>
<tr>
<td width=90> </td>
<td colspan=2 id=bg01><strong>
<%
if rs("aucended")="Y" or rs("aucnum")=0 then
response.write " 该商品<font color=red>"&rs("aucItemTitle")&"</font><strong>已经结束 </strong></td>"
else
response.write " █"&rs("aucItemTitle")&"█</strong></td>"
end if
%>
</tr>
<tr>
<td></td>
<td height=1 id=bg03 valign=top></td>
<td id=bg03></td>
</tr>
<tr>
<td align=middle valign=top><br>
<%
if rs("aucImageURL")="NULL" then
response.write "没有图片"
else
%>
<a href="#bphoto"><img src="<%=rs("aucImageURL")%>" width="72" height="72" border="0"></a>
<%end if%>
</td>
<td id=bg02 valign=top>
<table border=0 cellpadding=1 cellspacing=0 width="100%">
<tbody>
<tr>
<td id=b2>
<table border=0 cellpadding=1 cellspacing=0>
<tbody>
<tr>
<td id=b2><nobr><font id=f4> 现价：</font> <%=rs("aucCurrentBid")%>
元/件</nobr></td>
</tr>
<% if rs("aucbuyprice")<>0 then %>
<tr>
<td id=b2><nobr><font id=f4> 一口价：</font>
<%=rs("aucbuyprice")%>
元/件</nobr></td>
</tr>
<% end if %>
<tr>
<td id=b2><nobr><font id=f4> 起始价：</font> <%=rs("aucStartingBid")%>
元/件</nobr></td>
</tr>
<tr>
<td id=b2><nobr><font id=f4> 可购数量：</font> <%=rs("aucnum")%> 件</nobr></td>
</tr>
<tr>
<td id=b2><nobr><font id=f4> 剩余时间：</font>
<%
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 sDate3>=0 then
response.write sDay & "天" & sHour & "小时" & sMinute & "分钟" & sDate3 & "秒"
end if
if sDate3 < 0 then
response.write "<font color=#ff0000><b>竞价结束！</b></font>"
end if
%></nobr></td>
</tr>
<tr>
<td id=b2><nobr><font id=f4> 所在地：</font> <%=rs("regState")%><%=rs("regCity")%></nobr></td>
</tr>
<tr>
<td id=b2><nobr><font id=f4> 交易情况：</font> 最后出价
<%
if rs("aucCurrentBidder") <> 0 then
sqllast="select regusername from users where regid="&rs("aucCurrentBidder")
set rslast=conn.execute(sqllast)
sqltimes="select count(*) as times from bids where bidItemID="&id
set rstimes=conn.execute(sqltimes)
response.write rslast("regusername")
response.write " 出价"&rs("bidtimes")&"次"
else
response.write " 无人出价"
response.write " 出价0次"
end if%>
</nobr></td>
</tr>
</tbody>
</table>
</td>
<td id=b1 valign=top>
<table border=0 cellpadding=0 cellspacing=0 width=100>
<tbody>
<tr>
<td height=10></td>
</tr>
</tbody>
</table>
<table background=img/bg_botton_2.gif border=0 cellpadding=0 cellspacing=0 id=b2 width=90 bgid="f3">
<tbody>
<% if rs("aucended")="Y" or rs("aucnum")=0 then %>
<tr>
<td align=middle height=26><strong><font
color=#ffffff>竞价结束</font></strong></td>
</tr>
<% else %>
<tr>
<td align=middle height=26><a
href="#chujia"><strong><font
color=#ffffff>出价</font></strong></a> </td>
</tr>
<% end if %>
</tbody>
</table>
<br>
</td>
</tr>
</tbody>
</table>
</td>
<%
sql="select * from shops where shopownerid="&rs("regid")
set rs_s=server.createobject("adodb.recordset")
rs_s.open sql,conn,1,3
%>
<td id=bg04 valign=top>
<table border=0 cellpadding=1 cellspacing=0 width="100%">
<tbody>
<tr>
<td colspan=2 id=b2>卖家： <%=rs("regUsername")%> <%if rs_s.eof then
response.write"★用户未申请开店"
else%><a href="usershop.asp?sid=<%=rs_s("shopid")%>">用户店铺（<%=rs_s("shopname")%>）</a><%end if%></td>
</tr>
<tr>
<td colspan=2 id=b2>星级评定：
<%dim a
a=rs("credit")
if a<100 then
response.write " 无星级会员 "
elseif a<200 then
response.write "<a href=usercredit.asp?vqqqid="&rs("aucItemOwner")&"><img alt=""会员信用级别""：建议您出价前点击其星级查看信用详情。 border=0 src=""img/1star.gif""></a>"
elseif a<400 then
response.write "<a href=usercredit.asp?vqqqid="&rs("aucItemOwner")&"><img alt=""会员信用级别""：建议您出价前点击其星级查看信用详情。 border=0 src=""img/2star.gif""></a>"
elseif a<800 then
response.write "<a href=usercredit.asp?vqqqid="&rs("aucItemOwner")&"><img alt=""会员信用级别""：建议您出价前点击其星级查看信用详情。 border=0 src=""img/3star.gif""></a>"
elseif a<1600 then
response.write "<a href=usercredit.asp?vqqqid="&rs("aucItemOwner")&"><img alt=""会员信用级别""：建议您出价前点击其星级查看信用详情。 border=0 src=""img/4star.gif""></a>"
else
response.write "元老会员 "
end if
if rs("degrade")="身份证" then
response.write"<img src='images/shenfenzheng.gif' border='0' alt='已进行真实身份认证'>"
else
response.write" <font class=fblue>(未进行真实身份认证)</font>"
end if
%>
</td>
</tr>
<%
sql="select leixing from pingjia where mjid="&rs("aucItemOwner")
set rslx=conn.execute(sql)
if rslx.eof then
%>
<tr><td width=100% align=center colspan=2 class=td>无评价</td></tr>
<%
else
haoping=0
yiban=0
chaping=0
do while not rslx.eof
if rslx("leixing")="好" then
haoping=haoping+1
elseif rslx("leixing")="中" then
yiban=yiban+1
elseif rslx("leixing")="差" then
chaping=chaping+1
else
response.write"</td></tr></table></td></tr></table>"
errors("评价信息有误，请联系管理员")
end if
rslx.movenext
loop
totalpj=haoping+chaping+yiban
%>
<tr align=center><td width=100% colspan=2 class=td>
好评率：
<%
if haoping<>0 then
perright=FormatPercent((haoping/totalpj),1)
response.write perright
else
response.write "0 %"
end if
%>
中评率：
<%
if yiban<>0 then
perright=FormatPercent((yiban/totalpj),1)
response.write perright
else
response.write "0 %"
end if
%>
差评率：
<%
if chaping<>0 then
perright=FormatPercent((chaping/totalpj),1)
response.write perright
else
response.write "0 %"
end if
%>
</td></tr>
<%
end if
%>
<tr>
<td colspan=2 id=b1><nobr> <font
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -