FCK编辑器吗,你的意思是说把内容当中的图片取出来.单独显示到某个位置?
dim strMain
strMain=Rs("Content")
Dim obRegExp,RetStr,splitStr
Set obRegExp = New Regexp
strFilter="
obRegExp.IgnoreCase = True
obRegExp.Global = True
obRegExp.Pattern = strFilter
Set Matches = obRegExp.Execute(LCase(strMain))
For Each Match in Matches
RetStr = RetStr & Match.Value & "|"
Next
splitStr = split(RetStr,"|")
For N=0 to Ubound(splitStr)-1
splitFilter = replace(splitStr(N)," response.write "
Next
Set obRegExp = Nothing
打开数据库查看一下不就可以 了?