⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 link.asp

📁 一个ASP网站博克程序
💻 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

%>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -