asp可以调用js函数的
<%

Response.Write ff()
%>


<script language=javascript runat=server>
function ff()
{
 return "测试"
}
</script>

应该可以的。可能是编码的问题。

我试了可以调用，但西面的代码为什么不行？请大侠们帮我检查一下，看看哪里不对：

<script language = "JavaScript" runat="server">
var keyStr = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/="
function encode64(input)
{
    input = strUnicode2Ansi(input);
    
    var output = "";
    var chr1, chr2, chr3 = "";
    var enc1, enc2, enc3, enc4 = "";
    var i = 0;
        
    do{
        chr1 = input.charCodeAt(i++);
        chr2 = input.charCodeAt(i++);
        chr3 = input.charCodeAt(i++);

        enc1 = chr1 >> 2;
        enc2 = ((chr1 & 3) << 4) | (chr2 >> 4);
        enc3 = ((chr2 & 15) << 2) | (chr3 >> 6);
        enc4 = chr3 & 63;

        if (isNaN(chr2))
        {
            enc3 = enc4 = 64;
        }
        else if(isNaN(chr3))
        {
            enc4 = 64;
        }

        output = output + 
        keyStr.charAt(enc1) + 
        keyStr.charAt(enc2) + 
        keyStr.charAt(enc3) + 
        keyStr.charAt(enc4);
        chr1 = chr2 = chr3 = "";
        enc1 = enc2 = enc3 = enc4 = "";
        
    }while(i < input.length);

    return output;
}

function decode64(input)
{
  var output = "";
  var chr1, chr2, chr3 = "";
  var enc1, enc2, enc3, enc4 = "";
  var i = 0;
      
      if(input.length%4!=0)
      {
                return "";
      }
  var base64test = /[^A-Za-z0-9\+\/\=]/g;
      if (base64test.exec(input))
      {
                return "";
      }

  do {
     enc1 = keyStr.indexOf(input.charAt(i++));
     enc2 = keyStr.indexOf(input.charAt(i++));
     enc3 = keyStr.indexOf(input.charAt(i++));
     enc4 = keyStr.indexOf(input.charAt(i++));

     chr1 = (enc1 << 2) | (enc2 >> 4);
     chr2 = ((enc2 & 15) << 4) | (enc3 >> 2);
     chr3 = ((enc3 & 3) << 6) | enc4;
             
             output = output + String.fromCharCode(chr1);

     if (enc3 != 64) {
                    output+=String.fromCharCode(chr2);
     }
     if (enc4 != 64) {
                    output+=String.fromCharCode(chr3);
     }

     chr1 = chr2 = chr3 = "";
     enc1 = enc2 = enc3 = enc4 = "";

  } while (i < input.length);

  return strAnsi2Unicode(output);
}

function UnicodeChr()
{
    return '00A4,00A7,00A8,00B0,00B1,......';//中间我省略了可参考base64.js
}

function AnsicodeChr()
{
    return 'A1E8,A1EC,A1A7,...';//中间我省略了可参考base64.js
}

function UnicodeToAnsi(chrCode)
{
    var chrHex=chrCode.toString(16);
    chrHex="000"+chrHex.toUpperCase();
    chrHex=chrHex.substr(chrHex.length-4);
    var i=UnicodeChr().indexOf(chrHex);
    if(i!=-1)
    {
            chrHex=AnsicodeChr().substr(i,4);
    }
    return parseInt(chrHex,16)
}

function AnsiToUnicode(chrCode)
{
    var chrHex=chrCode.toString(16);
    chrHex="000"+chrHex.toUpperCase();
    chrHex=chrHex.substr(chrHex.length-4);
    var i=AnsicodeChr().indexOf(chrHex);
    if(i!=-1)
    {
            chrHex=UnicodeChr().substr(i,4);
    }
    return parseInt(chrHex,16)
}

function strUnicode2Ansi(asContents)
{
    var len1=asContents.length;
    var temp="";
    for(var i=0;i<len1;i++)
    {
        var varasc=asContents.charCodeAt(i);
        if(varasc<0)
                varasc+=65536;
        if(varasc>127)
                varasc=UnicodeToAnsi(varasc);
        if(varasc>255)
        {
            var varlow=varasc & 65280;
            varlow=varlow>>8;
            var varhigh=varasc & 255;
            temp+=String.fromCharCode(varlow)+String.fromCharCode(varhigh);
        }
        else
        {
            temp+=String.fromCharCode(varasc);
        }
    }
    return temp;
}

function strAnsi2Unicode(asContents)
{
    var len1=asContents.length;
    var temp="";
    var chrcode;
    for(var i=0;i<len1;i++)
    {
        var varasc=asContents.charCodeAt(i);
        if(varasc>127)
        {
            chrcode=AnsiToUnicode((varasc<<8)+asContents.charCodeAt(++i));
        }
        else
        {
            chrcode=varasc;
        }
        temp+=String.fromCharCode(chrcode);
    }
    return temp;
}

function request(paras)
{ 
var url = location.href;  
var paraString = url.substring(url.indexOf("?")+1,url.length).split("&");  
var paraObj = {}  
for (i=0; j=paraString[i]; i++){  
paraObj[j.substring(0,j.indexOf("=")).toLowerCase()] = j.substring(j.indexOf("=")+1,j.length);  
}  
var returnValue = paraObj[paras.toLowerCase()];  
if(typeof(returnValue)=="undefined"){  
return "";  
}
else{  
return returnValue; 
}
}

function getDeRes()
{
var pas = Request("Params");
//return pas;       //这个可以返回
return decode64(pas); //这个不能返回（为什么？我请大家帮忙解决）
}
</Script>
<html>
<head></head>
<body>
<%=getDeRes()%>
</body></html>

Function decode(str)

	Dim val

	With (CreateObject("MSXML2.DOMDocument").createElement("TXT"))

		.dataType = "bin.base64"

		.text = str

		val = .nodeTypedValue

	End With

	With CreateObject("ADODB.Stream")

		.Type = 1

		.Open

		.Write val

		.Position = 0

		.Type = 2

		.Charset = "GBK"

		WScript.Echo .ReadText(-1)

	End With

End Function





Dim s



s = "U2VsZWN0ICogRnJvbSBHQm94U29uZyBXaGVyZSBTb25nS2V5IExpa2UgJyEhsrzA78S3ucXA1s3FLbvDz+vH+i646Mf6us3O6Mf6ISEnIEFuZCBUeXBlPSfS9Ma1JyZ0eXBlPTEmZmllbGRsaXN0PUlEJCR8fCQkQ2hTb25nTmFtZSQkfHwkJEVuU29uZ05hbWUkJHx8JCRQbGF5ZXIkJHx8JCRTb25nV3JpdGVyJCR8fCQkQWxidW0kJHx8JCRVcmw="

decode(s)

上面是在 wsh 环境下测试的，　 asp 用这个

Function decode(str)

	Dim val

	With Server.CreateObject("MSXML2.DOMDocument").createElement("TXT")

		.dataType = "bin.base64"

		.text = str

		val = .nodeTypedValue

	End With

	With Server.CreateObject("ADODB.Stream")

		.Type = 1

		.Open

		.Write val

		.Position = 0

		.Type = 2

		.Charset = "GBK"

		decode = .ReadText(-1)

	End With

End Function





Dim s

s = "U2VsZWN0ICogRnJvbSBHQm94U29uZyBXaGVyZSBTb25nS2V5IExpa2UgJyEhsrzA78S3ucXA1s3FLbvDz+vH+i646Mf6us3O6Mf6ISEnIEFuZCBUeXBlPSfS9Ma1JyZ0eXBlPTEmZmllbGRsaXN0PUlEJCR8fCQkQ2hTb25nTmFtZSQkfHwkJEVuU29uZ05hbWUkJHx8JCRQbGF5ZXIkJHx8JCRTb25nV3JpdGVyJCR8fCQkQWxidW0kJHx8JCRVcmw="



Response.Write decode(s)

多谢多谢，赏分。

楼上的，我用你的asp版的函数只能解一部分文本，是不是有问题，如下列文本：

"U2VsZWN0ICogRnJvbSBHQm94U29uZyBXaGVyZSBTb25nS2V5IExpa2UgJyEhtcDAvLXEzujH+ihKdWxpYW4gQnJlYW0gRWRpdGlvbiBWb2wuMzogRGFuY2VzIG9mIERvd2xhbmQpISEnIEFuZCBUeXBlPSfS9Ma1Jw=="

用你的函数解完后前半部分是对的，（CSDN论坛限制非法字符，所以我不贴了）

而用在线解密网站 http://md5.mmkey.com/base64/
解密的结果是正确的。正确字符串我也贴不出来，这个网站上解密的结果是正确的。

请再劳驾帮忙看一下吧，再次感谢了。
[/code]

Function decode(str)

    Dim val

    With Server.CreateObject("MSXML2.DOMDocument").createElement("TXT")

        .dataType = "bin.base64"

        .text = str

        val = .nodeTypedValue

    End With

    With Server.CreateObject("ADODB.Stream")

        .Type = 1

        .Open

        .Write val

        .Position = 0

        .Type = 2

        .Charset = "GBK"

        decode = .ReadText(-1)

    End With

End Function





Dim s

s = "U2VsZWN0ICogRnJvbSBHQm94U29uZyBXaGVyZSBTb25nS2V5IExpa2UgJyEhtcDAvLXEzujH+ihKdWxpYW4gQnJlYW0gRWRpdGlvbiBWb2wuMzogRGFuY2VzIG9mIERvd2xhbmQpISEnIEFuZCBUeXBlPSfS9Ma1Jw=="



Response.Write decode(s)

测试没有问题。


这个方法用的是 xml 及 adodb　组件进行解码
你不用怀疑其正确性, 如有出现差错，请检查被解码的原字符串是否合法

是我这边代码问题，多谢多谢。