📄 rusedit.asp

📁 学生信息化管理系统,目前最完美的学生信息化管理系统,界面美观,操作方面,个性化设置.一套软件管理多所学校.
💻 ASP
字号:
<%  Set hdobj = Server.CreateObject("HD.comOpen")'请确保此行在最前
Connkaa = hdobj.WeekaaConn()
ID=request.QueryString("ID")

Set rc = Server.CreateObject("ADODB.RecordSet")
sqlc = "Select * From [StuRus] where ID="&ID
rc.Open Sqlc,Connkaa,1,3

%>
<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;
}
a:link {
	text-decoration: none;
	color: #FFFFFF;
}
a:visited {
	text-decoration: none;
	color: #FFFFFF;
}
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();">


<%
if request.QueryString("action") = "" then
rsNa=rc("a")
%>

<form name="form1" method="post" action="?action=action&ID=<%=ID%>">
  <table width="700" border="0" align="center" cellpadding="0" cellspacing="0" bordercolor="#DEE7FF">
    <tr>
      <td height="28" 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="13%" height="25" bgcolor="#F1F3F5" class="STYLE14">姓名</td>
            <td width="25%" bgcolor="#F1F3F5" class="STYLE14">班级</td>
            <td width="13%" bgcolor="#F1F3F5" class="STYLE14">学期</td>
            <td width="23%" bgcolor="#F1F3F5" class="STYLE14">课程</td>
            <td width="13%" bgcolor="#F1F3F5" class="STYLE14">任课教师</td>
            <td width="13%" bgcolor="#F1F3F5" class="STYLE14">成绩</td>
          </tr>
          <tr align="center" valign="bottom" bgcolor="#FFFFFF">
            <td height="25" bgcolor="#FFFFFF"><%=CName("Student",rsNa,"c")%></td>
            <td bgcolor="#FFFFFF"><%=rc("b")%></td>
            <td bgcolor="#FFFFFF"><%=rc("c")%></td>
            <td bgcolor="#FFFFFF"><%=rc("d")%></td>
            <td bgcolor="#FFFFFF"><%=rc("e")%></td>
            <td bgcolor="#FFFFFF"><input name="f" type="text" id="f" value="<%=rc("f")%>" size="8"></td>
          </tr>
      </table></td>
    </tr>
    <tr>
      <td height="28" align="center" background="../Image/bg01.jpg" class="STYLE12"><input type="submit" name="Submit" value="保存修改"></td>
    </tr>
  </table>
</form>

<p>


</body>
</html>
  <%
else
f=request.form("f")
rsa=rc("a")
rsb=rc("b")
rsc=rc("c")
rsd=rc("d")
rsf=rc("f")
rsa=CName("Student",rsa,"c")
lon=rsa&rsb&rsc&rsd&"成绩"&rsf&"改为"&f

rc("f")=f
rc.update

call hdobj.infoadd(lon)
response.end
end if

Function CName(biao,ID,Na)
   Set ca = Server.CreateObject("Adodb.RecordSet")
   sqlca = "Select * From " & biao & " where ID="&ID
   ca.Open sqlca, Connkaa, 1, 3
   if not ca.eof then
   CN=ca(Na)
   else
   CN = ID
   end if
   if len(CN)=2 then
   CN=mid(CN,1,1) & "　"& mid(CN,2,1)
   end if
   
   
   CName = CN
   ca.close
   set ca=nothing
 end Function


%>
⌨️ 快捷键说明

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