📄 xxtj.asp

📁 本源代码为网雷弹窗联盟程序的源代码,欢迎大家的下载,学习与交流
💻 ASP
字号:
<html>
<!--#include file="head.asp"-->
<!--#include file="UserSession.asp"-->
<title><%=NetName%> - 下线统计</title>
<body>
<%
dim maxperpage
dim totalPut
dim CurrentPage
'修改此处用于修改每页显示的记录数量
maxperpage=20
if not isempty(request("page")) then
		currentPage=cint(request("page"))
else
		currentPage=1
end if

sql="select * from Users where Id="&cint(session("Id"))
set rs=conn.execute (sql)
if not rs.eof then
	uname=rs("UserName")
	email=rs("Email")
	qq=rs("QQ")
	sitename=rs("SiteName")
	siteurl=rs("SiteUrl")
	outtype=rs("OutType")
	intype=rs("InType")

	sitetype=rs("SiteType")
	sxid=rs("SxId")
	
	outpop=rs("OutPop")
	inpop=rs("InPop")
	remainpop=rs("RemainPop")
	
	rs.close
end if
%>
<!--#include file="toper.asp"-->
<table width="750" height="5" border="0" align="center" cellpadding="0" cellspacing="0">
	<tr>
		<td></td>
	</tr>
</table>
<table width="750" height="5" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td align=left><br>
        <%ShowMenu%>
        <BR></td>
  </tr>
</table>
<table cellspacing="0" cellpadding="0" width="500" align="center" border="0">
		<tr><td style="line-height:200%"><%=ShowContent%></td></tr>
</table>
<TABLE borderColor=#cccccc cellSpacing=0 cellPadding=2 width=750 align=center border=1>
  <TBODY>
    <TR>
      <TD width="25%"><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>
      <TD width="10%"><DIV align=center>帐号状态</DIV></TD>
    </TR>
	
	<%
	set rs=server.createobject("adodb.recordset")
	sql="select * from Users where SxId="&cint(session("Id"))
	rs.open sql,conn,1,1
 	if not rs.eof then
		totalPut=rs.recordcount
		if currentpage<1 then
			currentpage=1
		end if
		if (currentpage-1)*MaxPerPage>totalput then
		if (totalPut mod MaxPerPage)=0 then
			currentpage= totalPut \ MaxPerPage
		else
			currentpage= totalPut \ MaxPerPage + 1
		end if
		end if
		if currentPage=1 then
			showContent2
			showpage totalput,MaxPerPage,"xxtj.asp"
		else
			if (currentPage-1)*MaxPerPage<totalPut then
				rs.move  (currentPage-1)*MaxPerPage
				dim bookmark
				bookmark=rs.bookmark
				showContent2
				showpage totalput,MaxPerPage,"xxtj.asp"
			else
				currentPage=1
				showContent2
				showpage totalput,MaxPerPage,"xxtj.asp"
			end if
		end if
		rs.close
		set rs = nothing	
   	end if 

	%>
	
  </TBODY>
</TABLE>
<p>&nbsp;</p>
<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 xxtj 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=0
	do while not rs.eof
	response.write "<tr> "
	response.write "<td height=25 align=center><a href="&rs("SiteUrl")&">"&rs("SiteName")&"</a></td>"
	response.write "<td height=25 align=center>"&rs("RemainPop")&"</td>"
	response.write "<td height=25 align=center>"&rs("InPop")&"</td>"
	response.write "<td height=25 align=center>"&rs("OutPop")&"</td>"
	response.write "<td height=25 align=center>"&rs("SignTime")&"</td>"
	response.write "<td height=25 align=center>"&GetStatus(rs("Flag"))&"</td>"
	response.write "</tr>"
	i=i+1
	if i>=MaxPerPage then exit do
	rs.movenext
	loop
end sub
%>

<%
function showpage(totalnumber,maxperpage,filename)
	dim n
	if totalnumber mod maxperpage=0 then
		n= totalnumber \ maxperpage
	else
		n= totalnumber \ maxperpage+1
	end if
	response.write "<table cellspacing=1 width='750' border=0 colspan='4' align=center><form method=Post action="""&filename&"""><tr><td align=center> <br>"
	if CurrentPage<2 then
		response.write "共<b><font color=red>"&totalnumber&"</font></b>条记录&nbsp;首页 上一页&nbsp;"
	else
		response.write "共<b><font color=red>"&totalnumber&"</font></b>条记录&nbsp;<a href="&filename&"?page=1>首页</a>&nbsp;"
		response.write "<a href="&filename&"?page="&CurrentPage-1&">上一页</a>&nbsp;"
	end if
	
	if n-currentpage<1 then
		response.write "下一页 尾页"
	else
		response.write "<a href="&filename&"?page="&(CurrentPage+1)&">"
		response.write "下一页</a> <a href="&filename&"?page="&n&">尾页</a>"
	end if
	response.write "&nbsp;页次：<strong><font color=red>"&CurrentPage&"</font>/"&n&"</strong>页 "
	response.write "&nbsp;<b>"&maxperpage&"</b>条记录/页 "
	%>
	  转到： 
	  <select name='page' size='1' style="font-size: 9pt" onChange='javascript:submit()'>
		<%for i = 1 to n%>
		<option value='<%=i%>' <%if CurrentPage=cint(i) then%> selected <%end if%>>第<%=i%>页</option>
		<%next%>
	  </select>
	<input type=hidden name=channel id=channel value=<%=channel_en%>>
	<%   
	response.write "</td></tr></FORM></table>"
end function

Function GetStatus(Flag)
	if Flag=0 then
		GetStatus="等待审核"
	elseif Flag=1 then
		GetStatus="已经认证"
	elseif Flag=2 then
		GetStatus="已经锁定"
	end if
End Function
%>
⌨️ 快捷键说明

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