📄 papersadd.asp

📁 学生信息化管理系统,目前最完美的学生信息化管理系统,界面美观,操作方面,个性化设置.一套软件管理多所学校.
💻 ASP
字号:
<% Set hdobj = Server.CreateObject("HD.comOpen")'请保证此行在最前面
Conn = 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: 10px;
	margin-bottom: 0px;
	background-color: #DDE7FF;
}
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
ID=request.QueryString("ID")
IDD=request.QueryString("IDD")
XH=request.QueryString("XH")
Nam=request.QueryString("Nam")
if request.QueryString("action") = "" then
if IDD<>"" then
Set rs = Server.CreateObject("ADODB.RecordSet")
sqls = "Select * From [Papers] where ID="&IDD
rs.Open Sqls,Conn,1,3
rsa=rs("a")
rsb=rs("b")
rsc=rs("c")
rsd=rs("d")
rse=rs("e")
rsf=rs("f")

end if
%>

<form name="form1" method="post" action="?action=action&IDD=<%=IDD%>&ID=<%=ID%>&Nam=<%=Nam%>">

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

  <tr>
    <td height="28" align="center" background="../Image/bg01.jpg" bgcolor="#0066CC" 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="10%" height="30" class="STYLE14">学　　号</td>
        <td width="11%" class="STYLE14">姓　　名</td>
        <td width="7%" class="STYLE14">实践成绩</td>
        <td width="32%" class="STYLE14">实践评语</td>
        <td width="7%"  class="STYLE14">论文成绩</td>
        <td width="33%"  class="STYLE14">评议评语</td>
        </tr>


	  
      <tr align="center" valign="bottom" bgcolor="#FFFFFF">
        <td height="30"><%=XH%></td>
        <td><%=Nam%></td>
        <td><input name="Mc" type="text" id="Mc" value="<%=rsc%>" size="6"></td>
        <td><input name="Md" type="text" id="Md" value="<%=rsd%>" size="40"></td>
        <td><input name="Me" type="text" id="Me" value="<%=rse%>" size="6"></td>
        <td><input name="Mf" type="text" id="Mf" value="<%=rsf%>" size="40"></td>
        </tr>
      <tr align="center" valign="bottom" bgcolor="#FFFFFF">
        <td height="30" colspan="6" bgcolor="#FFFFFF"><input type="submit" name="Submit" value="提　　交"></td>
        </tr>

  
 
    </table></td>
  </tr>
  <tr>
    <td height="28" align="center" background="../Image/bg01.jpg" bgcolor="#0066CC">　      </td>
  </tr>
</table>
</form>

<p>
  <%
else

Ma=request.form("Ma")
Mb=request.form("Mb")
Mc=request.form("Mc")
Md=request.form("Md")
Mee=request.form("Me")
Mf=request.form("Mf")

Set stu = Server.CreateObject("ADODB.RecordSet")
if IDD="" then
sqstu = "Select * From [Papers] Where (ID is null)"
else
sqstu = "Select * From [Papers] Where ID="&IDD
end if
stu.Open sqstu,Conn,1,3
if IDD="" then
stu.addnew
end if
stu("a")=ID
stu("b")=Nam
stu("c")=Mc
stu("d")=Md
stu("e")=Mee
stu("f")=Mf
stu("tim")=now()
stu.UPdate

response.write "<bt><br><br><div align='center'>合同添加成功,主持返回列表上传合同文本。</div>"
%>
<script language="javascript">
<!--
function clock(){i=i-1
document.title="本窗口自动关闭倒计时："+i;
if(i>0)setTimeout("clock();",300);
else self.close();}
var i=3
clock();
//-->
</script>

<%
end if

%>

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

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