js_so.asp

来自「Art2008 CMS是一款具有强大的功能的基于ASP语言的网站管理软件」· ASP 代码 · 共 89 行

ASP

89 行

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file = admin_conn.asp -->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>搜索</title>
<style type="text/css">
<!--
body {
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
}
INPUT {
	BORDER-RIGHT: #666666 1px solid; BORDER-TOP: #666666 1px solid; FONT-SIZE: 9pt; BORDER-LEFT: #666666 1px solid; COLOR: #666666; BORDER-BOTTOM: #666666 1px solid; HEIGHT: 18px; BACKGROUND-COLOR: #ffffff
}
-->
</style></head>

<body>
<div align="left"></div>
<table width="162"  border="0" align="left" cellpadding="0" cellspacing="2">
                           <form method="post" action="so.asp" target="_blank">
						  
						  <tr>                           
                              <td width="24%"><input type="text" name="word" size="16" onblur="if (value ==''){value='请输入查询关键字'}" onmouseover=this.focus() onfocus=this.select() onclick="if(this.value=='请输入查询关键字')this.value=''"   value=请输入查询关键字></td>
                              <td width="76%"><select size="1" name="wh">
                                  <option value="title">标题</option>
                                  <option value="content">内容</option>
                                  <option value="zz">作者</option>
                              </select></td>                            
                          </tr>
                          <tr>
                            <td><select size="1"  name="lm" style="font-size: 9pt">
                                <option value=" ">请选择栏目</option>
                                <option value=" ">所有栏目</option>
                                <%					  
					  sql = "select * from lm where lm<>'' order by id asc"
					  Set rs = Server.CreateObject("ADODB.RecordSet")
					  rs.Open sql,conn,1,1
					  while not rs.eof
					       %>
                                <option value='<%=rs("id")%>' <% if int(lmid)=rs("id") then response.write " selected" %>><%=rs("lm")%></option>
                                <%
							sql2 = "select * from lm where lmid='"&rs("id")&"' order by id asc"
							Set rs2 = Server.CreateObject("ADODB.RecordSet")
							rs2.Open sql2,conn,1,1
							while not rs2.eof
							%>
                                <option value='<%=rs2("id")%>' <% if int(lmid)=rs2("id") then response.write " selected" %>>　├<%=rs2("lm2")%></option>
                                <%
				        Set rs33 = Server.CreateObject("ADODB.RecordSet")
				        rs33.Open "select * from [lm] where lmid='"&rs2("id")&"' and LM3<>'' order by id desc",conn,1,1
				        while not rs33.eof
				        %>
                                <option value='<%=rs33("id")%>' <% if int(lmid)=rs33("id") then response.write " selected" %>>　　├<%=rs33("lm3")%></option>
                                <%
				        rs33.movenext
				        wend
							rs2.movenext
							wend
					  rs.movenext
					  wend 
					  rs.close
					  set rs=nothing
					 
					%>
                            </select></td>
                            <td><select size="1" name="month">
                                <option value="">月份</option>
                                <option value="">不限</option>
                               <%for i=1 to 12%>
                                <option value="<%=i%>"><%=i%></option><%next%>
                            </select></td>
                          </tr>
                          <tr align="center" valign="bottom">
                            <td height="25" colspan="2" class="wz"><INPUT name="submit" type="submit" value=" 搜索 " >
                        &nbsp;
                            <INPUT  type="reset" value=" 清除 " name="Reset"></td>
                          </tr>
						  </form>
</table>
</body>
</html>
<%
conn.close
set conn=nothing
%>

js_so.asp - 源码说明

本页面展示了「Art2008 CMS是一款具有强大的功能的基于ASP语言的网站管理软件」中的 js_so.asp 源码文件，采用 ASP 编程语言编写，共 89 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

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

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?