📄 stuofa.asp

📁 学生信息化管理系统,目前最完美的学生信息化管理系统,界面美观,操作方面,个性化设置.一套软件管理多所学校.

💻 ASP

字号:

<%
Set hdobj = Server.CreateObject("HD.comOpen")
Connkaa = hdobj.WeekaaConn()
A=Request.QueryString("A")
ID=Request.QueryString("ID")
B=Request.QueryString("B")

if Request.QueryString("ac")="" then
if ID<>"" then
ID=ID * 1
sqlc = "Select * From [OFa] where ID="&ID
Set rc = Server.CreateObject("ADODB.RecordSet")
rc.Open Sqlc,Connkaa,1,3
A=rc("a")
B=rc("b")
D=rc("d")
E=rc("e")
end if
if B="a" then
lon="平时表现、操行评价"
end if
if B="b" then
lon="社会实践、专业实践记录"
end if
if B="c" then
lon="参加各类活动、勤工俭学记录"
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>红笛软件</title>
<style type="text/css">
<!--
body {
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
}
.STYLE1 {
	font-size: 18px;
	font-family: "黑体";
}
body,td,th {
	font-size: 12px;
}
-->
</style></head>

<body>
<table width="300" border="0" align="center" cellpadding="0" cellspacing="0">
  <form name="form1" method="post" action="?ID=<%=ID%>&B=<%=B%>&ac=ac">
  <tr>
    <td height="25" align="center" background="../Image/bg01.jpg"><input name="a" type="hidden" id="a" value="<%=A%>">
      <input name="b" type="hidden" id="b" value="<%=B%>">
      <input name="ID" type="hidden" id="ID" value="<%=ID%>"></td>
  </tr>
  <tr>
    <td height="35" align="center"><span class="STYLE1"><%=lon%></span></td>
  </tr>
  <tr>
    <td height="35" align="center">起止时间
      <input name="d" type="text" id="d" value="<%=D%>" size="25"></td>
  </tr>
  <tr>
    <td height="25" align="center">详细记录</td>
  </tr>
  <tr>
    <td height="70" align="center"><textarea name="e" cols="39" rows="6" id="e"><%=E%></textarea></td>
  </tr>
  <tr>
    <td height="25" align="center"><input type="submit" name="Submit" value="保存"></td>
  </tr>
  <tr>
    <td height="25" background="../Image/bg01.jpg">&nbsp;</td>
  </tr></form>
</table>
</body>
</html>
<%
else
if ID="" then
call hdobj.AddL("OFa","k",1) 
else
call hdobj.AddL("OFa","k",0) 
end if
end if
%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -