www.gusucode.com > 学校共青团组织网站源代码 > 学校共青团组织网站源代码/626/link_js.asp
<!--#include file = admin_conn.asp --> <!--#include file = 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=id11 name=D11>"); 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 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 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 " 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 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 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 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 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 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 %>