js_so_lm.asp

Art2008 CMS是一款具有强大的功能的基于ASP语言的网站管理软件

<%
               '站内搜索js调用程序
               '调用方法：<SCRIPT language=JavaScript src="../js_so.asp?va=1"><//SCRIPT>               
               '参数说明：“va”值为所要搜索栏目的id号,如果有特殊需要可以确定栏目id号的范围修改 id="&va&"为id<="&va&"等等

%>
<!--#include file = admin_conn.asp -->
<%
va=trim(request("lm"))
%>

document.write("    <table width=100%  border=0 cellpadding=2 cellspacing=0 >");
document.write("      <form method=post action=so.asp target=_blank>");
document.write("       <tr><td width=69%  valign=middle align=center>  <img src=/image/search2.gif  width=44 height=19 style='vertical-align:middle'>  <select size=1 name=lm style=\"font-size: 9pt;width:120;vertical-align:middle\" class=select1>");
document.write("          <option value=\" \">请选择栏目</option>");
                           
								<%					  
					  sql = "select * from lm where lm<>''"
					  if va<>"" then					  
					  sql = sql&"and id="&va&" "
					  end if
					  sql = sql&"order by id_desc,id asc"
					  Set rs = Server.CreateObject("ADODB.RecordSet")
					  rs.Open sql,conn,1,1
					  while not rs.eof
					  id=rs("id")
					  lm=rs("lm")
					       %>
                           
document.write("           <option value=<%=id %> <% if int(lmid)=id then response.write """ selected """ %>><%= lm %></option>");
                                <%
							sql2 = "select * from lm where lmid='"&rs("id")&"' order by id_desc,id asc"
							Set rs2 = Server.CreateObject("ADODB.RecordSet")
							rs2.Open sql2,conn,1,1
							while not rs2.eof
							id2=rs2("id")
							lm2=rs2("lm2")
							%>
document.write("           <option value=<%=id2 %> <% if int(lmid)=id2 then response.write """ selected""" %>>　├<%= lm2 %></option>");
                                <%
				        Set rs33 = Server.CreateObject("ADODB.RecordSet")
				        rs33.Open "select * from [lm] where lmid='"&rs2("id")&"' and LM3<>'' order by id_desc,id asc",conn,1,1
				        while not rs33.eof
						id33=rs33("id")
						lm3=rs33("lm3")
				        %>
                        
document.write("         <option value=<%=id33%> <% if int(lmid)=id33 then response.write """ selected """ %>>　　├<%=lm3%></option>");
                                <%
				        rs33.movenext
				        wend
							rs2.movenext
							wend
					  rs.movenext
					  wend 
					  rs.close
					  set rs=nothing
					 
					%>
document.write("      </select> <select class=select1 style=\"font-size: 9pt;width:70;vertical-align:middle\" size=1 name=wh><option value=title>标题</option><option value=content>内容</option><option value=zz>作者</option></select> ");
document.write("      <input  type=text style=\"vertical-align:middle\" name=word size=35 onBlur=\"if (value ==''){value='请输入查询关键字'}\" onmouseover=this.focus() onfocus=this.select() onClick=\"if(this.value=='请输入查询关键字')this.value=''\"   value=请输入查询关键字> "); 
document.write("      <INPUT name=image2 class=INPUT1 type=image src=/image/search.gif  align=absmiddle  border=0>");                          
document.write("      </td></tr></form></table>");

<%
conn.close
set conn=nothing
%>