📄 adminclass.asp
字号:
<!--#include file="config.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=Sitename%>后台管理</title>
<LINK href="../css.css" type=text/css rel=stylesheet>
</head>
<body>
<table width="778" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> <%ad=request.querystring("ad")
type2=request.queryString("type2")
use=request.querystring("use")
Select Case type2
Case "add":
Call add
Case "del":
Call del
Case Else:
call show
End Select
sub show
%> <table width="100%" cellspacing="0">
<tr>
<td>
<table width="100%" border=1 align="center" cellpadding="2" cellspacing=0
bordercolorlight=#c0c0c0 bordercolordark=#ffffff>
<form name="form2" method="post" action="?type2=add">
<tr bgcolor="#EEEEEE">
<td colspan="2">班级编号</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="14%">添加名称：</td>
<td width="86%"><input name="bytype" type="text" id="bytype"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td> </td>
<td>
<input type="submit" name="Submit" value="提交">
<input type="reset" name="Submit" value="重置"></td>
</tr></form>
</table></td>
</tr>
<tr>
<td height="25">班级编号列表：</td>
</tr>
<%Dim cur,rowcount,i,clas
set rs=Server.CreateObject("Adodb.Recordset")
sql="select * from byclass"
rs.open sql,conn,1,1
do while not rs.eof%>
<tr>
<td><table width="100%" border=1 align="center" cellpadding="2" cellspacing=0
bordercolorlight=#c0c0c0 bordercolordark=#ffffff>
<tr bgcolor="#FFFFFF">
<td width="16%">ID：<%=rs("id")%></td>
<td width="67%">班级编号：<%=rs("byclass")%></td>
<td width="17%"><a href="?type2=del&ad=<%=rs("id")%>" onClick="return confirm('真的要删除？')">删除</a></td>
</tr>
</table></td>
</tr>
<%
rs.movenext
loop%>
</table>
<%
end sub
sub add
dim bytype
bytype=request.form("bytype")
set rs=Server.CreateObject("Adodb.Recordset")
rs.open "select * from byclass where 1=2",conn,1,3
rs.addnew()
rs("byclass")=bytype
rs.update
rs.close
set rs=nothing
response.redirect "adminclass.asp"
end sub
sub del
Set rs = Server.CreateObject("ADODB.Recordset")
sql="delete from byclass where id="&ad&""
rs.open sql,conn,1,3
Response.Redirect "adminclass.asp"
end sub%></td>
</tr>
</table></BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -