📄 hx_xxlrjtmain.asp

📁 数据结构课程设计之最小生成数的K算法的实现简短简洁

💻 ASP

字号:

<!--#include file="../conn.asp"-->

<head>
<link rel="stylesheet" type="text/css" href="../style.css">
</head>

<body topmargin="0" leftmargin="0" bgcolor="#dddddd"></br>
<br>
<%
zd=request.form("zd")
text=request.form("text")
%>
<%
bsql="select * from search_zList"
set brs=server.Createobject("ADODB.Recordset")
brs.open bsql,conn,1,1
a=brs.recordcount-1		
%>
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
  <form name="form1" method="post" action="">
    <tr> 
      <td colspan="2" >包含检索</td>
    </tr>
    <tr> 
      <td >按</td>
      <td> <select name="zd" style="width: 120px">
          <%for i=0 to a%>
          <option value="<%=brs(1)%>"><%=brs(2)%></option>
          <%brs.movenext
		  next%>
        </select>
        检索： 
        <input type="text" name="text" style="width: 300px;height: 20px"> <input  type="submit" value="确定" name="submit" style="width: 120px;height: 20px"> 
      </td>
    </tr>
  </form>
</table>
<br>
<br>
<%
if not zd="" then
sql="select * from hxxm where "&zd&" like'%"& text &"%'"
set rs=server.Createobject("ADODB.Recordset")
rs.open sql,conn,1,1
if not rs.eof then
action="suc"
b=rs.recordcount-1
else
action="err"
end if
end if
%>
<%if action= "suc" then%>
<table width="90%" border="1" align="center" cellpadding="0" cellspacing="0">
  <tr bgcolor="#C0C0C0">
    <td align="center" width="20%">项目名称</td>
    <td align="center" width="20%">项目状态</td>
    <td align="center" width="20%">项目来源</td>
    <td align="center" width="20%">承担单位</td>
    <td align="center" width="20%">负责人</td>
  </tr>
  <%for i= 0 to b%>
  <tr> 
    <td align="center"><%=rs("hxxm_ktmc")%></td>
    <td align="center"><%=rs("hxxm_xmzt")%></td>
    <td align="center"><%=rs("hxxm_rwly")%></td>
    <td align="center"><%=rs("hxxm_dwdm")%></td>
    <td align="center"><%=rs("hxxm_fzr")%></td>
  </tr>
  <%rs.movenext
  next%>
  <tr bgcolor="#C0C0C0"> 
    <td align="center">&nbsp;</td>
    <td align="center">&nbsp;</td>
    <td align="center">&nbsp;</td>
    <td align="center">&nbsp;</td>
    <td align="center">&nbsp;</td>
  </tr>
</table>
<%end if%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -