<%@ Language="vbscript" CodePage="65001" %> <% Response.CharSet = "UTF-8" %> <% 'Session.CodePage = "65001" %> <%'enableSessionState=False%> <% ' **************************************************************** ' system : LittleSoft Website System ' model name : ' function : ' programmer : http://www.littlesoft.cn ' last modify date : ' **************************************************************** %> <%Dim DataBasePath : DataBasePath=1%> <% 'OpenDataBase Dim rs,sqlStr Set rs=CreateObject("adodb.recordset") %> <% Dim Current_Page : Current_Page=FindArray(LanguageArray,"Skin_AuctionResult") Dim Current_WebTitle : Current_WebTitle=Current_Page & "-" & str_WebTitle %> <%sqlStr=ReadWritePath & "XMLPath/T_Auction/auctionfinished.xml"%>

<%=Current_Page%>

<%DisplayPageCount Page,PageCount,extraPara%>
<%'CloseDataBase%> <% Sub ShowOnePageNew(rs) Dim iPage,RecNo For iPage = 1 To PageSize RecNo = (page-1) * pageSize + iPage %>
  • " class="thumb">" width="166" alt="" /> <% Dim rstmp If OpenAdoXML(rstmp,ReadWritePath & "XMLPath/T_Product/" & rs("AuctionCode") & "_Recommend.xml") Then If Not rstmp.EOF Then pieceName="" & rstmp("pieceName_" & ver_lang) pieceCompose_Time=rstmp("Compose_Time") If pieceCompose_Time<>"" Then pieceName=pieceCompose_Time & " " & pieceName Dim hwratio : hwratio=rstmp("hwratio") If IsNull(hwratio) Then hwratio=1 Dim img_size : img_size="height=""130""" If hwratio<=1 Then img_size="width=""190""" Dim GuessPrice1 : GuessPrice1=rstmp("GuessPrice1") Dim GuessPrice2 : GuessPrice2=rstmp("GuessPrice2") Dim GuessPrice : GuessPrice="-" If Not IsNull(GuessPrice1) Then GuessPrice=FormatNumber(GuessPrice1,0) If Not IsNull(GuessPrice2) Then If GuessPrice2<>0 Then GuessPrice=GuessPrice & " ~ " & FormatNumber(GuessPrice2,0) End If Dim AuctionPrice : AuctionPrice=rstmp("AuctionPrice") Dim AuctionPrice_str,MoneyChar,CommisionPer,FinalPrice AuctionPrice_str="" MoneyChar="RMB" MoneyChar1="HKD" If IsNull(AuctionPrice) Then AuctionPrice_str="--" Else CommisionPer=rstmp("CommisionPer") If IsNull(CommisionPer) Then CommisionPer=0 FinalPrice=AuctionPrice * (1+CommisionPer/100) If FinalPrice=0 Then AuctionPrice_str="--" Else AuctionPrice_str=FormatNumber(FinalPrice,0) End If End If %> <% End If rstmp.Close Set rstmp=Nothing End If %>

    "><%=rs("AuctionName_" & ver_lang) & "-" & rs("SeasonName_" & ver_lang)%>

    <%=FindArray(LanguageArray,"Skin_AuctionCode")%>:<%=rs("AuctionCode")%>

    <%=FindArray(LanguageArray,"Skin_AuctionViewing")%>:<%=rs("Preview_" & ver_lang & "")%>

    <%=FindArray(LanguageArray,"Skin_AuctionCalendar")%>:<%=rs("AuctionTime")%>

    <%=FindArray(LanguageArray,"Skin_AuctionAddress")%>:<%=rs("AuctionAdd_" & ver_lang & "")%>

    <%=FindArray(LanguageArray,"Skin_AuctionSum")%>( <%If (rs("AuctionCode")="2017HKCQ" Or rs("AuctionCode")="2017HKFHII" Or rs("AuctionCode")="2018HKCQ" Or rs("AuctionCode")="2018HKFHIII" Or rs("AuctionCode")="2018HKFHIV" Or rs("AuctionCode")="2019HKZQDL" Or rs("AuctionCode")="2019HKFHV") then Response.Write(MoneyChar1) else Response.Write(MoneyChar) end if%>)<%=IIf(IsNumeric(rs("Sum_Money")),FormatNumber(rs("Sum_Money"),0,-1),rs("Sum_Money"))%>?<%=FindArray(LanguageArray,"Skin_AuctionPercent")%>:<%=rs("Sum_percent")%>," class="silver small"><%=FindArray(LanguageArray,"Skin_ResultDownload")%>

  • <% rs.MoveNext If rs.EOF Then Exit For Next End Sub %>