www.gusucode.com > QQ空间互踩联盟源码程序asp编程 > show.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>
<link rel="stylesheet" href="qzonev_com.css" type="text/css"/>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<%
dim username,comeurl,find
dim rs,sql
username=hx.checkstr(request("find"),12)
comeurl=hx.checkstr(Request.ServerVariables("http_referer"),200)
if username<>"" then
sql="select TOP 1 * from qzonev_com_Link where username='"&username&"'"
else
sql="select TOP 1 * from qzonev_com_Link ORDER BY indate desc"
end if
dim siteurl,inc,outc,outj,inj,sitename,dateandtime,webtype,sitelogo,indate
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,2
%>
</tr><table>
<meta http-equiv="content-type" content="text/html;charset=gb2312"/>
<link rel="icon" href="favicon.ico" type="image/x-icon" />
<link rel="shortcut icon" href="favicon.ico" type="image/x-icon" />
<meta content=这是Qzone达人在Qzone人气联盟的搜索结果。Qzone人气联盟为您提供最完美的QQ空间资料服务 name=description>
<meta content=Qzone达人,QQ空间,QQ空间代码,QQ空间资料 name=Keywords>
<link rel="stylesheet" href="QQiis_Com.css" type="text/css"/>
</HEAD>
<BODY style="MARGIN: 0px; TEXT-ALIGN: center">
<!--#include file="top.asp"-->
<TABLE borderColor=#333333 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>
<%
Do While Not rs.EOF
username = rs("username")
If comeurl<>"" and not hx.isrec(1) then
rs("outc")=rs("outc")+1
if DateDiff("d",rs("indate"),Date())=0 then
rs("outj")=rs("outj")+1
else
rs("outj")=1
end if
rs("indate")=Now()
rs.update
end if
siteurl=rs("siteurl")
sitelogo=hx.htmlencode2(rs("sitelogo"))
inc=rs("inc")
outc=rs("outc")
outj=rs("outj")
inj=rs("inj")
sitename=rs("sitename")
indate=rs("indate")
dateandtime=rs("dateandtime")
webtype=hx.showwebtype(rs("webtype"))
%>
<title><%response.write sitename%> - Http://<%response.write siteurl%>.Qzone.Qq.Com - <%response.write webtype%>地区 - QQ空间资料 <%=ChannelName%></title>
<TABLE borderColor=#333333 cellSpacing=2 cellPadding=1 width=950 align=center
bgColor=#000000 border=1>
<TBODY>
<TR>
<TD vAlign=top width=159>
<TABLE borderColor=#333333 cellSpacing=2 cellPadding=1 width="100%"
align=center border=1>
<TBODY>
<TR>
<TD height=29 borderColor=#333333 bgColor=#1D1D1D>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD width="25%">
<DIV align=center>QQ-Show
</DIV></TD></TR></TBODY></TABLE></TD></TR>
<TR>
<TD vAlign=top>
<TABLE borderColor=#333333 cellSpacing=0 cellPadding=0 width="100%"
border=0>
<TBODY>
<TR>
<TD width="25%" height=231>
<P align=center><a href="out.asp?username=<%response.write siteurl%>" target="_blank" onMouseOver="self.status='http://<%response.write siteurl%>.qzone.qq.com';return true"><img height=226
src="http://qqshow-user.tencent.com/<%=rs("siteurl")%>/10/00/.jpg"
width=100% border=0></a></P></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD><!--TD vAlign=top width=8></TD-->
<TD vAlign=top width="84%">
<TABLE borderColor=#333333 cellSpacing=2 cellPadding=1 width="100%"
align=center border=1>
<TBODY>
<TR>
<TD height=30 borderColor=#333333 bgColor=#1D1D1D>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD>
<TABLE cellSpacing=2 cellPadding=1 width="100%" border=0>
<TBODY>
<TR>
<TD vAlign=top width="100%">
<TABLE width="100%" border=0>
<TBODY>
<TR>
<TD borderColor=#333333 width=88>
<DIV align=right> 空间形象：</DIV></TD>
<TD width=600> <a href="out.asp?username=<%response.write siteurl%>" target="_blank" onMouseOver="self.status='http://<%response.write siteurl%>.qzone.qq.com';return true"><img src=<%response.write sitelogo%> width="40" height="40" alt="QQ:<%=hx.htmlencode2(rs("siteurl"))%>" border="0"></a></TD></TR>
<TR>
<TD vAlign=top>
<DIV align=right>空间名称：</DIV></TD>
<TD vAlign=top><% if rs("vip") = 0 then %> <img border="0" src="images/star.gif" width="12" height="11">
<a href="out.asp?username=<%response.write siteurl%>" target="_blank" onMouseOver="self.status='http://<%response.write siteurl%>.qzone.qq.com';return true"><%response.write sitename%></a><img src=images/new.gif border=0 width="13" height="11"> <a href="http://city.qzone.qq.com/index.php?mod=user&act=guest&uin=<%response.write siteurl%>" target="_blank" onMouseOver="self.status='http://<%response.write siteurl%>.qzone.qq.com';return true"><font color="#99ff00"><u>送TA礼物</u></font></a><% else %>
<a href="out.asp?username=<%response.write siteurl%>" target="_blank" onMouseOver="self.status='http://<%response.write siteurl%>.qzone.qq.com';return true"><span style=behavior:url(inc/font.htc)>ＶＩＰ <%response.write sitename%></span></a><img src=images/vip.gif border=0 width="13" height="11"> <a href="http://city.qzone.qq.com/index.php?mod=user&act=guest&uin=<%response.write siteurl%>" target="_blank" onMouseOver="self.status='http://<%response.write siteurl%>.qzone.qq.com';return true"><font color="#99ff00"><u>送TA礼物</u></font></a><% end if %></TD>
</TR>
<TR>
<TD vAlign=top>
<DIV align=right>空间地址：</DIV></TD>
<TD vAlign=top><% if rs("vip") = 0 then %>
<a href="out.asp?username=<%response.write siteurl%>" target="_blank" onMouseOver="self.status='http://<%response.write siteurl%>.qzone.qq.com';return true">Http://<%response.write siteurl%>.Qzone.Qq.Com</a><% else %><a href="out.asp?username=<%response.write siteurl%>" target="_blank" onMouseOver="self.status='http://<%response.write siteurl%>.qzone.qq.com';return true">Http://<%response.write siteurl%>.Qzone.Qq.Com</a><% end if %></TD></TR>
<TR>
<TD>
<DIV align=right>QQ 号 码：</DIV></TD>
<TD><% if rs("vip") = 0 then %><font color="#7FFF00"><b><%response.write siteurl%></b></font><% else %><font color="#FF0000"><b><%response.write siteurl%></b></font><% end if %>
<a href="http://wpa.qq.com/msgrd?V=1&Uin=<%=rs("username")%>&Site=Qzone风云榜&Menu=yes" target="blank">
<img SRC="http://wpa.qq.com/pa?p=1:<%=rs("username")%>:15" alt=点击这里给我发消息 border=0></a><br></TD></TR></font>
</tr>
<tr>
<td><div align="right">所在地区：</div></td>
<td><% if rs("vip") = 0 then %><font color="#FFFFFF"><%response.write webtype%></font><% else %><font color="#FF0000"><%response.write webtype%></font><% end if %></td>
</tr>
<tr>
<td><div align="right">用户等级：</div></td>
<td><% if rs("vip") = 0 then %>
<A href="buyvip.asp" target=_blank><u><img src="images/vip_no.gif" border="0" alt="普通会员"></u>[<font color="#FFFF00">普通用户</font>][<font color="#FFFF00">立即购买</font><font color="#00FF00">ＶＩＰ</font><font color="#FFFF00">会员</font>]<font color="#FFFF00">享受更多特权...</font></A><u><a href="out.asp?username=<%response.write siteurl%>" target="_blank"><FONT color=#66CCFF> </font></a></u><% else %>
<u>
<A href="buyvip.asp" target=_blank><img src="images/vip_yes.gif" border="0" alt="高级会员"></u>[<font color="#00FF00">ＶＩＰ</font><font color="#FFFF00">会员</font>]<u><a href="out.asp?username=<%response.write siteurl%>" target="_blank"></a><% end if %></td>
</tr>
<tr>
<td><div align="right">得票时间：</div></td>
<td><%response.write indate%></td>
</tr><SCRIPT language=javascript type=text/javascript>
function copytovote()
{
var clipBoardContent='';
clipBoardContent+="http://www.09fby.cn/in.asp?id=<%response.write siteurl%>";window.clipboardData.setData("Text",clipBoardContent);
alert("投票连接地址已经复制成功！给您的朋友打开即可帮[他/她]拉票！");
}
</SCRIPT>
<tr>
<td><div align="right">登记时间：</div></td>
<td><%response.write dateandtime%> <A title=点击复制[他/她]的投票代码 onclick=copytovote() href="#"><FONT color=#99ff00><U>帮TA拉票</U></FONT></A></TD>
</TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD>
<TD>
<P>
<TABLE cellSpacing=2 cellPadding=1 width=200 background="" border=0>
<TBODY>
<TR>
<TD vAlign=top width="100%">
<P align=center>
<b>
<a target="_blank" href="/in.asp?id=<%=rs("username")%>">
<font color=#00FFFF><u>投TA①票</u></font></a></b></P></TD></TR></TBODY></TABLE></P></TD></TR></TBODY></TABLE></TD></TR>
<TR>
<TD vAlign=top height=30 borderColor=#333333 bgColor=#1D1D1D>
<TABLE borderColor=#333333 bgColor=#1D1D1D cellSpacing=0 cellPadding=0 width="100%"
border=0>
<TBODY>
<TR>
<TD width="25%">
<DIV align=center>今日得数</DIV></TD>
<TD width="25%">
<DIV align=center>今日被踩</DIV></TD>
<TD width="25%">
<DIV align=center>本月得数</DIV></TD>
<TD width="25%">
<DIV align=center>本月被踩</DIV></TD></TR>
<TR>
<TD width="25%">
<DIV align=center><font color=#FFFF00><%=rs("inj")%>:票</font></DIV></TD>
<TD width="25%">
<DIV align=center><font color=#00FFFF><%=rs("outj")%>:次</font></DIV></TD>
<TD width="25%">
<DIV align=center><font color=#FFFF00><%=rs("inc")%>:票</font></DIV></TD>
<TD width="25%">
<DIV align=center><font color=#00FFFF><%=rs("outc")%>:次</font></DIV></TD>
</TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
<%
rs.MoveNext
Loop
%>
<%rs.close%>
<center><!--#include file="under.asp"-->
</html>