search.asp

来自「ASPSQL企业网络管理系统」· ASP 代码 · 共 83 行

ASP
83 行
字号 
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../include/config.asp" -->
<!--#include file="../include/ServerControl.asp" -->
<html>
<head>
<title>信息搜索</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../style/style.css" rel="stylesheet" type="text/css">
</head>

<body>
<table width="500" border="0" align="center" cellpadding="1" cellspacing="1" >
  <tr>
    <td width="10">&nbsp;</td>
    <td>&nbsp;</td>
    <td width="10">&nbsp;</td>
  </tr>
  <tr>
    <td width="10">&nbsp;</td>
    <td><form name="frmSearch" method="post" action="Search.asp">
        <input type="text" name="key" >
        <select name="field" id="field">
          <option value="title" selected>标题</option>
          <option value="content">内容</option>
        </select>
        <%
dim cmbtype
dim aV,aL
aV = array("0")
aL = array("所有信息")
set cmbtype = new DBCombo
cmbtype.name = "type"
cmbtype.selected = "1"
cmbtype.setOptions aV,aL
cmbtype.writehtml "select * from Trade_type",session("conn")
				%>
        <select name="time" id="time">
          <option value="desc" selected>时间降序</option>
          <option value="asc">时间升序</option>
        </select>
        <input type="submit" name="Submit" value="查 询" >
      </form></td>
    <td width="10">&nbsp;</td>
  </tr>
  <tr>
    <td width="10">&nbsp;</td>
    <td>
		<%
if Request.Form("Submit") <> "" then
	dim key,fld,newstype,timeorder
	key = trim(Request.Form("key"))
	fld = trim(Request.Form("field"))
	newstype = trim(Request.Form("type"))
	timeorder = trim(Request.Form("time"))
	
	'Response.Write key & fld & newstype & timeorder
	dim str
	if newstype = "0" then
		str = "select * from v_trade_info where " & fld & " like '%" & key & "%' order by time " & timeorder
	else
		str = "select * from v_trade_info where " & fld & " like '%" & key & "%' and type_id = " & newstype & " order by time " & timeorder
	end if
	session("sqlString") = str
	'Response.Write(session("sqlString"))
	server.Execute("list.asp")
else if request.QueryString("page") <> "" then
	server.Execute("list.asp")
end if
end if
		'Response.Write session("sqlString")
			%>
		</td>
    <td width="10">&nbsp;</td>
  </tr>
  <tr>
    <td width="10">&nbsp;</td>
    <td>&nbsp;</td>
    <td width="10">&nbsp;</td>
  </tr>
</table>
</body>
</html>

search.asp - 源码说明

本页面展示了「ASPSQL企业网络管理系统」中的 search.asp 源码文件，采用 ASP 编程语言编写，共 83 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与ASPSQL相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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