显示文本格式的代码.doc

显示文本格式方法代码点击: 发布日期：2007-8-5 11:14:00 进入论坛 有时大家使用数据库的时候发现插入数据库的一大长篇文章不照你原来的分行。全部挤在一起。那怎么办？ function DoWhiteSpace(str) DoWhiteSpace = Replace(Replace(str, vbCrlf, ), chr(32)&chr(32), ) End Function 上面这一段的代码的意思是把那些空格和回车转换成ASCII码来显示。上面一段代码随便插哪里都行。接下来的就是要改下面的代码。在原来的显示代码里加上DoWhiteSpace既可原来的代码插入后的代码显示特殊字符代码。这一段代码相当重要。有时候做一个留言本的话。如果不使用这段代码的话。那就让人有机可乘了。如果人家输入一段恶意的代码的话，你打开就会执行造成死循环其实就是要server.HTMLEncode这个自定义文本长度。有时做留言本。界面设置好了。怕人家的标题太长的话把表撑开怎么办？有时直接设置只显示多少个字符就行了。但是这样的话，那长的标题就会被切短，人家不知道后面还有内容，很容易造成误会的。所以我们就想到了在后面加上个。%Function StrLenB( strString )dim intLoop,intReturnif isNull(strString) then StrLenB = 0 exit Functionend ifintReturn = len(strString)for intLoop = 1 to len(strString) if ( asc( mid( strString, intLoop, 1 ) ) 0 ) then intReturn = intReturn + 1nextStrLenB = intReturnEnd FunctionFunction strLeftB( strString ,intLen)dim intLenB,intLoopif StrLenB(strString) intLen then strLeftB = strString exit Functionend iffor intLoop = 1 to Len(strString) if ( asc( mid( strString, intLoop, 1 ) ) intLen then intLoop = intLoop - 1 exit for elseif intLenB = intLen then exit for end if nextstrLeftB = left(strString,intLoop)End FunctionFunction IsLetter( chr )dim blnReturnblnReturn = falseif ( ( chr = asc(a) and chr = asc(A) and chr = asc(0) and chr size ) thensize = size - 2 n = 0 i = 1 cut to index do while ( i ) a = asc( mid( string, i, 1 ) ) if ( a 这个代码是经过改良的。主要是修改以前对英文字母的问题，现在这个是以章字节来算的。就是一个汉字需要2上面的24其实就是24个字母12个汉字来的。阅读过的文章自动加一这个是简章的计数器来的。插件我不知道有没有，但在ud里用command很容易搞定的。如：文章标题加个连接，用go to detail page行为，传递id参数，在显示文章内容的页面加个command，类型选update,sql如下update 表set dianji=dianji+1where id= 变量说明：dianji为你的计数字段，变量是要你加的，值为request.querystr