saedit.asp

来自「《动态网页设计基础教程》,胡杰,科学出版社」· ASP 代码 · 共 127 行

ASP

127 行

<html>

<head>
<link rel="stylesheet" href="comCSS.css">
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>系统管理员信息注册</title>
<base target="rbottom">
<meta name="Microsoft Border" content="t, default">
</head>
<!-- #include file="ADOCONN.ASP" -->
<body><!--msnavigation--><table border="0" cellpadding="0" cellspacing="0" width="100%"><tr><td>

<p align="left">　</p>

</td></tr><!--msnavigation--></table><!--msnavigation--><table border="0" cellpadding="0" cellspacing="0" width="100%"><tr><!--msnavigation--><td valign="top">
<script language="vbscript" for="B2" event="onclick">
        History.back
</script>

<% 
Dim LocalArray
 
 CA_Supervisor()
  
 listItem("select College from Colleges")
 
 IF Session("EditFlag") = "MODIFY" then
    LocalArray=Session("DataArray")
 ELSE
    Session("EditFlag")="INSERT"
    Redim LocalArray(10)
 END IF
%>  
<!--webbot BOT="GeneratedScript" PREVIEW=" " startspan --><script Language="JavaScript"><!--
function FrontPage_Form1_Validator(theForm)
{

  if (theForm.T1.value == "")
  {
    alert("请在 T1 域中输入值。");
    theForm.T1.focus();
    return (false);
  }

  if (theForm.T1.value.length > 8)
  {
    alert("在 T1 域中，请最多输入 8 个字符。");
    theForm.T1.focus();
    return (false);
  }

  if (theForm.T2.value == "")
  {
    alert("请在 T2 域中输入值。");
    theForm.T2.focus();
    return (false);
  }

  if (theForm.T2.value.length > 8)
  {
    alert("在 T2 域中，请最多输入 8 个字符。");
    theForm.T2.focus();
    return (false);
  }

  if (theForm.T3.value == "")
  {
    alert("请在 T3 域中输入值。");
    theForm.T3.focus();
    return (false);
  }

  if (theForm.T3.value.length > 6)
  {
    alert("在 T3 域中，请最多输入 6 个字符。");
    theForm.T3.focus();
    return (false);
  }
  return (true);
}
//--></script><!--webbot BOT="GeneratedScript" endspan --><form method="POST" action="SaSave.ASP" onsubmit="return FrontPage_Form1_Validator(this)" name="FrontPage_Form1" language="JavaScript">   
<p align="center"><b><font face="华文彩云" color="#000080" size="4">系统管理员注册</font></b></p>
<div align="center">
<table border="1" width="52%" bordercolorlight="#000080" bordercolordark="#000000">
  <tr>
    <td width="49%" align="left">代码：<!--webbot bot="Validation"
      b-value-required="TRUE" i-maximum-length="8" --><input name="T1" Value="<%=Localarray(0)%>" size="11" style="background-color: #C0C0C0; border-style: inset" maxlength="8"></td>  
  </tr>  
<center>
  <tr>  
    <td width="49%" align="left">姓名：<!--webbot bot="Validation"
      b-value-required="TRUE" i-maximum-length="8" --><input type="text" name="T2" Value="<%=Localarray(1)%>" size="11" maxlength="8"></td>  
  </tr>  
     
  <tr>  
    <td width="49%" align="left">口令：<!--webbot bot="Validation"
      B-Value-Required="TRUE" I-Maximum-Length="6" --><input type="password" name="T3" Value="<%=Localarray(2)%> size=" maxlength="6" 11" size="20"></td>  
  </tr>  
     
  <tr>  
    <td width="49%" align="left">单位：<select size="1" name="D1" Value="<%=LocalArray(3)%>">
      <% for recordi=0 to Itemcount-1%>                          
      <option><%=ItemArray(0,recordi)%></option>                          
      <%next%>                          
      </select></td>  
  </tr>  
     
</table>   
  </div>
<p align="center"><input type="submit" value="提交" name="B1">&nbsp;&nbsp;&nbsp;   
<input type="button" value="返回" name="B2"></p>    
</center>       
       
</form>       

　<!--msnavigation--></td></tr><!--msnavigation--></table></body>   
   
</html>

saedit.asp - 源码说明

本页面展示了「《动态网页设计基础教程》,胡杰,科学出版社」中的 saedit.asp 源码文件，采用 ASP 编程语言编写，共 127 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与动态相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?