links.asp

本源代码为终点小说连载系统 v1.15 Build 0430 SQL清风修改版,欢迎大家下载,学习与交流

				<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
					<tr>
						<td class="head">&nbsp;&nbsp;&nbsp;&nbsp; 
						友情连接说明</td>
					</tr>
											<tr>
												<td><span class="style2">1、站点必须内容详实，制作马虎或名不副实者恕不链接。</span></td>
											</tr>
											<tr>
												<td><span class="style2">2、含有修改浏览者默认页或注册表的网页不予链接。</span></td>
											</tr>
											<tr>
												<td><span class="style2">3、含有任何反动内容或色情内容的不予链接。</span></td>
											</tr>
											<tr>
												<td><span class="style2">4、带有*号的选项为必填顶目</span></td>
											</tr>
											<tr>
												<td><span class="style2">5、如果选择“文字连接”，网站LOGO处可以为空</span></td>
											</tr>
											<tr>
												<td><span class="style2">6、网站简介不能超过100字</span></td>
											</tr>
										</table>
<br>
								<table width="100%" border="0" align="center" cellpadding="0" cellspacing="2">
									<tr>
										<td height="34" colspan="3" valign="middle">&nbsp;&nbsp;&nbsp; 
										LOGO连接</td>
										<td height="34" colspan="2" align="right" valign="middle">
										<a href="link_add.asp">申&nbsp; 请</a>&nbsp;&nbsp;&nbsp;
										</td>
									</tr>
									<%
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
%>
									<tr align="center">
										<td colspan="5"><span class="style1">暂无任何连接，请添加！</span></td>
									</tr>
									<%else%>
									<tr>
										<%
i=1
do while not rs.eof
%>
										<td align="center"><%
'if  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>
										<%
	if i mod 5=0 then response.write "</tr><tr>"
	i=i+1
	rs.movenext
	loop
%> <%end if%>
									</tr>
								</table>
								<table width="100%" border="0" cellspacing="2" cellpadding="0">
									<tr>
										<td height="34" colspan="4" valign="middle">&nbsp;&nbsp;&nbsp; 
										文字连接</td>
										<td height="34" colspan="4" align="right" valign="middle">
										<a href="link_add.asp">申&nbsp; 请</a>&nbsp;&nbsp;&nbsp;
										</td>
									</tr>
									<%
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
%>
									<tr align="center">
										<td colspan="8"><span class="style1">暂无任何连接，请添加！</span></td>
									</tr>
									<%else%>
									<tr>
										<%
i=1
do while not rs1.eof
%>
										<td align="center"><%
'if rs1("ok_link")="1" then
	response.write "<a href='" & rs1("web_link") & "' target='_blank' title='" & rs1("content_link") & "'>" & rs1("name_link") & "</a>"
'end if
%> </td>
										<%
	if i mod 8=0 then response.write "</tr><tr>"
	i=i+1
	rs1.movenext
	loop
%> <%end if%>
									</tr>
								</table>