📄 index.asp

📁 个性网名转换-繁体字转换-qq强制聊天-qq秀查看-空间留言代码编辑器-等其他常用工具
💻 ASP
📖 第 1 页 / 共 2 页
字号:
上一页 12
set rs=Server.CreateObject("ADODB.RecordSet")
	sql="select * from info where classbid='5213A6230AB0B401E0BC'"
	rs.open sql,conn,1,1
%>  
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
  <td><a href="browse/?d=5213A6230AB0B401E0BC" class="link14b">博客论坛</a><span class="grayi">(<%=rs.recordcount%>)</span>
	</td>
  </tr>
</table>
<table width="100%" border="0" cellspacing="1" cellpadding="1"> 
<tr>
<%
rs.close
set rs=nothing
set rs=Server.CreateObject("ADODB.RecordSet")
	sql="select * from menu where bigclass='博客论坛' order by menuid asc"
	rs.open sql,conn,1,1
i=0
do until rs.eof
i=i+1
if i=5 or i=9 or i=13 or i=17 then
response.write "</tr><tr>"
end if
%>
<td width=20%>&#149; <a href="browse/?d=<%=rs("sid")%>" class="item"><%=rs("smclass")%></a></td>
<%
 rs.movenext
loop
rs.close
set rs=nothing

%>
</tr></td>
  </tr></table>
	
	<table width="100%" border="0" cellspacing="0" cellpadding="0" style="margin-top:5px; margin-bottom:5px;">
	<tr>
      <td class="h1"></td>
    </tr>
  </table> 
<%
set rs=Server.CreateObject("ADODB.RecordSet")
	sql="select * from info where classbid='2F15D7F50D000E06001D'"
	rs.open sql,conn,1,1
%>   
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
  <td><a href="browse/?d=2F15D7F50D000E06001D" class="link14b">综合其他</a><span class="grayi">(<%=rs.recordcount%>)</span>
	</td>
  </tr>
</table>
<table width="100%" border="0" cellspacing="1" cellpadding="1"> 
<tr>
<%
rs.close
set rs=nothing
set rs=Server.CreateObject("ADODB.RecordSet")
	sql="select * from menu where bigclass='综合其他' order by menuid asc"
	rs.open sql,conn,1,1
i=0
do until rs.eof
i=i+1
if i=5 or i=9 or i=13 or i=17 then
response.write "</tr><tr>"
end if
%>
<td width=20%>&#149; <a href="browse/?d=<%=rs("sid")%>" class="item"><%=rs("smclass")%></a></td>
<%
 rs.movenext
loop
rs.close
set rs=nothing

%>
<td></td></tr></table>
	

	  <table width="100%" border="0" cellspacing="0" cellpadding="0" style="margin-top:5px; margin-bottom:5px;">
		<tr>
	      <td class="h1"></td>
	    </tr>
	  </table> 
		<table width="100%" border="0" cellspacing="0" cellpadding="0">
	      <tr>
		    <td><a href="area.asp" class="link14b">地区分类</a></td>
		  </tr>
		</table>
      
<table width="100%" border="0" cellspacing="1" cellpadding="1">
<tr>
<%
set rs=Server.CreateObject("ADODB.RecordSet")
	sql="select * from menu where bigclass='地区分类' order by menuid asc"
	rs.open sql,conn,1,1
i=0
do until rs.eof
i=i+1
if i=5 or i=9 or i=13 or i=17 or i=21 or i=25 or i=29 or i=33 or i=37 or i=41 or i=45 or i=47 or i=51 or i=55 or i=59 then
response.write "</tr><tr>"
end if
set rs1=Server.CreateObject("ADODB.RecordSet")
	sql="select * from info where province='"&rs("sid")&"'"
	rs1.open sql,conn,1,1
%>
<td width=20%>&#149; <a href="province.asp?a=<%=rs("sid")%>" class="item"><%=rs("smclass")%></a><span class="grayi">(<%=rs1.recordcount%>)</span></td>
<%
rs1.close
set rs1=nothing
 rs.movenext
loop
rs.close
set rs=nothing

%>
</tr>
</table>


 	  </td>
      <td class="w1"></td>
      <td class="right" valign="top" style="padding:6px 0px 6px 6px;">

<table width="100%" border="0" cellspacing="0" cellpadding="0" style="margin-bottom:3px;">
  <tr>
    <td class="f60b14">&nbsp;推荐网站</td>
  </tr>
</table>
<%
set rs=Server.CreateObject("ADODB.RecordSet")
	sql="select * from info where top='1'"
	rs.open sql,conn,1,1
if rs.bof and rs.eof then
response.write "暂无推荐网站"
end if
do until rs.eof
If rs("imgpath")<>"" Then
SiteImg=rs("imgpath")
Else
SiteImg="images/no.gif"
End If
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0" style="margin-bottom:7px;border-bottom:0px dotted #A5BAC6;">
  <tr>
    <td width="60"><a href="browse/siteinfo.asp?id=<%=rs("infoid")%>" class="siteinfo" title="网站详细信息" ><img hspace="3" border="0" align="left" width="60" height="43" class="DirImg" src="img.asp?i=<%=SiteImg%>" alt="网站详细信息"></a></td>
    <td valign="top" style="line-height:14px;"><a href="http://<%=rs("DomainName")%>" target="_blank" onClick="chk_stat(8580);" title="访问此网站"><%=rs("adminSiteName")%></a><br>
<%=Left(rs("adminDes"),20)%>...<br>
<span class="greendomain"><%=rs("DomainName")%></span></td></tr>
</table>
<%
rs.movenext
loop
rs.close
set rs=nothing
%>
<table width="100%" border="0" cellpadding="0" cellspacing="0" style="margin-top:6px;margin-bottom:6px;">
	<tr>
		<td class="h1"></td>
	</tr>
</table>

<table width="100%" border="0" cellspacing="0" cellpadding="0" style="margin-bottom:3px;">
  <tr>
    <td class="f60b14">&nbsp;快速链接</td>
  </tr>
</table>
<%
set rs=Server.CreateObject("ADODB.RecordSet")
	sql="select * from info where quick=1"
	rs.open sql,conn,1,1
if rs.bof and rs.eof then
response.write "暂无快速网站"
end if
do until rs.eof
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0" style="margin-bottom:3px;">
  <tr>
	<td valign="top">&nbsp;<a href="http://<%=rs("DomainName")%>" target="_blank" onClick="chk_stat(29);" title="访问此网站"><%=rs("adminSiteName")%></a> <span class="greenDomain"><%=rs("DomainName")%></span><span class="small"> - </span><a href="browse/siteinfo.asp?id=<%=rs("infoid")%>" class="siteinfo"  title="网站详细信息"><img src="images/site_info.gif" alt="网站详细信息" width="13" height="13" hspace="3" border="0" align="absmiddle"></a></td>
</table>
<%
rs.movenext
loop
rs.close
set rs=nothing
%>


<table width="100%" border="0" cellpadding="0" cellspacing="0" style="margin-top:6px;margin-bottom:6px;">
	<tr>
		<td class="h1"></td>
	</tr>
</table>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
  <tr>
    <td class="f60b14"><a class="f60b14">最新加入网站 TOP100</a></td>
  </tr>
</table>
<%
set rs=Server.CreateObject("ADODB.RecordSet")
	sql="select top 10 * from info order by infoid desc"
	rs.open sql,conn,1,1
i=0
do until rs.eof
i=i+1
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0" style="margin-bottom:3px;">
  <tr>
	<td valign="top"><span class="gray"><%=i%>.</span>&nbsp;<a href="http://<%=rs("DomainName")%>" target="_blank" onClick="chk_stat(13624);" title="访问此网站"><%=rs("adminSiteName")%></a> <span class="greenDomain"><%=rs("adminSiteName")%></span><span class="small"> - </span><a href="browse/siteinfo.asp?id=<%=rs("infoid")%>" class="siteinfo"  title="网站详细信息"><img src="images/site_info.gif" alt="网站详细信息" width="13" height="13" hspace="3" border="0" align="absmiddle"></a></td>
</table>
<%
rs.movenext
loop
rs.close
set rs=nothing
%>

<table width="100%" border="0" cellpadding="0" cellspacing="0" style="margin-top:6px;margin-bottom:6px;">
	<tr>
		<td class="h1"></td>
	</tr>
</table>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
  <tr>
    <td class="f60b14"><a class="f60b14">入站排行榜 TOP100</a></td>
  </tr>
</table>
<%
set rs=Server.CreateObject("ADODB.RecordSet")
	sql="select top 10 * from info order by [in] desc"
	rs.open sql,conn,1,1
i=0
do until rs.eof
i=i+1
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0" style="margin-bottom:3px;">
  <tr>
	<td valign="top"><span class="gray"><%=i%>.</span>&nbsp;<a href="http://<%=rs("DomainName")%>" target="_blank" onClick="chk_stat(138);" title="访问此网站"><%=rs("adminSiteName")%></a> <span class="greenDomain"><%=rs("DomainName")%></span><span class="small"> - </span><a href="browse/siteinfo.asp?id=<%=rs("infoid")%>" class="siteinfo"  title="网站详细信息"><img src="images/site_info.gif" alt="网站详细信息" width="13" height="13" hspace="3" border="0" align="absmiddle"></a></td>
</table>

<%
rs.movenext
loop
rs.close
set rs=nothing

%>


	  </td>
    </tr>
</table>
<%=sitefoot%>

</div>
<%
conn.close
set conn=nothing
%>
</body>
</html>
上一页 12
💿 文件大小 190 K
👤 上传用户 GreatMarxist
📂 所属分类其他
🏷️ 相关标签

#qq #转换 #繁体 #代码
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -