📄 class.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="inc/conn.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>驴友俱乐部_百万流量交换_中国驴友网_中国最大的驴友俱乐部</title>
<META Name="keywords" Content="驴友俱乐部,驴友俱乐部主页,驴友俱乐部广告,驴友俱乐部经济,驴友俱乐部网,驴友俱乐部网站,驴友俱乐部网页,驴友俱乐部首页,百万主页,百万驴友俱乐部,百万驴友俱乐部主页,百万驴友俱乐部网,百万驴友俱乐部网站,百万驴友俱乐部网页,百万驴友俱乐部首页,百万网,百万网站,百万网页,百万美元,百万美元主页,百万美元网,百万美元网站,百万美元网页,百万美元首页,百万美圆,百万首页,网络驴友俱乐部,超级驴友俱乐部">
<META Name="description" Content="BannerBox.cn 百万流量免费广告驴友俱乐部">
<link href="css/css.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
body {
background-color: #FFFFFF;
}
-->
</style></head>
<body>
<div align="center">
<!--#include file="top.asp"-->
<!--头部代码结束-->
<!--头部代码结束-->
<!--顶线注册2000家可以删除-->
<table width="1000" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="1000" valign="top" background="images/grid1.gif">
<!--SHOW ADD-->
<%
dim rs,sql
dim num,i
set rs=server.CreateObject("adodb.recordset")
sql="select top 1000 * from G_user where G_comein>0 and G_validate=1 and G_webclass='"&replace(request("id"),"'","")&"' order by G_date desc"'G_userid
rs.open sql,conn,1,1%>
<table width="1000" border="0" cellspacing="0" cellpadding="0">
<%row_count=1 %>
<tr align="center">
<%if rs.eof and rs.bof then
response.write (" ")
else
randomize
Num=(int(rnd()*802)+1)
i=Num
'以上三行控制表格颜色
Do While Not rs.EOF%>
<td align="left"><table width="100" border="0" align="left" cellpadding="0" cellspacing="0">
<%if rs("G_photoshop")="no" then%>
<tr>
<td height="100" align="center" bgcolor="#FE<%=i%>"><a href="http://<%=rs("G_weburl")%>" target="_blank"><font title="<%=rs("G_webinfo")%>【点入】<%=rs("G_comein")%>【点出】<%=rs("G_goout")%>"><%=rs("G_webname")%><br><%=rs("G_webinfo")%></font></a></td>
</tr>
<%else%>
<tr>
<td height="100" align="center"><a href="http://<%=rs("G_weburl")%>" target="_blank"><img src="Spread/<%=rs("G_photoshop")%>" alt="<%=rs("G_webinfo")%>【点入】<%=rs("G_comein")%>【点出】<%=rs("G_goout")%>" width="100" height="100" border="0"></a></td>
</tr>
<%end if%>
</table></td>
<% if row_count mod 10 =0 then%>
</tr><%end if
rs.MoveNext
row_count=row_count+1
i=i+27'控制表格颜色
Loop
rs.close
end if%>
</table>
<!--SHOW END--></td>
</tr>
</table>
<!--底线注册超过2000家可以删除-->
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="1" bgcolor="#887872"></td>
</tr>
</table>
<!--底部代码开始-->
<!--#include file="bottom.asp"-->
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -