📄 mod_class.asp
字号:
<!-- #include file = "conn.asp" -->
<!--#include file = "chkuser.asp"-->
<%
dim id
dim strSQL
id = Request.QueryString("id")
set rsObj = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM class WHERE ID = " & id & ""
'Response.Write strSQL
'Response.End
rsObj.Open strSQL, conn
%>
<html>
<head>
<title>班级管理</title>
<meta http-equiv = "Content-Type" content = "text/html; charset = gb2312">
<link rel = "stylesheet" href = "style.css" type = "text/css">
</head>
<body text = "#000000"><br>
<%if not (rsObj.eof or err) then %>
<form method = "post" action = "ClassModifySave.asp" name = "form1">
<table width = "98%" border = "1" bordercolordark = #9CC7EF bordercolorlight = #145AA0 cellspacing = "0" cellpadding = "4" align = "center">
<tbody>
<tr>
<td colspan = 2 height = "18" bgcolor = "#4296E7">
<p align = "center"><font color = "#ffffff">班级管理</font></p>
</td>
</tr>
<tr>
<td width = 84 align = "right" height = "25" nowrap>
<div align = "right">班级：</div>
</td>
<td width = "361" height = "25">
<input type = "text" name = "stclass" size = "20" value = "<%=rsObj("stclass")%>" >
<input type="hidden" name="id" value="<%=rsObj("id")%>">
</td>
</tr>
<tr>
<td colspan = "2" align = "right" height = "26" nowrap bgcolor = "#4296E7">
<div align = "center">
<input type = "submit" name = "Submit2" value = "修改">
<input type = "button" name = "Submit3" value = "返回" onClick = "window.location = '<%=Session("adminOldUrl")%>'">
</div>
</td>
</tr>
</tbody>
</table>
</form>
<%else %>
您查询的班级信息不存在，请<a href = "Javascript:window.history.go(-1)"> [返回]</a>
</body>
</html>
<%end if
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -