帮忙看一下这个程序是怎么运行的啊、? 为什么用 pascal 运行不了啊?

[复制链接]
查看11 | 回复4 | 2011-8-6 18:32:58 | 显示全部楼层 |阅读模式
/*
最后修订:ESDN 2011-7-7
全局变量
*/
var XML_PutObj, XML_GetObj, XML_Obj;
var iTimeoutID;        //定时器
var i, n, m;        //计数
var strList;        //输出名单容器
function checkLogin(){
        var strUser        = MyXML.XMLEncode(ESD.$("UserName").value);
        var strCode        = MyXML.XMLEncode(ESD.$("ListCode").value);        //学校
        var strPhone= MyXML.XMLEncode(ESD.$("TelPhone").value);
        var strA        = MyXML.XMLEncode(ESD.$("ACode").value);        //年级
        var strB        = MyXML.XMLEncode(ESD.$("BCode").value);        //班级
        if (strCode == "")
        {
                alert("请选择您所在的学校,以便于系统核对您的身份!");
                ESD.$("ListCode").focus();return false;
        }
        if (strA == "")
        {
                alert("请选择您所在的年级,以便于系统核对您的身份!");
                ESD.$("ACode").focus();return false;
        }
        if (strB == "")
        {
                alert("请选择您所在的班级,以便于系统核对您的身份!");
                ESD.$("BCode").focus();return false;
        }
        if (strUser == "")
        {
                alert("请输入您的姓名,以便于系统核对您的身份!");
                ESD.$("UserName").focus();return false;
        }
        if ( !ESD.CheckReal(ESD.$("TelPhone"), "联系电话") ){return false;}
        var strName        = root.documentElement.selectSingleNode("部门[@编号='" + strCode + "']").getAttribute("名称");
        var _STATUS        = root.documentElement.selectSingleNode("部门[@编号='" + strCode + "']").selectSingleNode("用户[@姓名='" + strUser + "' and @年级='" + strA + "' and @班级='" + strB + "']");
        alert( strUser + ( ( _STATUS == null ) ? " 还没有参加过竞赛,点击确定进入系统!\n\n注意:未交卷之前,竞赛成绩不做记录,不会生效" : " 已经参加过" + _STATUS.getAttribute("答题") + "次竞赛\n\n最后一次成绩:" + _STATUS.getAttribute("成绩") + "分,欢迎重新参与竞赛!" ) );
        ESD.setCookie("Exam_MRGJ_0", strUser);                //用户名字
        ESD.setCookie("Exam_MRGJ_1", strCode);                //所属单位部门编号
        ESD.setCookie("Exam_MRGJ_2", strName);                //所属单位部门名称
        ESD.setCookie("Exam_MRGJ_3", strPhone);                //电话
        ESD.setCookie("Exam_MRGJ_4", strA);                        //年级
        ESD.setCookie("Exam_MRGJ_5", strB);                        //班级
}
function checkLogout(){
        ESD.setCookie("Exam_MRGJ_0", "");
        ESD.setCookie("Exam_MRGJ_1", "");
        ESD.setCookie("Exam_MRGJ_2", "");
        ESD.setCookie("Exam_MRGJ_3", "");
        ESD.setCookie("Exam_MRGJ_4", "");
        ESD.setCookie("Exam_MRGJ_5", "");
        alert("注意:您已经退出本系统!");
        Refresh();
}
function ListGet(A){
        ESD.$("D" + A.id).style.display        = ( ESD.$("D" + A.id).style.display == "none" ) ? "" : "none";
        A.className                = ( ESD.$("D" + A.id).style.display == "none" ) ? "out" : "over";
}
function InfoGet(strName, ID){
        var strInfo        = "None," + ESD.$(ID).value;
        var Info        = strInfo.split(",");
        var Errors        = 0;
        strInfo                = " " + strName + " 的本次成绩详单 ";
        strInfo                += "";
        for (var i=1; i<Info.length; i++)
        {
                if ( Info.indexOf("×") == 0 )
                {
                        Errors ++;

回复

使用道具 举报

千问 | 2011-8-6 18:32:58 | 显示全部楼层
JavaScript语言,鉴定完毕
PS. Pascal中是有大括号的,用于注释程序...
回复

使用道具 举报

千问 | 2011-8-6 18:32:58 | 显示全部楼层
我晕,这是pascal语言吗?根本行不通!你学过吗?...
回复

使用道具 举报

千问 | 2011-8-6 18:32:58 | 显示全部楼层
很简单,这个不是Pascal程序。JS吧~~...
回复

使用道具 举报

千问 | 2011-8-6 18:32:58 | 显示全部楼层
因为这不是pascal语言吧?我记得pascal中我从没用到过大括号...
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行