📄 link.asp

📁 本程序采用ACC数据核心构件！！功能介绍：程序代码重新设计与优化

💻 ASP

字号:

<!--#include file="inc/config.asp"-->
<!--#include file="inc/conn.asp"-->
<!--#include file="inc/code.asp"-->
<!--#include file="inc/inc.asp"-->
<!--#include file="inc/SqlIn.Asp"-->
<%call head()%>
<body>
<div id="top-bg">
<div id="public-body">
<!--#include file="Top.asp"-->
<div id="page-link">
<%
start="友情连接"
if not isempty(request("page")) then
	currentPage=cint(request("page"))
else
	currentPage=1
end if
menu=htmlencode(request("menu"))
if menu="" or (not isnumeric(menu)) or isnull(menu) then
	menu="all"
end if
set rs = server.createobject("adodb.recordset")
call head()
%>
<TABLE cellSpacing=1 cellPadding=5 width=984 align=center bgColor=#cccccc border=0><TBODY></TBODY></TABLE><TBODY><table width="994" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<table width=984 border=0 align=center cellpadding=0 cellspacing=1 bgcolor=#990000>
    <tr> 
  <td bgcolor="#FF9900">
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="0">
  <tr>
    <td height="15" bgcolor="#FFFFCC">
	  <div align="center">
	    <%
set rs3 = server.createobject("adodb.recordset")
sql3="select id,imgurl,imglink,title from Gq_link where linktype=0 order by id asc"
rs3.open sql3,conn,1,1
if rs3.eof and rs3.bof then
	response.write "<div align=center>当前没有文字连接。如需连接，请与管理员QQ：（"&webmaster&"）联系。</center>"
end if
do while not rs3.eof
	response.write "<a href="&rs3("imglink")&" target=_blank>"&rs3("title")&"</a> "
rs3.movenext
loop
rs3.close
set rs3=nothing
%>
	    </div></td>
</tr>
<tr>
<td height="1" bgcolor="#990000"></td>
</tr>
<tr>
<td bgcolor="#FFFFCC">
  <div align="center">
    <%
set rs2 = server.createobject("adodb.recordset")
sql2="select id,imgurl,imglink,title from Gq_link where linktype=1 order by id asc"
rs2.open sql2,conn,1,1
if rs2.eof and rs2.bof then
	response.write "<div align=center>当前没有图片连接。如需连接，请与管理员QQ：（"&webmaster&"）联系。</center>"
end if
do while not rs2.eof
response.write "&nbsp;<a href="&rs2("imglink")&" target=_blank><img src="&rs2("imgurl")&" width=88 height=31 border=0 title="&rs2("title")&"></a> "
rs2.movenext
loop
rs2.close
set rs2=nothing
%>	
  </div></td>
  </tr>
</table>
</td>
</tr>
</table>
<%
call footer()
call CloseConn()
%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -