www.gusucode.com > QQ空间互踩联盟源码程序asp编程 > buyvip.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>购买高级会员 <%=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
dim rs,sql
dim condition,linkstr
find=hx.checkstr(trim(request("find")),50)
webtype=request("webtype")
sql="select * from Qzonev_Com_Link"
condition = " where 1=1 "
pl="vip"
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,indate desc"
%>
<!--#include file="top.asp"-->
<%
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if not rs.eof then
rs.PageSize = MaxVipSize
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 background="images/top_2.jpg"><div align="center"><b>人气联盟高级会员名单</b></div></td>
</tr>
</table>
<table bordercolordark="#FFFFFF"bordercolorlight="#cccccc" width="950" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td valign="top">
<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<MaxVipSize%>
<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><b><%=rs("sitename")%></b></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("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>
<td borderColor=#333333 bgColor=#1d1d1d><div align="center"><b>购买高级会员说明及支付方式</b></div></td>
</tr>
</table>
<TABLE borderColor=#000000 cellSpacing=2 cellPadding=1 width=950 align=center bgColor=#000000 border=1>
<tr align="left" borderColor=#333333 bgColor=#111111>
<td width="100%" height="10">
<div align="center"><br>
风云榜已开通高级会员服务，购买后将享受风云榜高级会员的特殊待遇。价格：[100酷币/月]关于酷币的赚取方法请到论坛查询,如果嫌麻烦可以以[10元/月]价格购买</div>
<br>
<div align="center">高级会员特殊功能①：自定义空间形象、QQ空间名称为加亮加粗、显示风云榜会员图标！如下图所示<br>
<img src=images/buyvip1.gif border="1"></div><br>
<div align="center">高级会员特殊功能②：新添加送礼物功能</div><br>
<div align="center">高级会员特殊功能③：正在开发中。。。</div><br>
<p align="center"><font color=red>*</font> 为了您的支付安全，汇款前务必与风云榜站长核实您要准备汇款的银行和金额 <font color=red>*</font>
<p>可通过<font color=#FFFF99>[网银在线支付、ATM机转帐、汇款]</font>等方式，直接转入本站唯一指定的银行帐户内。
<p>银行帐户：暂时只支持<font color=#FFFF99>[农行、财富通、支付宝]</font>联系站长：<a target=blank href=http://wpa.qq.com/msgrd?V=1&Uin=150040504&Site=www.17caiqq.cn&Menu=yes><img border="0" SRC=http://wpa.qq.com/pa?p=1:150040504:12 alt="点击这里给我发消息"></a>
<p>开户银行：邮政储蓄 开户城市：广西南宁 开户人：王一夏 银行帐户：622188 6110 000 770018 <br>
<br>
<font color=#FFFF99>支付宝</font>?支付宝账户：150040504@qq.com?<a href=https://www.alipay.com/ target="_blank">[直接进入支付宝在线支付]</a>
<p></p>
</td>
</tr>
</TABLE>
<%
rs.close
set rs=nothing
CloseDatabase
%>
<!--#include file="under.asp"-->
</body>
</html>