图片取代问题

梦的放肆

比如:存入数据库的图片地址为<img src="images/aaa.jpg">
我要转换成<img src="guestbook/images/aaa.jpg">

这样用:
Function ChkGuestBook(GuestBook)
GuestBook=Replace(GuestBook,"<img src='","<img src='ClassBook/")
GuestBook=Replace(GuestBook,").gif'>",").gif' border='0'>")
ChkGuestBook=GuestBook
End Function

我转换的是留言内容,但是我要截取50个字,这50个字没有包含一个图片的所有,只有一半,使得图片不能显示
如何解决~~
谢谢~~~!!!

斌仔

美丽让男人停下，智慧让男人留下。