<% Function PathEncode(strPath) PathEncode = Replace(Server.UrlEncode(strPath),"%2F","/") End Function Dim conn Set conn=GetOpenConn() '/*******************************************************************************************************/ strType = Trim(Request("Type")) Set objrs=server.CreateObject("ADODB.Recordset") Dim strsql If strType="" Then strType="最新作品" End IF If strType="" Then strsql="SELECT TOP 1 typ_name FROM tbl_producttype" objrs.Open strsql,conn,3,2 If Not objrs.EOF Then strType = objrs("typ_name") objrs.Close End If strsql="SELECT * FROM tbl_Product Where picture<>'' AND Type='" & strType & "' Order By code" objrs.Open strsql,conn,3,2 '设定每页显示记录数 Turn_PageSize=Request("Turn_PageSize") If len(Turn_PageSize)=0 Then Turn_PageSize=9 objrs.PageSize=Cint(Turn_PageSize) '总记录数 Turn_RecordCount=objrs.RecordCount '总页数 Turn_PageCount=objrs.PageCount If Turn_PageCount > 10 then Turn_PageSize=12 objrs.PageSize=Cint(Turn_PageSize) Turn_PageCount=objrs.PageCount End If '目标页处理 Turn_ToPage=Request("Turn_ToPage") If Not IsNumeric(Turn_ToPage) Then Turn_Topage=1 End If If len(Turn_ToPage)=0 Then Turn_ToPage=1 If Cint(Turn_ToPage)<1 Then Turn_ToPage=1 If Cint(Turn_ToPage)>Turn_PageCount Then Turn_ToPage=Turn_PageCount Count=0 '翻页 If Not objrs.EOF Then objrs.AbsolutePage =Cint(Turn_ToPage) %> 夏氏琉璃-作品欣赏-<%=strType%>
Tel:021-62362930
上海市延安西路2299号8B40
<%=strType%>
<%If Turn_PageCount>1 Then If CInt(Turn_ToPage) < Turn_PageCount Then %> 下页>> <%End If For i=Turn_PageCount To 1 Step -1 If CInt(i)=CInt(Turn_ToPage) Then %> <%=i%> <%Else %> <%=i%> <%End If Next If CInt(Turn_ToPage) > 1 Then %> 上页<< <%End If End If %>
    <%For ii = 1 To Turn_PageSize %> <%If Not (objrs.eof or Count=Cint(Turn_PageSize)) Then %> <%If ii=3 or ii=6 or ii=9 or ii=12 Then %>
  • <%Else %>
  • <%End If %>
    <%=objrs("name")%>
  • <% objrs.MoveNext %> <%End If %> <%Next %> <% objrs.Close %>
<%If Turn_PageCount>1 Then If CInt(Turn_ToPage) < Turn_PageCount Then %> 下页>> <%End If For i=Turn_PageCount To 1 Step -1 If CInt(i)=CInt(Turn_ToPage) Then %> <%=i%> <%Else %> <%=i%> <%End If Next If CInt(Turn_ToPage) > 1 Then %> 上页<< <%End If End If %>