link.asp

来自「本源代码为终点小说连载系统 v1.15 Build 0430 SQL清风修改版,」· ASP 代码 · 共 27 行

<!-- #include file="conn.asp" -->document.write('<table width="100%" border="0" align="center" cellpadding="0" cellspacing="2">');<%
set rs=server.createobject("adodb.recordset")
sql="select * from link where class_link=1"
rs.open sql,conn,1,3
if rs.eof and rs.bof then
%>document.write('<tr align="center"><td colspan="5"><span class="style1">暂无任何连接，请添加！</span></td></tr>');
									<%else%>document.write('<%do while not rs.eof%><tr><td align="center"><%if rs("class_link")=1 and rs("ok_link")=1 then
	response.write "<a href=" & rs("web_link") & " target=_blank title=" & rs("content_link") & "><img src=" & rs("logo_link") & " width=100 height=35 border=0></a>"
end if
%></td></tr><%rs.movenext
	loop%>');<%
rs.close
set rs=nothing%> <%end if%>
document.write('</table><table width="100%" border="0" cellspacing="0" cellpadding="0">');
<%
set rs1=server.createobject("adodb.recordset")
sql1="select * from link where class_link=2"
rs1.open sql1,conn,1,3
if rs1.eof and rs1.bof then
%>document.write('<tr align="center"><td colspan="8"><span class="style1">暂无任何连接，请添加！</span></td></tr>');
<%else%>document.write('<%do while not rs1.eof%><tr><td align="center"><%if rs1("class_link")=2 and rs1("ok_link")=1 then
	response.write "<a href=" & rs1("web_link") & " target=_blank title=" & rs1("content_link") & ">" & rs1("name_link") & "</a>"
end if
%></tr></td><%rs1.movenext
	loop%>');<%
rs1.close
set rs1=nothing%><%end if%>document.write('</table>');