⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 class_add.asp

📁 大学的综合测评
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="const.asp" -->

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<link href="img/Style.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style1 {color: #FFFFFF}
-->
</style>
</head>

<body>
 <%
 	action=request("action")
	if action="add" then
		class_name=SafeChar(Request("class_name"))
		class_mng=SafeChar(Request("class_mng"))
		class_mngpwd=Request("class_mngpwd")
		truename=Request("truename")
	
		Dim d
		Set d = Server.CreateObject("ADODB.Recordset")
		d.ActiveConnection = dbconn
		d.Source = "SELECT class_id FROM class where class_name='"&class_name&"' or class_mng='"&class_mng&"'"
		d.CursorType = 0
		d.CursorLocation = 2
		d.LockType = 1
		d.Open()
		if not d.eof then
			Response.Write("<script language='javascript'>alert('班级名称名或管理帐号已被占用');history.go(-1);</script>")
    	else
			set e=Server.CreateObject("ADODB.Command")
			e.ActiveConnection=dbconn
			e.CommandText="INSERT INTO class(class_name,class_mng,class_mngpwd,truename) VALUES ('"&class_name&"','"&class_mng&"','"&class_mngpwd&"','"&truename&"')"
			e.CommandType=1
			e.CommandTimeout=0
			e.Prepared=true
			e.Execute()
			Response.Write ("<script language='javascript'>alert('班级:"&class_name&"添加成功');location=('class.asp');</script>")
		end if
		
		d.Close()
		set d=nothing
				
%>

<%else%>
<script language="javascript">
function chk()
{
if(document.form.class_name.value=="")
   {alert("请输入班级名称");return false;}
if(document.form.class_mng.value=="")
   {alert("请输入管理员帐号");return false;}
   return true;
}    
</script>
<p>&nbsp;</p>
<p>&nbsp;</p>
<form name="form" action="" method="post" onsubmit="return chk()">
<table width="80%" height="106" border="0" align="center" cellpadding="0" cellspacing="0" class="atable1">
  <tr bgcolor="#333">
    <td colspan="9"><span class="style1">&nbsp;新增班级</span></td>
  </tr>
  <tr class="tdmenu">
    <td width="15%" height="50"><div align="center">班级名称:</div></td>
    <td width="20%"><div align="center">
      <input name="class_name" type="text" class="atable1" size="18">
    </div></td>
    <td width="9%"><div align="center">管理员:</div></td>
    <td width="17%"><div align="center">
      <input name="class_mng" type="text" class="atable1" size="14" maxlength="14">
    </div></td>
    
    <td width="7%"><div align="center">姓名:</div></td>
    <td width="15%"><div align="center">
      <input name="truename" type="text" class="atable1" size="16" maxlength="16">
    </div></td>
    <td width="17%"><div align="center">
      <input name="Submit" type="submit" class="atable1" value="提交" > 
      <input type="hidden" name="action" value="add">
          <input name="Submit2" type="reset" class="atable1" value="重置">
          <input name="class_mngpwd" type="hidden" class="atable1" size="14" maxlength="14" value="888888">
    </div></td>
  </tr>
  <tr class="tdmenu">
    <td colspan="7">&nbsp;&nbsp;注:默认管理员密码为:<span class="red">888888<br>
      <br>
    </span></td>
    </tr>
</table>
</form>
<%end if%>
</body>
</html>
<%dbconn.close%>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -