📄 studentoutsadd.asp

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

💻 ASP

字号:

<% Set hdobj = Server.CreateObject("HD.comOpen")'请确保此行在最前
Connkaa = hdobj.WeekaaConn()
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>红笛软件</title>
<script language=javascript>
function winclose()  {
   window.opener.location.reload();
   window.close();
  }
</script>
<style type="text/css">
<!--
body,td,th {
	font-size: 12px;
}
-->
</style></head>
<body>

<div align="center">
  <%
tabb="stuOuts"
Set stv = Server.CreateObject("ADODB.RecordSet")
sqstv = "Select * From [sets] where TB='"&tabb&"'"
stv.Open Sqstv,Connkaa,1,3

Na=request.QueryString("n")
ID=request.QueryString("ID")
set rc=Server.CreateObject("ADODB.RecordSet")
sqlc = "Select * From [stuOuts] where ID="&ID
rc.Open Sqlc,Connkaa,1,3
if request.QueryString("ac")="" then
response.write "<form name='form1' method='post' action='?ac=ac&ID=" & ID & "&n=" & Na & "'>"
response.write "办理完毕请输入:ok"
response.write "<br><br><input name='La' type='text' id='La' value=" & rc(Na) & ">"
response.write "<input type='submit' name='Submit' value='提交'></form>"
else
La=request.form("La")
if La="" or La="未办" or La="未办理" or La="未" or La="没" or La="no" then
La="未办"
else
La=La & session("AdminUser")
end if

rc(Na)=La
rc.update
response.write "<script language=javascript>"
response.write "winclose();"
response.write "</script>"
end if
%>
</div>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -