多行文本的问题

[zhangyanyun]

用FrontPage2000制作的一个网页，在里面有一个给用户添加信息的页面，如果用多行文本框,字体大小和字体颜色是固定的。我想通过把Word里面编辑好的内容复制到多行文本框里，使里面显示的和在Word里面的一样，然后存储到数据库里面，需要的时候再从库里取出显示，请问怎么实现？

[ygghost]

字体大小和字体颜色不能存到数据库吧！但是你word文档的格式可以。
就是在显示时用个函数控制一下就可以：
Function coder(str)
Dim result,L,i
If IsNull(str) Then : coder="" : Exit Function : End If
L=Len(str) : result=""
For i = 1 to L
select case mid(str,i,1)
case "<" : result=result+"<"
case ">" : result=result+">"
case chr(34) : result=result+"""
case "&" : result=result+"&"
case "'" : result=result+"''"
case chr(13) : result=result+"<br/>"
case chr(9) : result=result+"    "
case chr(32) : result=result+" "
case else : result=result+mid(str,i,1)
end select
Next
coder=result
End Function
---------------------------------------------------
要实现你说的那样，只能把word名存在数据库里，然后调用这个word
这样就可以了。

[anita2li]

UP