28,407
社区成员
发帖
与我相关
我的任务
分享多行文本的问题
用FrontPage2000制作的一个网页，在里面有一个给用户添加信息的页面，如果用多行文本框,字体大小和字体颜色是固定的。我想通过把Word里面编辑好的内容复制到多行文本框里，使里面显示的和在Word里面的一样，然后存储到数据库里面，需要的时候再从库里取出显示，请问怎么实现？
...全文
请发表友善的回复…
发表回复
anita2li 2003-11-17
- 打赏
- 举报
UP
ygghost 2003-11-17
- 打赏
- 举报
字体大小和字体颜色不能存到数据库吧！但是你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
这样就可以了。
就是在显示时用个函数控制一下就可以：
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
这样就可以了。
