📄 domodsubclass.asp
字号:
<!--#include file="globe/DataConnect.asp"-->
<%
Dim rs,sql,GetClassName1
GetClassName1=trim(request.form("ClassName1"))
Set rs=server.createobject("adodb.recordset")
sql="select * from SubClass WHERE Num="&GetClassName1&""
rs.open sql,cnn,1,1
%>
<html>
<head>
<title>DoModSubClass</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="" or len(name1)>11 then
alert("同学！不要填空的，也不要超过11个字节！")
form.ClassName1.focus()
submit1_onclick=false
elseif name1="子类名称" then
alert("同学！？你这个也修改？你有病呀？")
form.ClassName1.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].text;
}
}
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="DoModSubClass1.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
for i=1 to rs.recordcount
Name=rs("SubName")
%>
<option><%=Name%></option>
<%
rs.movenext
next
rs.close
%>
<%
Response.Write "</select>"
%>
</td>
</tr>
<tr>
<td width="43%" height="42"><font color="#FF0033">修改为：</font></td>
<td width="57%" height="42">
<input type="text" name="ClassName1" size=10>
</td>
</tr>
<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="ModSubClass.asp"> <返回>
</A></font></P>
</div>
</form>
<!--#include file="globe/DataClose.asp"-->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -