<%@ 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_AuctionPreview") Dim Current_WebTitle : Current_WebTitle=Current_Page & "-" & str_WebTitle %>

<%=Current_Page%>

<%Response.Write(ShowWebInfo(9,ver_lang))%>
<% Dim Page,PageSize,RecordCount,PageCount,extraPara sqlStr=ReadWritePath & "XMLPath/T_Auction/auctionpreview.xml" Dim Exist_Auction : Exist_Auction=OpenAdoXML(rs,sqlStr) RecordCount=0 If Exist_Auction=True Then RecordCount=rs.RecordCount If Not rs.EOF Then SeasonName=rs("SeasonName_" & ver_lang) End If %>

<%=SeasonName%>

    <% If Not rs.EOF Then PageSize=6'MaxPerPage rs.PageSize =PageSize RecordCount=rs.RecordCount PageCount=rs.PageCount Page=CheckPage(Request("page"),PageCount) rs.AbsolutePage=Page ShowOnePageNew rs End If rs.Close %>
<%If PageCount>1 Then%> <%DisplayPageCount Page,PageCount,extraPara%> <%End If%>
<%End If%>
<%'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 %> <% End If rstmp.Close Set rstmp=Nothing End If %>

    "><%=rs("AuctionName_" & 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 & "")%>

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