|
|
主题: LemonTree帮忙看一下，数据库提数据时没有段落的问题
|
冷雨狂舞
职务：普通成员
等级：5
金币：15.6
发贴：2554
|
#12004/1/14 15:46:55
www.lemongtree.net/bbs/dispbbs.asp?boardid=3&id=50这个是你上次给的网址，我asp实在是困难。 不知道代码插在什么地方。。。。 ======= 我把<SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT> function HTML(Str) if not isnull(Str) then Str=trim(Str) Str=replace(Str,"<","<") Str=replace(Str,">",">") Str=replace(Str,"'","""") Str=replace(Str,vbCrLf&vbCrLf,"</p><p>") Str=replace(Str,vbCrLf," ") HTML=replace(Str," "," ") end if end function </SCRIPT> 插入到前台显示的页面。。 然后用 <%=html(rs("news_content"))%> 调数据出来就出错 ======= 如果不加上面的代码。就用<%=rs("news_content")%>调数据的话就没有段落了。。。麻烦能说详细点吗？哪些代码放哪些地方。还有哪些部分需要修改。。
|
冷雨狂舞
职务：普通成员
等级：5
金币：15.6
发贴：2554
|
#22004/1/14 15:49:17
你的列子是在同一张页面上完成，没有通过数据库文件，实在看不懂。
|
沉默是金
职务：普通成员
等级：6
金币：11.2
发贴：4357
|
#32004/1/14 16:48:27
返回值呢？
难人一个……
|
缺缺
职务：管理员
等级：8
金币：41.0
发贴：9620
|
#42004/1/14 19:11:25
出什么错? 
|
沉默是金
职务：普通成员
等级：6
金币：11.2
发贴：4357
|
#52004/1/14 21:15:31
<SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT> function HTML(Str) if not isnull(Str) then Str=replace(Str,"'","") Str=replace(Str,vbCrLf & vbCrLf,"</p><p>") Str=replace(Str,vbCrLf," ") HTML=Str end if end function </SCRIPT> 再试试看。
难人一个……
|
谁染枫林醉
职务：普通成员
等级：1
金币：1.0
发贴：148
|
#62004/1/15 0:38:07
你用段ubb不就可以了吗？不用自己写replace函数吧
|
冷雨狂舞
职务：普通成员
等级：5
金币：15.6
发贴：2554
|
#72004/1/15 8:51:27
多谢arhui的代码 还有lemontree给的代码也没错。是我插入的时候有问题。。 现在我的情况是段落有了。但是每个段落之前的2个空格没有了。。 是什么问题啊？ ================我插入的代码是： <SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT> function HTML(Str) if not isnull(Str) then Str = replace(Str, ">", ">") Str = replace(Str, "<", "<") Str = Replace(Str, CHR(32), " ") Str = Replace(Str, CHR(13), "") Str = Replace(Str, CHR(10) & CHR(10), "</P><P>") Str = Replace(Str, CHR(10), "<BR>") HTML=replace(Str," "," ") end if end function </SCRIPT>
|
沉默是金
职务：普通成员
等级：6
金币：11.2
发贴：4357
|
#82004/1/15 9:17:22
把TRIM去掉。
难人一个……
|
冷雨狂舞
职务：普通成员
等级：5
金币：15.6
发贴：2554
|
#92004/1/15 9:24:24
已经去掉了啊。
|
沉默是金
职务：普通成员
等级：6
金币：11.2
发贴：4357
|
#102004/1/15 9:46:00
不是这个函数的TRIM。
难人一个……
|
冷雨狂舞
职务：普通成员
等级：5
金币：15.6
发贴：2554
|
#112004/1/15 9:51:16
ok。。问题搞定了。是 Str = Replace(Str, CHR(32), " ") 这句话里面的最后的“ ”中间的空格引起的。呵呵。。 ============================= 非常感谢楼上的各位了。。特别是arhui之前的提示。谢谢 我把我自己调试成功的代码公布一下把： <SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT> function HTML(fString) fString = Replace(fString, CHR(32), " ") fString = Replace(fString, CHR(13), "") fString = Replace(fString, CHR(10) & CHR(10), "</P><P>") fString = Replace(fString, CHR(10), "<BR>") HTML = fString end function </SCRIPT> 把上面代码插入前台提数据的页面，然后在同一页面中用 <%=HTML(rs("news_content"))%> 调数据出来
|
沉默是金
职务：普通成员
等级：6
金币：11.2
发贴：4357
|
#122004/1/15 9:54:33
fString = replace(fString, ">", ">")
fString = replace(fString, "<", "<")
要它何用？
难人一个……
|
冷雨狂舞
职务：普通成员
等级：5
金币：15.6
发贴：2554
|
#132004/1/15 9:59:45
没用吗？我不知道。。。。呵呵。。
多谢
|
沉默是金
职务：普通成员
等级：6
金币：11.2
发贴：4357
|
#142004/1/15 10:02:20
fString = replace(fString, ">", "<")
fString = replace(fString, "<", ">")
难人一个……
|
