sub ipfind()
'IP查找\状态查看
call chk_login()
'权限判断
dim i,intPage,page,pre,last,filepath,sqlcx,cx_cxfs,sql
set rs = Server.CreateObject("ADODB.RecordSet")
cx_cxfs=request.Form("cxfs")
cx_cxnr=request.Form("cxnr")
select case cx_cxfs
    case 1        '所有数据
      sqlcx="select * from ip order by id,branch_name"
    case 2        '机构查询
       sqlcx="select * from ip where branch_name like '%"&request.Form("cxnr")&"%' order by id"
    case 3        '部门查询
      sqlcx="select * from ip where Departments like '%"&request.Form("cxnr")&"%' order by id"
    case 4        '使用者查询
      sqlcx="select * from ip where user_name like '%"&request.Form("cxnr")&"%' order by id"
    case 5        'IP查询
      sqlcx="select * from ip where ip_address like '%"&request.Form("cxnr")&"%' order by id"
    case 6        'MAC查询
      sqlcx="select * from ip where mac_address like '%"&request.Form("cxnr")&"%' order by id"
    case 7        '未分配IP查询
      'sqlcx="update ip set user_name=''"
      sqlcx="select * from ip where user_name='' and ip_address<>'' order by id desc"
end select

%>
<table width="743" border="0" cellspacing="0" cellpadding="0">
    <tr>
        <td><h3><img src="images/address.png" width="16" height="16"> IP地址信息
</h3></td>
    </tr>
    <tr>
      <td><div align="center">
        <form name="form2" method="post" action="ip.asp?action=ipfind">
          <label>
            查询方式：
            <select name="cxfs" id="cxfs">
              <option value="1">所有数据记录</option>
              <option value="2">按机构名查询</option>
              <option value="3">所属部门查询1.close: