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

				document.write("");
				document.write(" ");
								lmid=trim(request("lm"))
				lmname=trim(request("lmname"))
				n=trim(request("n"))
				list=trim(request("list"))
				more=trim(request("more"))
				open=trim(request("open"))
				bg=trim(request("bg"))
				hot=trim(request("hot"))
				tj=trim(request("tj"))
				ord=trim(request("ord"))
				fs=trim(request("fs"))
				t=trim(request("t"))
				if bg="" then bg="ffffff"
				if lmname="" then lmname=0
				'if lmid=0 then lmid=""
				if n="" then n=20
				if list="" then list=10
				if more="" then more=1
				if open="" then open=1
				if ord="" then ord="asc"
				if lmid="" then lmid=0
				if t="" then t=0
				if hot="" then hot=0
				if tj="0" then
				  tj="不推荐"
				else
				  tj="推荐"
				end if
				%>
				
				
				
									  									  'Set rs = Server.CreateObject("ADODB.RecordSet")
									  'rs.Open "select path from [config]",conn,1,1
									  path=config("path")
									 'rs.close
									  'set rs=nothing
				if fs="1" then			  
									  sql = "select * from lm where lm'' "
									   if lmid"0" then sql=sql&" and id="&lmid&" "
									  sql=sql&" order by id "&ord&""
									  Set rs = Server.CreateObject("ADODB.RecordSet")
									  rs.Open sql,conn,1,1
									  while not rs.eof
									  id=rs("id")
									  lm=rs("lm")
									  %>
											document.write("");
									 									        ' sql11 = "select id,lm,lm2 from news where lm='"&rs("ID")&"' or lm2='"&rs("ID")&"' order by id "&ord&" "
									        ' Set rs11 = Server.CreateObject("ADODB.RecordSet")
									        ' rs11.Open sql11,conn,1,1
									 %>
											//document.write("(									 											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
											id2=rs2("id")
											lm2=rs2("lm2")
									 %>		
											document.write(" ");
									 													'sql3 = "select id,lm,lm2 from news where lm2='"&rs2("id")&"' or lm='"&rs2("id")&"'"
													'Set rs3 = Server.CreateObject("ADODB.RecordSet")
													'rs3.Open sql3,conn,1,1	
									 %>
											//document.write("(									 											   		'rs3.close:set rs3=nothing
											rs2.movenext
											wend
											rs2.close:set rs2=nothing
									  rs.movenext
									  wend 
									  rs.close:set rs=nothing
				elseif fs="2" then
				  	sql="select * from [lm] where lm2'' "
				  	 if lmid"0" then sql=sql&" and lmid='"&lmid&"' "
				  	sql=sql&" order by id "&ord&" "
					Set rs = Server.CreateObject("ADODB.RecordSet")
					rs.Open sql,conn,1,1
					while not rs.eof
					id=rs("id")
					lm2=rs("lm2")
					%>
					document.write("");
										rs.movenext
					wend
					
					
				elseif fs="3" then
				  	sql="select * from [lm] where lm'' "
				  	 
				  	sql=sql&" order by id_desc "&ord&" "
					Set rs = Server.CreateObject("ADODB.RecordSet")
					rs.Open sql,conn,1,1
					while not rs.eof
					id=rs("id")
					lm2=rs("lm")
					%>
					//document.write("");
					document.write("");
										rs.movenext
					wend
					rs.close
					set rs=nothing
				elseif fs="4" and trim(request("lm"))"" then
					lmid=trim(request("lm"))
					set rs = Server.CreateObject("ADODB.RecordSet")
					rs.Open "select * from [lm] where lmid='"&lmid&"' order by id_desc "&ord&"",conn,1,1
					while not rs.eof
					 	lm2=rs("id")
					 	lmname=rs("lm2")
					%>
							document.write("");
										rs.movenext
					wend
					if rs.recordcount=0 then
						Response.Write "document.write(""无子栏目"");"
					end if
					rs.close
					set rs=nothing
				end if					 
					%>
				document.write(" ");