急,把DW里的代码复制在文本框里,写入数据库,读出来多了很多个的问题,解决完马上给分.

[linpast]

在后台里,
添加一个商品,在祥细资料里,是把DW里生成的表格HTML代码复制到后台的文本框里.
然后数据库读出来的.
多了很多个<BR>
我现在不想让他多很多个<br>
要怎么做。
谢谢。
解决完马上给分。！！

[linpast]

自己UP一下。

[xiaoxingchi]

'-----------------------------------------------------------
'功能: 过虑HTML字符
'输入：字符串
'输出：经格式化后的字符串
function HTMLEncode(fString)
if not isnull(fString) then
fString = replace(fString, ">", ">")
fString = replace(fString, "<", "<")

fString = Replace(fString, CHR(32)&CHR(32), "  ")
fString = Replace(fString, CHR(9), " ")
fString = Replace(fString, CHR(34), """)
fString = Replace(fString, CHR(39), "'")
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), "</P><P> ")
fString = Replace(fString, CHR(10), "<BR> ")

HTMLEncode = fString
end if
end function

[trysun]

抢先了一步。。　呵呵

[tylike]

replace(htmlstr,"<BR>","")

[linpast]

读出来的时候
是不是这样写：
htmlencode(rs("detail"))
这样写，
类型不匹配: 'HTMLEncode' 错误呀。

[ygghost]

server.HTMLEncode

[linpast]

TO ygghost(刘华强)

按你那样的修改后,
读出来什么都没有了..
帮我看一看, 谢谢.

[stefli]

如果是显示在<textarea>中，就必须转换过来。
如果是显示在也面中，就不必了。

content=replace(content,"<br>",vbCrLf)

[linpast]

写入数据库,
我就按平常的那样写入,
只是在页面我加了 server.htmlcode ,
可没过滤掉呀..

[xieyj]

server.htmlencode
如果不行使用:content=replace(content,"<br>",vbcrlf)

[linpast]

我是在页面显示,
也要转吗？?

[xieyj]

页面显示可以不用,直接输出

[jfly301]

表格怎么能复制到textarea里呢，
建议用<iframe>
<iframe src="" width="300" height="100"></iframe>

[jfly301]

这样什么也不用转换就可以了，什么图片，格式都和拷的一样

[yeno]

有几种方法

首先可以用HTML代码转换函数
function HTMLEncode(Str)
if isNULL(str) then
htmlencode=""
exit function
end if
l=len(str)
result=""
dim i
for i = 1 to l
select case mid(str,i,1)
' case "<"
' result=result+"<"
' case ">"
' result=result+">"
case chr(13)
result=result+"<br>"
case chr(34)
result=result+"" "
if i+1<=l and i-1>0 then
if mid(str,i+1,1)=chr(32) or mid(str,i+1,1)=chr(9) or mid(str,i-1,1)=chr(32) or mid(str,i-1,1)=chr(9) then
result=result+" "
else
result=result+" "
end if
else
result=result+" "
end if
case chr(9)
result=result+" "
case else
result=result+mid(str,i,1)
end select
next

HTMLEncode = result
end function

[yeno]

其次还有一个方法就是用trim函数
numid=trim(request.form("numid")) '输入
<%=trim(rs("numid"))%> '输出

在输入时最好结合上面的HTML代码转换函数用，或者结合下面的函数用
Function ChangeChr(str)
ChangeChr=replace(replace(replace(replace(str,"<","<"),">",">"),chr(13),"<br>")," "," ")
ChangeChr=replace(ChangeChr,"'",""")
ChangeChr=replace(ChangeChr,mid(" "" ",2,1),""")
End Function
numid=ChangeChr(trim(request.form("numid")))

[linpast]

谢谢各位,
我明天来结贴.