📄 dodelsubclass.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>DoDelSubClass</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK REL="stylesheet" TYPE="text/css" HREF="globe/style.css">
</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="DoDelSubClass1.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()">
<%
Dim i,Name,Num
for i=1 to rs.recordcount
Name=rs("SubName")
Num=rs("SubNum")
%>
<option value="<%=Num%>"><%=Name%></option>
<%
rs.movenext
next
rs.close
%>
<%
Response.Write "</select>"
%>
</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="DelSubClass.asp"> <返回>
</A></font></P>
</div>
</form>
<!--#include file="globe/DataClose.asp"-->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -