js-link_1.asp

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

<!--#include file = admin_conn.asp -->
<!--#include file = admin/titleb.asp -->
<!--
function FP_jumpMenu(el,frm,sel) {//v1.0
 var href=el.options[el.selectedIndex].value; if(sel) el.selectedIndex=0;
 if('_new'==frm) open(href); else eval(frm+".location='"+href+"'");
}
// -->


<%
linktype=chkhtm(trim(request("link")))
id=trim(request("id"))
if id="" then id=0
n=trim(request("n"))
if n="" then n=8
lb=trim(request("lb"))

if (not isNumeric(lb)) then
	lb=0
end if

if (not isNumeric(ID)) then
	id=0
end if

if (not isNumeric(linktype)) then
	linktype=1 
end if

if (not isNumeric(n)) then
	n=8
end if
lbname="友情链接"
if lb<>0 then
	set rs = Server.CreateObject("ADODB.RecordSet")
	rs.Open "select * from [LinkLB] where ID="&LB&" order by id desc",conn,1,1
	if rs.recordcount<>0 then
		lbname=rs("lb")
	end if
	rs.close:set rs=nothing
end if

if linktype="1" then
	sql = "select * from link where linkname<>''and sh=1 "
	if lb<>0 then sql=sql&" and lb="&lb&" "
	sql=sql&" order by ontop desc , upd desc , id desc"
	Set rs = Server.CreateObject("ADODB.RecordSet")
	rs.Open sql,conn,1,1
	%>
	  document.write("<SELECT onchange=\"FP_jumpMenu(this,'_new',false)\" id=id1 name=D1>");
	   document.write("<option><%=lbname%></option>");
	<%
	while not rs.eof
		url=rs("url")
		linkname=rs("linkname")
		%>
		  
		  document.write("<option value=<%=url%>><%=linkname%></option>");
		<%
	rs.movenext
	wend
		%>
		document.write("</select>");

<%
elseif linktype="2" then
	sql = "select * from link where [PIC]=0  and sh=1"
	if lb<>0 then sql=sql&" and lb="&lb&" "
	sql=sql&" order by ontop desc , upd desc , id desc"
	'Response.Write SQL
	Set rs = Server.CreateObject("ADODB.RecordSet")
	rs.Open sql,conn,1,1
	if rs.recordcount<>0 then
	    %>
	    document.write("<table border=0 cellpadding=0 cellspacing=0 width=100% id=table1><tr>");
	    <%
		for i=1 to n
		url=rs("url")
		linkname=rs("linkname")
		%>
		   document.write("<td align=center><a href=<%=url%> title='<%=linkname%>' target=_blank><%=linkname%></a></td>");
		<%
		rs.movenext
		if rs.eof then exit for
		next
		%>
		document.write("</tr></table>");
		<%
	end if

elseif linktype="3" then
	sql = "select * from link where linkname<>'' and sh=1"
	if lb<>0 then sql=sql&" and lb="&lb&" "
	sql=sql&" order by ontop desc , upd desc , id desc"
	Set rs = Server.CreateObject("ADODB.RecordSet")
	rs.Open sql,conn,1,1
	if rs.recordcount<>0 then
	    %>
	    document.write("<table border=0 cellpadding=2 cellspacing=0 width=100% id=table1>");
	    <%
		for i=1 to n
		url=rs("url")
		linkname=rs("linkname")
		%>
		   document.write("<tr><td align=center><a href=<%=url%> title='<%=linkname%>' target=_blank><%=linkname%></a></td></tr>");
		<%
		rs.movenext
		if rs.eof then exit for
		next
		%>
		document.write("</table>");
		<%
	end if

elseif linktype="4" then
	sql = "select * from link where [pic]=1 and sh=1"
	if lb<>0 then sql=sql&" and lb="&lb&" "
	sql=sql&" order by ontop desc , upd desc , id desc"
	Set rs = Server.CreateObject("ADODB.RecordSet")
	rs.Open sql,conn,1,1
	if rs.recordcount<>0 then
	    %>
	    document.write("<table border=0 cellpadding=0 cellspacing=0 width=100% id=table1><tr>");
	    <%
		for i=1 to n
		url=rs("url")
		linkname=rs("linkname")
		logo=rs("logo")
		js=rs("js")
		%>
		   document.write("<td align=center><a href=<%=url%> title='<%=js%>'  target=_blank><img width=88 height=31 border=0 src=<%=logo%>></a></td>");
		<%
		rs.movenext
		if rs.eof then exit for
		next
		%>
		document.write("</tr></table>");
		<%
	end if

elseif linktype="5" then
	sql = "select * from link where [pic]=1 and sh=1"
	if lb<>0 then sql=sql&" and lb="&lb&" "
	sql=sql&" order by ontop desc , upd desc , id desc"
	Set rs = Server.CreateObject("ADODB.RecordSet")
	rs.Open sql,conn,1,1
	if rs.recordcount<>0 then
	    %>
	    document.write("<table border=0 cellpadding=2 cellspacing=0 width=100% id=table1>");
	    <%
		for i=1 to n
		url=rs("url")
		linkname=rs("linkname")
		logo=rs("logo")
		js=rs("js")
		%>
		   document.write("<tr><td align=center><a href=<%=url%> title='<%=js%>' target=_blank><img width=88 height=31 border=0 src=<%=logo%>></a></td></tr>");
		<%
		rs.movenext
		if rs.eof then exit for
		next
		%>
		document.write("</table>");
		<%
	end if

elseif linktype="6" then
%>
	document.write("<div align=center><table border=1 cellpadding=2 width=725 id=table2 style='border-collapse: collapse' bordercolor='#C0C0C0'>");
				<%
				  sql = "select * from link where [pic]=0 and sh=1"
				  if lb<>0 then sql=sql&" and lb="&lb&" "
				  sql=sql&" order by ontop desc , upd desc , id desc"
				  Set rs = Server.CreateObject("ADODB.RecordSet")
				  rs.Open sql,conn,1,1
				  
				  if rs.recordcount<>0 then
			  
				  for i=0 to rs.recordcount
				   url=rs("url")
				   linkname=rs("linkname")
				%>
					document.write("<tr>");
					document.write("<td align=center><a href=<%=url%> title='<%=linkname%>' target=_blank><%=linkname%></a></td>");
								<%
				 					rs.movenext
				 					if rs.eof then exit for
				 					url=rs("url")
				 					linkname=rs("linkname")			
								%>
					document.write("<td align=center><a href=<%=url%> title='<%=linkname%>' target=_blank><%=linkname%></a></td>");
								<%
				 					rs.movenext
				 					if rs.eof then exit for		
				 					url=rs("url")
				 					linkname=rs("linkname")		
								%>
					document.write("<td align=center><a href=<%=url%> title='<%=linkname%>' target=_blank><%=linkname%></a></td>");
								<%
				 					rs.movenext
				 					if rs.eof then exit for	
				 					url=rs("url")
				 					linkname=rs("linkname")			
								%>									
					document.write("<td  align=center><a href=<%=url%> title='<%=linkname%>' target=_blank><%=linkname%></a></td>");
								<%
				 					rs.movenext
				 					if rs.eof then exit for	
				 					url=rs("url")
				 					linkname=rs("linkname")			
								%>									
					document.write("<td align=center><a href=<%=url%> title='<%=linkname%>' target=_blank><%=linkname%></a></td>");
					document.write("</tr>");
							<%
							  rs.movenext
							  if rs.eof then exit for
							  next
							  
							  end if
							%>
					document.write("</table></div><BR>");
					document.write("<div align=center><table border=1 cellpadding=5 width=725 id=table3 style='border-collapse: collapse' bordercolor=#C0C0C0>");
							<%
							  sql = "select * from link where [PIC]=1 and sh=1"
							  if lb<>0 then sql=sql&" and lb="&lb&" "
							  sql=sql&" order by id desc"
							  Set rs = Server.CreateObject("ADODB.RecordSet")
							  rs.Open sql,conn,1,1
							  
							  if rs.recordcount<>0 then
							  
							  for i=1 to 5
							    url=rs("url")
							    linkname=rs("linkname")
							    logo=rs("logo")
							    js=rs("js")
							%>
						document.write("<tr><td align=center><a href=<%=url%> title='<%=js%>' target=_blank><img width=88 height=31 border=0 src=<%=logo%>></a></td>");
								<%
								  rs.movenext
								  if rs.eof then exit for
								    url=rs("url")
								    linkname=rs("linkname")
								    logo=rs("logo")
								    js=rs("js")
								%>
						document.write("<td align=center><a href=<%=url%> title='<%=js%>' target=_blank><img width=88 height=31 border=0 src=<%=logo%>></a></td>");
								<%
								  rs.movenext
								  if rs.eof then exit for
								    url=rs("url")
								    linkname=rs("linkname")
								    logo=rs("logo")
								    js=rs("js")
								%>
						document.write("<td align=center><a href=<%=url%> title='<%=js%>' target=_blank><img width=88 height=31 border=0 src=<%=logo%>></a></td>");
								<%
								  rs.movenext
								  if rs.eof then exit for
								    url=rs("url")
								    linkname=rs("linkname")
								    logo=rs("logo")
								    js=rs("js")
								%>
						document.write("<td align=center><a href=<%=url%> title='<%=js%>' target=_blank><img width=88 height=31 border=0 src=<%=logo%>></a></td>");
								<%
								  rs.movenext
								  if rs.eof then exit for
								    url=rs("url")
								    linkname=rs("linkname")
								    logo=rs("logo")
								    js=rs("js")
								%>
						document.write("<td align=center><a href=<%=url%> title='<%=js%>' target=_blank><img width=88 height=31 border=0 src=<%=logo%>></a></td></tr>");
								
							<%
							  rs.movenext
							  if rs.eof then exit for 
							  next
							  
							  end if
							%>
						document.write("</table></div>");
<%
end if

conn.close
set conn=nothing
%>