[求助]留言不可以换行 - 编程论坛

#2

gdk20062007-10-17 08:27

你是不是用文本域做为留言的内容啊！如果是的那么就要把一些字符串替换出来，给你一个：
function html(constring)
constring=replace(constring,"<","<")
constring=replace(constring,">",">")
constring=replace(constring,"'","´")
constring=replace(constring,CHR(13),"")
constring=replace(constring,CHR(10),"<br>")
constring=replace(constring,chr(32)," ")
constring=replace(constring,CHR(10)&CHR(10),"</p><p>")
html=constring
end function

代用方法：<%=html(留言内容)%>

详细介绍你自己去看chr字符表！

#3

威龙嘉少2007-10-17 08:49

是的，谢谢

#4

威龙嘉少2007-10-17 09:42

我这样写了可是怎么不对啊？
sql = "insert into tiezi(tz_lanmu,tz_zhuti,tz_content,tz_fname) values("&lanmu&","&zhuti&",'<%=html(content)%>','"&name&"')"
trs.open sql,conn,1,3

#5

永夜的极光2007-10-17 10:18

sql = "insert into tiezi(tz_lanmu,tz_zhuti,tz_content,tz_fname) values("&lanmu&","&zhuti&",'"&html(content)&"','"&name&"')"

在一对<%%>内部不能再出现<%或者%>

#6

威龙嘉少2007-10-17 10:49

我刚开始也是这样写的，开始出现这样的错误：
错误类型：
Microsoft VBScript 运行时错误 (0x800A000D)
类型不匹配: 'html'
还是不可以运行

#7

永夜的极光2007-10-17 11:33

你有把2楼给你程序写在前面吗？

#8

gdk20062007-10-17 12:09

我还是建议你在显示的时候在调用哪个函数，因为到时候你要修改留言的内容的时候就会出现HTML标签这样就不利于操作了！

#9

威龙嘉少2007-10-17 12:29

写了啊，具体怎么做说下可以吗？

#10

威龙嘉少2007-10-17 12:37

[CODE]

我怎么写到哪里都出现一样的错误啊？我在写的时候又加了
<script language="vbscript"></script>

[/CODE]
会不会是这的原因啊？

#11

威龙嘉少2007-10-17 12:46

我把代码给贴出来：
<head>
function html(constring)
constring=replace(constring,"<","<")
constring=replace(constring,">",">")
constring=replace(constring,"'","´")
constring=replace(constring,CHR(13),"")
constring=replace(constring,CHR(10),"<br>")
constring=replace(constring,chr(32)," ")
constring=replace(constring,CHR(10)&CHR(10),"</p><p>")
html=constring
end function
引用：
<td colspan="2" valign="top" height="130"><%=html(rs("tz_content"))%></td>

#12

tianyu1232007-10-17 18:20

[CODE]function html(constring)
constring=replace(constring,"<","<")
constring=replace(constring,">",">")
constring=replace(constring,"'","´")
constring=replace(constring,CHR(13),"")
constring=replace(constring,CHR(10),"<br>")
constring=replace(constring,chr(32)," ")
constring=replace(constring,CHR(10)&CHR(10),"</p><p>")
html=constring
end function[/CODE]

这个代码应该放在<%...%>之间，你是不是直接粘贴到那里了！

#13

幻想妖精2007-10-18 15:04

顶下，学习中

[此贴子已经被作者于2007-10-18 15:06:46编辑过]