function replaceKey(str,key)
dim keyArr
if str="" or isnull(str) then exit function
keyArr=split(key,",")
for i=0 to ubound(keyArr)
str=replace(str,keyArr(i),"{"&keyArr(i)&"}")
next
replaceKey=str
end function
response.Write replaceKey("dsadasdasdupdatedasddsdasdasdsadkeyd","update,key")
'读的时候 替换掉所有的“{”和“}”