<<< 返回 access911.net 编程静态资料库索引页

ASP URLDECODE 函数

 

作者:  摘自:  录入:cg1  时间:2004-2-29  浏览人次:1298


专题地址:http://access911.net/fixhtm/71FAB41E17DCE9F3.htm 如果需要更详细的评论或说明,请点击该地址。

 

简述:

 


Function URLDecode(enStr)
    Dim deStr
    Dim c, i, v
    deStr = ""
    For i = 1 To Len(enStr)
        c = Mid(enStr, i, 1)
        If c = "%" Then
            v = Eval("&h" + Mid(enStr, i + 1, 2))
            If v < 128 Then
                deStr = deStr & Chr(v)
                i = i + 2
            Else
                If isvalidhex(Mid(enStr, i, 3)) Then
                    If isvalidhex(Mid(enStr, i + 3, 3)) Then
                        v = Eval("&h" + Mid(enStr, i + 1, 2) + Mid(enStr, i + 4, 2))
                        deStr = deStr & Chr(v)
                  .....................
...........

资料库随时有更新,欲查看最新详情请单击专题地址http://access911.net/fixhtm/71FAB41E17DCE9F3.htm

 


上一篇:如何用代码在“默认值”里实现自动编号?单据流水号生成问题。

下一篇:如何编程打开其他数据库中的窗体?

2017年2月22日生成静态资料