📄 reg.asp

📁 本软件程序是一个基于WEB的进销存管理平台,代码十分完整,无错!
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<% 
    
    Response.Buffer = True 
    
    Response.ExpiresAbsolute = Now() - 1 
    
    Response.Expires = 0 
    
    Response.CacheControl = "no-cache" 
    
    %>

<html>
<head>
<title>系统注册--www.71base.com</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_findObj(n, d) { //v4.01
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && d.getElementById) x=d.getElementById(n); return x;
}

function YY_checkform() { //v4.65
//copyright (c)1998,2002 Yaromat.com
  var args = YY_checkform.arguments; var myDot=true; var myV=''; var myErr='';var addErr=false;var myReq;
  for (var i=1; i<args.length;i=i+4){
    if (args[i+1].charAt(0)=='#'){myReq=true; args[i+1]=args[i+1].substring(1);}else{myReq=false}
    var myObj = MM_findObj(args[i].replace(/\[\d+\]/ig,""));
    myV=myObj.value;
    if (myObj.type=='text'||myObj.type=='password'||myObj.type=='hidden'){
      if (myReq&&myObj.value.length==0){addErr=true}
      if ((myV.length>0)&&(args[i+2]==1)){ //fromto
        var myMa=args[i+1].split('_');if(isNaN(parseInt(myV))||myV<myMa[0]/1||myV > myMa[1]/1){addErr=true}
      } else if ((myV.length>0)&&(args[i+2]==2)){
          var rx=new RegExp("^[\\w\.=-]+@[\\w\\.-]+\\.[a-z]{2,4}$");if(!rx.test(myV))addErr=true;
      } else if ((myV.length>0)&&(args[i+2]==3)){ // date
        var myMa=args[i+1].split("#"); var myAt=myV.match(myMa[0]);
        if(myAt){
          var myD=(myAt[myMa[1]])?myAt[myMa[1]]:1; var myM=myAt[myMa[2]]-1; var myY=myAt[myMa[3]];
          var myDate=new Date(myY,myM,myD);
          if(myDate.getFullYear()!=myY||myDate.getDate()!=myD||myDate.getMonth()!=myM){addErr=true};
        }else{addErr=true}
      } else if ((myV.length>0)&&(args[i+2]==4)){ // time
        var myMa=args[i+1].split("#"); var myAt=myV.match(myMa[0]);if(!myAt){addErr=true}
      } else if (myV.length>0&&args[i+2]==5){ // check this 2
            var myObj1 = MM_findObj(args[i+1].replace(/\[\d+\]/ig,""));
            if(myObj1.length)myObj1=myObj1[args[i+1].replace(/(.*\[)|(\].*)/ig,"")];
            if(!myObj1.checked){addErr=true}
      } else if (myV.length>0&&args[i+2]==6){ // the same
            var myObj1 = MM_findObj(args[i+1]);
            if(myV!=myObj1.value){addErr=true}
      }
    } else
    if (!myObj.type&&myObj.length>0&&myObj[0].type=='radio'){
          var myTest = args[i].match(/(.*)\[(\d+)\].*/i);
          var myObj1=(myObj.length>1)?myObj[myTest[2]]:myObj;
      if (args[i+2]==1&&myObj1&&myObj1.checked&&MM_findObj(args[i+1]).value.length/1==0){addErr=true}
      if (args[i+2]==2){
        var myDot=false;
        for(var j=0;j<myObj.length;j++){myDot=myDot||myObj[j].checked}
        if(!myDot){myErr+='* ' +args[i+3]+'\n'}
      }
    } else if (myObj.type=='checkbox'){
      if(args[i+2]==1&&myObj.checked==false){addErr=true}
      if(args[i+2]==2&&myObj.checked&&MM_findObj(args[i+1]).value.length/1==0){addErr=true}
    } else if (myObj.type=='select-one'||myObj.type=='select-multiple'){
      if(args[i+2]==1&&myObj.selectedIndex/1==0){addErr=true}
    }else if (myObj.type=='textarea'){
      if(myV.length<args[i+1]){addErr=true}
    }
    if (addErr){myErr+='* '+args[i+3]+'\n'; addErr=false}
  }
  if (myErr!=''){alert('非法注册码:\t\t\t\t\t\n\n'+myErr)}
  document.MM_returnValue = (myErr=='');
}
//-->
</script>
<link href="CSS.CSS" rel="stylesheet" type="text/css">
<link href="CSS.CSS" rel="stylesheet" type="text/css">
</head>

<body oncontextmenu="return false" >
<table width="100%" cellpadding="0">
  <tr> 
    <td><font color="#4289F4"><img src="images/icon-page.gif" width="16" height="15">你现在使用的软件<%
Set ObjReference = Server.CreateObject("jxc1.check") 
ObjReference.myfile7()
%></font></td>
  </tr>
  <tr>
    <td> &nbsp;&nbsp;&nbsp; &nbsp;<strong>企业商务进销存WEB版 v2.3</strong>
      <p> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;注册并使用本软件,请连接 
        <a href="http://www.71base.com">http://www.71base.com</a>查询注册方法<br>
 &nbsp;&nbsp;&nbsp;&nbsp;       或联系软件开发商 <a href="mailto:webmaster@71base.com">webmaster@71base.com</a><br>
    </p>    </td>
  </tr>
</table>

<table width="100%" cellpadding="0">
  <tr>
    <td><form action="regover.asp" method="post" name="form1" onSubmit="YY_checkform('form1','regcode','#q','0','非法注册码');return document.MM_returnValue">
        <p>&nbsp; </p>
        <table width="100%" cellpadding="0">
          <tr> 
            <td><div align="right">机器码：</div></td>
            <td>
              <%
Set ObjReference = Server.CreateObject("jxc1.check") 
ObjReference.myfile4()
%>
            </td>
          </tr>
          <tr> 
            <td><div align="right">注册码：</div></td>
            <td><input type="text" name="regcode"></td>
          </tr>
          <tr> 
            <td>&nbsp;</td>
            <td><input type="submit" name="Submit" value="注册"></td>
          </tr>
        </table>
        <p align="left">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</p>
      </form></td>
  </tr>
</table>
<p> 
 
</p>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -