<P   align=center><IMG   src="http://www.jjxw.cn/pic/200...   border=0></P>   <P>　　<FONT   size=4>3月9日，九江港口集团客运总站今年首次迎来第一艘豪华游轮——“世纪辉煌号”。这标志着长江江西段水上旅游正式启动。该游轮属重庆新世纪游轮公司，是目前长江水上最豪华的游轮，全长126.8米，高21米，宽17.5米，共6层，整船有135个标准间和套房，可容纳320名游客。游轮内外装潢按五星级宾馆建造，耗资1亿元人民币，主要针对接待欧、美等国市场的游客。图为外宾下船到达九江港</FONT>时情景。<BR></P>  

'Function:             NoHtml(str)  
 'Description:       去掉HTML代码  
 'Parameter:           str   字符串  
 'Return:                 返回字符串  
 'Author:                 Written   by   net205,Modifide   by   net205      
 'Date:                     2004/9/16----?  
 '********************************************************  
 Function   NoHtml(str)  
 If   str=""   Or   IsNull(str)   Then   NoHtml="" :   Exit   Function  
 dim   re  
 Set   re=new   RegExp  
 re.IgnoreCase   =true  
 re.Global=True  
 re.Pattern="(\<.*?\>)"  
 str=re.replace(str,"")  
 re.Pattern="(\<\/.*?\>)"  
 str=re.replace(str,"")  
 NoHtml=str  
 End   Function