<!--#include file="pysjzx_conn.asp"-->
<!--#include file="webconfig.asp"-->
<%  classid=trim(request("classid"))
        					  if IsNumeric(request.QueryString("classid"))=False then
        					  response.write("<script>alert(""非法访问!"");location.href=""pic.asp"";</script>")
end if
set rs2=server.createobject("adodb.recordset")
		rs2.Open "select * from pic where sort="&classid&" order by adddate desc",conn,1,1
%>
<html>
<head>
<title><%=webname%>-图库-<%if classid=1 then
response.write "国内美女"
end if
if classid=2 then
response.write "亚洲美女"
end if
if classid=3 then
response.write "欧洲风采"
end if
if classid=4 then
response.write "赛车女郎"
end if
if classid=5 then
response.write "车展美女"
end if
%></title>
<meta content="<%=keyword%>" name="keywords">
<meta content="<%=description%>" name="description">
<LINK href="css/style.css" rel=stylesheet type=text/css>
</head>
<!--#include file="webhead.asp"-->
<div align="center">
<table cellSpacing="0" cellPadding="0" width="780" bgColor="#ffffff" border="0">
	<tr>
		<td>
		<table cellSpacing="0" cellPadding="0" width="100%" border="0">
			<tr>
				<td vAlign="top" width="195" bordercolor="#CCCCCC" style="border: 1px solid #C0C0C0">
				　</td>
				<td vAlign="top">
				<table cellSpacing="0" cellPadding="3" width="100%" border="0">
					<tr>
						<td>
						<table cellSpacing="0" cellPadding="0" width="100%" border="0">
							<tr>
								<td width="134"  height="29">
								<table cellSpacing="0" cellPadding="0" width="100%" border="0">
									<tr>
										<td width="28">
										<div align="center">
											<img height="13" alt="" src="images/xing01.jpg" width="14"></div>
										</td>
										<td><strong><%if classid=1 then
response.write "国内美女"
end if
if classid=2 then
response.write "亚洲美女"
end if
if classid=3 then
response.write "欧洲风采"
end if
if classid=4 then
response.write "赛车女郎"
end if
if classid=5 then
response.write "车展美女"
end if
%></strong></td>
									</tr>
								</table>
								</td>
								<td width="375">
								　</td>
								<td width="27">
								　</td>
							</tr>
						</table>
						</td>
					</tr>
					<tr>
						<td>
						<table cellSpacing="0" cellPadding="0" width="100%" border="0">
							<tr>
								<td ><% 
       	     	if rs2.eof then
       response.write "对不起，暂无信息！"
       	else
	  		rs2.PageSize =24 '每页记录条数
			iCount=rs2.RecordCount '记录总数
			iPageSize=rs2.PageSize
    		maxpage=rs2.PageCount 
    		page=request("page")
    
    if Not IsNumeric(page) or page="" then
        page=1
    else
        page=cint(page)
    end if
    
    if page<1 then
        page=1
    elseif  page>maxpage then
        page=maxpage
    end if
    
    rs2news.AbsolutePage=Page

	if page=maxpage then
		x=iCount-(maxpage-1)*iPageSize
	else
		x=iPageSize
	end if
%>
								<table cellSpacing="0" cellPadding="1" width="100%" border="0">
									
									<%for i=1 to 4%><tr>
										<td align="middle"  width=25% >
										<%if not rs2.eof then%>
										<table cellSpacing="0" cellPadding="0" border="0">
											<tr>
												<td vAlign="center" align="middle">
												<a title="<%=rs2("girlname")%>" target="_blank" href="pic_list.asp?id=<%=rs2("id")%>">
												<img style="BORDER-RIGHT: #c0c0c0 1px solid; BORDER-TOP: #c0c0c0 1px solid; BORDER-LEFT: #c0c0c0 1px solid; BORDER-BOTTOM: #c0c0c0 1px solid" height="160" src="<%=rs2("girlpic")%>" width="120"></a></td>
											</tr>
											<tr>
												<td align="middle">
												<table cellSpacing="0" cellPadding="0" border="0">
													<tr>
													
														<td vAlign="center" align="left">
														&nbsp;<a title="<%=rs2("girlname")%>" href="pic_list.asp?id=<%=rs2("id")%>" target=_blank><%=left(rs2("girlname"),10)%></a></td>
													</tr>
												</table>
												</td>
											</tr>
										</table>
										<%rs2.movenext
		
										end if
										%>
										<table cellSpacing="0" cellPadding="0" width="100%" border="0">
											<tr>
												<td height="1"></td>
											</tr>
										</table>
										</td>
										<td align="middle" width=25%>				<%if not rs2.eof then%>
										<table cellSpacing="0" cellPadding="0" border="0">
											<tr>
												<td vAlign="center" align="middle">
												<a title="<%=rs2("girlname")%>" target="_blank" href="pic_list.asp?id=<%=rs2("id")%>">
												<img style="BORDER-RIGHT: #c0c0c0 1px solid; BORDER-TOP: #c0c0c0 1px solid; BORDER-LEFT: #c0c0c0 1px solid; BORDER-BOTTOM: #c0c0c0 1px solid" height="160" src="<%=rs2("girlpic")%>" width="120"></a></td>
											</tr>
											<tr>
												<td align="middle">
												<table cellSpacing="0" cellPadding="0" border="0">
													<tr>
													
														<td vAlign="center" align="left">
														&nbsp;<a title="<%=rs2("girlname")%>" href="pic_list.asp?id=<%=rs2("id")%>" target=_blank><%=left(rs2("girlname"),10)%></a></td>
													</tr>
												</table>
												</td>
											</tr>
										</table>
										<%rs2.movenext
		
										end if
										%></td>
										<td align="middle" width=25%>				<%if not rs2.eof then%>
										<table cellSpacing="0" cellPadding="0" border="0">
											<tr>
												<td vAlign="center" align="middle">
												<a title="<%=rs2("girlname")%>" target="_blank" href="pic_list.asp?id=<%=rs2("id")%>">
												<img style="BORDER-RIGHT: #c0c0c0 1px solid; BORDER-TOP: #c0c0c0 1px solid; BORDER-LEFT: #c0c0c0 1px solid; BORDER-BOTTOM: #c0c0c0 1px solid" height="160" src="<%=rs2("girlpic")%>" width="120"></a></td>
											</tr>
											<tr>
												<td align="middle">
												<table cellSpacing="0" cellPadding="0" border="0">
													<tr>
													
														<td vAlign="center" align="left">
														&nbsp;<a title="<%=rs2("girlname")%>" href="pic_list.asp?id=<%=rs2("id")%>" target=_blank><%=left(rs2("girlname"),10)%></a></td>
													</tr>
												</table>
												</td>
											</tr>
										</table>
										<%rs2.movenext
		
										end if
										%>
										
										</td>
										<td align="middle" width=25%><%if not rs2.eof then%>
										<table cellSpacing="0" cellPadding="0" border="0">
											<tr>
												<td vAlign="center" align="middle">
												<a title="<%=rs2("girlname")%>" target="_blank" href="pic_list.asp?id=<%=rs2("id")%>">
												<img style="BORDER-RIGHT: #c0c0c0 1px solid; BORDER-TOP: #c0c0c0 1px solid; BORDER-LEFT: #c0c0c0 1px solid; BORDER-BOTTOM: #c0c0c0 1px solid" height="160" src="<%=rs2("girlpic")%>" width="120"></a></td>
											</tr>
											<tr>
												<td align="middle">
												<table cellSpacing="0" cellPadding="0" border="0">
													<tr>
													
														<td vAlign="center" align="left">
														&nbsp;<a title="<%=rs2("girlname")%>" href="pic_list.asp?id=<%=rs2("id")%>" target=_blank><%=left(rs2("girlname"),10)%></a></td>
													</tr>
												</table>
												</td>
											</tr>
										</table>
										<%rs2.movenext
		
										end if
										%></td>
									</tr>
									<%	next
									end if%>
									<tr><td colspan=5>
									<%call PageControl(iCount,maxpage,page,"border=0 align=right","<p align=right>")%><%
									
				rs2.close
		set rs2=nothing
Sub PageControl(iCount,pagecount,page,table_style,font_style)
'生成上一页下一页链接
    Dim query, a, x, temp
    action = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")

    query = Split(Request.ServerVariables("QUERY_STRING"), "&")
    For Each x In query
        a = Split(x, "=")
        If StrComp(a(0), "page", vbTextCompare) <> 0 Then
            temp = temp & a(0) & "=" & a(1) & "&"
        End If
    Next

    Response.Write("<table " & Table_style & ">" & vbCrLf )        
    Response.Write("<form method=get onsubmit=""document.location = '" & action & "?" & temp & "Page='+ this.page.value;return false;""><TR>" & vbCrLf )
    Response.Write("<TD align=right>" & vbCrLf )
    Response.Write(font_style & vbCrLf )    
        
    if page<=1 then     
        Response.Write ("上页 " & vbCrLf)
    else        
        Response.Write("<A HREF=" & action & "?" & temp & "Page=" & (Page-1) & ">上页</A> " & vbCrLf)
    end if

    if page>=pagecount then
        Response.Write ("下页 " & vbCrLf)    
    else
        Response.Write("<A HREF=" & action & "?" & temp & "Page=" & (Page+1) & ">下页</A> " & vbCrLf)  
    end if

    Response.Write(" 页次：" & page & "/" & pageCount & "页" &  vbCrLf)
    Response.Write(" 共有" & iCount & "条信息" &  vbCrLf)
    Response.Write("</TD>" & vbCrLf )                
    Response.Write("</TR></form>" & vbCrLf )        
    Response.Write("</table>" & vbCrLf )        
End Sub
	%>
</td></tr>
								</table>
								</td>
							</tr>
						</table>
						</td>
					</tr>
					<tr>
						
				</td>
			</tr>
		</table>
		</td>
		<td width="4" background="images/bian_right.jpg">
		　</td>
	</tr>
</table>
</div>
<!--#include file="webfoot.asp"-->