⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 siteinfo.asp

📁 个性网名转换-繁体字转换-qq强制聊天-qq秀查看-空间留言代码编辑器-等其他常用工具
💻 ASP
字号:
🔍 
<!-- #include file="conn.asp"-->
<%
set rs=Server.CreateObject("ADODB.RecordSet")
	sql="select * from info where infoid="&request("id")&""
	rs.open sql,conn,1,1
sidd=rs("ClassID_id")
If rs("imgpath")<>"" Then
SiteImg=rs("imgpath")
Else
SiteImg="images/nobig.gif"
End If
set rs8=Server.CreateObject("ADODB.RecordSet")
	sql="select * from info where infoid="&request("id")&""
	rs8.open sql,conn,3,3
rs8("hits")=rs8("hits")+1
rs8.update
rs8.close
set rs8=nothing
set rs1=Server.CreateObject("ADODB.RecordSet")
	sql="select * from menu where sid='"&sidd&"'"
	rs1.open sql,conn,1,1
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<title><%=rs("DomainName")%> - <%=sitetitle%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<meta name="keywords" content="<%=sitemeta%>" />
<meta name="description" content="<%=sitekey%>" />
<meta http-equiv="Content-Language" content="zh-cn" />

<link rel="icon" href="favicon.ico" type="image/x-icon" />
<link rel="shortcut icon" href="favicon.ico" type="image/x-icon" />
<meta http-equiv="pragma" content="no-cache" />
<meta http-equiv="imagetoolbar" content="no" />
<meta name="distribution" content="global" />
<meta name="Robots" content="index,follow" />
<meta content="Copyright 2007 netsoz.com" name="copyright" />
<link href="../css/dir.css" type="text/css" rel="stylesheet" />
<script language="javascript" type="text/javascript" src="/js/setHome.js"></script>
<script language="javascript" type="text/javascript" src="/js/click_stat.js"></script>
<script language="javascript" type="text/javascript" src="/js/dir.js"></script>
<script language="javascript" type="text/javascript" src="/js/city.js"></script>
</head>
<body bgcolor="#FFFFFF">
<DIV id=Head>
<table width="100%"  border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="220" align="center" style="padding:1px 0px 0px 0px;"><a href="../index.asp" onFocus="this.blur();"><img src="../images/dir_logo_coodir.gif" width=206 height=50 vspace=7 border=0 alt="酷帝网站目录"></a></td>
    <td valign="top" style="padding:1px 0px 0px 0px;">
	  <table width="100%" border="0" cellspacing="0" cellpadding="0" style="margin-bottom:8px;">
    <tr>
      <td align="right" valign="top" nowrap="nowrap" style="padding:6px 16px 0px 0px;">
	 
<a href="../index.asp">网站目录首页</a> - <%=logintext%>
 	  
	  </td>
    </tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<form action="/search.asp" name=dirform method="get">
    <tr>
      <td width="266" valign="top" nowrap="nowrap" style="padding:0px 0px 4px 0px;">
		<input maxlength=80 name=q size=25 value="">
        <input type=submit value="搜索目录" class="searchB"></td>
	  <td nowrap="nowrap"> <a href="/help/" title="网站目录帮助">网站目录帮助</a></td>
    </tr>
</form>
</table>
	</td>
  </tr>
</table>  
  <table width="100%" border="0" cellpadding="2" cellspacing="1" class="navborder">
    <tr>
      <td class="navbg">&nbsp;您的位置：<a href="../index.asp" class="linknov">首页</a> > 
	  
	   <a href="../browse/?d=<%=rs1("bid")%>" class="linknov"><%=rs1("bigclass")%></a> > <a href="../browse/?d=<%=rs1("sid")%>" class="linknov"><%=rs1("smclass")%></a>
	  
	 > <%=rs("adminSiteName")%> - <%=rs("DomainName")%></td>
    </tr>
  </table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
    <tr>
      <td valign="top" class="left">
  	  <table width="100%" border="0" cellspacing="0" cellpadding="0" style="margin-top:12px;">
        <tr>
          <td width="210" valign="top"><a href="http://<%=rs("DomainName")%>" title="访问此网站" target="_blank" onClick="javascript:chk_stat(1);"><img border="0" width="202" height="147" src="../img.asp?i=<%=SiteImg%>&t=l"></a></td>
          <td valign="top">
            <table width="100%" border="0" cellspacing="0" cellpadding="1">
              <tr>
                <td width="60" align="right" nowrap>网站名称：</td>
                <td><a href="http://<%=rs("DomainName")%>" title="访问此网站" target="_blank" class="link14b" onClick="chk_stat(1);"><%=rs("adminSiteName")%></a></td>
              </tr>
              <tr>
                <td align="right" nowrap>网站域名：</td>
                <td><span class="greenDomain"><%=rs("DomainName")%></span></td>
              </tr>
              <tr>
                <td align="right" nowrap>所属目录：</td>
                <td>				
	
	   <a href="../browse/?d=<%=rs1("bid")%>" class="linknov"><%=rs1("bigclass")%></a> > <a href="../browse/?d=<%=rs1("sid")%>" class="linknov"><%=rs1("smclass")%></a>
	  				</td>
              </tr>
              <tr>
                <td align="right" valign="top" nowrap>网站描述：</td>
                <td valign="top">
				<%=rs("adminDes")%></td>
              </tr>
              <tr>
                <td align="right" nowrap>综合星级：</td>
                <td><a href="/browse/siterank.asp?id=1"><img src="../images/stars-5-0.gif" alt="综合星级：5.0 星级" width="65" height="12" align="absmiddle"></a>&nbsp;&nbsp;<span class="gray">PageRank：</span><img id="PageRank" src="../images/Googleimg/6pagerank<%=rs("pr")%>.gif" width="58" height="11" align="absmiddle">&nbsp;&nbsp;<span class="gray">Alexa排名：</span><span id="AlexaRank" class="AlexaRank"><%=rs("alexa")%></span></td>
              </tr>
            </table>
            <table width="100%" border="0" cellspacing="0" cellpadding="2">
              <tr>
                <td nowrap class="f11" style="padding-left:2px;">相关信息：<a href="http://www.netsoz.com/whois-<%=rs("DomainName")%>.html" target="_blank" title="查看此域名WHOIS信息">域名WHOIS</a> | <a href="http://www.netsoz.com/ip-<%=rs("DomainName")%>.html" target="_blank" title="查看此网站IP地址">网站IP地址</a> | <a href="http://www.netsoz.com/alexa-<%=rs("DomainName")%>"  target="_blank"title="查看此网站Alexa排名详细信息">Alexa排名查询</a> | <a href="http://www.netsoz.com/c++-<%=rs("DomainName")%>" target="_blank" title="查询此网站收录情况">网站收录情况</a></td>
              </tr>
            </table></td>
        </tr>
    </table>
<%
rs1.close
set rs1=nothing
rs.close
set rs=nothing
%>

<table width="100%" border="0" cellspacing="1" cellpadding="2" class="navborder" style="margin-top:12px;">
    <tr>
      <td nowrap class="navbg" style="padding-left:6px;"><span class="f14b">www.netsoz.com</span>&nbsp;<span class="f60b14">站长推荐</span> 
	  
	  </td>
      </tr>
</table>

<table width="100%" border="0" cellspacing="1" cellpadding="2">
	<tr>
	  <td>
<%
set rs123=Server.CreateObject("ADODB.RecordSet")
	sql="select * from info where infoid="&request("id")&""
	rs123.open sql,conn,1,1
If Not(rs123.bof And rs123.eof) Then
    If rs123("good")<>"" Then
        Response.Write rs123("good")
    Else
        Response.Write "暂无站长推荐信息"
    End If
End If
rs123.close
set rs123=nothing
%>
</td>
	</tr>
</table>





	  
        <table width="100%" border="0" cellspacing="1" cellpadding="2" class="navborder" style="margin-top:12px;">
    <tr>
      <td nowrap class="navbg" style="padding-left:6px;"><span class="f60b14">网友留言</span> - 共有<b> 1 </b>条留言信息</td>
      </tr>
  </table>
<%
set rs=Server.CreateObject("ADODB.RecordSet")
	sql="select top 5 * from comment where siteid='"&Request("id")&"' order by id desc"
	rs.open sql,conn,1,1
do until rs.eof
%>  
<table width="100%" border="0" cellspacing="1" cellpadding="2">
        <tr>
          <td valign="top"><span class="gray">作者：</span><%=rs("commentuser")%>&nbsp;&nbsp;&nbsp;&nbsp;<span class="gray"> - <%=rs("commentTime")%></span>
		  
		  <br>
<b><%=rs("commentTitle")%></b><br>
            <%=rs("commentNote")%><br>
<%
If rs("commentadmin")<>"" Then
%>		
		<fieldset class="fieldset">
          <legend class="legend">www.netsoz.com 站长回复<span class="gray"> - 回复时间：2007-8-10 13:19:54</span></legend>
谢谢您的建议！联系站长请Email（暂时），netsoz目前不接受子站提交。
        </fieldset>
<%
End If
%>		
		
		</td>
        </tr>
      </table>
	  <table width="100%" border="0" cellpadding="0" cellspacing="0" style="margin-top:3px;margin-bottom:3px;">
        <tr>
          <td class="h1"></td>
        </tr>
      </table>
<%
 rs.movenext
loop
rs.close
set rs=nothing
%>
  
	  <table width="100%" border="0" cellspacing="1" cellpadding="2">
        <tr>
          <td align="right"> <a href="comments.asp?id=<%=request("id")%>#comment">给 www.netsoz.com 站长留言</a> | <a href="comments.asp?id=<%=request("id")%>">查看所有留言</a>&nbsp;&nbsp;</td>
        </tr>
      </table>

	  <table width="100%" border="0" cellpadding="0" cellspacing="0" style="margin-top:10px;margin-bottom:10px;">
		<tr>
			<td class="h1"></td>
		</tr>
	</table>
	<table width="100%" border="0" cellspacing="1" cellpadding="2">
	  <tr>
		<td align="center"><a href="/email.asp">推荐给朋友</a> | <a href="javascript:window.external.AddFavorite('http://www.netsoz.com/browse/siteinfo.asp?id=1','中国站长之家');">收藏此网站</a></td>
	  </tr>
	</table>

	  </td>
      <td class="w1"></td>
      <td class="right" valign="top">

<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
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0" style="margin-bottom:7px;border-bottom:0px dotted #A5BAC6;">
  <tr>
    <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
%>

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

</div>
</body>
</html>

⌨️ 快捷键说明

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