link.asp

一个ＡＳＰ网站博克程序

<%

	Class Link
	
		'日志分类列表
		Public Sub LinkList()
			Dim objDBMS
			Set objDBMS = New LarrixDBMS
			objDBMS.Open "SELECT * FROM [Links] ORDER BY [LinkLAB]", 1
			%><table width="190" cellpadding="0" cellspacing="0" border="0"><%
			%><caption class="guider"><li type="square">友情链接</li></caption><%
			%><tr align="left" valign="middle"><%
			%><td width="100%" class="guider">&nbsp;-&nbsp; <a href="http://www.larry.net.cn" title="Larrix BLOG 网络日志发布系统官方网站">www.larry.net.cn</a></td><%
			%></tr><%
			If Not (objDBMS.objRSET.BOF And objDBMS.objRSET.EOF) Then
				While Not objDBMS.objRSET.EOF
					%><tr align="left" valign="middle"><%
					%><td width="100%" class="guider">&nbsp;-&nbsp; <a href="<% = objDBMS.objRSET("LinkLAB") %>" title="<% = objDBMS.objRSET("LinkVAL") %>" target="_blank"><% = Replace(objDBMS.objRSET("LinkLAB"), "http://", "") %></a></td><%
					%></tr><%
					objDBMS.objRSET.MoveNext
				Wend
			End If
			%></table><%
			objDBMS.Close
			Set objDBMS = Nothing
		End Sub

	End Class

%>