www.gusucode.com > 在线影院小偷程序联盟多风格后台版 3.2源码程序 > inc/fjqq.asp

    <!--#include file="fso.asp"-->
<%

Sub cfss_link(a)'友情链接
fjqq_link=FSOFileRead(a)
fjqq_link=Replace(fjqq_link,Chr(13)&Chr(10),"#")
fjqq_link_1=Split(fjqq_link,"#")
fjqq_link_2=UBound(fjqq_link_1)
If fjqq_link_2>=0 Then 
For fjqq_link_i=0 To fjqq_link_2
	If fjqq_link_1(fjqq_link_i)<>"" Then 
		fjqq_link_3=Split(fjqq_link_1(fjqq_link_i),"|")
		If fjqq_link_3(3)="" Then 
		response.write"<a target=""_blank"" href="""&fjqq_link_3(1)&""" title="""&fjqq_link_3(2)&""">"&fjqq_link_3(0)&"</a>"
		Else 
		response.write"<a target=""_blank"" href="""&fjqq_link_3(1)&""" title="""&fjqq_link_3(2)&"""><img src="""&fjqq_link_3(3)&""" width=""88"" height=""31"" border=""0"" /></a>"
		End If 
	End If 
Next 
End If 
End Sub 
%>