<!--#Include FILE="WapConfig/WapHeader.asp"-->
<%
XML.WriteOut "<h2>友情链接</h2>"
XML.WriteOut "<ul><li>"
XML.WriteRow "<b>合作站点：</b>"
XML.StrSql="Select F_ID,F_SiteName,F_SiteAdd,F_SiteLogo From FriendLink Where F_LinkType=3 And F_Recycle=True And F_ExamMark=True Order By F_ID Desc,F_AddTime Desc"
XML.MdbDo '执行SQL语句。
For I=0 To XML.RecordCount-1
    XML.WriteRow XML.A("",XML.RS("F_SiteAdd"),XML.RS("F_SiteName")) 
    XML.Rs.MoveNext
Next
If XML.RecordCount<1 Then XML.WriteRow "暂时没有合作站点。"
XML.WriteRow "<b>图标链接：</b>"
XML.StrSql="Select F_ID,F_SiteName,F_SiteAdd,F_SiteLogo From FriendLink Where F_LinkType=1 And F_Recycle=True And F_ExamMark=True Order By F_ID Desc,F_AddTime Desc"
XML.MdbDo '执行SQL语句。
For I=0 To XML.RecordCount-1
    XML.WriteRow XML.IA(XML.RS("F_SiteLogo"),XML.RS("F_SiteAdd"),XML.RS("F_SiteName"))
    XML.Rs.MoveNext
Next
If XML.RecordCount<1 Then XML.WriteRow "暂时没有图片链接。"

XML.WriteRow "<b>文字链接：</b>"
XML.StrSql="Select F_ID,F_SiteName,F_SiteAdd,F_SiteLogo From FriendLink Where F_LinkType=2 And F_Recycle=True And F_ExamMark=True Order By F_AddTime Desc"
XML.MdbDo '执行SQL语句。
For I=0 To XML.RecordCount-1
    XML.WriteRow XML.A("",XML.RS("F_SiteAdd"),XML.RS("F_SiteName"))
    XML.Rs.MoveNext
Next
If XML.RecordCount<1 Then XML.WriteRow "暂时没有文字链接。"

XML.WriteOut "</li></ul>"
'以下为返回链接等
XML.WriteOut XML.Div(,,"N")

XML.WriteRow XML.ImgA("","Index.asp","返回上级")
%>
<!--#Include FILE="WapConfig/WapFooter.asp"--> 
