?? 52mt.asp
字號:
<%
Set rc=Server.CreateObject("ADODB.Recordset")
sql="Select * from 52mt_J111_Web where News_Class = '"&News_Class&"' order by ID desc"
rc.open sql,conn,1,1
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="?Class=<%=News_Class%>&Page=1">首頁</a>
<%if Page>1 then%>
<a href="?Class=<%=News_Class%>&Page=<%=Page-1%>">上頁</a>
<%else%>
上頁
<%end if%>
<%if Page < rc.pagecount then %>
<a href="?Class=<%=News_Class%>&Page=<%=Page+1%>">下頁</a>
<%else%>
下頁
<%end if%>
<a href=?Class=<%=News_Class%>&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>
<tr align="center">
<td valign="top" background="left.gif"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="23" 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 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")) > 13 then Response.write left(rs("News_Title"),13)&"..." 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="23" align="center" bgcolor="#00CC00" class="font">推薦信息</td>
</tr>
<tr height="3">
<td height="3" bgcolor="#CCCCCC"></td>
<tr>
<td height="184" valign="top">
<table width="195" border="0" align="center" cellpadding="0" cellspacing="0">
<tr height="5">
<td height="5"></td>
<%
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")) > 13 then Response.write left(rs("News_Title"),13)&"..." 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 + -