<% Call MemberCenter Response.Write("
") Call SiteInfo Response.Write("
") Call blogSearch%>
<%Dim blog_Links,blog_ImgLinks,blog_TxtLinks Set blog_Links=Conn.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&"" Else blog_TxtLinks=blog_TxtLinks&""&blog_Links("link_Name")&"" End IF blog_Links.MoveNext Loop End IF Set blog_Links=Nothing%>
图片链接：
<%=blog_ImgLinks%>

文本链接：
<%=blog_TxtLinks%>

友情链接加入说明：
如果你想跟本BLOG建立友情链接，请先在你的站点上加上本BLOG的友情链接，然后在这里登陆你的站点！谢谢合作！
<%If CheckStr(Request.Form("link_Name"))=Empty OR CheckStr(Request.Form("link_URL"))=Empty Then%>
名称： 必填 地址： 必填
图片： 本BLOG暂停申请图片链接！
<%Else Dim link_LastOrder,link_LastQuery Set link_LastQuery=Conn.ExeCute("SELECT TOP 1 link_Order FROM blog_Links ORDER BY link_Order DESC") IF link_LastQuery.EOF And link_LastQuery.BOF Then link_LastOrder=1 Else link_LastOrder=link_LastQuery(0)+1 End IF Set link_LastQuery=Nothing Conn.ExeCute("INSERT INTO blog_Links(link_Name,link_URL,link_Image,link_Order) VALUES ('"&CheckStr(Request.Form("link_Name"))&"','"&CheckStr(Request.Form("link_URL"))&"','"&CheckStr(Request.Form("link_IMG"))&"',"&link_LastOrder&")") SQLQueryNums=SQLQueryNums+2%>
你的站点已经提交成功，请等待我的验证！
<%End IF%>