asfman
android developer
posts - 90,  comments - 213,  trackbacks - 0
1.vbs
Function asfman_BytesToStr(Body,cset)
  Dim ADOS
  Set ADOS=Server.CreateObject("ADODB.Stream")
With ADOS
      .Type=1 '1means bytes 2means text
      .Mode=3 'in fact,it mustn't been set
      .Open
      .Write Body
      .Position=0 ' move the position to the head
      .Type=2
      .CharSet=cset
asfman_BytesToStr=.ReadText
      .Close
End with
Set ADOS=nothing
End Function

2.use append and appendchunk
function asfman(html) {
   var rs=new ActiveXObject("ADODB.Recordset");
   rs.Fields.Append("asfman",201,1);
   rs.Open();
   rs.AddNew();
   rs.fields.item(0).AppendChunk(html);
   rs.Update();
   temp=rs(0).value;
   rs.Close();
   delete rs;
  return temp;
}
3.cookie 解码
<script language=Vbscript>
Function vbChar(str)
 vbChar=Chr(str)
End Function
</script>
<script language=Javascript>
 var glbEncode=new Array();
 function reCode(str) {
  var str=str.replace(/%([A-Z].)%(.{2}))/g,"@$1$2";
  var t=str.split("@"),k,l=t.length;
 for(var i=0;i<l;i++) {
   k=t[i].substring(0,4);
  if(!glbEncode[k])
  glbEncode[k]=escape(vbChar(eval("0x"+k)));
 t[i]=glbEncode[k]+t[i].substring(4);
 }
str=unescape(t.join(""));
return str.match(/%([A-Z].)%(.{2})/g)?reCode(str):str.replace(/\+/g,"&nbsp;");
}
</script>
posted on 2006-10-12 14:56 汪杰 阅读(500) 评论(0)  编辑 收藏 引用 所属分类: ajax
只有注册用户登录后才能发表评论。

<2024年11月>
272829303112
3456789
10111213141516
17181920212223
24252627282930
1234567

常用链接

留言簿(15)

随笔分类(1)

随笔档案(90)

文章分类(727)

文章档案(712)

相册

收藏夹

http://blog.csdn.net/prodigynonsense

友情链接

最新随笔

搜索

  •  

积分与排名

  • 积分 - 466814
  • 排名 - 6

最新随笔

最新评论

阅读排行榜

评论排行榜