📄 modsubclass.asp
字号:
<!--#include file="globe/DataConnect.asp"-->
<%
Dim rs,sql
Set rs=server.createobject("adodb.recordset")
sql="select * from Class"
rs.open sql,cnn,1,1
%>
<html>
<head>
<title>ModSubClass</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK REL="stylesheet" TYPE="text/css" HREF="globe/style.css">
<script language="vbScript">
'avoid null
function submit1_onclick()
dim name1
name1=trim(form.ClassName1.value)
if name1="总类名称" then
alert("同学！？你这个也修改？你有病呀？")
form.ClassName.focus()
submit1_onclick=false
else
submit1_onclick=true
end if
end function
</script>
<!--changebox function-->
<script language="javascript">
<!--
function ChangeBox() {
for (var i = 0; i < document.form.ClassName.length; i++) {
if (document.form.ClassName.options[i].selected == true) {
document.form.ClassName1.value = document.form.ClassName[i].value;
}
}
return null
}
//-->
</script>
</head>
<body bgcolor="#ccddff">
<%'error handler
Dim error
error=request.querystring("error")
if error<>"" then
response.write error&"<br>"
end if
%>
<form name="form" method="post" action="DoModSubClass.asp">
<div id="Layer1" style="position:absolute; left:147px; top:92px; width:331px; height:171px; z-index:1">
<table width="100%" border="1" height="156" bordercolorlight="#FFFFFF" bordercolordark="#000000" bgcolor="#C8DCFF" cellpadding="4" cellspacing="0">
<tr bgcolor="#D0E0FF">
<td colspan="2">
<div align="center"><font color="#0000FF">修 改 子 类 名 称</font></div>
</td>
</tr>
<tr>
<td width="43%" height="43"><font color="#FF0033">选择所属的：</font></td>
<td width="57%" height="43">
<select name="ClassName" onChange="ChangeBox()">
<option>总类名称</option>
<%
Dim i,Name,Num
for i=1 to rs.recordcount
Name=rs("Name")
Num=rs("Num")
%>
<option value="<%=Num%>"><%=Name%></option>
<%
rs.movenext
next
rs.close
%>
<%
Response.Write "</select>"
%>
</td>
</tr>
<input type="hidden" name="ClassName1" value="总类名称" >
<tr>
<td colspan="2" height="53">
<input type="submit" name="Submit1" value="显 示">
<input type="reset" name="Submit2" value="重 选">
</td>
</tr>
</table><br>
<P align=right>
<font color="#339999"><A href="manager.htm"> <返回>
</A></font></P>
</div>
</form>
<!--#include file="globe/DataClose.asp"-->
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -