www.gusucode.com > QQ空间互踩联盟源码程序asp编程 > index.asp
<!--#include file="conn.asp"--> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <HTML lang="gb2312" xmlns="http://www.w3.org/1999/xhtml"><HEAD> <META http-equiv=Content-Type content="text/html; charset=gb2312"><title><%=WebName&ChannelName%></title> <meta http-equiv="content-type" content="text/html;charset=gb2312"/> <link rel="icon" href="images/favicon.ico" type="image/x-icon" /> <link rel="shortcut icon" href="images/favicon.ico" type="image/x-icon" /> <meta content=<%=ChannelName%> name=description> <meta content=<%=ChannelName%> name=Keywords> <link rel="stylesheet" href="qzonev_com.css" type="text/css"/> </HEAD> <BODY style="MARGIN: 0px; TEXT-ALIGN: center"> <% dim webtype,pl dim rs,sql dim condition,linkstr webtype=request("webtype") sql="select * from Qzonev_Com_Link" condition = " where 1=1 " pl="indate" linkstr = "pl=" & pl if webtype="" or not isnumeric(webtype) then webtype=0 elseif webtype>0 then condition = condition & " and webtype="&webtype end if linkstr = linkstr & "&webtype="&webtype '分页信息 dim PageNo PageNo=Request.QueryString("PageNo") if PageNo="" or not isnumeric(PageNo) then PageNo=1 else PageNo=int(PageNo) end if '普通sql语句 sql=sql & condition &" ORDER BY indate desc" %> <!--#include file="top.asp" --> <TABLE borderColor=#000000 cellSpacing=2 cellPadding=1 width=950 align=center bgColor=#000000 border=1> <tr align="center"><form method="post" action="manage.asp?action=chklogin"><td borderColor=#333333 bgColor=#1D1D1D><font color="#FFFF99">用户名[QQ]</font>:<input name="username" type="text" id="username" size="10" maxlength="10" class='inbox0'> <font color="#FFFF99">管理密码</font>:<input name="password" type="password" id="password" size="16" maxlength="16" class='inbox0'> <input type="submit" value="登陆管理" name="submit" class="ann0"></td></form> <td borderColor=#333333 bgColor=#1D1D1D><form action="getcode_ok.asp"><font color="#FFFF99">输入QQ号码</font>:<input name="username" type="text" value="" size="10" maxlength="10" class='inbox0'> <input type="submit" value="获取代码" class="ann0"></td> </form> <td borderColor=#333333 bgColor=#1D1D1D><form action="show.asp"><font color="#FFFF99">输入QQ号码</font>:<input name="find" type="text" value="" size="10" maxlength="10" class='inbox0'> <input type="submit" value="查看资料" class="ann0"></td> </form> </tr><table> <TABLE borderColor=#000000 cellSpacing=2 cellPadding=1 width=950 align=center bgColor=#000000 border=1> <tr align="center" borderColor=#333333 bgColor=#111111> <td width="10%"><a href="http://www.17caiqq.cn/out.asp?username=563682166" title="QQ空间互踩第一名"target="_blank"><font color="#FF9900">第一人气Qzone</font></a></td> <td width="10%"><a href="http://www.17caiqq.cn/out.asp?username=451566332" title="小天使"target="_blank"><font color="#7C7CFB">小天使</font></a></td> <td width="10%"><a href="http://www.17caiqq.cn/out.asp?username=654873999" title="清崽"target="_blank"><font color="#FFFF99">清崽</font></a></td> <td width="10%"><a href="http://www.17caiqq.cn/out.asp?username=247843379" title="我是≮^ǒ^≯"target="_blank"><font color="#7C7CFB">我是≮^ǒ^≯</font></a></td> <td width="10%"><a href=ad.asp title="欢迎订购"target="_blank"><FONT color=#FF9900>价格[5元/月]</font></a></td> <td width="10%"><a href=ad.asp title="欢迎订购"target="_blank"><FONT color=#7C7CFB>价格[5元/月]</font></a></td> <td width="10%"><a href=ad.asp title="欢迎订购"target="_blank"><font color="#FFFF99">价格[5元/月]</font></a></td> <td width="10%"><a href=ad.asp title="欢迎订购"target="_blank"><font color="#FFFF99">价格[5元/月]</font></a></td> <td width="10%"><a href=ad.asp title="欢迎订购"target="_blank"><font color="#FF7792">价格[5元/月]</font></a></td> </tr> </table> <table borderColor=#333333 cellSpacing=2 cellPadding=1 width=950 align=center bgColor=#000000 border=1> <td colspan="15" align="center"> <font color="#999999"> <script type="text/javascript"><!-- google_ad_client = "pub-3374329441814077"; /* 728x15, 17caiqq创建于 08-11-18 */ google_ad_slot = "0910792610"; google_ad_width = 728; google_ad_height = 15; //--> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script></font> </td> <tr align="center"> <td><a href=ad.asp target="_blank"><IMG height=53 alt="第一人气QQ空间" hspace=0 src="images/a276202350.gif" width=53 border=0></a></td> <td><a href=ad.asp target="_blank"><IMG height=53 alt="您的位置" hspace=0 src="images/wait.gif" width=53 border=0></a></td> <td><a href=ad.asp target="_blank"><IMG height=53 alt="您的位置" hspace=0 src="images/wait.gif" width=53 border=0></a></td> <td><a href=ad.asp target="_blank"><IMG height=53 alt="您的位置" hspace=0 src="images/wait.gif" width=53 border=0></a></td> <td><a href=ad.asp target="_blank"><IMG height=53 alt="您的位置" hspace=0 src="images/wait.gif" width=53 border=0></a></td> <td><a href=ad.asp target="_blank"><IMG height=53 alt="您的位置" hspace=0 src="images/wait.gif" width=53 border=0></a></td> <td><a href=ad.asp target="_blank"><IMG height=53 alt="您的位置" hspace=0 src="images/wait.gif" width=53 border=0></a></td> <td><a href=ad.asp target="_blank"><IMG height=53 alt="您的位置" hspace=0 src="images/wait.gif" width=53 border=0></a></td> <td><a href=ad.asp target="_blank"><IMG height=53 alt="您的位置" hspace=0 src="images/wait.gif" width=53 border=0></a></td> <td><a href=ad.asp target="_blank"><IMG height=53 alt="您的位置" hspace=0 src="images/wait.gif" width=53 border=0></a></td> <td><a href=ad.asp target="_blank"><IMG height=53 alt="您的位置" hspace=0 src="images/wait.gif" width=53 border=0></a></td> <td><a href=ad.asp target="_blank"><IMG height=53 alt="您的位置" hspace=0 src="images/wait.gif" width=53 border=0></a></td> <td><a href=ad.asp target="_blank"><IMG height=53 alt="您的位置" hspace=0 src="images/wait.gif" width=53 border=0></a></td> <td><a href=ad.asp target="_blank"><IMG height=53 alt="您的位置" hspace=0 src="images/wait.gif" width=53 border=0></a></td> <td><a href=ad.asp target="_blank"><IMG height=53 alt="您的位置" hspace=0 src="images/wait.gif" width=53 border=0></a></td> </tr> </table> <table> <table borderColor=#000000 cellSpacing=2 cellPadding=1 width=950 align=center bgColor=#000000 border=1> <tr align="center" borderColor=#333333 bgColor=#1D1D1D> <td width="20%" align="center" borderColor=#333333 background="images/top_1.gif" bgcolor="#820B5B">今日得票用户排行榜</td> <td width="20%" align="center" borderColor=#333333 background="images/top_1.gif" bgcolor="#820B5B">今日被踩用户排行榜</td> <td width="21%" align="center" borderColor=#333333 background="images/top_1.gif" bgcolor="#820B5B">总计得票用户排行榜</td> <td width="21%" align="center" borderColor=#333333 background="images/top_1.gif" bgcolor="#820B5B">总计被踩用户排行榜</td> <td width="18%" align="center" borderColor=#333333 background="images/top_1.gif" bgcolor="#820B5B">明星空间推荐</td> </tr> <tr align="center" borderColor=#333333 bgColor=#111111 valign="top"> <td><%call showtop(1,1)%></td> <td><%call showtop(2,1)%></td> <td><%call showtop(1,2)%></td> <td><%call showtop(2,2)%></td> <td> <TABLE cellSpacing=0 cellPadding=1 width="100%" background="" border=0> <TBODY> <TR> <TD> <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0 class=nav> <TR> <TD width=60 align=center><a href=http://www.17caiqq.cn/out.asp?username=276202350><IMG height=55 alt="第一人气QQ空间" hspace=0 src="images/276202350.gif" width=55 border=0></a></TD> <TD bgcolor="#000000"><a href=ad.asp title="第一人气QQ空间">第一人气QQ空间</a> <BR> 20·贵州 <BR> <a href=http://www.17caiqq.cn/out.asp?username=563682166 title="第一人气QQ空间"><FONT color=#FFFF99><U>第一人气QQ空间</U></FONT></a></TD></TR></TABLE></TD></TR> <TR> <TD> <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0 class=nav> <TR> <TD width=60 align=center><a href=ad.asp><IMG height=55 alt="欢迎订购" hspace=0 src="images/wait.gif" width=55 border=0></a></TD> <TD bgcolor="#000000"><a href=ad.asp title="欢迎订购">排行榜广告招租</a> <BR> 年龄·所在省市 <BR> <a href=ad.asp title="欢迎订购"><FONT color=#FFFF99><U>价格[20元/月]</U></FONT></a></TD></TR></TABLE></TD></TR> <TR> <TD> <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0 class=nav> <TR> <TD width=60 align=center><a href=ad.asp><IMG height=55 alt="欢迎订购" hspace=0 src="images/wait.gif" width=55 border=0></a></TD> <TD bgcolor="#000000"><a href=ad.asp title="欢迎订购">排行榜广告招租</a> <BR> 年龄·所在省市 <BR> <a href=ad.asp title="欢迎订购"><FONT color=#FFFF99><U>价格[20元/月]</U></FONT></a></TD></TR></TABLE></TD></TR> <TR> <TD> <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0 class=nav> <TR> <TD width=60 align=center><a href=index.asp><IMG height=55 alt="欢迎订购" hspace=0 src="images/wait.gif" width=55 border=0></a></TD> <TD bgcolor="#000000"><a href=ad.asp title="欢迎订购">排行榜广告招租</a> <BR> 年龄·所在省市 <BR><a href=ad.asp title="欢迎订购"><FONT color=#FFFF99><U>价格[20元/月]</U></FONT></a></TD></TR></TABLE></TD></TR> </TBODY></TABLE> </td> </tr> <script type="text/javascript"><!-- google_ad_client = "pub-3374329441814077"; /* 468x60, 17caiqq上1创建于 08-11-18 */ google_ad_slot = "1362055915"; google_ad_width = 468; google_ad_height = 60; //--> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script> <script type="text/javascript"><!-- google_ad_client = "pub-3374329441814077"; /* 468x60, 创建于 08-11-18 */ google_ad_slot = "1055296872"; google_ad_width = 468; google_ad_height = 60; //--> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script> <tr borderColor=#333333 bgColor=#1D1D1D> <td colspan="2" align="center"><TABLE BORDER="0" WIDTH="100%" CELLPADDING="0" CELLSPACING="0"><TBODY> <TR align="center"> <TD><P><A href="/out.asp?username=276202350" target=_blank><IMG height=124 alt=上期风云榜冠军 hspace=0 src="images/s1.gif" width=124 border=0></A></P></TD> <TD><P><A href="/out.asp?username=276202350" target=_blank><IMG height=124 alt=上期风云榜亚军 hspace=0 src="images/s2.gif" width=124 border=0></A></P></TD> <TD><P><A href="/out.asp?username=276202350" target=_blank><IMG height=124 alt=上期风云榜季军 hspace=0 src="images/s3.gif" width=124 border=0></A></P></TD> </TR></TBODY></TABLE></td> <td colspan="3"> 17caiqq联盟 - 通告栏 [请用户们认真阅读] <BR> [<font color=#99FF00>通知</font>] <font color=#99FF00>欢迎加入Qzone人气联盟!</font> <SCRIPT language=javascript type=text/javascript> function copyToClipBoard() { var clipBoardContent=''; clipBoardContent+="http://www.17caiqq.cn/in.asp?id=276202350";window.clipboardData.setData("Text",clipBoardContent); alert("您的投票连接地址已经复制成功!请发给您的朋友打开即可增加票数!"); } </SCRIPT> <BR> [<font color=#FF7792>公告</font>] <font color=#DFBD31>释放你的魅力,立即呼朋唤友给你投票,就有机会荣登【今日得票排行榜】 </font> <BR> [<font color=#FFFF99>推荐</font>]<font color="#FFFF99"> 打造专属年轻新一代的QQ空间论坛--> <a href="http://www.17caiqq.cn">一起踩QQ联盟</a>,欢迎各位设为首页!</font><BR> [<font color=#FFFF99>活动</font>] <font color=#FFFF99>每月票数排名前三名的QQ用户,均可获得《Qzone人气联盟》首页一个月的QQ空间展示。</font> <BR> [<font color=#FF00FF>注意</font>] <font color=#FF00FF>希望各位QQ用户不要刷票,发现后将以删除处理,并永远不得参加本站活动。</font></td> </tr> </table> <TABLE borderColor=#000000 cellSpacing=0 cellPadding=0 width=950 align=center bgColor=#000000 border=0> <tr align="center" borderColor=#333333 bgColor=#000000> <td><img src="images/900x30.gif"></td> </tr> </table> <TABLE borderColor=#000000 cellSpacing=2 cellPadding=1 width=950 align=center bgColor=#000000 border=1> <TBODY> <tr><td borderColor=#333333 height="18"><div align="center"><SPAN id=ad_1> <script type="text/javascript"><!-- google_ad_client = "pub-3374329441814077"; /* 728x15, 17caiqq下创建于 08-11-18 */ google_ad_slot = "0898839533"; google_ad_width = 728; google_ad_height = 15; //--> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script> </SPAN></div></td> </tr></TBODY><table> <% set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,1 if not rs.eof then rs.PageSize = MaxPageSize rs.AbsolutePage = PageNo dim i i=0 %> <TABLE borderColor=#000000 cellSpacing=2 cellPadding=1 width=950 align=center bgColor=#000000 border=1> <tr align="center" borderColor=#333333 bgColor=#000000><A NAME="jump-test"></A> <td background="images/top_2.jpg">一起踩QQ联盟<%if webtype=0 then response.write("[<font color=#99FF00>近期得票排行榜</font>] - 每得一票您的QQ空间就会显示在以下空间的[<font color=#99FF00>第一位</font>] - ") if webtype>0 then response.write("[<font color=#99FF00>近期得票排行榜</font>] - 每得一票您的QQ空间就会显示在以下空间的[<font color=#99FF00>第一位</font>] - "&hx.showwebtype(rs("webtype"))&"地区</font>")%>共有[<%hx.showPageInfo1 "Qzonev_Com_Link","username",condition,PageNo,MaxPageSize,linkstr%>]位QQ空间用户加入风云榜</td></tr></table> <TABLE borderColor=#000000 cellSpacing=2 cellPadding=1 width=950 align=center bgColor=#000000 border=1> <tr align="center" borderColor=#333333 bgColor=#111111> <td width="1%"><a href=?webtype=1>北京</a></td> <td width="1%"><a href=?webtype=2>上海</a></td> <td width="1%"><a href=?webtype=3>天津</a></td> <td width="1%"><a href=?webtype=4>重庆</a></td> <td width="1%"><a href=?webtype=5>河北</a></td> <td width="1%"><a href=?webtype=6>山西</a></td> <td width="1%"><a href=?webtype=7>内蒙古</a></td> <td width="1%"><a href=?webtype=8>辽宁</a></td> <td width="1%"><a href=?webtype=9>吉林</a></td> <td width="1%"><a href=?webtype=10>黑龙江</a></td> <td width="1%"><a href=?webtype=11>江苏</a></td> <td width="1%"><a href=?webtype=12>浙江</a></td> <td width="1%"><a href=?webtype=13>安徽</a></td> <td width="1%"><a href=?webtype=14>福建</a></td> <td width="1%"><a href=?webtype=15>江西</a></td> <td width="1%"><a href=?webtype=16>山东</a></td> <td width="1%"><a href=?webtype=17>河南</a></td> </tr> <tr align="center" borderColor=#333333 bgColor=#111111> <td width="1%"><a href=?webtype=18>湖北</a></td> <td width="1%"><a href=?webtype=19>湖南</a></td> <td width="1%"><a href=?webtype=20>广东</a></td> <td width="1%"><a href=?webtype=21>广西</a></td> <td width="1%"><a href=?webtype=22>海南</a></td> <td width="1%"><a href=?webtype=23>四川</a></td> <td width="1%"><a href=?webtype=24>贵州</a></td> <td width="1%"><a href=?webtype=25>云南</a></td> <td width="1%"><a href=?webtype=26>西藏</a></td> <td width="1%"><a href=?webtype=27>陕西</a></td> <td width="1%"><a href=?webtype=28>甘肃</a></td> <td width="1%"><a href=?webtype=29>青海</a></td> <td width="1%"><a href=?webtype=30>宁夏</a></td> <td width="1%"><a href=?webtype=31>新疆</a></td> <td width="1%"><a href=?webtype=32>香港</a></td> <td width="1%"><a href=?webtype=33>澳门</a></td> <td width="1%"><a href=?webtype=34>台湾</a></td> </tr> </table> <TABLE borderColor=#000000 cellSpacing=2 cellPadding=1 width=950 align=center bgColor=#000000 border=1> <tr align="center" borderColor=#333333 bgColor=#1D1D1D> <td width="4%" >状态</td> <td width="5%">头像</td> <td width="22%">QQ空间名称及QQ空间地址展示</td> <td width="4%">级别</td> <td width="4%">资料</td> <td width="4%">投票</td> <td width="4%">礼物</td> <td width="4%">相册</td> <td width="4%">唠叨</td> <td width="6%">今日得票</td> <td width="6%">今日被踩</td> <td width="6%">总计得票</td> <td width="6%">总计被踩</td> <td width="6%">所在地区</td> <td width="19%">最后一次得票时间</td></tr> <% Do While Not rs.EOF and i<MaxPageSize%> <tr align="center" borderColor=#333333 bgColor=#111111> <td><A href="http://wpa.qq.com/msgrd?V=1&Uin=<%=rs("username")%>&Site=Qzone人气联盟&Menu=yes" target=blank><IMG height=17 alt=有事请留言 src="http://wpa.qq.com/pa?p=1:<%=rs("username")%>:17" width=25 align=middle border=0></A></td> <td><a target="_blank" href="http://<%=hx.BaseUrl%>out.asp?username=<%=rs("username")%>" onMouseOver="self.status='http://<%=rs("siteurl")%>.qzone.qq.com';return true"><img src=<%=rs("sitelogo")%> width=40 height=40 border="0"></a></td> <td align="left"><% if rs("vip") = 0 then %> <img src=images/star.gif> <a target="_blank" href="http://<%=hx.BaseUrl%>out.asp?username=<%=rs("username")%>" onMouseOver="self.status='http://<%=rs("siteurl")%>.qzone.qq.com';return true"><font color=#FFFF99><%=rs("sitename")%></font></a><img src=images/new.gif border=0><br> <a target="_blank" href="http://<%=hx.BaseUrl%>out.asp?username=<%=rs("username")%>" onMouseOver="self.status='http://<%=rs("siteurl")%>.qzone.qq.com';return true">http://<%=rs("siteurl")%>.qzone.qq.com</a><% else %> <img src=images/vip1.gif> <a target="_blank" href="http://<%=hx.BaseUrl%>out.asp?username=<%=rs("username")%>"> <FONT size=2><font color=#99FF00>[VIP]</font> <font color=#DF0101><B><%=rs("sitename")%></B></font> </FONT> </a><img src=images/vip.gif border=0><br> <a target="_blank" href="http://<%=hx.BaseUrl%>out.asp?username=<%=rs("username")%>" onMouseOver="self.status='http://<%=rs("siteurl")%>.qzone.qq.com';return true">http://<%=rs("siteurl")%>.qzone.qq.com</a> <% end if %></td> <td><% if rs("vip") = 0 then %> <A href="buyvip.asp" target=_blank><u><img src="images/vip_no.gif" border="0" alt="普通会员"></u></A><% else %> <A href="buyvip.asp" target=_blank><u><img src="images/vip_yes.gif" border="0" alt="高级会员"></u></A><% end if %></td> <td><a href="http://<%=hx.BaseUrl%>show.asp?find=<%=rs("username")%>" target="_blank"><img src=images/view.gif border="0" alt="查看资料"></td> <td><a href="http://<%=hx.BaseUrl%>in.asp?id=<%=rs("username")%>" target="_blank"><font color="#99FF00">投票</font></td> <td><a href="http://city.qzone.qq.com/index.php?mod=user&act=guest&uin=<%=rs("username")%>" target="_blank"> <u><img src="images/gift.gif" border="0"></td> <td><a target="_blank" href="http://photo.qq.com/portal/albumMain.shtml?%23uin=<%=rs("username")%>"><img src=images/xiangce.gif border="0" alt="查看相册"></a></td> <td><A href="http://www.taotao.com/res/ttlist.swf?qq=<%=rs("username")%>&num=20&style=1" target=_blank><IMG alt=唠唠叨叨 src="images/tao.gif" border=0></A></td> <td><font color=#FFFF99><%=rs("inj")%>:票</font></td> <td><font color=#00FFFF><%=rs("outj")%>:次</font></td> <td><font color=#FFFF99><%=rs("inc")%>:票</font></td> <td><font color=#00FFFF><%=rs("outc")%>:次</font></td> <td><%=hx.showwebtype(rs("webtype"))%></td> <td><%=rs("indate")%></td> </tr> <% i=i+1 rs.MoveNext Loop else %> <tr align="center" borderColor=#333333 bgColor=#111111> <td colspan=5><B>没有找到你所查询的QQ空间</B></td> </tr> <% end if%> </table> <TABLE borderColor=#000000 cellSpacing=2 cellPadding=1 width=950 align=center bgColor=#000000 border=1> <tr align="center" borderColor=#333333 bgColor=#000000> <td background="images/top_2.jpg"> 共有 <%hx.showPageInfo "Qzonev_Com_Link","username",condition,PageNo,MaxPageSize,linkstr%> </td> </tr> </table> <!--底部广告上方文字留位 --> <!--底部广告下方文字留位 --> <table borderColor=#000000 cellSpacing=2 cellPadding=1 width=950 align=center bgColor=#000000 border=1> <tr align="center" borderColor=#333333 bgColor=#000000> <td width="100%" background="images/top_1.gif">友情链接 [申请链接请与 <a target=blank href=http://wpa.qq.com/msgrd?V=1&Uin=150040504>QQ:开到花都叹息</a> 联系 本站收录.快照均正常,且权重极高] [因更换程序,所以丢失了很多友情链接,请和我链接的站长联系我]</td> </tr> </table> </table> <table borderColor=#000000 cellSpacing=2 cellPadding=1 width=950 align=center bgColor=#000000 border=1> <tr align="center" borderColor=#333333 bgColor=#000000> <td width="8%"><font color="#7C7CFB">友情连接</font></td> <td width="8%"><font color="#88CC88"><A href="/link.htm" target="_blank">更多连接</A></font></td> <td width="8%"><font color="#88CC88"><A href="http://www.6uyu.com/" target="_blank">乐悠娱乐首页</A></font></td> <td width="8%"><font color="#88CC88"><A href="http://z.17caiqq.cn/" target="_blank">QQ空间代码</A></font></td> <td width="8%"><font color="#88CC88"><A href="http://movie.6uyu.com" target="_blank">乐悠影视</A></font></td> <td width="8%"><font color="#88CC88"><A href="http://6uyu.com/tv" target="_blank">乐悠电视</A></font></td> <td width="8%"><font color="#88CC88"><A href="http://www.1188z.cn" target="_blank">流量自助链</A></font></td> <td width="8%"><font color="#88CC88"><A href="/link.htm" target="_blank">更多连接</A></font></td> <td width="8%"><font color="#88CC88"><A href="/link.htm" target="_blank">更多连接</A></font></td> <td width="8%"><font color="#88CC88"><A href="/link.htm" target="_blank">更多连接</A></font></td> </table> <table borderColor=#000000 cellSpacing=2 cellPadding=1 width=950 align=center bgColor=#000000 border=1> <tr align="center" borderColor=#333333 bgColor=#000000> <td width="8%"><font color="#7C7CFB">友情连接</font></td> <td width="8%"><font color="#88CC88"><A href="/link.htm" target="_blank">更多连接</A></font></td> <td width="8%"><font color="#88CC88"><A href="/link.htm" target="_blank">更多连接</A></font></td> <td width="8%"><font color="#88CC88"><A href="/link.htm" target="_blank">更多连接</A></font></td> <td width="8%"><font color="#88CC88"><A href="/link.htm" target="_blank">更多连接</A></font></td> <td width="8%"><font color="#88CC88"><A href="/link.htm" target="_blank">更多连接</A></font></td> <td width="8%"><font color="#88CC88"><A href="/link.htm" target="_blank">更多连接</A></font></td> <td width="8%"><font color="#88CC88"><A href="/link.htm" target="_blank">更多连接</A></font></td> <td width="8%"><font color="#88CC88"><A href="/link.htm" target="_blank">更多连接</A></font></td> <td width="8%"><font color="#88CC88"><A href="/link.htm" target="_blank">更多连接</A></font></td> </tr> </table> <% rs.close set rs=nothing CloseDatabase %> <!--#include file="under.asp"--> <% Function ShowTop(x,y) Dim OutStr,conditionstr Dim rs,sql,i if y=2 then if x=1 then conditionstr=" where inc>0 order by inc desc" else conditionstr=" where outc>0 order by outc desc" 'conditionstr=" where 1=1 order by dateandtime desc" end if sql="select top 10 sitename,inc,outc,username from Qzonev_Com_Link "&conditionstr else if x=1 then conditionstr=" where inj>0 order by inj desc" else conditionstr=" where outj>0 order by outj desc" end if sql="select top 10 sitename,inj,outj,username from Qzonev_Com_Link "&conditionstr end if OutStr = "<table cellpadding=1 cellspacing=0 border=0 class=nav>" set rs=hx.Execute(sql) if rs.eof then OutStr= OutStr & "<tr><td align=center>暂时还没有数据</td></tr>" else do while not rs.eof and i<10 OutStr= OutStr & "<tr><td width=115>" OutStr= OutStr & " <img src=images/star.gif>" OutStr= OutStr & " <a target=_blank href=out.asp?username="&rs(3)&">"&rs(0)&"</a>" OutStr= OutStr & "</td><td width=54 align=right><font color=#FFFF99>" if x=1 then OutStr= OutStr & ""&rs(1) & ":票" else OutStr= OutStr & ""&rs(2) & ":次" end if OutStr= OutStr & "</font></font></td><tr>" i=i+1 rs.movenext loop end if OutStr= OutStr & "</table>" Response.Write OutStr End Function %> </body> </html>