⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 search.asp

📁 花钱买的毕业设计。企业网络管理系统
💻 ASP
字号:
<%@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>

⌨️ 快捷键说明

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