锘?%Session.CodePage=65001%> 锘?% '瀹氫箟寮瑰嚭妗? sub alert(message,url) message=trim(message) response.write("") end sub sub alert_back(message) message=trim(message) response.write("") end sub '妫娴嬫枃瀛楅暱搴? function check_text(text,num) text=RemoveHTML(text) if len(text)>num then text = left(text,num)+"..." else text=text end if check_text=text end function Function RemoveHTML(strHTML) Dim objRegExp, Match, Matches Set objRegExp = New Regexp objRegExp.IgnoreCase = True objRegExp.Global = True '鍙栭棴鍚堢殑<> objRegExp.Pattern = "<.+?>" '杩涜鍖归厤 Set Matches = objRegExp.Execute(strHTML) ' 閬嶅巻鍖归厤闆嗗悎锛屽苟鏇挎崲鎺夊尮閰嶇殑椤圭洰 For Each Match in Matches strHtml=Replace(strHTML,Match.Value,"") Next RemoveHTML=strHTML Set objRegExp = Nothing End Function %> Merchants Bank 10000000 heart goods support
 
  English Espa帽ol
 
Online Contact
Tel:+86-755-29994192,
Mobile:+86-13148703639,
fax:+86-755-29994192
laurenhu03@hotmail.com
skype:anniekuttyhu;
sales@bowei-ch.com

 

About us | News | Products | Culture | Guestbook | Contact us  

  Copyright © 2008 Bowei Tech Co.Ltd all right reserved