search.asp

来自「好像是ASP实例导航中的进销存管理系统的源代码,忘了名」· ASP 代码 · 共 70 行

ASP
70
字号
<!-- #include file="opendb.inc" -->
<!-- #include file="adovbs.inc" -->
<html>
<head>
<title>搜索结果</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>

<body bgcolor="#FFFFFF" text="#000000">
<%
word=Request.Form("Search")
Set Conn=Server.CreateObject("ADODB.Connection")
Set Rs=Server.CreateObject("ADODB.RecordSet")
Conn.Open(sqlOpenDB)	 	'打开数据库

Sql="Select ProductID,Name,Unit,UnitPrice From Product Where Name Like'%" & word & "%'"
Rs.Open Sql,Conn,adOpenStatic
%>
<div align="center">
  <h2><font face="华文彩云">搜索结果</font></h2>
<p>  共为您搜索到&nbsp;<b><%=Rs.RecordCount%></B>&nbsp;条关于&nbsp;<b><%=word%></B>&nbsp;的记录</p>
  <table width="500" border="1" cellspacing="0">
    <tr> 
      <td nowrap width="85"> 
        <div align="center"><b>货物代号</b></div>
      </td>
      <td nowrap width="190"> 
        <div align="center"><b>货物名称</b></div>
      </td>
      <td nowrap width="45"> 
        <div align="center"><b>单位</b></div>
      </td>
      <td nowrap width="61"> 
        <div align="center"><b>单价</b></div>
      </td>
    </tr>
    <%
While Not Rs.Eof 
%>
    <tr> 
      <td width="85"> 
        <div align="center"><%=Rs("ProductID")%></div>
      </td>
      <td width="190"> 
        <div align="center"><a href="pro_detail.asp?proID=<%=Rs("ProductID")%>"><%=Rs("Name")%></a></div>
        <!-- 点击跳转到货物介绍页面 -->
      </td>
      <td width="45"> 
        <div align="center"><%=Rs("Unit")%></div>
      </td>
      <td width="61"> 
        <div align="center"><%=FormatCurrency(Rs("UnitPrice"))%></div>
      </td>
    </tr>
    <%
Rs.MoveNext
Wend
%>
  </table>
  <p>&nbsp;</p>
</div>
<%
Rs.Close
Set Rs=Nothing
Conn.Close
Set Conn=Nothing
%>
</body>
</html>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?