ASP 特殊字符的转换

今天在写一个查询时发现，有个字段中的内容包括#这个字符，将字段代入到GET中做传递数据时发现根本不能成功传递。

 

经过多次检查才发现这个 #  字符的问题，在网络在找了又找，找到一个简单的字符转换函数。不错速度快效果好，现在转出来。

 

对留言和其他数据输入中有干扰URL,干扰SQL,HTML的  
  <SCRIPT   LANGUAGE=vbscript     >  
  '加密：  
  function   encode(x)  
  for   i=1   to   len(x)  
  TempNum=hex(asc(mid(x,i,1)))  
  if   len(TempNum)=4   then  
  encode=encode   &     cstr(TempNum)  
  else  
  encode=encode   &   "00"   &   cstr(TempNum)  
  end   if  
  next  
  end   function  
  '解密：  
  function   decode(x)  
  for   i=1   to   len(x)   step   4  
  decode=decode   &   chr(int("&H"   &   mid(x,i,4)))  
  next  
  end   function  
  msgbox   decode(encode("asda汉字"))  
  '适用于任何字符，包括空格和url冲突的"&""?""%"汉字等符号  
  '简单加密，可以改造成移位加密，比如每个字符asc码值增加或减少一个数字  
  '可以改造成移位随机加密。  
  '比如每个字符前有一个随机数字，表示该字符asc码值增加或减少这个随机数字  
  </SCRIPT>