CHR(10)表示换行，CHR(13)表示回车，CHR(32)表示空格

<%
function th(str)
str=replace(str,"妈的","MD")
str=replace(str,"靠","KAO")
th=str
end function

function encode(str)
    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>")
encode=str
end function
%>

<%title=request.form("title")
content=request.form("content")%>

文章标题：<%=th(title)%><hr>
文章内容：<%=encode(th(content))%>

th(str)为自定义函数，主要功能很简单：过滤字符。encode(str)也为自定义函
数，主要功能是完整地显示被传递的信息。
CHR(10)表示换行，CHR(13)表示回车，CHR(32)表示空格。

附加功能：显示UBB代码。
即ubb.asp中含有ubb()函数。

增强的cnbruce.asp

<!--#include file="http://www.cnbruce.com/blog/ubb.asp"-->
<%
function th(str)
str=replace(str,"妈的","MD")
str=replace(str,"靠","KAO")
th=str
end function
%>

赞 (0)

相关推荐

  • C++读取到回车换行符问题处理

    今天在编写99乘法在线小游戏(看过我的 linux下c实现的数据库备份(第四版)应该知道我在那里提过^.^)的时候遇到读取文件的信息遇到回车换行符的烦恼. 比如我文件里面有如下信息: name=qizexi sex=man 我希望读取到name=qizexi这些有效字符而已,不希望\r\n也加入其中,因为那样会影响我的判断. 解决的方式是在遇到\r获取\n的时候,替换为\0. #include<string.h> #include<stdio.h> int main(int arg

  • windows 中 \r\n 区别于 类unix中的\n 疑问理解(crlf回车换行)

    windows 中 \r\n 区别于 类unix中的\n 疑问理解(crlf回车换行)

    看到一篇博客:HTTP协议详解, 图1 开始不明白 "(CRLF)" 是什么意思! 查了一些资料,在一篇帖子里面发现了它的原意: 先发地址 其中一个人的回帖 把这个问题给我破解了 ,并且还介绍了windows下面\r\n的理由 图2 问题迎刃而解. if ($ != jQuery) { $ = jQuery.noConflict(); } var isLogined = false; var cb_blogId = 75610; var cb_entryId = 2095599; va

  • 把textarea中字符串里含有的回车换行替换成&lt;br&gt;的javascript代码

    1楼 textarea.value.replace(/\n/g,     "<br>"); 2楼 s=textarea.value.replace(/\r\n/g,     "<br>"); 3楼 按下的时候马上更换      V   ID="a"   contentEditable="true"   style='border:1   solid   black'>      其实以前早有很多人

  • Js 回车换行处理的办法及replace方法应用

    当我们在文本框里输入文字敲下回车后,希望在提交后网页也显示是换行的效果,这时我们需要把提交的内容做下处理 才可以达到效果. 1.定义js原生的替换函数.js里没有replaceAll的函数,需要我们自定义 复制代码 代码如下: String.prototype.replaceAll = function(s1,s2){ return this.replace(new RegExp(s1,"gm"),s2); } 2.使用js的replace进行处理 复制代码 代码如下: str=str

  • ReplaceTrim 函数之asp实现过滤掉字符中所有的tab和回车和换行的代码

    '================================================ '函数名:ReplaceTrim '作  用:过滤掉字符中所有的tab和回车和换行 '================================================     Public Function ReplaceTrim(ByVal strContent)         On Error Resume Next         Dim re         Set re

  • oracle中去掉回车换行空格的方法详解

    去除换行update zhzl_address t set t.add_administration_num=replace(t.add_administration_num,chr(10),'');去掉回车update zhzl_address t set t.add_administration_num=replace(t.add_administration_num,chr(13),'');去掉空格update zhzl_address t set t.add_administration

  • CHR(10)表示换行，CHR(13)表示回车，CHR(32)表示空格

    <% function th(str) str=replace(str,"妈的","MD") str=replace(str,"靠","KAO") th=str end function function encode(str)     str = replace(str, ">", ">")     str = replace(str, "<"

  • asp中回车换行符CHR(10)表示换行，CHR(13)表示回车，CHR(32)表示空格

    先举个例子 <% function th(str) str=replace(str,"妈的","MD") str=replace(str,"靠","KAO") th=str end function function encode(str) str = replace(str, ">", ">") str = replace(str, "<",

  • chr(9)、chr(10)、chr(13)、chr(32)、chr(34)讲解

    chr(9).chr(10).chr(13).chr(32).chr(34)所有关于 ASCII码的表格:[url]http://www.asciitable.com/[/url]chr(13) 是一个回车Chr(10) 是个换行符chr(32) 是一个空格符9\34 是tab,未确定?以下是一些示列 特殊的空格字符 在asp编程中,我们常常使用trim(rtrim,ltrim)函数去掉一些数据的开头和结尾的空格,笔者最近写了一个asp聊天室,有下面的一段代码: <% dim name,titl

  • 第4章 数据处理-php字符串的处理-郑阿奇(续)

    1.字符串的定义与显示 定义:通过"",''来标志 显示:echo()和print(),但print()具有返回值值,1,而echo()没有,但echo比print()要快,print()能用在复合语句中. 2.字符串的格式化 printf(string $format[,mixed$args]) 第一参数是格式字符串,$args是要替换进来的值,prinf("%d",$num); 说明,如果想打印一个"%",必须用"%",浮

  • postgresql 替换空格 换行和回车的操作

    我就废话不多说了,大家还是直接看代码吧~ UPDATE table set name = trim(name);//用来删除数据前后的空格 UPDATE table set name = rtrim(name);//用来删除数据前的空格 UPDATE table set name = ltrim(name);//用来删除数据后的空格 UPDATE table set name = REPLACE(name,' ','');//用来删除数据中的空格 UPDATE table set name =R

  • asp Chr 函数 数字转字母的方法

    Chr 函数 返回与指定的 ANSI 字符代码相对应的字符. Chr(charcode) charcode 参数是可以标识字符的数字. 说明 从 0 到 31 的数字表示标准的不可打印的 ASCII 代码.例如,Chr(10) 返回换行符. 下面例子利用 Chr 函数返回与指定的字符代码相对应的字符: Dim MyChar MyChar = Chr(65)    '返回 A. MyChar = Chr(97)    '返回 a. MyChar = Chr(62)    '返回 >. MyChar

  • VBS教程：函数-Chr 函数

    Chr 函数返回与指定的 ANSI 字符代码相对应的字符. Chr(charcode) charcode 参数是可以标识字符的数字. 说明从 0 到 31 的数字表示标准的不可打印的 ASCII 代码.例如,Chr(10) 返回换行符. 下面例子利用 Chr 函数返回与指定的字符代码相对应的字符: Dim MyCharMyChar = Chr(65) '返回 A.MyChar = Chr(97) '返回 a.MyChar = Chr(62) '返回 >.MyChar = Chr(37) '返回

  • asp 输出换行的详细说明 原创

    测试代码:输出简单的ul li1.asp 复制代码 代码如下: <% response.write "<ul>" response.write "<li>我们</li>" response.write "<li>www.jb51.net</li>" response.write "</ul>" %> 结果是:右键源文件看到的是 复制代码 代码如

  • Asp.Net中文本换行

    刚刚入门学习ASP.NET的朋友,都会碰到把大量带有换行文本的内容显示时,不会自动换行的问题.本人现在把解决这一问题真正有效的办法告诉大家,共同学习: 在VB.NET中: 1    Function HtmlCode()Function HtmlCode(ByVal fString) 2        If fString <> "" Then 3            fString = Replace(fString, Chr(13), "") 4 

随机推荐