📄 delclass.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>DelClass</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.ClassName.value)
if name1="" then
alert("<--同学！空的也删，有病呀？-->")
form.ClassName.focus()
submit1_onclick=false
else
submit1_onclick=true
end if
end function
</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="DoDelClass.asp">
<div id="Layer1" style="HEIGHT: 171px; LEFT: 147px; POSITION: absolute; TOP: 92px; WIDTH: 331px; Z-INDEX: 1">
<table width="100%" border="1" height="100" 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()">
<%
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>
<TR>
<td colspan="2" height="30">
<P align=right>
<input type="submit" name="Submit1" value="删除"></P>
</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 + -