📄 classeditsave.asp

📁 网络考试系统最终备份

💻 ASP

字号:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<link rel="stylesheet" type="text/css" href="css.css">
<!--#include file="conn.inc"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>

<body>
<%
v_classID =request("clid")
v_collID = request("scollege")
v_depaID = request("sdepartment")

v_mayID = request("smayjor")
v_cName = request("className")
v_desc = request("classdesc")
sql1 = "select * from class_info where ClassName ='"&v_cName&"' and ClassDesc='"&v_desc&"' and Mayj_ID="&v_mayID
set rs1 = server.CreateObject("adodb.recordset")
rs1.open sql1, conn,3,2
if rs1.eof then

sql = "select * from class_info where ClassID="&v_classID
set rs = server.CreateObject("adodb.recordset")
rs.open sql, conn,3,2
rs("ClassName") = v_cName
rs("ClassDesc") =v_desc
rs("Mayj_ID") = v_mayID
rs("College_ID") = v_collID
rs("Dep_ID") = v_depaID
rs.update
rs.close
set rs=nothing


rs1.close
set rs1 = nothing
response.Redirect("addclass.asp")
end if

%>
修改班级重复<a href="addclass.asp">返回
</a>
<p>&nbsp;</p>
<p>&nbsp;</p>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -