<!--#include file="function1.asp" -->
<%
dim lCooperation,sCooperation,Cooperation1,Cooperation2,i,lurl
lCooperation=""
if trim(Cooperation)<>"" and len(trim(Cooperation))>0 then
   Cooperation=replace(Cooperation,"""","'")
   sCooperation=split(Cooperation,"|")
   lurl=split(curl,"|")
   if ubound(sCooperation)<>ubound(lurl) then
     response.write"document.write (""合作网站的参数填写有错!<br>勿必确保网站名称与网址数目一一对应!"")"
     response.end
   end if
   for i=0 to ubound(sCooperation)
     lCooperation=lCooperation&"document.write (""<a target=_blank href="&lurl(i)&">"&sCooperation(i)&"</a>"")"&vbCrLf&"document.write (""<br>"")"&vbCrLf
   next
   Cooperation1="document.write (""<table width=198 border=0 cellspacing=0 cellpadding=0><tr><td align=left>"")"&vbCrLf
   Cooperation2="document.write (""</td></tr></table>"")"
   response.write Cooperation1&lCooperation&Cooperation2
end if
%>
