開始將多行區域表單中的內容沒有處理,就直接保存起來,然後在顯示的時候發現,明明保存的時候有換行等格式,但是顯示不出來,所有的內容都在一行上。原因是沒有將多行區域表單中的內容換成Html格式引起這個原因的。
01
02
Function
inHtml(str)
03
Dim
sTemp
04
sTemp = str
05
inHtml =
""
06
If
IsNull(sTemp) =
True
Then
07
Exit
Function
08
End
If
09
10
sTemp = Replace(sTemp,
"&"
,
"&"
)
11
sTemp = Replace(sTemp,
"<"
,
"<"
)
12
sTemp = Replace(sTemp,
">"
,
">"
)
13
stemp=Replace(stemp, CHR(39),
"'"
)
14
stemp= Replace(stemp, CHR(32),
" "
)
15
sTemp = Replace(sTemp, Chr(34),
"""
)
16
stemp = Replace(stemp, CHR(13),
""
""
)
17
stemp = Replace(stemp, CHR(10),
"<br>"
)
18
inHtml = sTemp
19
End
Function
20
21
22
Function
outHtml(str)
23
Dim
sTemp
24
sTemp = str
25
outHtml =
""
26
If
IsNull(sTemp) =
True
Then
27
Exit
Function
28
End
If
29
stemp=replace(stemp,
"<br>"
,chr(10))
30
stemp=replace(stemp,
""
""
,chr(13))
31
stemp=replace(stemp,
"""
,chr(34))
32
stemp=replace(stemp,
" "
,chr(32))
33
stemp=replace(stemp,
"'"
,chr(39))
34
stemp=replace(stemp,
">"
,
">"
)
35
stemp=replace(stemp,
"<"
,
"<"
)
36
stemp=replace(stemp,
"&"
,
"&"
)
37
38
outHtml = sTemp
39
End
Function
(鼠標移到代碼上去,在代碼的頂部會出現四個圖標,第一個是查看源代碼,第二個是復制代碼,第三個是打印代碼,第四個是幫助)
用法:
text=inhtml(request("textarea"))'這樣就將textarea中的內容轉換成了Html代碼
當顯示數據庫中這個內容到多行表單方法
<textarea name="textarea" cols="30" rows="30"><%=outHtml(rs("字段名"))%>