如何使資料庫中取出的資料保持原有格式(轉)

zhouwf0726發表於2019-04-06

如何保持資料庫中原有格式不變:這些問題在論壇裡面幾乎天天有人問~!

其實當在輸入資訊,然後提交資訊的時候,所有內容的格式是沒有變的。

只是在當提取資料庫的時候,某些特殊的東西需要將它們顯示出來:比如空格、比如回車等

1,先定義一個函式:主要作用是替換特殊字元程式碼


function HTMLEncode(fString)

fString = replace(fString, ">", ">")
fString = replace(fString, "fString = Replace(fString, CHR(32), " ")
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), "

")
fString = Replace(fString, CHR(10), "
")
HTMLEncode = fString

end function
%>



2,直接呼叫該函式





function HTMLEncode(fString) fString = replace(fString, ">", "&gt;") fString = replace(fString, "<", "&lt;") fString = Replace(fString, CHR(32), "&nbsp;") fString = Replace(fString, CHR(13), "") fString = Replace(fString, CHR(10) & CHR(10), "</P><P>") fString = Replace(fString, CHR(10), "<BR>") HTMLEncode = fString end function function output(str) out.innerHTML=HTMLEncode(str) end function



cnbruce.asp


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), "

")
str = Replace(str, CHR(10), "
")
encode=str
end function
%>

content=request.form("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"--&gt
function th(str)
str=replace(str,"媽的","MD")
str=replace(str,"靠","KAO")
th=str
end function
%>



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

文章標題:

文章內容:


有了這些鍛鍊,相信在使用資料庫的時候同樣可以勝任。

Replace函式的作用:返回字串,其中指定數目的某子字串被替換為另一個子字串。

Replace(expression, find, replacewith[, compare[, count[, start]]])


expression 必選項。字串表示式包含要替代的子字串。
find 必選項。被搜尋的子字串。
replacewith 必選項。用於替換的子字串。
start 可選項。expression中開始搜尋子字串的位置。如果省略,預設值為1。在和count關聯時必須用.
count 可選項。執行子字串替換的數目。如果省略,預設值為-1,表示進行所有可能的替換。在和start關聯時必須用。
compare 可選項。指示在計運算元字串時使用的比較型別的數值。有關數值,請參閱"設定"部分。如果省略,預設值為0 ,這意味著必須進行二進位制比較。


從前到後分別是"在哪裡找,找什麼,用什麼替換"。

在VBScript裡""(兩個引號)在字串裡會自動存為一個引號,在JavaScript裡"等於引號

vbcrlf相當於回車符和換行符的組合.

至於Replace函式,其作用就是將字串Str中的vbcrlf替換為"
" ,vbCrLf&vbCrLf替換為"

"

下面的一個就是很有用的文字轉換程式
text="媽的,我操" text=replace(text,"媽的","MD") text=replace(text,"操","CAO") alert (text)
[Ctrl+A 全部選擇 提示:你可先修改部分程式碼,再按執行]

來自 “ ITPUB部落格 ” ,連結:http://blog.itpub.net/756652/viewspace-242208/,如需轉載,請註明出處,否則將追究法律責任。

相關文章