会员登陆
登录加载中...
超级搜索
栏  目  
类  别  
关键词  
 站内搜索   网络搜索
  
 当前位置:文章首页>>网页编程>>ASP实例>>加密URL传输参数
推荐给你的朋友阅读:

加密URL传输参数

来源:互联网 发表日期: 2006-08-30 08:25:52

    引用时:http://localhost/ShowArt.asp?ID=Furl("飞腾设计网")
    
    不过,对数字与英文字符不起多少作用的。

'转换双字节字符为合法的URL传输字串
    Function getUrlEncodel(byVal Url)
    Dim i,code
    getUrlEncodel=""
    IF trim(Url)="" Then Exit Function
    For i=1 To len(Url)
    code=Asc(mid(Url,i,1))
    IF code<0 Then code = code + 65536
    IF code>255 Then
    getUrlEncodel=getUrlEncodel&"%"&Left(Hex(Code),2)&"%"&Right(Hex(Code),2)
    Else
    getUrlEncodel=getUrlEncodel&mid(Url,i,1)
    End IF
    Next
    End Function
    
    Function Furl(url)
    Furl=Replace(url," ","%20",1,-1,1)
    Furl=getUrlEncodel(Furl)
    End Function

    

0
0
[作者:不详 关键词:URL 录入:raincity 责编:raincity 阅读次数:8860]

相关文章 相关新闻 相关软件 相关教程 公共评论 发表评论

  • ·暂无相关内容
  • ·暂无相关内容
  • ·暂无相关内容
    评论载入中...
    您的称呼  验 证 码   
    您的评论 [ 最多字数:  已用字数:剩余字数:]

     
COPYRIGHT 2003-2010 创意飞腾科技有限公司(The Feitec LTD.) ALL RIGHTS RESERVED .
官方咨询官方咨询4376161 官方咨询526743959 技术支持:FeitecCMS5366464
页面加载时间:281.25ms Powered By:FeitecCMS V4.0(Build1101)
[蜀ICP备05000881]