www.gusucode.com > 百度空间互踩联盟 1.0源码程序 > index.asp
<!--#include file="conn.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=WebName&ChannelName%></title>
<meta name="description" content="QQ空间互踩联盟,QQ空间互踩,互踩空间,QQ互踩。">
<meta name="keywords" content="<%=WebAlt%>">
<link rel="stylesheet" href="style.css">
<style type="text/css">
<!--
.STYLE12 {color: #993300}
.STYLE13 {color: #000000}
-->
</style>
</head>
<body bgcolor="#ffffff" leftmargin="0" topmargin="0">
<%
dim find,webtype,pl
dim rs,sql
dim condition,linkstr
find=hx.checkstr(trim(request("find")),50)
webtype=request("webtype")
sql="select * from CL_Link"
condition = " where 1=1 "
pl=request("pl")
if pl="" then
pl="inp"
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 siteintro 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"-->
<div align="center">
<table width="760" border="0" cellpadding="0" cellspacing="0" class="main_tdbg">
<tr>
<td height="25"><div align="center"><a href="addlink.asp">QQ空间互踩联盟，加入马上获得更多的朋友来访！</a></div></td>
</tr>
</table>
</div>
<%if webtype=0 then%>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="25%" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="1" bordercolor="#00309C" bordercolorlight=#000000 bordercolordark=#FFFFFF class="main_tdbg2">
<tr>
<td height="20" align="center" class="main_title2 STYLE13">今日踩入排行</td>
</tr>
<tr>
<td height="115" valign="top">
<%call showtop(1,1)%>
</td>
</tr>
</table></td>
<td width="25%" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="1" bordercolorlight=#000000 bordercolordark=#FFFFFF class="main_tdbg2">
<tr>
<td height="20" align="center" class="main_title2 STYLE13">总计踩入排行</td>
</tr>
<tr>
<td height="115" valign="top">
<%call showtop(1,2)%>
</td>
</tr>
</table> </td>
<td width="25%" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="1" bordercolorlight=#000000 bordercolordark=#FFFFFF class="main_tdbg2">
<tr>
<td height="20" align="center" class="main_title2 STYLE13">今日踩出排行</td>
</tr>
<tr>
<td height="115" valign="top">
<%call showtop(2,1)%>
</td>
</tr>
</table></td>
<td width="25%" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="1" bordercolorlight=#000000 bordercolordark=#FFFFFF class="main_tdbg2" >
<tr>
<td height="20" align="center" class="main_title2 STYLE13">总计踩出排行</td>
</tr>
<tr>
<td height="115" valign="top">
<%call showtop(2,2)%>
</td>
</tr>
</table></td>
</tr>
</table>
<%end if%>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
<form method="Get">
<tr>
<td class="main_title1"> 输入百度空间或关键字：
<input name="find" type="text" value="<%=find%>" size="15" maxlength="20">
百度空间分类：
<select name="webtype" size="1">
<option value="">全部类别</option>
<%hx.listwebtype(webtype)%>
</select>
排序：
<select name="pl" size="1">
<option value="inc"<%if pl="inc" then%> selected<%end if%>>总计踩入</option>
<option value="inj"<%if pl="inj" then%> selected<%end if%>>今天踩入</option>
<option value="inp"<%if pl="inp" then%> selected<%end if%>>平均踩入</option>
<option value="outc"<%if pl="outc" then%> selected<%end if%>>总计踩出</option>
<option value="outj"<%if pl="outj" then%> selected<%end if%>>今天踩出</option>
<option value="outp"<%if pl="outp" then%> selected<%end if%>>平均踩出</option>
<option value="indate"<%if pl="indate" then%> selected<%end if%>>踩入时间</option>
<option value="outdate"<%if pl="outdate" then%> selected<%end if%>>踩出时间</option>
<option value="fromdate"<%if pl="fromdate" then%> selected<%end if%>>统计时间</option>
<option value="dateandtime"<%if pl="dateandtime" then%> selected<%end if%>>加入时间</option>
</select>
<input name="submit" type="submit" value="查 询">
</td>
</tr>
</form>
<tr>
<td height="30" align="right" class="main_title1"><%hx.showPageInfo "CL_link","username",condition,PageNo,MaxPageSize,linkstr%> </td>
</tr>
</table>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<%
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "<p align='center'>暂无QQ加入互踩！！</p>"
else
rs.PageSize = MaxPageSize
rs.AbsolutePage = PageNo
dim i
i=0
do while not rs.eof or rs.bof
%>
<td align="left">
<table width="190" border="0" cellpadding="0" cellspacing="1" bordercolor="#B6DAEB" class="main_tdbg2" style="border-collapse:collapse">
<tr align="center" class="main_title1">
<td colspan="2">百度空间互踩 <a href="http://<%=hx.BaseUrl%>out.asp?username=<%=rs("username")%>" title="<%=hx.showwebtype(rs("webtype"))%>" target="_blank"><U>踩出:<%=rs("outc")%> 踩入:<%=rs("inc")%></U></a></td>
</tr>
<tr align="center">
<td width="36" height="40"><a href="http://<%=hx.BaseUrl%>out.asp?username=<%=rs("username")%>" target="_blank"><img src="<%=rs("sitelogo")%>" border=0> </img></a></td>
<td width="118"><a href="http://<%=hx.BaseUrl%>out.asp?username=<%=rs("username")%>" title="<%=hx.showwebtype(rs("webtype"))%>" target="_blank"><%=rs("sitename")%></a></td>
</tr>
<!--tr>
<td align="center" bgcolor="#FDF0F9">简 介</td>
<td colspan="6" bgcolor="#FDF0F9"><%=hx.htmlencode2(rs("siteintro"))%></td>
</tr>
<tr>
<td align="center">贡献统计</td>
<td colspan="6"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>[你站]对[我站]:总计点入 <%=rs("inc")%> 今天点入 <%=rs("inj")%> 平均点入 <font color=#00009F><%=formatnumber(rs("inp"),2,-1)%></font></td>
</tr>
<tr>
<td>[我站]对[你站]:总计点出 <%=rs("outc")%> 今天点出 <%=rs("outj")%> 平均点出 <font color=#00009F><%=formatnumber(rs("outp"),2,-1)%></font></td>
</tr>
</table></td>
</tr-->
<tr bgcolor="#8cc3de">
<td height="2" colspan=4></td>
</tr>
</table>
</td>
<% i=i+1
rs.movenext
if i mod 4=0 then
response.write"</tr></TBODY>"
If i>=MaxPageSize Then Exit do
end if
loop
end if
rs.close
set rs=nothing
%>
</tr>
</table>
<!--#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 CL_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 CL_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/icon.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>