下面的代码是从kesion系统扒下的，确实不错，支持utf8格式。 代码如下:‘================================================ ‘函数名：URLDecode ‘作 用：URL解码 ‘================================================ Function URLDecode(ByVal urlcode) Dim start,final,length,char,i,butf8,pass Dim leftst
