显示文本格式方法代码.docVIP

　　有时大家使用数据库的时候发现插入数据库的一大长篇文章不照你原来的分行。全部挤在一起。那怎么办？ 　　SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT 　　function DoWhiteSpace（str） 　　DoWhiteSpace = Replace（（Replace（str, vbCrlf, 　　））， chr（32）chr（32）， ） 　　End Function 　　/SCRIPT 　　上面这一段的代码的意思是把那些空格和回车转换成ASCII码来显示。 　　上面一段代码随便插哪里都行。 　　接下来的就是要改下面的代码。在原来的显示代码里加上DoWhiteSpace既可 　　原来的代码%=（Recordset1.Fields.Item（msg）。value）% 　　插入后的代码%= DoWhiteSpace（Recordset1.Fields.Item（msg）。value）% 　　显示特殊字符代码。 　　这一段代码相当重要。有时候做一个留言本的话。如果不使用这段代码的话。那就让人有机可乘了。如果人家输入一段恶意的代码的话，你打开就会执行造成死循环 　　%=server.HTMLEncode（scutia.Fields.Item（cont）。value）% 　　其实就是要server.HTMLEncode这个 　　自定义文本长度。 　　有时做留言本。界面设置好了。怕人家的标题太长的话把表撑开怎么办？ 　　有时直接设置只显示多少个字符就行了。但是这样的话，那长的标题就会被切短，人家不知道后面还有内容，很容易造成误会的。 　　所以我们就想到了在后面加上个…… 　　% 　　Function StrLenB（ strString ） 　　dim intLoop,intReturn 　　if isNull（strString） then 　　StrLenB = 0 　　exit Function 　　end if 　　intReturn = len（strString） 　　for intLoop = 1 to len（strString） 　　if （ asc（ mid（ strString, intLoop, 1 ） ） 0 ） then intReturn = intReturn + 1 　　next 　　StrLenB = intReturn 　　End Function 　　Function strLeftB（ strString ,intLen） 　　dim intLenB,intLoop 　　if StrLenB（strString） intLen then 　　strLeftB = strString 　　exit Function 　　end if 　　for intLoop = 1 to Len（strString） 　　if （ asc（ mid（ strString, intLoop, 1 ） ） 0 ） then 　　intLenB = intLenB + 2 　　else 　　intLenB = intLenB + 1 　　end if 　　if intLenB intLen then 　　intLoop = intLoop - 1 　　exit for 　　elseif intLenB = intLen then 　　exit for 　　end if 　　next 　　strLeftB = left（strString,intLoop） 　　End Function 　　Function IsLetter（ chr ） 　　dim blnReturn 　　blnReturn = false 　　if （ （ chr = asc（a） and chr = asc（z） ） or （ chr = asc（A） and chr = asc（Z） ） or （ chr = asc（0） and chr = asc（9） ） ） then 　　blnReturn = true 　　end if 　　IsLetter = blnReturn 　　End Function 　　Function AlignString（ string, byVal size ） 　　dim r,nLen,n,i,a,s_i 　　r = string 　　nLen = StrLenB（ string ） 　　 if strings width less then size ,return this string . 　　if （ nLen size ） then 　　size = size - 2 　　n = 0 　　i = 1 　　 cut to index 　　do whi