<%=webname%> ---- 新品上架

品牌精品

<% call Writeproductpp()%>

<% ' ========================================= ' 处理检索 'sql = "Select * From tproduct where mDel = 0 and recommend=3 and show=0 order by id desc" sql = "Select top 200 * From tproduct where mDel = 0 and show=0 order by id desc" Set objTemp = Server.CreateObject ("ADODB.Recordset") objTemp.Open sql, Conn, 1, 1 'response.write sql If not objTemp.EOF Then intTotalNum = objTemp.RecordCount objTemp.PageSize = intPageSize intTotalPageCount = objTemp.PageCount intCurrentPage = Request("current") If IsNumeric (intCurrentPage) Then If CLng (intCurrentPage) = 0 Then intCurrentPage = 1 ElseIf Clng (intCurrentPage) > intTotalPageCount Then intCurrentPage = CLng (intTotalPageCount) Else intCurrentPage = Clng (intCurrentPage) End If Else intCurrentPage = 1 End If startpage=intCurrentPage-5 if startpage<1 then startpage=1 end if endpage=intCurrentPage+5 if endpage>objTemp.pagecount then endpage=objTemp.pagecount end if objTemp.AbsolutePage = CLng (intCurrentPage) %>

第 <% = intCurrentPage %> 页/共 <% = intTotalPageCount %> 页共 <% = intTotalNum %> 条记录

<< <% for go=startpage to endpage if go=intCurrentPage then%> <%=go%> <%else %> <%=go%> <% end if next %> >>

<% irecordsshown = 0 do while irecordsshown < 15 and NOT objtemp.EOF %> <%'End If 'objTemp.MoveNext loop %>

<%irecordsshown =irecordsshown +1 objtemp.movenext end if%> <%irecordsshown = irecordsshown +1 objtemp.movenext end if%> <%irecordsshown = irecordsshown +1 objtemp.movenext end if%>

<% If not objTemp.EOF Then%>

<% strtproduct_bh = objtemp("tproduct_bh")%> " title=<%=objtemp("tproduct")%>>

<% if request.cookies("timesshop")("vip")>0 then if request.cookies("timesshop")("vip")=1 then strcontent="一钻会员价格：" iprice=objtemp("tprice1") elseif request.cookies("timesshop")("vip")=2 then strcontent="二钻会员价格：" iprice=objtemp("tprice2") elseif request.cookies("timesshop")("vip")=3 then strcontent="三钻会员价格：" iprice=objtemp("tprice3") elseif request.cookies("timesshop")("vip")=4 then strcontent="四钻会员价格：" iprice=objtemp("tprice4") end if %> <%else%> <%end if%>

编号：<%=strtproduct_bh%>

.html" title=<%=objtemp("tproduct")%>><%=objtemp("tproduct")%>

市场价格：￥<%=objtemp("tprice")%>

会员价：￥<%=objtemp("tpricenet")%>

<%=strcontent%>￥<%=iprice%>

钻石会员价：如何成为钻石会员