📄 cnbbr_compareauc.asp
字号:
<!-- #include file="Top_Cnbbr.asp" -->
<!-- #include file="inc/Md5.asp" -->
<!-- #include file="include/ubbcode.asp" -->
<%
Dim ID:ID=CheckStr(trim(Request.Cookies("Pro_Str")))
If ID="" then Call AlertInfo("请选择至少两件商品进行比较！","",0)
Response.write Cnbbr_Head
Dim TempIDStr,TempIDStr2,IDStr
TempIDStr=ID
TempIDStr=Split(TempIDStr,"###")
Dim IDStri:IDStri=0
Dim IDStrj:IDStrj=0
IDstrj=Ubound(TempIDStr)-1
For IDStri=0 to IDstrj
If Instr(TempIDStr(IDStri),"|")=0 then
Call AlertInfo("你选择的商品包含非法信息，请清空【比比看】再重新选择！","",0)
else
TempIDStr2=Split(TempIDStr(IDStri),"|")
if Not IsNum(TempIDStr2(0)) then Call AlertInfo("你选择的商品中可能含有不存在的商品，请重新选择！","",0)
if IDstri=IDStrj then
IDStr=IDStr & TempIDStr2(0)
else
IDStr=IDStr & TempIDStr2(0) &","
end if
end if
Next
ID=IDStr
sql = "SELECT aucid,aucEnded,aucbuyprice,aucEmailsSent,aucItemOwner,aucItemTitle,aucImageURL,BBR_ClassPath," & _
"aucAvailDate,aucCloseDate,aucStartingBid,aucReservePrice,aucMinimumIncrement,aucCurrentBid,bidtimes,ykjbidtimes," & _
"aucCurrentBidder,aucDescription,aucnum,aucclick,oldnew,yunfei,zhifu,songhuo,fapiao,baoxiu,limit,auctype,BBR_AlipayStatus," & _
"regID,regUserName,regEmail,regCity,regState,regCountry,regtime,credit,degrade,Userqq,BBR_UserQQSkins,BBR_UserQQMsg " & _
"FROM Auctions LEFT JOIN users on Auctions.aucItemOwner = users.regID " & _
"WHERE aucID In ("& ID &")"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
CnbbrConnTimes
if rs.eof or rs.RecordCount<IDStrj then
Call AlertInfo("没有找到你选中的所有商品的信息，请重新尝试！","Search.asp",1)
else
Public ClassStr
Function DispClassStr(TempClassStr)
Dim cnBBR_S1,cnBBR_S2,cnBBR_S3,cnBBR_S4,cnBBR_CatPath,cnBBR_CurPath,Cur_ClassID
cnBBR_CatPath=TempClassStr
cnBBR_CurPath=cnBBR_CatPath
if Len(cnBBR_CatPath)>0 then
Dim iiclass1,iiclass2
cnBBR_CatPath=Split(cnBBR_CatPath,"|")
iiclass2=Ubound(cnBBR_CatPath)
For iiclass1=0 to iiclass2
ClassStr="没有此分类"
Next
Cur_ClassID=Cnbbr_CatPath(iiclass2)
end if
ClassStr="没有此分类"
if i>=0 then
Call SqlClass(cnBBR_CurPath)
else
ClassStr="没有此分类"
end if
DispClassStr=ClassStr
ClassStr=""
End Function
Function SqlClass(ClassID)
Dim kk
ClassID=Replace(ClassID," ","")
ClassID=Replace(ClassID,"|",",")
DIm RsClassPath
Sql="select ClassName,Upid from aucclass where ClassID in ("& ClassID &") order by Classid Desc"
set RsClassPath=Conn.execute(sql)
CnbbrConnTimes
if RsClassPath.Eof then
Call AlertInfo("对不起，没有找到所需查询的分类！","",0)
else
Do While Not RsClassPath.Eof
ClassID=Replace(ClassID,",","|")
ClassStr=" --> <a href=""Display_Class.asp?BBRpath="& ClassID &""" class=MainMenu_A>"& RsClassPath("ClassName") &"</a>"& ClassStr & Vbcrlf
i=Instr(ClassID,"|")
kk=Len(ClassID)-i-1
if kk=0 then kk=1
ClassID=left(ClassID,kk)
RsClassPath.MoveNext
Loop
end if
RsClassPath.Close
set RsClassPath=nothing
End Function
With Response
Dim SiteMenu_Width,SiteMenu_Left,SiteMenu_Right
SiteMenu_Width=SYS_BodyCenterWidth
SiteMenu_Left="###|[menu]|商品搜索||[menu]||###|[menu]|比比看||[menu]||###|[menu]|你选择了 "& IDStrj+1 &" 件商品进行比较详细信息如下："
SiteMenu_Right=""
Response.Write CnbbrSiteMenu(SiteMenu_Width,SiteMenu_Left,SiteMenu_Right)
.Write "<table border=0 cellpadding=0 cellspacing=1 width="""& SYS_BodyCenterWidth &""" align=center class=tablebg>" & vbcrlf
.Write " <tbody>" & vbcrlf
.Write " <tr height=28>" & vbcrlf
.Write " <td width=100 class=td>商品名称：</td>" & Vbcrlf
IDStri=0
For IDstri=0 to IdStrj
Dim TempTDWidth
TempTDWidth=672/(IDStrj+1)
.Write " <td width="& TempTDWidth &" class=td>" & vbcrlf
Dim rs_img,img_url
sql="select * from aucimages where aucid="&rs("aucid")&" order by img_order"
set rs_img=server.createobject("ADODB.recordset")
rs_img.open sql,conn,1,3
CnbbrConnTimes
if rs_img.bof or rs.eof then
img_url="skins/"& Skins_Folder &"/nopic.gif"
else
img_url=rs_img("img_url")
end if
response.write "<a href=""#bphoto"">"& BBRAucSmallImage(Rs("AucID"),0,0,"Skins/"& SKins_Folder &"/nopic.gif") &"</a><br><br>"
response.write"商品图："
i=1
Do While Not rs_img.eof
response.write " <a href='#aucimg"& i &"'>"& i &"</a>"
Rs_img.Movenext
i=i+1
Loop
.Write "<BR><BR>"
.Write "<a href=""Aucinfo.asp?Aucid="& Rs("AucID") &""">"& Rs("AucItemTitle") &"</a>"& Vbcrlf
.Write " </td>" & Vbcrlf
Rs.MoveNext
Next
.Write " </TR>" & Vbcrlf
Rs.MoveFirst
.Write " <tr height=52>" & vbcrlf
.Write " <td width=100 class=td>商品价格：</td>" & Vbcrlf
IDStri=0
For IDstri=0 to IdStrj
.Write " <td class=td>" & vbcrlf
Dim TempP
TempP=Rs("Auctype")
if TempP=1 then
Response.Write "<img src=""skins/"& Skins_Folder &"/Pm.gif"" border=""0"" alt="""& AucType1 &"""><BR>"& Vbcrlf
Response.Write "现 价："& Rs("AucCurrentBid") &" 元<BR>"& Vbcrlf
Response.Write "起拍价："& Rs("AucStartingBid") &" 元<BR>"& Vbcrlf
Response.Write "竞价阶梯："& Rs("AucMinimumIncrement") &" 元<BR>"& Vbcrlf
if Rs("AucBuyPrice")>0 then Response.Write "一口价："& Rs("AucBuyPrice") &" 元"& Vbcrlf
elseif TempP=2 then
Response.Write "<img src=""skins/"& Skins_Folder &"/Ykj.gif"" border=""0"" alt="""& AucType2 &"""><BR>"& Vbcrlf
Response.Write "一口价："& Rs("AucBuyPrice") &" 元"& Vbcrlf
elseif TempP=3 then
Response.Write "<img src=""skins/"& Skins_Folder &"/Pm.gif"" border=""0"" alt="""& AucType3 &"""><BR>"& Vbcrlf
Response.Write "最高价："& Rs("AucStartingBid") &" 元<BR>"& Vbcrlf
Response.Write "最低价："& Rs("AucReservePrice") &" 元"& Vbcrlf
else
end if
.Write " </td>" & Vbcrlf
Rs.MoveNext
Next
.Write " </TR>" & Vbcrlf
Rs.MoveFirst
.Write " <tr height=28>" & vbcrlf
.Write " <td width=100 class=td>商品卖家：</td>" & Vbcrlf
IDStri=0
For IDstri=0 to IdStrj
.Write " <td class=td>"& Vbcrlf
.Write " <table border=0 cellpadding=0 cellspacing=0 width=100% align=left>" & 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=searchuser.asp?uid="& 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
.write" <tr> " & vbcrlf
.write" <td height=22>"& Vbcrlf
Response.Write"<a href=cnbbrmsg_Write.asp?aucid=15&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>"
Rs.MoveNext
Next
.Write " </TR>" & Vbcrlf
Rs.MoveFirst
.Write " <TR height=28>" & vbcrlf
.Write " <td width=100 class=td>结束时间：</td>" & Vbcrlf
IDStri=0
For IDstri=0 to IdStrj
.Write " <td class=td>"& Rs("aucclosedate") &"</td>"
Next
.Write " </TR>" & Vbcrlf
Rs.MoveFirst
.Write " <tr height=28>" & vbcrlf
.Write " <td width=100 class=td>浏览次数：</td>" & Vbcrlf
IDStri=0
For IDstri=0 to IdStrj
.Write " <td class=td>"& Rs("AucClick") &" 次</td>"
Rs.MoveNext
Next
.Write " </TR>" & Vbcrlf
Rs.MoveFirst
.Write " <tr height=28>" & vbcrlf
.Write " <td width=100 class=td>商品描述：</td>" & Vbcrlf
.Write "<BR>"& Vbcrlf
IDStri=0
For IDstri=0 to IdStrj
.Write " <td class=td valign=top><BR>"& Vbcrlf
.Write UbbCode(Rs("AucDescription"))
.Write " </td>"
Rs.MoveNext
Next
.Write " </TR>" & Vbcrlf
Rs.MoveFirst
.Write " <tr height=28>" & vbcrlf
.Write " <td width=100 class=td> </td>" & Vbcrlf
IDStri=0
For IDstri=0 to IdStrj
.Write " <td class=td><BR>"& Vbcrlf
if Rs("AucType")=1 or Rs("AucType")=3 then .Write" <input name=""bid_x"" type=""image"" src=""Skins/"& SKINS_FOLDER &"/BBR_AucBid.gif"" OnClick=""location.href='aucInfo.asp?AucID="& Rs("AucID") &"#chujia';return false;""><BR>"& Vbcrlf
if Rs("AucBuyPrice")>0 then .Write" <input name=""bid_ykj"" type=""image"" src=""Skins/"& SKINS_FOLDER &"/BBR_AucBuy.gif"" OnClick=""location.href='aucInfo.asp?AucID="& Rs("AucID") &"#chujia';return false;"" style=""border: 0"">"& Vbcrlf
.Write " </td>"
Rs.MoveNext
Next
.Write " </TR>" & Vbcrlf
.Write " </Tbody>"& Vbcrlf
.Write "</Table>" & Vbcrlf
End With
End if
Response.Write Cnbbr_Bottom
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -