求大侠帮我把这段vbscript换成javascript，急！

Question

function SetPagePrm(typ)
dim p0,p1,i

if request("prm")<>"" then
prm=request("prm")
else
varprm=split(doaOF("prm"),"|")
prm=varprm(typ)
end if p0=split(prm,";")
for i=0 to ubound(p0)
p1=split(p0(i),":")
doaPrm.Add p1(0), p1(1)
nextend function谢谢！！

Answer 1

function SetPagePrm(typ){
    var p0,p1,i
    if(Request("prm")!=""){
        prm = Request("prm")
    }
    else{
        varprm = doaOF("prm").split("|")
        prm = varprm[typ]
    }
    p0 = prm.split(";")
    for(var i=0;i<p0.length;i++){
        p1 = p0[i].split(":")
        doaPrm.Add(p1[0], p1[1]);
    }
}