一般不需要转换的,这种直接提交数据过去就OK了~要转换的话有方法的~
这是别人写好的转换函数,看你适合用那个函数:
- //GB2312
- //要用GB2312方式编码的字符串
- function encodeGB2312(body,Cset)
- // "UTF-8"
- objstream =com("Adodb.Stream")
- objstream.Type = 0
- objstream.Mode =2
- objstream.Open
- objstream.Write(body)
- objstream.Position = 0
- objstream.Type = 1
- objstream.Charset = Cset
- str = objstream.ReadText
- objstream.Close
- objstream=null
- return str
- endfunction
- //encodeURI
- //要用encodeURI方式编码的字符串
- function encodeURI(str)
- ScriptContorl=com("MSScriptControl.ScriptControl")
- ScriptContorl.AllowUI = true
- ScriptContorl.Language = "JavaScript"//"JavaScript"
- ScriptContorl.AddCode("function add(s1){return encodeURI(s1);}")
- ret=ScriptContorl.Run("add",str)
- ScriptContorl=null
- return ret
- endfunction
- //decodeURI
- //要用decodeURI解码的字符串
- function decodeURI(str)
- ScriptContorl=com("MSScriptControl.ScriptControl")
- ScriptContorl.AllowUI = true
- ScriptContorl.Language = "JavaScript"//"JavaScript"
- ScriptContorl.AddCode("function add(s1){return decodeURI(s1);}")
- ret=ScriptContorl.Run("add",str)
- ScriptContorl=null
- return ret
- endfunction
- //escape
- //要用escape方式转码的字符串
- function escape(str)
- ScriptContorl=com("MSScriptControl.ScriptControl")
- ScriptContorl.AllowUI = true
- ScriptContorl.Language = "JavaScript"//"JavaScript"
- ScriptContorl.AddCode("function add(s1){return escape(s1);}")
- ret=ScriptContorl.Run("add",str)
- ScriptContorl=null
- return ret
- endfunction
- //unescape
- //要用unescape解码的字符串
- function unescape(str)
- ScriptContorl=com("MSScriptControl.ScriptControl")
- ScriptContorl.AllowUI = true
- ScriptContorl.Language = "JavaScript"//"JavaScript"
- ScriptContorl.AddCode("function add(s1){return unescape(s1);}")
- ret=ScriptContorl.Run("add",str)
- ScriptContorl=null
- return ret
- endfunction
复制代码 |