www.gusucode.com > QQ空间互踩联盟源码程序asp编程 > today.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 find,webtype,pl,MaxPageSize1 dim rs,sql dim condition,linkstr MaxPageSize1=20 find=hx.checkstr(trim(request("find")),50) webtype=request("webtype") sql="select * from Qzonev_Com_Link" condition = " where 1=1 and dateandtime > date() " pl=request("pl") if pl="" then pl="dateandtime" end if 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" %> <!--#include file="top.asp"--> <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"><%=WebName%>[今日共有<font color="#FF0000"><%hx.showPageInfo1 "Qzonev_Com_Link","username",condition,PageNo,MaxPageSize1,linkstr%></font>位QQ空间用户参加]</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=#000000> <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 width="950" border="0" align="center" cellpadding="0" cellspacing="0" bgColor=#000000> <tr> <td valign="top"> <TABLE borderColor=#000000 cellSpacing=2 cellPadding=1 width=100% align=center bgColor=#000000 border=1> <% 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 align="center" borderColor=#333333 bgColor=#1D1D1D> <td width="7%">空间形象</td> <td width="23%">QQ空间名称及QQ空间地址展示</td> <td width="8%">今日得票</td> <td width="8%">今日被踩</td> <td width="10%">本月得票</td> <td width="10%">本月被踩</td> <td width="7%">所在地区</td> <td width="7%">会员级别</td> <td width="18%">空间用户:登记时间</td></tr> <% Do While Not rs.EOF and i<MaxPageSize1%> <tr align="center" borderColor=#333333 bgColor=#111111> <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></a><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/star.gif> <a target="_blank" href="http://<%=hx.BaseUrl%>out.asp?username=<%=rs("username")%>"><font color=#FFFF00><%=rs("sitename")%></font></a><img src=images/new.gif border=0></a><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><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><% 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><%=rs("dateandtime")%></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,MaxPageSize1,linkstr%> </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" end if sql="select top 5 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 5 sitename,inj,outj,username from Qzonev_Com_Link "&conditionstr end if OutStr = "<table cellpadding=1 cellspacing=0 border=0>" 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<5 OutStr= OutStr & "<tr><td width=120>" OutStr= OutStr & "<img src=images/star.gif> " OutStr= OutStr & " <a href=out.asp?username="&rs(3)&" target=_blank>"&rs(0)&"</a>" OutStr= OutStr & "</td><td>" if x=1 then OutStr= OutStr & " in:"&rs(1) else OutStr= OutStr & " out:"&rs(2) end if OutStr= OutStr & "</td><tr>" i=i+1 rs.movenext loop end if OutStr= OutStr & "</table>" Response.Write OutStr End Function %> </body> </html>