userinfo.asp

蓝芒3.0A最新所有功能完整破解版

<% ModuleCode="M0110" %>
<!--#include file="../../Include/Reference.asp"-->
<%
Call PrintPageHead
%>
<!--#include file="../../Include/connect.asp"-->
<%
strPage=""
strSQL="Select * from  T_DNS_UserInfo where UserStat<>'2'"
if len(request("find"))>0 then
	if len(request("UserID"))>0 then
		strSQL=strSQL & " and UserID=" & request("UserID")
	end if
	if len(request("UserName"))>0 then
		strSQL=strSQL & " and UserName like '%" & request("UserName") & "%'"
'------------------------------------------------
end if
	if len(request("Province"))>0 then
		strSQL=strSQL & " and Province like '%" & request("Province") & "%'"
'------------------------------------------------
	end if
	if len(request("LevelCode"))>0 then
		strSQL=strSQL & " and LevelCode='" & request("LevelCode") & "'"
	end if
	strPage="find=YES&UserID=" & request("UserID") & "&LevelCode=" & request("LevelCode") & "&UserName=" & request("UserName") & "&Province=" & request("Province")
end if
strSQL=strSQL & " order by UserID"
Set Rs= Server.CreateObject("ADODB.Recordset")
Rs.open strSQL,Cn,1,1
If Rs.Eof Then
	Response.Write "没有用户信息记录！"
else

Rs.PageSize=Opt_PageSize
pages=Rs.pagecount
records=Rs.recordcount
currentpage=request("currentpage")
if currentpage="" or currentpage<1 then currentpage=1
currentpage=cint(currentpage)
if currentpage>pages then currentpage=pages
Rs.absolutepage=currentpage
%>
      
<table border="0" cellpadding="0" cellspacing="0" width="100%">
    <tbody>
      <tr>
        <td height="22" class="titletext"><font color="<%=Opt_Font_TitleColor%>"><strong>用户信息管理</strong></font></td>
		<td align="right"><a href="UserInfoSch.asp" class="a2"><b>查找用户</b></a></td>
        <td align="right">共 <font color="red"><b><%=Records%></b></font> 个会员　页次: 
          <font color="red"><b><%=currentpage%></b></font> / <font color="red"><b><%=Pages%></b></font> 
          页
        </td>
      </tr>
    </tbody>
</table>
<!------------------------------------------------------------------------------------->
<table width="100%" border="0" cellpadding="2" cellspacing="1" bgcolor="<%=Opt_Table_BGColor%>">
  <tr bgcolor="<%=Opt_TR_BGColor%>" height="24"> 
    <td width="9%">用户编号</td>
    <td width="39%">用户名称</td>
    <td width="11%"> 
      <div align="center">区域</div>
    </td>
    <td width="10%"> 
      <div align="center">用户角色</div>
    </td>
    <td width="10%"> 
      <div align="center">用户级别</div>
    </td>
    <td width="11%"> 
      <div align="center">信用额(元)</div>
    </td>
    <td width="10%"> 
      <div align="center">状态</div>
    </td>
  </tr>
  <%
linenumber=Rs.pagesize
do while (not Rs.eof) and (line<linenumber)
     if line mod 2 =0 Then %>
  <tr bgcolor="<%=Opt_TD_BGColor1%>" height="20"> 
    <% else %>
  <tr bgcolor="<%=Opt_TD_BGColor2%>" height="20"> 
    <% end if %>
    <td width="9%"><a href="UserInfoEdt.asp?UserID=<%=Rs("UserID")%>" class="a2"><font color="<%=Opt_Font_IndexColor%>"><%=Rs("UserID")%></font></a></td>
    <td width="39%"><%=Rs("UserName")%> 
      <!--(<%=Rs("EUserName")%>)-->
    </td>
    <td width="11%"> 
      <div align="center"><%=Rs("Province")%></div>
    </td>
    <td width="10%"> 
      <div align="center"><a href='UserInfoRole.asp?UserID=<%=rs("UserID")%>&UserName=<%=rs("UserName")%>&EUserName=<%=rs("EUserName")%>' class='a2'> 
        <%
		strSQL="Select b.RoleName from  T_DNS_UserRole a,T_DNS_RoleInfo b where a.UserID=" & rs("UserID") & " and  a.RoleCode=b.RoleCode order by b.RoleCode"
		Set Rs1= Server.CreateObject("ADODB.Recordset")
		Rs1.open strSQL,Cn,1,1
		if not rs1.eof then
			do while not Rs1.eof
				response.write rs1("RoleName")&" "
				Rs1.MoveNext
			Loop
		else
			response.write "点击添加"
		end if
		rs1.close
        %>
        </a></div>
    </td>
    <td width="10%"> 
      <div align="center"><a href='UserInfoLevel.asp?UserID=<%=rs("UserID")%>&UserName=<%=rs("UserName")%>&EUserName=<%=rs("EUserName")%>&Level=<%=rs("LevelCode")%>' class='a2'> 
        <%
		strSQL="Select LevelName from  T_DNS_UserLevel where LevelCode='" & rs("LevelCode") & "'"
		Set Rs1= Server.CreateObject("ADODB.Recordset")
		Rs1.open strSQL,Cn,1,1
		if not rs1.eof then
			response.write rs1("LevelName")&" "
		else
			response.write "点击添加"
		end if
		rs1.close
        %>
        </a></div>
    </td>
    <td width="11%"> 
      <div align="center"><a href="ChangeOverMoney.asp?ID=<%=rs("UserID")%>" class="a2"> 
        <%
        if ISNULL(Rs("OverMoney")) then
        	Response.Write "0"
        else
        	Response.Write Rs("OverMoney")
        end if
        %>
        </a></div>
    </td>
    <td width="10%"> 
      <div align="center"> 
        <%if rs("UserStat")="3" then%>
        <a href="UserInfoSQL.asp?act=1&UserID=<%=Rs("UserID")%>" class="a2"><font color="#FF0000">被禁用</font></a> 
        <%else%>
        <a href="UserInfoSQL.asp?act=2&UserID=<%=Rs("UserID")%>" class="a2">启用</a>
        <%end if%>
      </div>
    </td>
  </tr>
  <%
	Rs.MoveNext
	line=line+1
  Loop
%>
</table>
<!-------------------------------------分页导航--------------------------------------->
  
<table width="100%" cellspacing="0" cellpadding="0" border="0">
  <tbody> 
  <form name="pageform" method="Post" action="<%=Request("SCRIPT_NAME")%>?<%=strPage%>">
    <tr height="26">
      <td>&nbsp;&nbsp;<input class=buttongreen onClick="location='<%=HomeDir%>scripts/user/UserInfoSch.asp'" type=button value="  查找用户" name=Submit22></td>
      <td> 
        <%if currentpage>1 then%>
        <a href="<%=Request("SCRIPT_NAME")%>?currentpage=1&<%=strPage%>" class="a2">首页</a> 
        <a href="<%=Request("SCRIPT_NAME")%>?currentpage=<%=currentpage-1%>&<%=strPage%>" class="a2">上一页</a> 
        <%end if%>
        <%if currentpage<pages then%>
        <a href="<%=Request("SCRIPT_NAME")%>?currentpage=<%=currentpage+1%>&<%=strPage%>" class="a2">下一页</a> 
        <a href="<%=Request("SCRIPT_NAME")%>?currentpage=<%=pages%>&<%=strPage%>" class="a2">末页</a> 
        <%end if%>
      </td>
      <td>共 <font color="red"><b><%=Records%></b></font> 个会员　页次: <font color="red"><b><%=currentpage%></b></font> 
        / <font color="red"><b><%=Pages%></b></font> 页</td>
      <td align="right"> 转到: 
        <input type="text" name="currentpage" size="2" maxlength="6" class="input" value="<%=currentpage%>">
        页 </td>
    </tr>
  </form>
  </tbody> 
</table>
<%  
end if

Rs.Close
Cn.Close
Set Rs=Nothing
Set Cn=Nothing
%>
<br><br>

<%
Call PrintPageBottom
%>