ruleedit.asp
来自「《动态网页设计基础教程》,胡杰,科学出版社」· ASP 代码 · 共 223 行
ASP
223 行
<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>
<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">
<!-- #include file="adoconn.asp" -->
<script language="vbscript" for="B2" event="onclick">
history.back
</script>
<%
Dim LocalArray
Certificate()
if session("EditFlag")="MODIFY" then
LocalArray=Session("DataArray")
else
Session("EditFlag")="INSERT"
redim LocalArray(20)
end if
%>
<!--webbot BOT="GeneratedScript" PREVIEW=" " startspan --><script Language="JavaScript"><!--
function FrontPage_Form1_Validator(theForm)
{
if (theForm.T2.value == "")
{
alert("请在 T2 域中输入值。");
theForm.T2.focus();
return (false);
}
if (theForm.T2.value.length < 1)
{
alert("在 T2 域中，请至少输入 1 个字符。");
theForm.T2.focus();
return (false);
}
if (theForm.T2.value.length > 3)
{
alert("在 T2 域中，请最多输入 3 个字符。");
theForm.T2.focus();
return (false);
}
var checkOK = "0123456789-.";
var checkStr = theForm.T2.value;
var allValid = true;
var decPoints = 0;
var allNum = "";
for (i = 0; i < checkStr.length; i++)
{
ch = checkStr.charAt(i);
for (j = 0; j < checkOK.length; j++)
if (ch == checkOK.charAt(j))
break;
if (j == checkOK.length)
{
allValid = false;
break;
}
if (ch == ".")
{
allNum += ".";
decPoints++;
}
else
allNum += ch;
}
if (!allValid)
{
alert("在 T2 域中，只能输入 数字 个字符。");
theForm.T2.focus();
return (false);
}
if (decPoints > 1)
{
alert("请在 T2 域中输入一个有效数字。");
theForm.T2.focus();
return (false);
}
var chkVal = allNum;
var prsVal = parseFloat(allNum);
if (chkVal != "" && !(prsVal >= "0" && prsVal <= "100"))
{
alert("请在 T2 域中输入值 大于或等于 0 与 小于或等于 100。");
theForm.T2.focus();
return (false);
}
if (theForm.T3.value.length > 5)
{
alert("在 T3 域中，请最多输入 5 个字符。");
theForm.T3.focus();
return (false);
}
var checkOK = "0123456789-.";
var checkStr = theForm.T3.value;
var allValid = true;
var decPoints = 0;
var allNum = "";
for (i = 0; i < checkStr.length; i++)
{
ch = checkStr.charAt(i);
for (j = 0; j < checkOK.length; j++)
if (ch == checkOK.charAt(j))
break;
if (j == checkOK.length)
{
allValid = false;
break;
}
if (ch == ".")
{
allNum += ".";
decPoints++;
}
else
allNum += ch;
}
if (!allValid)
{
alert("在 T3 域中，只能输入 数字 个字符。");
theForm.T3.focus();
return (false);
}
if (decPoints > 1)
{
alert("请在 T3 域中输入一个有效数字。");
theForm.T3.focus();
return (false);
}
var chkVal = allNum;
var prsVal = parseFloat(allNum);
if (chkVal != "" && !(prsVal >= "0.01" && prsVal <= "1"))
{
alert("请在 T3 域中输入值 大于或等于 0.01 与 小于或等于 1。");
theForm.T3.focus();
return (false);
}
return (true);
}
//--></script><!--webbot BOT="GeneratedScript" endspan --><form method="POST" action="RuleSave.ASP" onsubmit="return FrontPage_Form1_Validator(this)" language="JavaScript" name="FrontPage_Form1" >
<p align="center"><b><font face="华文彩云" color="#000080" size="3">建立教师评分项目</font></b></p>
<center>
<table border="1" width="87%" bordercolorlight="#000080" bordercolordark="#000000">
<tr>
<td width="49%" align="justify"><font size="2" face="宋体">项目编码：<input type="text" name="T0" Value="<%=LocalArray(0)%>" size="5">
<font color="#FF0000">（教师:t01-t99；学生:s01-s99）</font></font></td>
</tr>
<tr>
<td width="49%" align="justify"><font size="2" face="宋体">评价项目：<input type="text" name="T1" Value="<%=LocalArray(1)%>" size="20"></font></td>
</tr>
<tr>
<td width="49%" align="justify"><font size="2" face="宋体">评价标准：<textarea rows="2" name="S1" cols="48"><%=localarray(2)%></textarea></font></td>
</tr>
</center>
<tr>
<td width="49%" align="justify"><font size="2" face="宋体">分 值：<font color="#FF0000"><!--webbot
bot="Validation" s-data-type="Number" s-number-separators="x."
b-value-required="TRUE" i-minimum-length="1" i-maximum-length="3"
s-validation-constraint="Greater than or equal to" s-validation-value="0"
s-validation-constraint="Less than or equal to" s-validation-value="100"
--><input type="text" name="T2" Value="<%=LocalArray(3)%>" size="7" maxlength="3">(0到100之间的数值)</font>
</font>
</td>
</tr>
<center>
<tr>
<td width="49%" align="justify"><font size="2" face="宋体">权 重: <font color="#FF0000" >
<!--webbot bot="Validation" S-Data-Type="Number" S-Number-Separators="x."
I-Maximum-Length="5" S-Validation-Constraint="Greater than or equal to"
S-Validation-Value="0.01" S-Validation-Constraint="Less than or equal to"
S-Validation-Value="1" -->
<input type="text" name="T3" Value="<%=LocalArray(4)%>" size="7" maxlength="5">(0.1到1之间的数值)</font>
</font>
</td>
</tr>
<tr>
<td width="49%" align="justify"><font size="2" face="宋体">适应对象: <input type="radio" name="R1" value="教师" <%if Localarray(5)="教师" then response.write ("checked") end if %> checked>教师打分
<input type="radio" name="R1" value="学生" <%if Localarray(5)="学生" then response.write ("checked") end if %>>学生打分 </font></td>
</tr>
</table>
<p align="center">
<input type="submit" value="保存" name="B1"> <input type="button" value="返回" name="B2"></p>
</center>
</form>
<!--msnavigation--></td></tr><!--msnavigation--></table></body>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?