asp textarea 多行数组分割处理方法

dedearr=split(xiangguanid2,chr(13)) '分割成数组
for dede=0 to ubound(dedearr)-1 '数组长度减一，因为最后有两个chr(13)换行。
dedearr2=split(dedearr(dede),"|") 
dedetitle=dedearr2(1) 
dedeurl=dedearr2(0) 
if dedetitle<>"" and dedeurl<>"" then 
xiangguanart2=xiangguanart2&"<li><a href="""&dedeurl&""" /> end if 
next 
end if

$cfg_softinfos['sites'] = ereg_replace("/n{1,}","/n",str_replace("/r","/n",$cfg_softinfos['sites'])); 
$sites = explode("/n",trim($cfg_softinfos['sites'])); 
foreach($sites as $site) 
{ 
if(trim($site)=='') continue; 
list($link,$serverName) = explode('|',$site); 

if(!eregi("^(http|ftp)://",$firstLink)) $flink = trim($link).$firstLink; 
else $flink = $firstLink; 

if($cfg_softinfos['gotojump']==1) $flink = $phppath."/download.php?open=1&aid=$aid&cid=$cid&link=".urlencode(base64_encode($flink)); 
$temp = str_replace("~link~",$flink,$tempStr); 
$temp = str_replace("~server~",$serverName,$temp); 
$downlinks .= $temp; 
} 
}