外挂编程

开发平台：
ASP/ASPX

link.asp：源码内容
							<!--#include file="Inc/Cls_Conn.asp"-->
<!--#include file="Inc/Cls_Config.asp"-->
<%
'=====================================================================
' 作者声明：转载请保留版权信息，鄙视不要脸的人
'=====================================================================
' 程序名称：蓝宇网络发布系统
' 软件版本：Version 3.3.0 Sp1
' 程序作者：蓝宇 QQ：18159079 ╲、随心゛ QQ：6821845
'=====================================================================
' 联系方式：Tel：13203117383，QQ：18159079，hi.baidu.com/hezeyu
' 程序开发：蓝宇,╲、随心゛
' 官方网站：蓝宇网络(http://hi.baidu.com/hezeyu)
'=====================================================================
' Copyright 2004-2007 蓝宇 - All Rights Reserved.
'=====================================================================
Dim rs2, sql2, rs3, sql3
start="友情连接"
set rs = server.createobject("adodb.recordset")
tee5.head()
%>
<table width=<%=tee5.TabWidth%> border=0 align=center cellpadding=0 cellspacing=0 bgcolor=#990000>
    <tr> 
  <td bgcolor="#FF9900">
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="0">
  <tr>
    <td height="15">
	<%
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：（"&tee5.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
%></td>
</tr>
<tr>
<td height="1" bgcolor="#999999"></td>
</tr>
<tr>
<td>
<%
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：（"&tee5.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
%>
	</td>
  </tr>
</table>
</td>
</tr>
</table>
<table width="<%=tee5.TabWidth%>" border="1" align="center" cellpadding="10" cellspacing="0" bordercolor="#660000" bgcolor="#990000">
  <tr bgcolor="#660000">
    <td height="32" colspan="9"><b><font color="FFFFFF">本站会随时检查与我们做连接的站点,如果您的站要更新或者其他原因不在保留本站连接,希望及时通知我们,否则我们会把您站的logo删除而不再加入!</font></b></td>
  </tr>
</table>
<%
tee5.footer()
CloseConn()
%>

						