classsave.asp

来自「网络考试系统最终备份」· ASP 代码 · 共 42 行

ASP
42
字号
<%@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_collID = request("scollege")
v_depaID = request("sdepartment")

v_mayID = request("smayjor")
v_cName = request("className")
v_desc = request("textarea")
sql = "select * from class_info where ClassName ='"&v_cName&"' and Mayj_ID="&v_mayID
set rs = server.CreateObject("adodb.recordset")
rs.open sql, conn,3,2
if rs.eof then
rs.addnew
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
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 + =
减小字号Ctrl + -
显示快捷键?