admin_verify1.asp

本源代码为 网雷弹窗联盟程序的源代码,欢迎大家的下载,学习与交流

<!--#include file="head.asp"-->
<!--#include file="AdminSession.asp"-->
<SCRIPT language=javascript>
<!--
function ShowModeWindow(id){
	var RV=window.showModalDialog("admin_verify_Dialog.asp?id="+id,window,"status:no;dialogWidth:500px;dialogHeight:350px");
	//window.location.reload();
}

//-->
</SCRIPT>
<%
if trim (request("action"))="删除" then
	call Delarticle
end if

dim totalPut
dim CurrentPage
dim MaxPerPage
if not isempty(request("page")) then
	currentPage=cint(request("page"))
else
	currentPage=1
end if
MaxPerPage=20
%>
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td>&nbsp;</td>
  </tr>
</table>
<table width="95%" border="0" align="center" cellpadding="6" cellspacing="1" bgcolor="#0099CC" >
  <tr bgcolor="e9effe"> 
    <td height="30" colspan="12" align="center"><b>+ 管 理 审 核  设 置 +</b></td>
  </tr>
  <tr align="center" bgcolor="e9effe"> 
    <td height="25">ID</td>
    <td>操作</td>
    <td>用户名称</td>
    <td>网站名称</td>
    <td>联系EMAIL</td>
    <td>QQ</td>
    <td>申请时间</td>
    <td>帐号状态</td>
    <td>弹出流量</td>
    <td>弹入流量</td>
    <td>剩余流量</td>
    <td>帐户余额</td>
  </tr>
  <tr bgcolor="e9effe"> 
    <td height="25" colspan="12">
	<%
	Sql = "Select * from Users order by Id desc"
	rs.open sql,conn,3,3
 	if rs.eof and rs.bof then
		Response.Write "<center><font color=red>还没有申请。</font></center>"
	else
		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
           			'showpage totalput,MaxPerPage,"admin_verify1.asp"
            		showContent
            		showpage totalput,MaxPerPage,"admin_verify1.asp"
       		else
          		if (currentPage-1)*MaxPerPage<totalPut then
            			rs.move  (currentPage-1)*MaxPerPage
            			dim bookmark
            			bookmark=rs.bookmark
           				'showpage totalput,MaxPerPage,"admin_verify1.asp"
            			showContent
             			showpage totalput,MaxPerPage,"admin_verify1.asp"
        		else
	        		currentPage=1
           			'showpage totalput,MaxPerPage,"admin_verify1.asp"
           			showContent
           			showpage totalput,MaxPerPage,"admin_verify1.asp"
	      		end if
	   		end if
		rs.close
		set rs = nothing	
   	end if 
		
sub showContent
dim i 
	i=0
%>	</td>
</tr>
<form action="" name="form1" method="post">
<%do while not rs.eof%>
<tr bgcolor="e9effe"> 
<td height="25" align="center"><%=rs("Id")%></td>
<td height="25" align="left"><input type="checkbox" name="id" value="<%=rs(0)%>" /></td>
<td align="left"><a href="javascript:ShowModeWindow(<%=rs("Id")%>)"><%=rs("UserName")%></a></td>
<td height="25" align="left"><a href="to.asp?id=<%=rs("Id")%>" target=_blank><%=rs("SiteName")%></a></td>
<td height="25" align="left"><%=rs("Email")%></td>
<td height="25" align="left"><%=rs("QQ")%></td>
<td height="25" align="left"><%=rs("SignTime")%></td>
<%
	if rs("Flag")=0 then
		flagstatus="等待审核"
	elseif  rs("Flag")=1 then
		flagstatus="已认证"
	elseif  rs("Flag")=2 then
		flagstatus="已锁定"
	end if

%>
<td height="25" align="left"><%=flagstatus%></td>
<td height="25" align="left"><%=rs("OutPop")%></td>
<td height="25" align="left"><%=rs("InPop")%></td>
<td height="25" align="left"><%=rs("RemainPop")%></td>
<td height="25" align="left"><%=rs("Money")%></td>
</tr>
<%
i=i+1
if i>=MaxPerPage then exit do
rs.movenext
loop
%>

<tr bgcolor="e9effe"> 
<td height="25" colspan="12">管理操作：全部选择
  <input type="checkbox" name="chkall" onclick="javascript:CheckAll(this.form)" value="ON" />
  <input onclick="{if(confirm('确定删除选定的帐号吗?\n')){this.document.form1.submit();return true;}return false;}" type="submit" value="删除" name="action" class="tbutton" />
  &nbsp; <input onclick="{window.location.reload();}" type="button" value="刷新数据" name="action2" class="tbutton" /></td>
  </tr>
  </form>
<tr bgcolor="e9effe">
  <td height="25" colspan="12">
  <%
end sub 

function showpage(totalnumber,maxperpage,filename)
  	dim n
'on error resume next

  	if totalnumber mod maxperpage=0 then
     		n= totalnumber \ maxperpage
  	else
     		n= totalnumber \ maxperpage+1
  	end if
  	response.write "<table cellspacing=1 width='100%' border=0 colspan='4' ><form method=Post action="""&filename&"""><tr><td align=right> "
  	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>
  <%   
	response.write "</td></tr></FORM></table>"
end function

Sub Delarticle()
	if Request("id") = "" then
		Response.Write("<script>alert(""请勾选你要删除的帐号。"");location.href=""admin_verify1.asp"";</script>")
		Response.end
	end if
	id = Request("id")
	conn.execute("delete from Users where Id in ("& id &")")
	Response.Write("<script>alert(""删除成功"");location.href=""admin_verify1.asp"";</script>")
	Response.End()
End Sub
%></td>
</tr>
</table>
<SCRIPT language=javascript>
	var menu=new Array(["查看审核用户帐号"]);
	drawMenu(menu);
	setFrameActive();
</SCRIPT>