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

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

17 个解决方案

#1

自己UP一下。

#2

'-----------------------------------------------------------
'功能: 过虑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

#3

抢先了一步。。　呵呵

#4

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

#5

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

#6

server.HTMLEncode

#7

TO ygghost(刘华强)

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

#8

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

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

#9

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

#10

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

#11

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

#12

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

#13

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

#14

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

#15

有几种方法

首先可以用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

#16

其次还有一个方法就是用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")))

#17

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

#1