📄 aucinfo.asp
字号:
.Write " <tr><td colspan=2 background=""skins/"& Skins_Folder &"/Dot.gif"" height=""2""></tr>" & vbcrlf
.Write " <tr> " & vbcrlf
.Write " <td width=50% height=22>新旧程度： "& AucOldNew(rs("BBR_AucOldNew"),0) &"</td>" & vbcrlf
.Write " <td height=22>点 击 率： "& rs("aucClick") &" 次</td>" & vbcrlf
.Write " </tr>" & vbcrlf
.Write " <tr><td colspan=2 background=""skins/"& Skins_Folder &"/Dot.gif"" height=""2""></tr>" & vbcrlf
.Write " <tr> " & vbcrlf
.Write " <td colspan=2 height=22>所 在 地： "& rs("regState") & rs("regCity") &"</td>" & vbcrlf
.Write " </tr>" & vbcrlf
.Write " <tr><td colspan=2 background=""skins/"& Skins_Folder &"/Dot.gif"" height=""2""></tr>" & vbcrlf
.Write " <tr> " & vbcrlf
.Write " <td colspan=2 height=22>付款方式： "& Vbcrlf
if Rs("BBR_AlipayStatus")=1 then .Write"<B>支付宝</B> <img src=""Images/AliPayStatus.gif"" border=""0"" alt=""支付宝付款，货到付款，安全放心""> "& Vbcrlf
.Write "或 "& AucPayStyle(Rs("BBR_AucPayStyle"),0) &"</td>" & vbcrlf
.Write " </tr>" & vbcrlf
.Write " <tr><td colspan=2 background=""skins/"& Skins_Folder &"/Dot.gif"" height=""2""></tr>" & vbcrlf
.Write " <tr> " & vbcrlf
.Write " <td colspan=2 height=22>商品运费： "& Vbcrlf
if Rs("BBR_PayForTM")=1 then
.Write PayForTM(1,0)
else
if Rs("BBR_AucTM1")>0 then .Write "平邮："& Rs("BBR_AucTM1") &" 元 "& Vbcrlf
if Rs("BBR_AucTM2")>0 then .Write "快递："& Rs("BBR_AucTM2") &" 元"& Vbcrlf
end if
.Write " </td>" & vbcrlf
.Write " </tr>" & vbcrlf
.Write " <tr><td colspan=2 background=""skins/"& Skins_Folder &"/Dot.gif"" height=""2""></tr>" & vbcrlf
.Write " </tbody> " & vbcrlf
.Write " </table>" & vbcrlf
.Write " <table cellpadding=3 cellspacing=1 width=100% align=center border=0 class=td>"& Vbcrlf
.Write " <tr>"& Vbcrlf
.Write " <td width=100% align=center><a href=""#chujia"">"& Vbcrlf
if CurrentAucType=1 then
.Write " <img src=images/bid.jpg border=0 alt=点击此按钮，进入下一步参与此商品的竞拍>"& Vbcrlf
elseif CurrentAucType=2 then
.Write " <img src=images/buynow.jpg border=0 alt=点击此按钮，进入下一步商品购买确认页>"& Vbcrlf
else
.Write "有误"
end if
.Write " </a></td>"& Vbcrlf
.Write " </tr>"& Vbcrlf
.Write " </table>"& Vbcrlf
if Rs("BBR_AlipayStatus")=1 then
.Write " <table cellpadding=3 cellspacing=1 width=100% align=center border=0 class=titletd>"& Vbcrlf
.Write " <tr>"& Vbcrlf
.Write " <td width=10% align=center><img src=""Images/AlipayStatus.gif"" border=""0"" alt=""支付宝付款""></td>"& Vbcrlf
.Write " <td align=Left class=td>"& Vbcrlf
.Write " 此宝贝支持<a href=""###"">支付宝</a>，网上汇款免手续费。<br>"& Vbcrlf
.Write "收货满意后卖家才能拿钱，货款都安全！"& Vbcrlf
.Write " </td>"& Vbcrlf
.Write " </tr>"& Vbcrlf
.Write " </table>"& Vbcrlf
end if
.Write " </td>" & vbcrlf
.Write " </tr>" & vbcrlf
.Write " </tbody>" & vbcrlf
.Write " </table>" & vbcrlf
.Write " </td>" & vbcrlf
.Write " <td align=""center"" vAlign=""Top"">" & vbcrlf
.Write " <table border=0 cellpadding=0 cellspacing=1 width=100% align=left>" & vbcrlf
.Write " <tbody> " & vbcrlf
.Write " <tr><td align=center class=td> " & vbcrlf
.Write " <table height=252 border=0 cellpadding=2 cellspacing=3 width=238 align=right style=""border: 1px EFEFEF solid;"">" & vbcrlf
.Write " <tbody> " & vbcrlf
.Write " <tr> " & vbcrlf
.Write " <td height=22>掌柜昵称： <a href=""displayUser.asp?uid="&Rs("Regid")&""" title=""点击查看用户资料""><b><Span Style=""Color: #3333EE"">"& rs("regUsername") &"</Span></b></a></td>" & vbcrlf
.Write " </tr>" & vbcrlf
.Write " <tr>" & vbcrlf
.Write " <td height=22>"& Vbcrlf
.Write "<table width=100% cellpadding=0 cellspacing=0 border=0 align=center>"& Vbcrlf
.Write "<tr><td width=60>星级评定：</td><td align=left>" & vbcrlf
Response.Write Disp_UserCredit(rs("regid"),rs("credit"),0)
Response.Write " "
Response.Write Disp_UserIDCard(rs("degrade"),0)
.Write "</td></tr></table>"& Vbcrlf
.write" </td>" & vbcrlf
.write" </tr>" & vbcrlf
dim rslx
sql="select * from Cnbbr_Appraise where (Cnbbr_aAucOwnerID="& Rs("AucItemOwner") &" or Cnbbr_aAucBuyerID="& Rs("AucItemOwner") &") and Cnbbr_aOwnerStatus=1 and Cnbbr_aBuyerStatus=1"
set rslx=conn.execute(sql)
CnbbrConnTimes
if rslx.eof then
.write" <tr>" & vbcrlf
.write" <td width=100% align=center height=22>暂无交易信用评价记录</td>" & vbcrlf
.write" </tr>" & vbcrlf
else
Dim HaoPing,yiBan,ChaPing,TotalPj,PerRight
haoping=0
yiban=0
chaping=0
do while not rslx.eof
if Cdbl(RsLx("Cnbbr_aAucOwnerID"))=Cdbl(Rs("AucItemOwner")) then
if rslx("Cnbbr_aOwnerCredit")=2 then
haoping=haoping+1
elseif rslx("Cnbbr_aOwnerCredit")=1 then
yiban=yiban+1
elseif rslx("Cnbbr_aOwnerCredit")=0 then
chaping=chaping+1
else
response.write"</td></tr></table></td></tr></table>"
Call AlertInfo("交易信用评价信息有误，请联系管理员","index.asp",1)
end if
elseif Cdbl(RsLx("Cnbbr_aAucBuyerID"))=Cdbl(Rs("AucItemOwner")) then
if rslx("Cnbbr_aBuyerCredit")=2 then
haoping=haoping+1
elseif rslx("Cnbbr_aBuyerCredit")=1 then
yiban=yiban+1
elseif rslx("Cnbbr_aBuyerCredit")=0 then
chaping=chaping+1
else
response.write"</td></tr></table></td></tr></table>"
Call AlertInfo("交易信用评价信息有误，请联系管理员","index.asp",1)
end if
else
Response.Write"交易信用评价信息异常！"
end if
rslx.movenext
loop
totalpj=haoping+chaping+yiban
.write" <tr align=center>" & vbcrlf
.write" <td width=100% class=td height=22>" & vbcrlf
.write"好评率："
if haoping<>0 then
PerRight=FormatPercent((haoping/totalpj),1)
.write PerRight
else
.write "0 %"
end if
.Write " "
.write"差评率："
if chaping<>0 then
PerRight=FormatPercent((chaping/totalpj),1)
.write PerRight
else
.write "0 %"
end if
.write" </td>" & vbcrlf
.write" </tr>" & vbcrlf
end if
rsLx.Close
Set RsLx=nothing
.write" <tr> " & vbcrlf
.write" <td height=22><font color=#666666>注册时间："& rs("regTime") &"</font></td>" & vbcrlf
.write" </tr>" & vbcrlf
.write" <tr> " & vbcrlf
.write" <td height=22><a href=usercredit.asp?bbrid="& rs("regid") &" target=_blank>查看掌柜交易信用评价详情</a></td>" & Vbcrlf
.write" </tr> " & vbcrlf
.write" <tr> " & vbcrlf
.write" <td height=22>" & vbcrlf
.write" <a href=Search_Auction.asp?BBR_AucOwner="& rs("regid") &" target=_blank>"
dim rsselling
sql="select count(*) as sellnum from auctions where aucItemOwner="& rs("regID") &" and aucended='N'"
set rsselling=conn.execute(sql)
CnbbrConnTimes
if not rs.eof then
response.write"掌柜出售中的商品(共"& rsselling("sellnum") &"件)"
end if
.write" </a>"
.write" </td>" & vbcrlf
.write" </tr>" & vbcrlf
if UserShopExist=1 then
.write" <tr> " & vbcrlf
.write" <td height=22><a href=Shop/index.asp?Shopid="& UserShopID &"><img src=""skins/"& Skins_Folder &"/go.gif"" border=""0"" alt=""去逛逛掌柜店铺""> <font color=blue>掌柜店铺〖"& UserShopName &"〗</font></a></td>" & vbcrlf
.write" </tr> " & vbcrlf
end if
.write" <tr> " & vbcrlf
.write" <td height=22>"& Vbcrlf
Response.Write"<a href=cnbbrmsg_Write.asp?smsto="& Server.UrlEncode(Rs("RegUserName")) &"><img src=""skins/"& SKins_FOlder &"/BBRSendMsg.gif"" border=""0"" alt=""发站内短信给用户""></a>"& Vbcrlf
if Len(Rs("UserQQ"))>=5 and Cdbl(Rs("UserQQ"))>0 then Response.Write"<iframe width=80 height=30 frameborder=0 scrolling=no src=""BBRReadQQStatus.asp?UserQQ="& Rs("Userqq") &"&BBR_UserQQSkins="& Rs("BBR_UserQQSkins") &"&BBR_UserQQMsg="& Server.UrlEncode(Rs("BBR_UserQQMsg")) &"&SYS_WebName="& Server.UrlEncode(SYS_WebName) &"""></iframe>"& Vbcrlf
.Write" </td>" & vbcrlf
.write" </tr> " & vbcrlf
.write" </tbody>" & vbcrlf
.write" </table>" & vbcrlf
.Write" </td>" & vbcrlf
.write" </tr> " & vbcrlf
.write" </tbody>" & vbcrlf
.write" </table>" & vbcrlf
.write" </td>" & vbcrlf
.write" </tr>" & vbcrlf
.write" </table>" & vbcrlf
.write" </td>" & vbcrlf
.write" </tr>" & vbcrlf
.write" </table>" & vbcrlf
End With
%>
<!-- 商品描述位置开始 cn bb r .com 2005-05-19 -->
<table align=center border=0 cellpadding=0 cellspacing=0 width=<%=SYS_BodyCenterWidth%> class=td>
<tbody>
<TR>
<td align=center>
<table width=100% cellpadding=0 cellspacing=0 border=0 align=center>
<tr>
<TD width=97% class=menufont_2><img src="skins/<%=Skins_Folder%>/ring.gif" border="0" alt=""> <B>商品描述：</B></TD>
<TD width=3% class=menufont_2 align=right><a href="#top"><img src="skins/<%=Skins_Folder%>/GoTop.gif" border="0" alt="转至顶部"></a></TD>
</tr>
</table>
</td>
</TR>
<TR>
<TD height=2 background=skins/<%=Skins_Folder%>/Dot.gif></TD>
</TR>
<TR>
<TD align=left class=td style="table-layout: fixed; word-break: break-all; line-height: 22px">
<table cellpadding=8 cellspacing=0 align="center" width="96%" border="0">
<tr>
<td align=left height=58><%=eWebEditor_DeCode(rs("aucDescription"), "SCRIPT")%></td>
</tr>
</table>
</TD>
</TR>
</tbody>
</table>
<!-- 商品描述位置结束 cn bb r .com 2005-05-19 -->
<!-- 商品附属信息显示位置开始 cn b b r .com 2005-05-19 -->
<%
Dim Dot_Head
Dot_Head="<Span class=fontcolor_2> + </Span>"
%>
<TABLE align=center border=0 cellPadding=0 cellSpacing=0 width=<%=SYS_BodyCenterWidth%> class=td>
<TBODY>
<TR>
<TD colSpan=4 class=menufont_2>
<table width=100% cellpadding=0 cellspacing=0 border=0 align=center>
<tr>
<TD width=97% class=menufont_2><img src="skins/<%=Skins_Folder%>/ring.gif" border="0" alt=""> <B>附属信息：</B></TD>
<TD width=3% class=menufont_2 align=right><a href="#top"><img src="skins/<%=Skins_Folder%>/GoTop.gif" border="0" alt="转至顶部"></a></TD>
</tr>
</table>
</TD>
</TR>
<TR>
<TD colSpan=4 width=100% height=2 background=skins/<%=Skins_Folder%>/Dot.gif></TD>
</TR>
<TR class=td>
<TD align=right height=20 width="20%"><%=Dot_Head%>商品编号：</TD>
<TD height=20 width="20%"><%=Md5(Rs("aucId"),32)%></TD>
<TD align=right height=20><%=Dot_Head%>所 在 地：</TD>
<TD height=20><%=rs("regState")%><%=rs("regCity")%></TD>
</TR>
<TR class=td>
<TD align=right height=20><%=Dot_Head%>开始时间：</TD>
<TD height=20><%=rs("aucAvailDate")%></TD>
<TD align=right height=20 width="30%"><%=Dot_Head%>结束时间：</TD>
<TD height=20 width="30%"><%=rs("aucCloseDate")%> </TD>
</TR>
</TBODY>
</TABLE>
<!-- 商品附属信息显示位置结束 cn b b r .com 2005-05-19 -->
<%
if CurrentAucType=1 then
dim rsfd
sql="select * from Bids where bidItemID="&id
set rsfd=conn.execute(sql)
CnbbrConnTimes
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -