📄 class.asp
字号:
<!--#include file="admin/pic_conn.asp"-->
<BODY leftMargin=0 topMargin=0 marginheight="0" marginwidth="0">
<!--#include file="top.asp"-->
<TABLE id=Table16 cellSpacing=0 cellPadding=0 width=760 align=center border=0>
<TBODY>
<TR vAlign=top>
<TD width=185 height=126>
<TABLE id=Table17 cellSpacing=0 cellPadding=0 width=100 border=0>
<TBODY>
<TR>
<TD>
<IMG height=43 src="images/Picn_Left_1.jpg" width=185></TD></TR></TBODY></TABLE>
<TABLE id=Table18 height=83 cellSpacing=0 cellPadding=0 width=185 border=0>
<TBODY>
<TR>
<TD vAlign=top width=23 background=images/Picn_Left_11L.jpg height=83>
<IMG height=83 src="images/Picn_Left_1L.jpg" width=23>
</TD>
<TD vAlign=top width=142 height=200>
<TABLE cellSpacing=0 cellPadding=0 width="100%" align=center border=0>
<TBODY>
<TR>
<TD align=middle>
<TABLE height=79 cellSpacing=1 cellPadding=0 width=95 bgColor=#cccccc border=0>
<TBODY>
<TR>
<TD bgColor=#ffffff height=78>
<TABLE cellSpacing=1 cellPadding=0 width=95 bgColor=#ffffff border=0>
<TBODY>
<TR>
<TD bgColor=#ffffff height=30>
<a target="_blank" href="html/2006-4-27/200642723183.html">
<IMG alt=迷幻般的靓丽 src="pic/5816402.jpg" border=0></a>
</TD>
</TR>
</TBODY>
</TABLE>
</TD>
</TR>
</TBODY>
</TABLE>
</TD>
</TR>
<%
dim t
t=0
Set Rs=GrateRs("Select * from pic order by hit desc",1)
if not Rs.eof then
do while not Rs.eof
t=t+1
%>
<TR>
<TD height=22>·<A href="<%=rs("url")%>" target=_blank><%content=Rs("pictitle")
if len(content)>9 then content=left(content,9)&"…"
response.write content
%></A></TD>
</TR>
<%
if t>=9 then exit do
Rs.movenext
loop
end if
Rs.close
%>
</TBODY>
</TABLE>
</TD>
<TD vAlign=top width=20 background=images/Picn_Left_1R2.jpg>
<IMG height=83 src="images/Picn_Left_1R.jpg" width=20>
</TD>
</TR>
</TBODY>
</TABLE>
<TABLE id=Table20 cellSpacing=0 cellPadding=0 width=185 border=0>
<TBODY>
<TR>
<TD vAlign=top>
<IMG height=22 src="images/Picn_Left_1di.jpg" width=185>
</TD>
</TR>
</TBODY>
</TABLE>
<TABLE id=Table9 cellSpacing=0 cellPadding=0 width=100 border=0>
<TBODY>
<TR>
<TD>
<IMG height=43 src="images/Picn_Left_3.jpg" width=185><TABLE id=table29 height=83 cellSpacing=0 cellPadding=0 width=185 border=0>
<TBODY>
<TR>
<TD vAlign=top width=23 background=images/Picn_Left_11L.jpg height=83>
<IMG height=83 src="images/Picn_Left_1L.jpg" width=23>
</TD>
<TD vAlign=top width=142 height=200>
<TABLE cellSpacing=0 cellPadding=0 width="100%" align=center border=0 id="table30">
<TBODY>
<TR>
<TD align=middle height=83>
<TABLE height=79 cellSpacing=1 cellPadding=0 width=95 bgColor=#cccccc border=0 id="table31">
<TBODY>
<TR>
<TD bgColor=#ffffff height=78>
<TABLE cellSpacing=1 cellPadding=0 width=95 bgColor=#ffffff border=0 id="table32">
<TBODY>
<TR>
<TD bgColor=#ffffff height=30>
<a target="_blank" href="html/2006-4-27/200642712815.html">
<IMG height=75 alt=邻家女孩将入浴 src="pic/20060310103334217359.jpg" width=95 border=0></a>
</TD>
</TR>
</TBODY>
</TABLE>
</TD>
</TR>
</TBODY>
</TABLE>
</TD>
</TR>
<%
t=0
Set Rs=GrateRs("Select * from pic where hot=1 order by picid desc",1)
if not Rs.eof then
do while not Rs.eof
t=t+1
%>
<TR>
<TD height=22>·<A href="<%=Rs("url")%>" target=_blank><%content=Rs("pictitle")
if len(content)>9 then content=left(content,9)&"…"
response.write content
%></A></TD>
</TR>
<%
if t>=9 then exit do
Rs.movenext
loop
end if
Rs.close
%>
</TBODY>
</TABLE>
</TD>
<TD vAlign=top width=20 background=images/Picn_Left_1R2.jpg>
<IMG height=83 src="images/Picn_Left_1R.jpg" width=20>
</TD>
</TR>
</TBODY>
</TABLE>
</TD>
</TR>
</TBODY>
</TABLE>
<IMG height=22 src="images/Picn_Left_1di.jpg" width=185></TD>
<TD width=575>
<TABLE id=Table25 cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<tr>
<td><iframe border=0 align=center vspace=0 hspace=0 name=searchbar marginwidth=0 marginheight=0 framespacing=0 frameborder=0 scrolling=no width=565 height=36 src="http://template.union.163.com/search/tpl2.jsp?ID=ydwzjw521&NO=30533&sessionID=1695wz7291599fffdw100669&codeDate=2006n4y15h&logo=1&select=0&SearchHeight=36&SearchWidth=565&boxColor=006699&txtColor=ffffff&borderColor=333333&qword=美女"></iframe></td>
</tr>
<TR>
<TD>
<IMG height=26 src="images/Picn_Right_1ntop.jpg" width=575></TD></TR></TBODY></TABLE>
<TABLE id=Table26 height=440 cellSpacing=0 cellPadding=0 width=575 border=0>
<TBODY>
<TR>
<TD vAlign=top width=10 height=440>
<IMG height=102 src="images/Picn_Right_1NL.jpg" width=10></TD>
<TD vAlign=top width=550>
<P>
<div align="center">
<table border="0" width="520" cellspacing="0" cellpadding="0" id="table28">
<%
dim action
MaxPerPage=60
action=request.QueryString("action")
currentPage=cint(request("page"))
Set Rs=GrateRs("Select * from pic where pictype="&action&" order by picid desc",3)
if rs.eof and rs.bof then
response.write "<p align='center'> 还 没 有 任 何 图 片 </p>"
else
totalPut=rs.recordcount
if currentpage<1 then
currentpage=1
end if
if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if
end if
if currentPage=1 then
showContent
else
if (currentPage-1)*MaxPerPage<totalPut then
rs.move (currentPage-1)*MaxPerPage
dim bookmark
bookmark=rs.bookmark
showContent
else
currentPage=1
showContent
end if
end if
end if
%>
<tr>
<%
sub showContent
dim i
i=0
do while not rs.eof
i=i+1
%>
<td width="48%"><a href="<%=Rs("url")%>" target="_blank">·<%content=Rs("pictitle")
if len(content)>19 then content=left(content,19)&"…"
response.write content
%></a></td>
<%
if i mod 2=0 and i>=2 then
%>
</tr>
<tr>
<%
end if
if i>=60 then exit do
rs.movenext
loop
end sub
%>
<%
dim n
if totalPut mod maxperpage=0 then
n= totalPut \ maxperpage
else
n= totalPut \ maxperpage+1
end if
%>
<tr>
<td valign="bottom" height="32">
共有图片：<font face=""arial"" color=""red""><%=(totalPut)%></font>篇 <font face=""arial"" color=""red""><%=(CurrentPage)%>/<%=(n)%></font>页
<select size="1" name="D1" onchange=javascript:window.location.href=this.options[this.selectedIndex].value>
<%
dim num
for num=1 to n
%>
<option value="class.asp?action=<%=(action)%>&page=<%=(num)%>" <%if currentpage=num then%> selected <%end if%>>第<%=(num)%>页</option>
<%next%>
</select>
</td>
<td align=center valign="bottom" height="32">
<a href="class.asp?action=<%=(action)%>&page=1">[第一页]</a>
<a href="class.asp?action=<%=(action)%>&page=<%=(currentpage-1)%>">[上一页]</a>
<a href="class.asp?action=<%=(action)%>&page=<%=(currentpage+1)%>">[下一页]</a>
<a href="class.asp?action=<%=(action)%>&page=<%=(n)%>">[最后一页]</a>
</td>
</tr>
</table>
</div>
</TD>
<TD vAlign=top width=15>
<IMG height=102 src="images/Picn_Right_1NR.jpg" width=15></TD></TR></TBODY></TABLE>
</TD></TR></TBODY></TABLE>
<!--#include file="link.asp"-->
<!--#include file="end.asp"-->
</BODY>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -