asp中向文本框輸出數(shù)據(jù)原樣式的函數(shù)
更新時(shí)間:2007年03月29日 00:00:00 作者:
從數(shù)據(jù)庫(kù)輸出信息時(shí)有轉(zhuǎn)換函數(shù),可以將回車空格按原樣式輸出。這段代碼可向文本框原樣輸出代碼。
Function cc_f_textarea_html_encode(cc_f_t_h_e_str)
If Not IsNull(cc_f_t_h_e_str) And cc_f_t_h_e_str <> "" Then
cc_f_t_h_e_str = Replace(cc_f_t_h_e_str, ">", ">")
cc_f_t_h_e_str = Replace(cc_f_t_h_e_str, "<", "<")
cc_f_t_h_e_str = Replace(cc_f_t_h_e_str, CHR(13), "")
cc_f_t_h_e_str = Replace(cc_f_t_h_e_str, CHR(10) & CHR(10), vbCrLf)
cc_f_t_h_e_str = Replace(cc_f_t_h_e_str, CHR(10), vbCrLf)
cc_f_textarea_html_encode = cc_f_t_h_e_str
End If
End Function
復(fù)制代碼 代碼如下:
Function cc_f_textarea_html_encode(cc_f_t_h_e_str)
If Not IsNull(cc_f_t_h_e_str) And cc_f_t_h_e_str <> "" Then
cc_f_t_h_e_str = Replace(cc_f_t_h_e_str, ">", ">")
cc_f_t_h_e_str = Replace(cc_f_t_h_e_str, "<", "<")
cc_f_t_h_e_str = Replace(cc_f_t_h_e_str, CHR(13), "")
cc_f_t_h_e_str = Replace(cc_f_t_h_e_str, CHR(10) & CHR(10), vbCrLf)
cc_f_t_h_e_str = Replace(cc_f_t_h_e_str, CHR(10), vbCrLf)
cc_f_textarea_html_encode = cc_f_t_h_e_str
End If
End Function
相關(guān)文章
asp操作access提示無(wú)法從指定的數(shù)據(jù)表中刪除原因分析及解決
asp操作access時(shí)提示無(wú)法從指定的數(shù)據(jù)表中刪除這個(gè)問(wèn)題相當(dāng)?shù)募郑谑撬阉髡砹艘恍?shí)用的解決方法,感興趣的你可以參考下本文2013-03-03asp下刪除Access數(shù)詞庫(kù)中的空記錄的sql語(yǔ)句
asp下刪除Access數(shù)詞庫(kù)中的空記錄的sql語(yǔ)句...2007-04-04ASP.NET Core整合Zipkin鏈路跟蹤的實(shí)現(xiàn)方法
這篇文章主要介紹了ASP.NET Core整合Zipkin鏈路跟蹤,本文給大家介紹的非常詳細(xì),對(duì)大家的學(xué)習(xí)或工作具有一定的參考借鑒價(jià)值,需要的朋友可以參考下2020-09-09Coolite 中前臺(tái)獲取 GridPanel 當(dāng)前選擇行值的代碼
掌握獲取 GridPanel 當(dāng)前行的各個(gè)字段值的方法,需要的朋友可以參考下。2010-06-0664位win7的IIS7下asp與access的連接問(wèn)題
運(yùn)行asp是提示Microsoft OLE DB Provider for ODBC Drivers (0x80004005)[Microsoft][ODBC Microsoft Access Driver] 找不到文件 '(未知的)'。2009-12-12