userinfosch.asp

来自「蓝芒3.0A最新所有功能完整破解版」· ASP 代码 · 共 87 行

<% ModuleCode="M0110" %>
<!--#include file="../../Include/Reference.asp"-->
<%
Call PrintPageHead
%>
<!--#include file="../../Include/connect.asp"-->
<script Language="JavaScript">
<!--
function CheckAll()
{  
	submitonce(form3);
	return true;
}
-->
</script>
<table width="450" cellspacing="0" cellpadding="0" border="0" align="center">
  <tr>
    <td>
     <font color="<%=Opt_Font_TitleColor%>" class="titletext"><strong>用户信息 -  查找</strong></font>
    </td>
    <td align="right">
     <a href="#" OnClick="javascript:history.go(-1)" class="a2">返 回</a>
    </td>
  </tr>
  <tr>
    <td colspan="2">
      <table width="100%" border="0" cellpadding="2" cellspacing="1" bgcolor="<%=Opt_Table_BGColor%>">
        <form name="form3" action="UserInfo.asp" method="post" onSubmit="return(CheckAll());">
          <input type="hidden" name="find" value="YES">
          <tr height="24" bgcolor="<%=Opt_TR_BGColor%>"> 
            <td bgcolor="<%=Opt_TR_BGColor%>" align="center"> 用户编号</td>
            <td bgcolor="<%=Opt_TD_BGColor2%>">&nbsp;
              <input type=text name="UserID"  value="" class="input">
            </td>
          </tr>
          <tr height="24"> 
            <td bgcolor="<%=Opt_TR_BGColor%>" align="center"> 用户名称</td>
            <td bgcolor="<%=Opt_TD_BGColor2%>">&nbsp;
              <input type=text name="UserName"  value="" class="input">
            </td>
          </tr>
          <tr height="24">
            <td bgcolor="<%=Opt_TR_BGColor%>" align="center">所在区域</td>
            <td bgcolor="<%=Opt_TD_BGColor2%>">&nbsp;
              <input type=text name="Province"  value="" class="input">
            </td>
          </tr>
          <tr height="24"> 
            <td bgcolor="<%=Opt_TR_BGColor%>" align="center"> 用户级别</td>
            <td bgcolor="<%=Opt_TD_BGColor2%>">&nbsp;
              <select name="LevelCode" class="input">
                <option value="">不限</option>
                <%
strSQL="Select * from T_DNS_UserLevel order by DispSeq"
Set Rs1= Server.CreateObject("ADODB.Recordset")
Rs1.open strSQL,Cn,1,1
do while not Rs1.Eof
%>
                <option value="<%=rs1("LevelCode")%>"><%=rs1("LevelName")%> </option>
                <%
	Rs1.MoveNext
Loop
rs1.close
%>
              </select>
            </td>
          </tr>
          <tr height="26"> 
            <td bgcolor="<%=Opt_TD_BGColor2%>" colspan="2" align="center"> 
              <input type="submit" class="button" value=" 查找 ">
              <input type="reset" class="button" value=" 清空 ">
            </td>
          </tr>
        </form>
      </table>
    </td>
  </tr>
</table>
  


<%

Cn.Close

Call PrintPageBottom
%>