www.gusucode.com > QQ空间互踩整站源码asp网站源码程序 > QQ空间互踩整站源码asp网站源码程序/link.asp
<!--#include file="conn.asp"-->
<title><%=WebName&ChannelName%>-by TopBoy</title>
<style type="text/css">
</style>
<link rel="stylesheet" href="style.css">
<body leftmargin="0" topmargin=0>
<table width="100%" cellpadding=0 cellspacing=0 class="main_title1">
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><strong><%=WebName&ChannelName%></strong> -> 动态排名，不分贵贱，绝对公平，赶快加入！</td>
<td width="100" align="center"><a href="index.asp" target="_blank">更多</a>
| <a href="addlink.asp" target="_blank">申请</a></td>
</tr>
</table>
</td>
</tr>
</table>
<table border="0" align="center" cellpadding="0" cellspacing="0" class="main_title1" width="100%">
<tr>
<td>
<%
if not hxcache.ObjIsEmpty() then
strjs=hxcache.value
else
dim rs
set rs=hx.execute("select username,siteurl,sitename,sitelogo,siteintro,inp from CL_Link where inp>="&inpc&" order by inp desc")
dim i,n,j,tdwidth
i=1
n=1
j=1
dim strjs
tdwidth=formatnumber(100/LineNum,1)
if rs.eof then
strjs="<table border=0 cellpadding=2 cellspacing=0>"
strjs=strjs + "<tr><td align=center>暂时还没有Qzone加入</td></tr>"
strjs=strjs + "</table>"
else
strjs=strjs + "<table border=0 cellpadding=2 cellspacing=0 width=""100%"" class=main_tdbg>"
Do While Not rs.eof
if i mod LineNum =1 then
strjs=strjs + "<tr>"
end if
if i <= LineNum * LineLogo then
strjs=strjs + "<td width="""&tdwidth&"%"" align=center>"
strjs=strjs + "<a href=""http://"&hx.BaseUrl&"out.asp?username="&rs(0)&""" target=_blank>"
strjs=strjs + "<img src="""&hx.htmlencode2(rs("sitelogo"))&""" border=0 alt="""&hx.htmlencode2(rs("sitename"))&" -> "&hx.htmlencode2(rs("siteintro"))&"""></a>"
strjs=strjs + "</td>"
else
strjs=strjs + "<td width="""&tdwidth&"%"" align=center>"
strjs=strjs + "<a href=""http://"&hx.BaseUrl&"out.asp?username="&rs(0)&""" target=_blank title="""&hx.htmlencode2(rs("sitename"))&" -> "&hx.htmlencode2(rs("siteintro"))&""">"
strjs=strjs + hx.htmlencode2(rs("sitename"))
strjs=strjs + "</a>"
strjs=strjs + "</td>"
end if
if i mod LineNum =0 then
strjs=strjs + "</tr>"
end if
rs.MoveNext
i=i+1
Loop
if i mod LineNum>0 then
for j=1 to LineNum-(i mod LineNum)
strjs=strjs + "<td> </td>"
next
strjs=strjs + "</tr>"
end if
strjs=strjs + "</table>"
end if
rs.close:set rs=nothing
hxcache.value=strjs
end if
response.write strjs
%>
</td>
</tr>
</table>
<%
CloseDatabase%>