<%

Function Menu
%>

			<%
set rs8=conn.execute("select [ID],[ClassName],[Num],[IsMenu],[link],[Url],[target] from jle_Class Where IsMenu=1 order by num asc")
NoI=0
do while not rs8.eof
NoI=NoI+1%><li class="ldmc" id="ld<%=NoI%>"><a href="<%
If rs8("link")=1 then
	Response.Write(laoy(rs8("url")))
Else
	If Html=3 then
 		Response.Write("Class_"&rs8("ID")&".html")
	Else
 		Response.Write("NewsClass.asp?ID="&rs8("ID")&"")
	End if
End if%>" target="<%=rs8("target")%>"><%=rs8("ClassName")%></a><%If Mydb("Select Count([ID]) From [jle_Class] Where TopID="&rs8("ID")&"",1)(0)>0 then%><div id="xmenu"><%
		    Sqlpp ="select [ID],[ClassName],[Num],[IsMenu],[link],[Url],[target] from jle_Class Where TopID="&Rs8("ID")&" order by num"   
   			Set Rspp=server.CreateObject("adodb.recordset")   
   			rspp.open sqlpp,conn,1,1
			Do while not Rspp.Eof
%>
      <a href="<%=IIF(Html=3,"Class_"&rspp("ID")&".html","NewsClass.asp?ID="&rspp("ID")&"")%>" target="<%=rspp("target")%>"><%=rspp("ClassName")%></a><%
			Rspp.Movenext   
      		Loop
   rspp.close
   set rspp=nothing
%>  
   <%end if%></li><%
rs8.movenext
loop
rs8.close
set rs8=nothing%>

		


<%
End function



Function search
	Response.Write("<div style=""float:right;margin-top:-5px;background:url("&SitePath&"images/search.jpg) left no-repeat;padding-left:100px;"">") & VbCrLf
	Response.Write("<form id=""form1"" name=""form1"" method=""post"" action="""&SitePath&"Search.asp?action=search"" target=""_blank"">") & VbCrLf
	Response.Write("<input name=""KeyWord"" type=""text"" id=""KeyWord"" value="""&keyword&""" maxlength=""10"" size=""13"" class=""borderall"" style=""height:17px;""/>") & VbCrLf
	Response.Write("  <select name=""bbs"" id=""bbs"">") & VbCrLf
	Response.Write("    <option value=""1"">站内搜索</option>") & VbCrLf
	Response.Write("    <option value=""3"">百度搜索</option>") & VbCrLf
	Response.Write("    <option value=""4"">Google搜索</option>") & VbCrLf
	Response.Write("    <option value=""5"">youdao搜索</option>") & VbCrLf
	Response.Write("    <option value=""6"">雅虎搜索</option>") & VbCrLf
	Response.Write("  </select>") & VbCrLf
	Response.Write("<input type=""submit"" name=""Submit"" value=""搜 索"" class=""borderall"" style=""height:21px;""/>") & VbCrLf
	Response.Write("</form>") & VbCrLf
	Response.Write("</div>") & VbCrLf
End Function
%>