| 以下是代碼片段： <% '----------Html轉(zhuǎn)換為文本:編輯時(shí)拿來(lái)做轉(zhuǎn)換 Function Html2Text(Str1) If isNULL(Str1) Then Html2Text="" Exit Function End If Str1=Replace(Str1,"<"," <") Str1=Replace(Str1,">",">") Str1=Replace(Str1,"<br>",VBcrlf) Str1=Replace(Str1,""",chr(34)) Str1=Replace(Str1," "," ") Str1=Replace(Str1,"&","&") Html2Text=Str1 End Function '-------------------文本轉(zhuǎn)換為Html:寫入數(shù)據(jù)庫(kù)時(shí)使用--------------- Function Text2Html(Str1) If isNULL(Str1) Then Text2Html="" Exit Function End If Str1=Replace(Str1,"&","&") Str1=Replace(Str1," <","<") Str1=Replace(Str1,">",">") Str1=Replace(Str1,VBcrlf,"<br>") Str1=Replace(Str1,chr(34),""") Str1=Replace(Str1,chr(9)," ") Str1=Replace(Str1," "," ") Text2Html=Str1 End Function %> |
留言反饋