请问这个怎么写成javascript形式的?

Question

请问这个怎么写成javascript形式的?Function UrlToAsc(url)
Dim i
For i = 1 To Len(url)
UrlToAsc = UrlToAsc & "%" & Hex(Asc(Mid(url,i,1)))
Next
End Function

Answer 1

            function urlToAsc(url)
            {
                var result = "";
                var stringLen = url.length;
                for (var i = 0; i < stringLen; i++)
                {
                    result = result + "%" + url.charCodeAt(i).toString(16);
                }
                return result;
            }

Answer 2

javascript的charCodeAt和vb的Asc方法有点不一样，charCodeAt返回的unicode码，所以都是正数，而Asc返回AscII码，超过AscII码表示返回的返回负数。因此如果url参数中没有中文之类的，应该等价。function UrlToAsc(url) {
var asc;
for(var i=0, n=url.length(); i<n; i++) {
asc += "%" + new Number(url.substring(i,i+1).charCodeAt()).toString(16).toUpperCase();
}
return asc;
}

Answer 3

写错了,url.length应该是不带括号的function UrlToAsc(url) {
    var asc;
    for(var i=0, n=url.length(); i<n; i++) {
        asc += "%" + new Number(url.substring(i,i+1).charCodeAt()).toString(16).toUpperCase();
    }
    return asc;
}

Answer 4

Function ReadBinaryFile(FileName) 
   Const adTypeBinary = 1 
   Dim BinaryStream 
   Set BinaryStream = CreateObject("ADODB.Stream") 
   BinaryStream.Type = adTypeBinary 
   BinaryStream.Open 
   BinaryStream.LoadFromFile FileName 
   ReadBinaryFile = BinaryStream.Read 
  End Function 
   
  Response.AddHeader "Content-Disposition", "attachment;filename=dfgerertertgf.jpg"
  Response.ContentType = "image/*" 
  Response.BinaryWrite ReadBinaryFile(server.mappath("moren1.jpg"))转成javascript,怎么老是不对呢??