如何制作这样的asp文件呢？？

帮我看下这段代码：他是如何进行验证qq信息的！如何制作这样的asp文件呢？？

function checkID(){
    if(!PINFO["free"]){if(PINFO["id"]!=Myid){alert("[友情提示] 发生错误,可能由以下原因造成:\n\n1.加载验证信息失败,服务器故障或者网络连接失败\n\n2.该序列号不能用于此QQ");location.reload();return false;}}
}

function loadKey(){
    /*如果没有序列号，则提示输入序列号*/
    //alert($PROQQ);
    Keyname=$("mykeyname").value;
    if(!Keyname){
        alert("[程序友情提示]:请输入序列号");
        location.reload();
        return false;
    }
    var sFlag="";
    var params="";
    if(arguments.length>0){
        sFlag=arguments[0];
        params=arguments[2];
    }
    if(!params){resultShow("");}
    var postURL="";
    var tQQ=PINFO["qq"]||"";
    var tid=PINFO["id"]||"";
    if(sFlag=="reload"){
        postURL=Keyhost+"key.asp?fid="+tid+"&key="+Keyname+"&qq="+$PROQQ+"&tt="+getServerTime();
        resultShow("[请求]正在重新加载验证信息..");
    }else if(sFlag=="check"){
        postURL=Keyhost+"key.asp?fid="+tid+"&key="+Keyname+"&qq="+$PROQQ+"&tt="+arguments[1];
        if(!params){resultShow("[请求]正在校检时间信息..");}
    }else{
        postURL=Keyhost+"key.asp?fid="+tid+"&key="+Keyname+"&qq="+$PROQQ+"&tt="+getClientTime();
        resultShow("[请求]正在加载验证信息..");
    }
    frequest(postURL,"get",function(rs){/*************** Post Call Back Execution Start************/
        if(rs.execute){
            /*加载验证信息成功*/
            rs.execute();
            if(sFlag=="reload"){
                resultShow("[请求]重新加载验证信息成功");
                /*reloadServer()*/
                reConnectServer();
            }
            else if(sFlag=="check"){
                if(!params){
                    resultShow("[请求]校检时间信息成功");
                    proInit();
                }
                else params();
            }
            else loadServerTime();
        }else{
            /*加载验证信息失败*/
            resultShow("[请求]加载验证信息失败:{序列号错误|程序服务器故障}");
            if(sFlag=="reload"){reloadServer();}
            else if(sFlag=="check"){
                if(!params){
                    resultShow("[请求]校检时间信息成功");
                    proInit();
                }
                else alert("[友情提示]获取验证信息失败");
            }
            else loadServerTime();
        }
    });/*************** Post Call Back Execution End************/
}