bloglinks.asp

一套非常实用的博客源代码,功能全,界面简单易用.

<!--#include file="commond.asp" -->
<!--#include file="include/function.asp" -->
<!--#include file="header.asp" -->
<table width="780" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="160" valign="top" nowrap bgcolor="#F8F8F8"><%
	Call MemberCenter
	Response.Write("<br>")
	Call SiteInfo
	Response.Write("<br>")
	Call blogSearch%>    
    <br></td>
    <td width="100%" valign="top" bgcolor="#FFFFFF" class="wordbreak"><%Dim blog_Links,blog_ImgLinks,blog_TxtLinks
	Set blog_Links=znwl.ExeCute("SELECT * FROM blog_Links WHERE link_IsShow=True AND link_IsMain=False ORDER BY link_Order ASC")
	SQLQueryNums=SQLQueryNums+1
	IF Not(blog_Links.EOF And blog_Links.BOF) Then
		Do While Not blog_Links.EOF
			IF blog_Links("link_Image")<>Empty Then
				blog_ImgLinks=blog_ImgLinks&"<span style=""width:95px;""><a href="""&blog_Links("link_URL")&""" target=""_blank""><img src="""&blog_Links("link_Image")&""" alt="""&blog_Links("link_Name")&""" border=""0"" align=""absmiddle""></a></span>"
			Else
				blog_TxtLinks=blog_TxtLinks&"<span class=""hyperlink""><a href="""&blog_Links("link_URL")&""" target=""_blank"">"&blog_Links("link_Name")&"</a></span>"
			End IF
			blog_Links.MoveNext
		Loop
	End IF
	Set blog_Links=Nothing%><div class="content_head"><strong>图片链接：</strong></div><div class="content_main"><%=blog_ImgLinks%><br /><br /></div>
      <div class="content_head"><strong>文本链接：</strong></div><div class="content_main">
      <%=blog_TxtLinks%><br /><br /></div>
    <div class="content_head"><strong>友情链接加入说明：</strong></div><div class="content_main">
    如果你想跟本BLOG建立友情链接，请先在你的站点上加上<strong><%=siteName%></strong>的友情链接，然后联系站长！谢谢合作！<br>本站连接信息：<font color=green><%=siteName%></font>&nbsp;LOGO:<font color=green><%=siteUrl%>/logo.gif</font></div>
</td>
  </tr>
</table>
<!--#include file="footer.asp" -->