📄 top.asp

📁 本源代码为网雷弹窗联盟程序的源代码,欢迎大家的下载,学习与交流
💻 ASP
字号:
<html>
<!--#include file="head.asp"-->
<title><%=NetName%> - 网站排行榜</title>

<body>
<!--#include file="toper.asp"-->
<%
'最多输出多少记录
'输出类型列表时多少个换行
HowManyTop=20
HowManyCrlf=12
Dim OwnerClass
OwnerClass=cint(request("class"))
if OwnerClass="" or OwnerClass=0 then
	OwnerClass=0
end if

if OwnerClass<>0 then
	sql="select top "&HowManyTop&" * from Users where SiteType="&OwnerClass&" and RemainPop>1 and Flag=1 order by SignTime desc,OutPop"
else
	sql="select top "&HowManyTop&" * from Users where RemainPop>1 and Flag=1  order by SignTime desc,OutPop"
end if
set rs=conn.execute (sql)
%>
<table width="750" height="5" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td></td>
  </tr>
</table>
<table width="750" height="10" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td align=left><%
	if Session("Id")<>"" and Session("UserName")<>"" then
	  response.write "<br>"
	  call ShowMenu
	  response.write "<br>"
	end if%></td>
  </tr>
</table>
<table width="750" height="5" border="0" align="center" cellpadding="0" cellspacing="0">
	<tr>
		<td><H1>网站排行榜(TOP20) - 最新通过审核</H1></td>
	</tr>
</table>
<table width="750" height="5" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td align=center><%ShowClassMenu()%><br></td>
  </tr>
</table>
<TABLE borderColor=#cccccc cellSpacing=0 cellPadding=2 width=750 align=center border=1>
    <TR>
      <TD width="12%"><DIV align="center">No.</DIV></TD>
      <TD width="20%"><DIV align=center>网站名称</DIV></TD>
      <TD width="15%"><DIV align=center>网站分类</DIV></TD>
      <TD width="15%"><DIV align=center>总弹入数</DIV></TD>
      <TD width="15%"><DIV align=center>总弹出数</DIV></TD>
      <TD width="20%"><DIV align=center>注册时间</DIV></TD>
    </TR>
	<%showContent2%>
</TABLE>
<table width="750" height="5" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td align=center><br><%ShowContent()%><br></td>
  </tr>
</table>
<table width="750" height="5" border="0" align="center" cellpadding="0" cellspacing="0">
	<tr>
		<td></td>
	</tr>
</table>
<!--#include file="foot.asp"-->

</body>

</html>
<%
Function ShowContent ()
	sql="select [top] from Notice"
	set rs=conn.execute (sql)
	if not rs.eof then
		response.write rs(0)
		rs.close
	end if
End Function

sub showContent2
	dim i
	i=1
	do while not rs.eof
	response.write "<tr> "
	response.write "<td height=25 align=center>&nbsp;"&i&"</td>"
	response.write "<td height=25 align=center>&nbsp;<a target=_blank href='to.asp?id="&rs("Id")&"'>"&rs("SiteName")&"</a></td>"
	response.write "<td height=25 align=center>&nbsp;<a href='?class="&rs("SiteType")&"'>"&GetClassName(rs("SiteType"))&"</a></td>"
	response.write "<td height=25 align=center>&nbsp;"&rs("InPop")&"</td>"
	response.write "<td height=25 align=center>&nbsp;"&rs("OutPop")&"</td>"
	response.write "<td height=25 align=center>&nbsp;"&rs("SignTime")&"</td>"
	response.write "</tr>"
	i=i+1
	rs.movenext
	loop
end sub
%>

<%
Function GetStatus(Flag)
	if Flag=0 then
		GetStatus="等待审核"
	elseif Flag=1 then
		GetStatus="已经认证"
	elseif Flag=2 then
		GetStatus="已经锁定"
	end if
End Function

Function GetClassName(ClassId)
	sql_class="select TypeName from SiteType where Id=" &ClassId

	set rs_class=conn.execute (sql_class)
	if not rs_class.eof then
		GetClassName=rs_class("TypeName")
	else
		GetClassName=""
	end if
End Function

Sub ShowClassMenu
	i=0
	sql_class="select Id,TypeName from SiteType order by Id"
	set rs_class=conn.execute (sql_class)
	if not rs_class.eof then
		response.write "<P>"
		do while not rs_class.eof
			response.write "<A href=""top.asp?class="&rs_class("Id")&""">"&rs_class("TypeName")&"</A> "
			i=i+1
			if i mod HowManyCrlf=0 then response.write "<br>"
			rs_class.movenext
		loop
		response.write "</p>"
		rs_class.close
	end if
End Sub
%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -