|
发表于 2020-9-26 18:00:01
|
显示全部楼层
添加内容入数据库时用这个函数格式化内容:
Function Format(formatdata)
formatdata=replace(formatdata,"&","&")
'formatdata=replace(formatdata,"'","''")
formatdata=replace(formatdata,"<","<")
formatdata=replace(formatdata,">",">")
formatdata=replace(formatdata,"chr(60)","<")
formatdata=replace(formatdata,"chr(37)",">")
formatdata=replace(formatdata,"""",""")
'formatdata=replace(formatdata,";",";;")
formatdata=replace(formatdata,chr(13),"<br>" & chr(13)+chr(10))
format=replace(formatdata,chr(32)," ")
End Function
------------------------
读出数据时,用以下函数还原原来输入的内容:
Function UFormat(formatdata)
'formatdata=replace(formatdata,"&","&")
'formatdata=replace(formatdata,"''","'")
formatdata=replace(formatdata,"<","<")
formatdata=replace(formatdata,">",">")
formatdata=replace(formatdata,"<","chr(60)")
formatdata=replace(formatdata,">","chr(37)")
formatdata=replace(formatdata,""","""")
'formatdata=replace(formatdata,";;",";")
formatdata=replace(formatdata,"<br>" & chr(13)+chr(10),chr(13))
Uformat=replace(formatdata," ",chr(32))
End Function |
|