28,391
社区成员
发帖
与我相关
我的任务
分享如何在网页中显示doc的内容
我将word粘贴板中的内容考入数据库一个字段内，但是不知道如何在页面上显示这些内容，怎样写才能按照原格式在页面上显示而不用打开word?
...全文
请发表友善的回复…
发表回复
summercat 2003-10-31
- 打赏
- 举报
看本页左边 [相关专题] word,excel.
燕舞光影 2003-10-31
- 打赏
- 举报
to :rexsp(真水无香 ppcode.com)
需要什么组件,能给个提示吗?多谢
需要什么组件,能给个提示吗?多谢
燕舞光影 2003-10-31
- 打赏
- 举报
如果有表格怎么办,图片呢?
rexsp 2003-10-31
- 打赏
- 举报
需要组件。
qdubit 2003-10-31
- 打赏
- 举报
up
ygghost 2003-10-31
- 打赏
- 举报
在页面上用数据库把字段内的数据读出来啊！
怎样写才能按照原格式在页面上显示？
------------------
可以存如数据库时把文本的格式转换一下！！
现提供一个转换函数
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
这样存入后再读出，就按照原来格式显示在页面了
怎样写才能按照原格式在页面上显示？
------------------
可以存如数据库时把文本的格式转换一下！！
现提供一个转换函数
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
这样存入后再读出，就按照原来格式显示在页面了
