📄 homeoutadd.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;}
.STYLE14 {font-size: 12px; color: #000066; }
.STYLE17 {color: #000033}
.STYLE18 {font-size: 12px; color: #000033; }
-->
</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();">


<%
ID=request.QueryString("ID")
if request.QueryString("action") = "" then
if ID<>"" then
Set ro = Server.CreateObject("ADODB.RecordSet")
sqlo = "Select * From [HomeOut] where ID="&ID
ro.Open Sqlo,Conn,1,3
rsa=ro("a")
rsb=ro("b")
rsc=ro("c")
rsd=ro("d")
rse=ro("e")
rsf=ro("f")
rsg=ro("g")
end if
if rsd="" then
rsd=date()
end if
if rsa="" then
rsa=year(now()) & month(now()) & day(Now()) & hour(Now())
end if
if rse="." then
rse=Now()
end if
%>



<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" bordercolor="#0066CC">
<form name="form1" method="post" action="?action=action&ID=<%=ID%>">
  <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 bordercolor="#DEE7FF">
        <td height="28" align="center" valign="middle" bgcolor="#F4F8FA">编号</td>
        <td align="center" valign="middle" bgcolor="#F4F8FA">学生姓名</td>
        <td align="center" valign="middle" bgcolor="#F4F8FA">批准人</td>
        <td align="center" valign="middle" bgcolor="#F4F8FA">起始时间</td>
        <td align="center" valign="middle" bgcolor="#F4F8FA">返校时间</td>
        <td align="center" valign="middle" bgcolor="#F4F8FA">外宿事由</td>
        </tr>


	  
      <tr align="center" valign="bottom" bgcolor="#FFFFFF">
        <td width="19%" height="30"><input name="a" type="text" id="a" value="<%=rsa%>" size="18"></td>
        <td width="12%"><input name="b" type="text" id="b" value="<%=rsb%>" size="10"></td>
        <td width="12%"><input name="c" type="text" id="c" value="<%=rsc%>" size="10"></td>
        <td width="12%"><input name="d" type="text" id="d" value="<%=rsd%>" size="10"></td>
        <td width="14%"><input name="e" type="text" id="e" value="<%=rse%>" size="10"></td>
        <td width="31%"><input name="f" type="text" id="f" value="<%=rsf%>" size="30"></td>
        </tr>
      <tr align="center" valign="bottom" bgcolor="#FFFFFF">
        <td height="30" colspan="6" bgcolor="#FFFFFF"><input name="l" type="hidden" id="l" value="e">
          <input type="submit" name="Submit" value="提　　交"></td>
        </tr>

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


<p>
  <%
else

if ID<>"" then
call hdobj.AddL("HomeOut","k",1) 
else
call hdobj.AddL("HomeOut","k",0) 
end if


%>
<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 + -