📄 52mtso.asp
字号:
Set rc=Server.CreateObject("ADODB.Recordset")
if News_Class = "" then
sql="Select * from 52mt_J111_Web where News_Title like '%"&Key&"%' order by ID desc"
rc.open sql,conn,1,1
else
sql="Select * from 52mt_J111_Web where News_Title like '%"&Key&"%' and News_Class = '"&News_Class&"' order by ID desc"
rc.open sql,conn,1,1
end if
rc.pagesize=30
dim Page
Page =1
if request("Page") <> "" then
Page=cint(request("Page"))
end if
if not rc.eof and not rc.bof then
rc.absolutepage=Page
end if
count=rc.pagesize
%>
<table width="98%" border="0" cellspacing="0" cellpadding="0">
<tr height="10">
<td height="10" colspan="2"></td>
</tr>
<%if rc.bof then%>
<tr align="center">
<td height="50" colspan="2" class="font">没有搜索到您需人的信息！<font color="#FF608F"> </font></td>
</tr>
<%else%>
<%do while not rc.eof and count > 0%>
<tr>
<td width="80%" height="22" background="52mtba.gif" class="font">·[<a href="52mt.Asp?Class=<%=rc("News_Class")%>"><%=rc("News_Class")%></a>]
<a href="j111/<%=rc("File_Name")%>" target=_blank><%if len(rc("News_Title")) > 30 then Response.write left(rc("News_Title"),30)&"..." else Response.write rc("News_Title") end if%>
</a></td>
<td background="52mtba.gif" class="font"><font color="#FF608F">(<%=rc("News_date")%>)</font></td>
</tr>
<%
rc.movenext
count=count-1
loop
%>
<tr height="5">
<td height="5" colspan="2"></td>
</tr>
<tr>
<td height="25" colspan="2"><table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="eeeeee">
<tr>
<td height="23" bgcolor="#FFFFFF"><table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<form name="pa" method="post" action="">
<td width="70%" height="20" align="right" valign="middle" class="font">共搜索到<font color="#FF2D00">[<%=rc.RecordCount%>]</font>条信息
分<font color="#FF2D00"><%=rc.pagecount%></font>页 <font color="#FF2D00"><%=rc.pagesize%></font>条/页
当前第<font color="#FF2D00"><%=Page%></font>页 <a href="?News_Class=<%=News_Class%>&Key=<%=key%>&Page=1">首页</a>
<%if Page>1 then%>
<a href="?News_Class=<%=News_Class%>&Key=<%=key%>&Page=<%=Page-1%>">上页</a>
<%else%>
上页
<%end if%>
<%if Page < rc.pagecount then %>
<a href="?News_Class=<%=News_Class%>&Key=<%=key%>&Page=<%=Page+1%>">下页</a>
<%else%>
下页
<%end if%>
<a href=?News_Class=<%=News_Class%>&Key=<%=key%>&Page=<%=rc.pagecount%>>尾页</a>
<input name="Page" type="text" class="input" id="Page" value="<%=Page%>" size="3">
<input name="Submit2" type="submit" class="button" value="转到该页">
</td>
</form>
</tr>
</table></td>
</tr>
</table></td>
</tr>
<%end if%>
</table></td>
<tr align="center">
<td valign="top" background="left.gif"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="22" align="center" bgcolor="#00CC00" class="font">热门图片</td>
</tr>
<tr height="3">
<td height="2" bgcolor="#CCCCCC"></td>
</tr>
<tr>
<td height="184" valign="top"><table width="195" border="0" align="center" cellpadding="0" cellspacing="0">
<tr height="5">
<td height="5"></td>
</tr>
<%
set rs=server.CreateObject("adodb.Recordset")
sql="Select top 12 * from 52mt_J111_Web order by News_Click desc"
rs.open sql,conn,1,1
if rs.eof then%>
<tr>
<td height="152" align="center" class="font"><strong>暂无信息!</strong></td>
</tr>
<%else
do while not rs.eof
%>
<tr>
<td height="22" background="52mtba.gif" class="font">·<a href="j111/<%=rs("File_Name")%>" target=_blank><%if len(rs("News_Title")) > 14 then Response.write left(rs("News_Title"),14)&"..." else Response.write rs("News_Title") end if%>
</a> </td>
</tr>
<%
rs.movenext
loop
rs.close
set rs=nothing
end if%>
<tr height="5">
<td height="5"></td>
</tr>
</table> </td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="22" align="center" bgcolor="#00CC00" class="font">推荐图片</td>
</tr>
<tr height="3">
<td height="3" bgcolor="#CCCCCC"></td>
</tr>
<tr>
<td height="184" valign="top">
<table width="195" border="0" align="center" cellpadding="0" cellspacing="0">
<tr height="5">
<td height="5"></td>
</tr>
<%
set rs=server.CreateObject("adodb.Recordset")
sql="Select top 12 * from 52mt_J111_Web where True_Index = 'Yes' order by ID desc"
rs.open sql,conn,1,1
if rs.eof then%>
<tr>
<td height="152" align="center" class="font"><strong>暂无信息!</strong></td>
</tr>
<%else
do while not rs.eof
%>
<tr>
<td height="22" background="52mtba.gif" class="font">·<a href="j111/<%=rs("File_Name")%>" target=_blank><%if len(rs("News_Title")) > 14 then Response.write left(rs("News_Title"),14)&"..." else Response.write rs("News_Title") end if%>
</a> </td>
</tr>
<%
rs.movenext
loop
rs.close
set rs=nothing
end if%>
<tr height="5">
<td height="5"></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
<style type="text/css">
<!--
.style1 {font-size: 16px}
.style2 {font-size: 12px}
-->
</style>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="760" height="13" bgcolor="#00CC00"><div align="center"><span class="style2"><span class="style2"><a href="52mt/52mt.htm" target="_blank">关于本站</a> --- <a href="52mt/ad.htm" target="_blank">广告服务</a> --- <a href="52mt/sm.htm" target="_blank">免责声明</a> ---</span> <span class="style1"><a href="http://wpa.qq.com/msgrd?V=1&Uin=7945416&Site=★致命诱惑★-美术社-★&Menu=yes" target="_blank" class="style4"><a target=blank href=http://wpa.qq.com/msgrd?V=1&Uin=7945416&Site=www.52mt.com&Menu=yes><img SRC=52mtqq.gif alt="联系站长点这里" height="19" border="0"></a></span> --- <span class="style1"><a href="http://wpa.qq.com/msgrd?V=1&Uin=466717188&Site=★致命诱惑★-美术社-★&Menu=yes" target="_blank" class="style4"></a></span>版权申明 <a href="http://www.miibeian.gov.cn/" target="_blank">粤ICP备05005242号</a></span></div>
</td>
</tr>
<tr height="3">
<td height="2" bgcolor="#CCCCCC"></td>
<td bgcolor="#CCCCCC"></td>
</tr>
<tr>
<td height="43" align="center" bgcolor="#FFFFFF"><p align="center" class="style2"><FONT color=#ff0000>模特美女图片v3.0（www.52mt.com） 版权所有 2005-2008 <br> <a href="j111mm.rar" target="_blank">★ 性感写真 网友自拍 ★</a></FONT> <FONT color=#f70968>专业收集网络美女图片！</FONT><br>
</p>
</td>
</tr>
</table>
</div>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -