www.gusucode.com > QQ空间互踩联盟源码程序asp编程 > qqshow.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>QQ秀展示 <%=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 find,webtype,pl,bgcolor,MaxPageSize1
dim rs,sql
dim condition,linkstr
MaxPageSize1=70
find=hx.checkstr(trim(request("find")),50)
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
if find<>"" then
condition = condition & " and (sitename like '%"&find&"%' or siteurl like '%"&find&"%')"
linkstr = linkstr & "&find="&find
end if
'分页信息
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 "&pl&" DESC,dateandtime desc"
%>
<!--#include file="top.asp"-->
<%if webtype=0 then%>
<%end if%>
<%
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if not rs.eof then
rs.PageSize = MaxPageSize1
rs.AbsolutePage = PageNo
dim i
i=0
%>
<TABLE borderColor=#000000 cellSpacing=2 cellPadding=1 width=950 align=center bgColor=#000000 border=1>
<tr>
<td borderColor=#333333 bgColor=#000000 background="images/top_2.jpg"><div align="center"><b>QQ秀展示[只显示近期得票<font color=#99FF00>30</font>名]</b></div></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=qqshow.asp?webtype=1>北京</a></td>
<td width="1%"><a href=qqshow.asp?webtype=2>上海</a></td>
<td width="1%"><a href=qqshow.asp?webtype=3>天津</a></td>
<td width="1%"><a href=qqshow.asp?webtype=4>重庆</a></td>
<td width="1%"><a href=qqshow.asp?webtype=5>河北</a></td>
<td width="1%"><a href=qqshow.asp?webtype=6>山西</a></td>
<td width="1%"><a href=qqshow.asp?webtype=7>内蒙古</a></td>
<td width="1%"><a href=qqshow.asp?webtype=8>辽宁</a></td>
<td width="1%"><a href=qqshow.asp?webtype=9>吉林</a></td>
<td width="1%"><a href=qqshow.asp?webtype=10>黑龙江</a></td>
<td width="1%"><a href=qqshow.asp?webtype=11>江苏</a></td>
<td width="1%"><a href=qqshow.asp?webtype=12>浙江</a></td>
<td width="1%"><a href=qqshow.asp?webtype=13>安徽</a></td>
<td width="1%"><a href=qqshow.asp?webtype=14>福建</a></td>
<td width="1%"><a href=qqshow.asp?webtype=15>江西</a></td>
<td width="1%"><a href=qqshow.asp?webtype=16>山东</a></td>
<td width="1%"><a href=qqshow.asp?webtype=17>河南</a></td>
</tr>
<tr align="center" borderColor=#333333 bgColor=#111111>
<td width="1%"><a href=qqshow.asp?webtype=18>湖北</a></td>
<td width="1%"><a href=qqshow.asp?webtype=19>湖南</a></td>
<td width="1%"><a href=qqshow.asp?webtype=20>广东</a></td>
<td width="1%"><a href=qqshow.asp?webtype=21>广西</a></td>
<td width="1%"><a href=qqshow.asp?webtype=22>海南</a></td>
<td width="1%"><a href=qqshow.asp?webtype=23>四川</a></td>
<td width="1%"><a href=qqshow.asp?webtype=24>贵州</a></td>
<td width="1%"><a href=qqshow.asp?webtype=25>云南</a></td>
<td width="1%"><a href=qqshow.asp?webtype=26>西藏</a></td>
<td width="1%"><a href=qqshow.asp?webtype=27>陕西</a></td>
<td width="1%"><a href=qqshow.asp?webtype=28>甘肃</a></td>
<td width="1%"><a href=qqshow.asp?webtype=29>青海</a></td>
<td width="1%"><a href=qqshow.asp?webtype=30>宁夏</a></td>
<td width="1%"><a href=qqshow.asp?webtype=31>新疆</a></td>
<td width="1%"><a href=qqshow.asp?webtype=32>香港</a></td>
<td width="1%"><a href=qqshow.asp?webtype=33>澳门</a></td>
<td width="1%"><a href=qqshow.asp?webtype=34>台湾</a></td>
</tr>
</table>
<TABLE borderColor=#000000 cellSpacing=2 cellPadding=1 width=950 align=center bgColor=#000000 border=1>
<tr borderColor=#333333 bgColor=#000000>
<td height="20">
本站共加入[<%hx.showPageInfo1 "Qzonev_Com_Link","username",condition,PageNo,MaxPageSize1,linkstr%>]位风云人物</td>
<td><div align="right">任何QQ空间，只要成功拉到一票，就会自动排到第一名 </div></td>
</tr>
</table>
<TABLE borderColor=#000000 cellSpacing=0 cellPadding=0 width=950 align=center bgColor=#000000 border=0>
<%Do While Not rs.EOF and i<MaxPageSize1%>
<%if (i+1) mod 7 =1 then %>
<tr>
<%end if%>
<td>
<TABLE borderColor=#000000 cellSpacing=1 cellPadding=1 align=center bgColor=#000000 border=1>
<tr>
<td align="center" borderColor=#333333 bgColor=#1d1d1d><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"><%=rs("sitename")%></a></td>
</tr>
<tr>
<td align="center" borderColor=#333333 bgColor=#111111><div align="center"><a target="_blank" href="http://<%=hx.BaseUrl%>out.asp?username=<%=rs("username")%>" title=今日得票：<%=rs("inj")%>票
今日被踩：<%=rs("outj")%>次 onMouseOver="self.status='http://<%=rs("siteurl")%>.qzone.qq.com';return true"><img src="http://qqshow-user.tencent.com/<%=rs("username")%>/10/00/.jpg" width="110" height="178" border="0"></a></div></td>
</tr>
</table>
</td>
<% if (i+1) mod 7 =0 then %>
</tr>
<% end if %>
<% i=i+1
rs.MoveNext
Loop%>
<%else%>
<tr>
<td height=80><div align="center"><B>没有找到你所查询的Qzone空间</B></div></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,MaxPageSize1,linkstr%>
</td>
</tr>
</table>
<%
rs.close
set rs=nothing
CloseDatabase
%>
<!--#include file="under.asp"-->
</body>
</html>