📄 classadd.asp

📁 学生信息化管理系统,目前最完美的学生信息化管理系统,界面美观,操作方面,个性化设置.一套软件管理多所学校.
💻 ASP
字号:
<% Set hdobj = Server.CreateObject("HD.comOpen")'请确保此行在最前
Set hdos = Server.CreateObject("HD.studentA")'
Connkaa = hdobj.WeekaaConn()
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<meta http-equiv="pragma" content="no-cache">
<title>红笛软件</title>
<style type="text/css">
<!--
.style3 {font-size: 12px}
.style4 {	color: #FFFFFF;
	font-size: 14px;
}
body,td,th {
	font-size: 12px;
}
body {
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
	background-color: #3399FD;
}
a:link {
	text-decoration: none;
}
a:visited {
	text-decoration: none;
}
a:hover {
	text-decoration: none;
}
a:active {
	text-decoration: none;
}
.STYLE12 {font-family: "黑体"; font-size: 16px;}
.STYLE14 {color: #FF0000}

-->
</style>
<script language=javascript>
function winclose()  {
   window.opener.location.reload();
   window.close();
  }
</script>
</head>

<body onmouseover="self.status='红笛软件[http://weekaa.com/red]';return true" onUnload="winclose();">


<%
dim stv,sqstv,La
tab="classs"
CaEE=""
ID=Request.QueryString("ID")
if Request.QueryString("action")="" then
Set stv = Server.CreateObject("ADODB.RecordSet")
sqstv = "Select * From [sets] where TB='"&tab&"'"
stv.Open Sqstv,Connkaa,1,3
If ID<>"" and Request.QueryString("de")<>""  then
Set stu = Server.CreateObject("ADODB.RecordSet")
sqstu = "Select * From [classs] where ID="&ID
stu.Open Sqstu,Connkaa,1,3
Ua=stu("a")
Ub=stu("b")
Uc=stu("c")
Ud=stu("d")
Ue=stu("e")
Uf=stu("f")

end if
%>

<form name="form1" method="post" action="?ID=<%=ID%>&CaEE=<%=Ue%>&action=action">

<table width="800" border="0" align="center" cellpadding="0" cellspacing="0" bordercolor="#0033cc">

  <tr>
    <td height="28" align="center" background="../Image/bg01.jpg" class="STYLE12">添　加　或　修　改　班　级</td>
  </tr>
  <tr>
    <td><table width="100%" border="1" cellpadding="0" cellspacing="0" bordercolor="#E8EBEE">
      <tr align="center" bgcolor="#F1F3F5">
        <td height="35" colspan="6" bgcolor="#FFFFFF">注意：编号是整个系统基础，写入后不能修改。班级名称必须全校不重复，建议包含<%=stv("c")%>和<%=stv("d")%>。</td>
        </tr>
      <tr align="center" bgcolor="#F1F3F5">
        <td width="100" height="25" bgcolor="#FFFFFF" class="style3"><%=stv("a")%></td>
        <td width="140" bgcolor="#FFFFFF" class="style3"><%=stv("b")%></td>
        <td width="140" bgcolor="#FFFFFF" class="style3"><%=stv("c")%></td>
        <td width="100" bgcolor="#FFFFFF" class="style3"><%=stv("d")%></td>
        <td width="240" bgcolor="#FFFFFF" class="style3"><%=stv("e")%></td>
        <td bgcolor="#FFFFFF" class="style3"><%=stv("f")%></td>
        </tr>


	  
      <tr align="center" valign="bottom" bgcolor="#FFFFFF">
        <td height="30" valign="middle"><input name="a" type="text" id="a" value="<%=Ua%>" size="12"></td>
        <td valign="middle"><input name="b" type="text" id="b" value="<%=Ub%>" size="16"></td>
        <td valign="middle"><input name="c" type="text" id="c" value="<%=Uc%>" size="16"></td>
        <td valign="middle"><input name="d" type="text" id="d" value="<%=Ud%>" size="12"></td>
        <td valign="middle"><input name="e" type="text" id="e" value="<%=Ue%>" size="30"></td>
        <td valign="middle"><input name="f" type="text" id="f" value="<%=Uf%>" size="6"></td>
        </tr>
      <tr align="center" valign="bottom" bgcolor="#FFFFFF">
        <td height="35" colspan="6" valign="middle"><input type="submit" name="Submit" value="保　存"></td>
        </tr>
      

  
 
    </table></td>
  </tr>
  <tr>
    <td height="30" align="center" background="../Image/bg01.jpg">&nbsp;</td>
  </tr>
</table></form>

<%
else
call hdos.stuclass()
call hdobj.AddL("classs","k",6)
end if
%>
</body>
</html>
⌨️ 快捷键说明

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