win200 server+iis,为什么在网页上,有的中文htm链接路径可以显示,有的不行?

'转换双字节字符为合法的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

你可能感兴趣的:(win200 server+iis,为什么在网页上,有的中文htm链接路径可以显示,有的不行?)