📄 studentlm.asp

📁 学生信息化管理系统,目前最完美的学生信息化管理系统,界面美观,操作方面,个性化设置.一套软件管理多所学校.
💻 ASP
字号:
<% Set hdobj = Server.CreateObject("HD.comOpen")'请确保此行在最前
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: #DEE7FF;
}
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;}
.STYLE13 {color: #000066}
.STYLE14 {font-size: 12px; color: #000066; }
-->
</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
tab="student"
if request.QueryString("action") = "" then
Set stv = Server.CreateObject("ADODB.RecordSet")
sqstv = "Select * From [sets] where TB='"&tab&"'"
stv.Open Sqstv,Connkaa,1,3
ListLon=stv("lis")
Na=mid(ListLon,1,1)
Nb=mid(ListLon,2,1)
Nc=mid(ListLon,3,1)
Nd=mid(ListLon,4,1)
Ne=mid(ListLon,5,1)
Nf=mid(ListLon,6,1)
Ng=mid(ListLon,7,1)
Nh=mid(ListLon,8,1)

%>

<form name="form1" method="post" action="?action=action&ID=<%=stv("ID")%>">

<table width="900" border="0" align="center" cellpadding="0" cellspacing="0" bordercolor="#0066CC">

  <tr>
    <td height="30" align="center" background="../Image/bg01.jpg" class="STYLE12">学 生 列 表 栏 目 设 置</td>
  </tr>
  <tr>
    <td bgcolor="#0066CC"><table width="100%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#E8EBEE">
      <tr align="center" bgcolor="#F1F3F5">
        <td width="6%" height="30" class="style3 STYLE13">系统栏目</td>
        <td width="10%" height="30" class="STYLE14"><%=stv(Na)%></td>
        <td width="10%" class="STYLE14"><%=stv(Nb)%></td>
        <td width="10%" class="STYLE14"><%=stv(Nc)%></td>
        <td width="10%" class="STYLE14"><%=stv(Nd)%></td>
        <td width="10%" bgcolor="#F1F3F5" class="STYLE14"><%=stv(Ne)%></td>
        <td width="10%" class="STYLE14"><%=stv(Nf)%></td>
        <td width="10%" class="STYLE14"><%=stv(Ng)%></td>
        <td width="10%" class="STYLE14"><%=stv(Nh)%></td>
        <td width="4%" class="STYLE14">保存</td>
        </tr>


	  
      <tr align="center" valign="bottom" bgcolor="#FFFFFF">
        <td height="30"><span class="STYLE13">临时栏目</span></td>
        <td height="30"><%call hdobj.Solista("student", "Ma",1,3)%></td>
        <td><%call hdobj.Solista("student", "Mb",2,3)%></td>
        <td><%call hdobj.Solista("student", "Mc",3,3)%></td>
        <td><%call hdobj.Solista("student", "Md",4,3)%></td>
        <td><%call hdobj.Solista("student", "Mm",5,3)%></td>
        <td><%call hdobj.Solista("student", "Mf",6,3)%></td>
        <td><%call hdobj.Solista("student", "Mg",7,3)%></td>
        <td><%call hdobj.Solista("student", "Mh",8,3)%></td>
        <td><input name="Ls" type="checkbox" id="Ls" value="weekaacom"></td>
        </tr>
      <tr align="center" valign="bottom" bgcolor="#FFFFFF">
        <td height="30" colspan="10" bgcolor="#F1F3F5"><input type="submit" name="Submit" value="提　　交"></td>
        </tr>

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

<p>
  <%
else
Ma=trim(request.form("Ma"))
Mb=trim(request.form("Mb"))
Mc=trim(request.form("Mc"))
Md=trim(request.form("Md"))
Mm=trim(request.form("Mm"))
Mf=trim(request.form("Mf"))
Mg=trim(request.form("Mg"))
Mh=trim(request.form("Mh"))
Ls=trim(request.form("Ls"))
ML=Ma&Mb&Mc&Md&Mm&Mf&Mg&Mh&"y"&"z"
ID=request.QueryString("ID")

if Ls="weekaacom" then
if request.QueryString("action") <> "" then
Set stu = Server.CreateObject("ADODB.RecordSet")
sqstu = "Select lis From [sets] where ID="&ID
stu.Open sqstu,Connkaa,1,3
liss=stu(0)
response.write "Lis="&liss
stu("lis")=ML
stu.UPdate
end if
response.write "<bt><br><div align='center'> 栏目设置并且保存成功</div>"
else
session("StudentListLm")=ML
response.write "<bt><br><div align='center'> 临时栏目设置成功</div>"
end if


end if
%>

</body>
</html>
⌨️ 快捷键说明

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