classmodify.asp
来自「《动态网页设计基础教程》,胡杰,科学出版社」· ASP 代码 · 共 68 行
ASP
68 行
<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 6.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>
<%
Certificate()
Dim LocalArray
listItem("select college from Colleges")
IF Session("EditFlag") = "MODIFY" then
LocalArray=Session("DataArray")
ELSE
Session("EditFlag")="INSERT"
Redim LocalArray(4)
END IF
%>
<form method="POST" action="ClassList.ASP">
<p align="center"><b><font face="华文彩云" size="2" color="#000080">班级注册</font></b></p>
<center>
<table border="1" width="38%" bordercolorlight="#000080" bordercolordark="#000000" height="29">
<tr>
<td width="80%" align="justify" height="23">部门名称:<select size="1" name="D1">
<option selected><%=Localarray(1)%></option>
<% for recordi=0 to Itemcount-1%>
<option><%=ItemArray(0,recordi)%></option>
<%next%>
</select></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 + -
显示快捷键?