机柜  IP  使用状况  备注     操作

怎么点击上面的文字,然后按所选的排列数据?



<!-- #include file="LHB_Check_Session.asp" -->
<!-- #include file="Config.asp"-->
<!-- #include file="LHB_Copy.asp" -->
<script language="JavaScript" src="page.js"></script>
<!-- #include file="LHB_head.asp"-->
<!-- #include file="LHB_DHT_02.asp"-->
<table width="992" height="40" border="0" align="center" cellpadding="0" cellspacing="0">
  <form action="ip.asp" method="post" name="form1" id="form1">
    <tr>
      <td width="317">&nbsp;</td>
      <td width="127"><input type="text" name="LouHB_Key" size="20" /></td>
      <td width="127"><select name="LouHB_Type2" type="text" size="1" class="button1">
        <option value="ip" selected="selected">IP</option>
        <option value="jg">机柜</option>
      </select></td>
      <td width="153"><select name="LouHB_Type" type="text" size="1" class="button1">
        <option value="1">已使用</option>
        <option value="2">未使用</option>
      </select></td>
      <td width="268"><input type="image" src="pic/Search.gif" name="button" id="button" value="提交" /></td>
    </tr>
  </form>
</table>
<%
page = CLng(request("page"))
judge=request("judge")
judge2=request("judge2")
judge3=0
L_Key=Request("LouHB_Key")
L_Type=Request("LouHB_Type")
L_Type2=Request("LouHB_Type2")

Set Lours=server.createobject("adodb.recordset")
If L_Key <> "" Then
Sql="Select * From iplb where sy = "&L_Type&" And "&L_Type2&" like '%"&L_Key&"%'"
Else
Sql="Select * From iplb order by sy desc"
End If
Lours.Open Sql,LouConn,1,1
If Lours.EOF And Lours.BOF Then
Response.Write"<center>目前IP信息</center>"
Else
%>
<table width="100%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#A9CEE1">
<tr>
<td height="35" align="center" background="pic/DHT-bg.gif">机房机柜</td>
<td height="35" align="center" background="pic/DHT-bg.gif">IP</td>
<td width="99" align="center" background="pic/DHT-bg.gif">使用状况</td>
<td width="169" height="35" align="center" background="pic/DHT-bg.gif">备注</td>
<td width="20" align="center" background="pic/DHT-bg.gif">&nbsp;</td>
<td width="255" align="center" background="pic/DHT-bg.gif">操作</td>
</tr>
<%
Lours.MoveFirst
Lours.PageSize = Page_Size  '每页显示的条数  
If page < 1 Then page = 1
If page > Lours.PageCount Then page = Lours.PageCount  
Lours.AbsolutePage = page
For ipage = 1 To Lours.PageSize
%>
<tr>
<td width="143" height="30" align="center"><%=Lours("jg")%></td>
<td width="292" align="center"><%=Lours("ip")%></td>
<td align="center"><%
If Lours("sy") =1 Then
Response.Write"√"
ElseIf Lours("sy") =2 Then
Response.Write"×"
End If
%></td>
<td align="center"><%=Lours("bz")%></td>
<td align="center">&nbsp;</td>
<td align="center"><a href="wenidc.asp?LouHB_TianJ_XiuG=2&LouHB_ID=<%=Lours("ID")%>"></a> &nbsp;<a href="ipadd.asp?LouHB_TianJ_XiuG=2&LouHB_ID=<%=Lours("ID")%>"> <img src="pic/gai.gif" alt="修改" border="0"></a> <a href="LHB_Delete.asp?LouHB_Table=iplb&LouHB_ID=<%=Lours("ID")%>" onClick="return confirm('操作提示：您确实要删除吗？');"><img src="pic/Del.gif" alt="删除" border="0"></a>&nbsp;</td>
</tr>
<%
Lours.MoveNext
If Lours.EOF Then Exit For   
Next   
%>
</table>
<table border="0" cellpadding="0" cellspacing="0" width="100%" class="table4" align="center">
<tr>
<form onSubmit="return test();" method="post" action="ip.asp?LouHB_Key=<%=L_Key%>&LouHB_Type=<%=L_Type%>" id=form2 name=form2>
<td width="346" height="25">
<%
If page = 1 Then
Response.Write "第一页&nbsp;&nbsp;上一页&nbsp;&nbsp;"
End If
If page <> 1 Then
Response.Write "&nbsp;&nbsp;<a href=ip.asp?page=1&LouHB_Key="&L_Key&"&LouHB_Type="&L_Type&">第一页</a>"
Response.Write "&nbsp;&nbsp;<a href=ip.asp?page=" & (page - 1) & "&LouHB_Key="&L_Key&"&LouHB_Type="&L_Type&">上一页</a>"
End If
If page <> Lours.PageCount Then
Response.Write "&nbsp;&nbsp;<a href=ip.asp?page=" & (page + 1) & "&LouHB_Key="&L_Key&"&LouHB_Type="&L_Type&">下一页</a>"
Response.Write "&nbsp;&nbsp;<a href=ip.asp?page=" & Lours.PageCount & "&LouHB_Key="&L_Key&"&LouHB_Type="&L_Type&">最后一页</a>"
End If
If page = Lours.PageCount Then
Response.Write "&nbsp;&nbsp;下一页&nbsp;&nbsp;最后一页"
End If
%></td>
<td width="418" height="25" colspan="2">跳转到第
<%Response.Write "<input type=text size=5 maxlength=4 name=page class=button3><input type=hidden name=judge value=1>"  '显示输入页数框并将page,judge参数传递下去%>
页</td>
</form>
</tr>
<tr>
<td height="25" colspan="3">共：<%=Lours.recordCount%>条记录&nbsp;&nbsp;共<%=Lours.PageCount%>页&nbsp;&nbsp;第<%=page%>页</td>
</tr>
</table>
<%
End If
Lours.Close
Set Lours=Nothing
LouConn.Close
Set LouConn=Nothing
Call Copy()
%>

nobody nobody but you...

谢谢了,试下看...

<td height="35" align="center" background="pic/DHT-bg.gif">IP</td>


<td height="35" align="center" background="pic/DHT-bg.gif" > <a href="ip.asp?order="ip">IP </a></td>


If order = "ip" Then
    Sql="Select * From iplb order by IP ASC"
End If

这样加么?
没效果呢...



[ 本帖最后由 aababababa 于 2014-1-12 09:25 编辑 ]

不知道有没问题了，运行了点击还是显示空白表格。。。