shsq.asp

信运网店系统是一套功能完善、简洁美观

<!--#include file="conn1.asp"-->
<!--#include file="b2b_fsys1.asp"-->
<%
if session("admin")="" then
conn.close
set conn = nothing
response.Write "<script language='javascript'>alert('请先登录！');history.go(-1);</script>"
response.End
else
if request.cookies("Buy2Buy")("admin")="" then
conn.close
set conn = nothing
response.Write "<script language='javascript'>alert('请先登录！');history.go(-1);</script>"
response.End
end if
end if
'限制添加权限管理员
if session("rank")=2 then
conn.close
set conn = nothing
response.Write "<script language='javascript'>alert('您的管理权限未达到此操作等级!');history.go(-1);</script>"
response.End
end if
%>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
-->
</style>
<style type="text/css">
<!--
.style1 {color: #FF0000}
-->
</style>
<link href="admincss.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
body {
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
}
.STYLE4 {color: #000000;
	font-weight: bold;
}
.style4 {color: #FF0000}
-->
</style>
<table width="99%" border="5" align="center" cellpadding="5" cellspacing="5" bordercolor="#CCCCCC" bgcolor="#FFFFFF">
  <tr> 
    <td background="images/topbg.gif"><span class="STYLE4"><img src="images/pic5.gif" width="28" height="22" align="absmiddle" />您现在所在的位置是： <a href="adminhelp.asp">管理首页</a> -&gt; <span class="style4">会员申请审核</span></span></td>
  </tr>
  <tr> 
      <td valign="top" bgcolor="#FFFFFF"><table width="100%" border="0" cellpadding="0" cellspacing="0" class="zi1">
        <tr>
          <td align="center"><table width="98%" border="2" cellpadding="1" cellspacing="1" bordercolor="#FFFFFF" bgcolor="#CCCCCC">
              <tr height="20" bgcolor="#F7F7F7">
    <td WIDTH="11%" height="25" align="center" background="images/topbg.gif"><strong>用户名</strong></td>
    <td WIDTH="10%" height="25" align="center" background="images/topbg.gif"><strong>真实姓名</strong></td>
    <td WIDTH="23%" height="25" align="center" background="images/topbg.gif"><strong>注册时间</strong></td>
    <td WIDTH="16%" height="25" align="center" background="images/topbg.gif"><strong>会员级别</strong></td>
    <td WIDTH="9%" height="25" align="center" background="images/topbg.gif"><strong>积分</strong></td>
    <td WIDTH="17%" height="25" align="center" background="images/topbg.gif"><strong>状态</strong></td>
    <td WIDTH="14%" height="25" align="center" background="images/topbg.gif"><strong>操作</strong></td>
  </tr>
              <%
							 
							  strFileName="shsq.asp"
							  
							  const MaxPerPage=20
							  

sql="select * from [user] where (zhuangtai<>0) and (zhuangtai<>null) order by userid desc"
if request("page")<>"" then
    currentPage=cint(request("page"))
else
	currentPage=1
end if
'response.write sql
Set rsArticleList= Server.CreateObject("ADODB.Recordset")
rsArticleList.open sql,conn,1,1
if rsArticleList.eof and rsArticleList.bof then
	
		response.write "<p align='center'><br>没有搜索到任何相关信息！<br></p>"
	
else
   	totalPut=rsArticleList.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
       	showContent
       	housepage
 	else
     	if (currentPage-1)*MaxPerPage<totalPut then
       	   	rsArticleList.move  (currentPage-1)*MaxPerPage
       		dim bookmark
           	bookmark=rsArticleList.bookmark
            showContent
            housepage
       	else
	        currentPage=1
           	showContent
           housepage
	    end if
	end if
end if
rsArticleList.close
set rsArticleList=nothing
			sub showcontent
		  dim ArticleNum
    ArticleNum=0
	do while not rsArticleList.eof
									 %>
              <tr align="center" bgcolor="#FFFFFF" height="20">
    <td height="25" align="center"><a href=b2b_userinfo.asp?id=<%=rsArticleList("userid")%>><%=trim(rsArticleList("username"))%></a></td>
    <td height="25"><%=trim(rsArticleList("realname"))%></td>
    <td height="25"><%=rsArticleList("adddate")%></td>
    <td height="25">
	<%
				  '查询出用户的等级和积分
			  mSql="Select a.UserID as UserID,a.Username as UserName,a.Score as Score,a.grpID as grpID,b.GrpName as GrpName From [User] a,[b2b_userjb] b where a.GrpID = b.GrpID and a.UserID="&rsArticleList("Userid")
			  
			  set mRs=conn.execute(mSql)
			  if not (mRs.eof and mRs.bof) then
			  	response.write mRs("GrpName")
			  end if
			  mRs.close
			  set mRs=nothing
	%></td>
    <td height="25"><%=rsArticleList("score")%></td>
    <td height="25"><%
			mSql="select grpID,grpName From b2b_userjb where grpID="&rsArticleList("zhuangtai")
			set mRs=conn.execute(mSql)
			if not (mRs.eof and mRs.bof) then
				response.write "<font color=#F10808>申请为"&mRs("grpName")&"</font>" 
			end if
			mRs.close
			set mRs=nothing
			%>    </td>
    <td height="25">
	<%
	link1=trim("shsave_new.asp")
	link2=trim("scsave_new.asp")
	%>
	<img src="images/pic21.gif" align="absmiddle" /><a href="<%=link1%>?grpID=<%=rsArticleList("zhuangtai")%>&id=<%=rsArticleList("userid")%>">审核</a>
	<a href="<%=link2%>?grpID=<%=rsArticleList("zhuangtai")%>&id=<%=rsArticleList("userid")%>"><img src="images/pic22.gif" width="17" height="15" border="0" align="absmiddle" />删除</a>	</td>
  </tr>
              <%
		ArticleNum=ArticleNum+1
	   	if ArticleNum>=MaxPerPage then exit do
	   	rsArticleList.movenext
	loop
	%>
            </table>
              <%end sub
	  sub housepage%>
              <table width="100%" height="22" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
                <tr>
                  <td height="22"><%showpage strFileName,totalput,MaxPerPage,true,true,"条信息"%>                  </td>
                </tr>
            </table>
              <%end sub%>
          </td>
        </tr>
      </table>
    <div align="center"></div></td>
  </tr>
</table>