⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 adcheckmember.asp

📁 ASP会员注册管理系统 主要用于ASP实现会员注册
💻 ASP
字号:
🔍 
<!-- #Include File=Conn.asp -->
<!-- #Include File=setup.asp -->
<%
response.buffer=true
Response.Expires=0
if session("adpass")<>"passed" then
response.redirect "adlogin.asp"
end if
   dim sql 
   dim rs '实例
   dim totalPut   '总记录数
   dim CurrentPage  '当前页
   dim TotalPages   '总页数
   dim i,j    
Set rs= Server.CreateObject ("ADODB.RecordSet")
sql = "select * from tempinfo order by 日期 desc "
rs.open sql, conn,1,3
'----------------------------------
if rs.bof then 	

%><head>
<link rel="stylesheet" type="text/css" href="style2.css">
</head>

<TABLE border=0 cellPadding=0 cellSpacing=0 width="760" align="center">
  <TBODY> 
  <TR>
    <TD width="30%"><img src="image/home.gif" width="16" height="16"> <a href="<%=homepage%>">主页</a> 
      &gt;&gt; 会员管理</TD>
    <TD width="79%"> 
      <P align=right><img src="image/member.gif" width="17" height="17"> <a href="adcheckmember.asp">会员审核</a> 
        　<img src="image/pass1.gif" width="13" height="16"> <a href="admypass.asp">路径探测</a> </A>
      </P>
    </TD></TR></TBODY></TABLE>
<table border=0 cellpadding=0 cellspacing=1 width=760 align="center">
  <tr> 
    <td align=middle class=td1 height=15 width=54> 
      <div align="center"><font 
      color=#ff0000>管理</font></div>
    </td>
    <td align=middle class=td1 height=20 width=74><font 
      color=#ff0000>用户名称</font></td>
    <td align=middle class=td1 height=15 width=116><font 
      color=#ff0000>公司名称</font></td>
    <td align=middle class=td1 height=15 width=153><font 
    color=#ff0000>联系地址</font></td>
    <td align=middle class=td1 height=15 width=84> 
      <div align="center"><font 
    color=#ff0000>电话</font></div>
    </td>
    <td align=middle class=td1 height=15 width=58> 
      <div align="center"><font 
      color=#ff0000>邮政编码</font></div>
    </td>
    <td align=middle class=td1 height=15 width=118> 
      <div align="center"><font 
      color=#ff0000>电子邮件</font></div>
    </td>
    <td align=middle class=td1 height=15 width=86> 
      <div align="center"><font 
      color=#ff0000>加入日期</font></div>
    </td>
  </tr>
  </table>
  <br>
  <br>
  <br>
  <%
  
	response.write"<center>没有会员等待审核,请返回<a href=regedit.asp>注册</a> 或<a href=adlist.asp>会员管理</a></center>"
	response.end
end if
rs.MoveFirst  '到第一条记录
rs.pagesize=MaxPerPage  '定义每页记录数
howmanyfields=rs.Fields.Count-1  

If trim(Request("Page"))<>"" then
	CurrentPage= CLng(request("Page")) 
	If CurrentPage> rs.PageCount then 
		CurrentPage = rs.PageCount 
	End If 
Else 
	CurrentPage= 1 
End If 
if rs.eof then 
	response.write "<p align='center'> ERROR!</p>" 
	response.redirect ("write.asp")
else 
	totalPut=rs.recordcount 'totalput=总记录数
	if CurrentPage<>1 then 
		if (currentPage-1)*MaxPerPage < totalPut then 
			rs.move(currentPage-1)*MaxPerPage 
			dim bookmark 
			bookmark=rs.bookmark
		end if 
	end if
end if
totalpages=rs.pagecount
set userSet = Server.CreateObject("ADODB.RecordSet")
userSet.open "info",conn,1 ,3
user=userSet.recordcount
%>
<html>
<head>
<link rel="stylesheet" type="text/css" href="style2.css">
<SCRIPT language=JavaScript1.2>
<!--
function MM_goToURL() { //v3.0
var i, args=MM_goToURL.arguments; document.MM_returnValue = false;
for (i=0; i<(args.length-1); i+=2) eval(args[i]+".location='"+args[i+1]+"'");
}
//-->
</SCRIPT>
</head>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="760" align="center">
  <TBODY> 
  <TR>
    <TD width="30%"><img src="image/home.gif" width="16" height="16"> <a href="<%=homepage%>">主页</a> 
      &gt;&gt; 会员审核</TD>
    <TD width="79%"> 
      <P align=right><img src="image/add.gif" width="16" height="16"> <a href="adlist.asp">会员管理</a> 
        　<img src="image/pass1.gif" width="13" height="16"> <a href="admypass.asp">路径探测</a> 
        <img src="image/ico.gif" width="25" height="16">总页数:<%=TotalPages%>&nbsp;&nbsp;&nbsp;<img 
      src="image/rent.gif" width="18" height="13">当前页数:<%=CurrentPage%>&nbsp;&nbsp;&nbsp; 
        <img border=0 
      src="image/people.gif" width="9" height="12">&nbsp;注册人数:<%=user%></A> </P>
    </TD></TR></TBODY></TABLE>
<table border=0 cellpadding=0 cellspacing=1 width=760 align="center">
  <tr> 
    <td align=middle class=td1 height=15 width=54> 
      <div align="center"><font 
      color=#ff0000>管理</font></div>
    </td>
    <td align=middle class=td1 height=15 width=54> 
      <div align="center"><font 
      color=#ff0000>批准加入</font></div>
    </td>    
    <td align=middle class=td1 height=20 width=74><font 
      color=#ff0000>用户名称</font></td>
    <td align=middle class=td1 height=15 width=116><font 
      color=#ff0000>公司名称</font></td>
    <td align=middle class=td1 height=15 width=153><font 
    color=#ff0000>联系地址</font></td>
    <td align=middle class=td1 height=15 width=84> 
      <div align="center"><font 
    color=#ff0000>电话</font></div>
    </td>
    <td align=middle class=td1 height=15 width=58> 
      <div align="center"><font 
      color=#ff0000>邮政编码</font></div>
    </td>
    <td align=middle class=td1 height=15 width=118> 
      <div align="center"><font 
      color=#ff0000>电子邮件</font></div>
    </td>
    <td align=middle class=td1 height=15 width=86> 
      <div align="center"><font 
      color=#ff0000>加入日期</font></div>
    </td>
  </tr>
  <%

do while not rs.eof and i < maxperpage 

	Response.Write "<TR>"
	set replySet = Server.CreateObject("ADODB.RecordSet")        

response.write "<td align='center' height='20' class=td><a href=adnotpass.asp?id="&rs("用户名")&">删除</a></td>"
response.write "<td align='center' height='20' class=td><a href=adpass.asp?id="&rs("用户名")&">通过</a></td>"
response.write "<td align='center' height='20' class=td>"&rs("用户名")&"</td>"
response.write "<td align='center' height='20' class=td>"&rs("公司名称")&"</td>"
response.write "<td align='center' height='20' class=td>"&rs("公司地址")&"</td>"
response.write "<td align='center' height='20' class=td>"&rs("电话")&"</td>"
response.write "<td align='center' height='20' class=td>"&rs("邮编")&"</td>"
response.write "<td align='center' height='20' class=td>"&rs("电子邮件")&"</td>"
response.write "<td align='center' height='20' class=td>"&datevalue(rs("日期"))&"</td>"
titleID=rs("用户名")
	Response.Write "</TR>"
	i=i+1
	rs.movenext 
	loop
%> 
</table> 
<br>
<center>
<table border="0" cellspacing="1" cellpadding="0" width="760" align="center">
  <tr  bgcolor="#a2c8f0"> 
    <td>
      <div align="right">
        <select size="1" name="D1" onChange="MM_goToURL('parent',this.value);return document.MM_returnValue">
          <option>跳转页数</option>
          <%
soonhost=0
DO WHILE NOT soonhost = rs.PageCount %> 
          <option value="adcheckmember.asp?Page=<% =soonhost+1 %>"><% =soonhost+1 %></option>
          <% soonhost=soonhost+1
loop
%>
        </select>
        　 <%
dim n,k 
	if (totalPut mod MaxPerPage)=0 then  'n表示总页数
		n= totalPut \ MaxPerPage
	else  
		n= totalPut \ MaxPerPage + 1  
	end if
k=currentPage
		if k<>1 then
			response.write "[<b>"+"<a href='adcheckmember.asp?page=1'>首页</a></b>] "
			response.write "[<b>"+"<a href='adcheckmember.asp?page="+cstr(k-1)+"'>上一页</a></b>] "
		else
			Response.Write "[首页] [上一页]"
		end if
		if k<>n then
			response.write "[<b>"+"<a href='adcheckmember.asp?page="+cstr(k+1)+"'>下一页</a></b>] "
			response.write "[<b>"+"<a href='adcheckmember.asp?page="+cstr(n)+"'>尾页</a></b>] "
		else
			Response.Write "[下一页] [尾页]"
		end if
'------------------------------------------------------页面跳转
rs.close
set rs=nothing
conn.close
set conn=nothing
'====================================================
'迅捷会员注册管理系统 v2.0
'程序制做:迅捷主机网.http://www.soonhost.com
'迅捷主机网 ------ 首选域名、虚拟主机、企业邮局提供商
'网址：http://www.soonhost.com
'EMAIL：sell@china.com
'msn:soonhost@hotmail.com
'oicq: 123150745
'本站还提供大量脚本下载,负责安装;脚本定制价格低廉.
'程序为免费程序，您可以使用本程序，但必须 
'保留迅捷主机网(http://www.soonhost.com)的链接！
'================================================
%>
</div>
    
    </td> 
  </tr>
</table>
<br><div align="center">程序制作：<a href="http://www.soonhost.com" target="_blank"><b>迅捷主机网</b></a></div>
</html>

⌨️ 快捷键说明

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