📄 stucurcopy.asp

📁 学生信息化管理系统,目前最完美的学生信息化管理系统,界面美观,操作方面,个性化设置.一套软件管理多所学校.
💻 ASP
字号:
<% Set hdobj = Server.CreateObject("HD.comOpen")'请保证此行在最前面
Connkaa = hdobj.WeekaaConn()%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<META HTTP-EQUIV="luxiaoqing" CONTENT="no-cache">
<STYLE TYPE="text/css">
<!--
BODY {
	background-image: url(../Image/bg.gif);
	background-position: center;
	background-repeat: repeat;
	background-attachment: fixed;
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
	background-color: #3399FD;
} 

.style4 {
	color: #FFFFFF;
	font-size: 14px;
}
.style5 {color: #FF0000}
body,td,th {
	font-size: 12px;
}
.STYLE8 {
	font-family: "黑体";
	font-size: 18px;
	color: #ffffff;
}
a:link {
	color: #CC0000;
	text-decoration: none;
}
a:visited {
	text-decoration: none;
	color: #CC0000;
}
a:hover {
	text-decoration: none;
}
a:active {
	text-decoration: none;
}
.tables {
background-image: url(../Image/bigbg.jpg);
background-repeat: no-repeat;

}
-->
</STYLE>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_openBrWindow(theURL,winName,features) { //v2.0
  window.open(theURL,winName,features);
}
//-->
</script>

</head>

<body onmouseover="self.status='红笛软件[http://weekaa.com/red]';return true">
<%
if Request.QueryString("ac")="" then
%>
<table width="1003" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td height="150" align="center" valign="bottom"><img src="../Image/bigbga.jpg" width="1003" height="150"></td>
  </tr>
  <tr>
    <td height="28" align="center" valign="bottom" background="../Image/bg01a.jpg">&nbsp;</td>
  </tr>
  <tr>
    <td height="600" align="center" valign="top" bgcolor="#3399fd"><table width="80%" border="0" cellspacing="0" cellpadding="0">
	 <tr>
        <td height="25" align="center">　</td>
      </tr>
      <tr>
        <td height="25" align="center"><span class="STYLE8">拷贝课程</span></td>
      </tr>
      <tr>
        <td height="25" align="center" background="../Image/bg01.jpg">&nbsp;</td>
      </tr>
      <tr>
        <td height="100" align="center" bgcolor="#FFFFFF"><form name="form1" method="post" action="?ac=ac">
          <span class="style5">从
          <%call hdobj.ListForm("classs", "e", "e","La")%>
          拷贝全部课程到
          <%call hdobj.ListForm("classs", "e", "e","Lb")%>　
 </span>
          <input type="submit" name="Submit" value="开始拷贝">        
        </form>          </td>
      </tr>
      <tr>
        <td height="25" align="center" background="../Image/bg01.jpg">&nbsp;</td>
      </tr>
      
    </table>
      </td>
  </tr>
  <tr>
    <td height="25" align="center" valign="top" bgcolor="#3399FD">&nbsp;</td>
  </tr>
  <tr>
    <td height="25" align="center" valign="top" background="../Image/bg01a.jpg">&nbsp;</td>
  </tr>
</table>
<%
else
La=request.form("La")
Lb=request.form("Lb")
if La=Lb then
ErrInfo = "?ac=&xl=班级选择错误"
Response.Redirect (ErrInfo)
end if
response.write "<br>"
response.write "<br>"
response.write "<br>"
response.write "<br>"
Set rs = Server.CreateObject("ADODB.RecordSet")
sqls = "Select * From [StuCur] where b ='"& La &"'"
rs.Open Sqls,Connkaa,1,3
do while not rs.eof
a=rs("a")
a="|"& a &"|"
b=Lb
c=rs("c")
d=rs("d")
e=rs("e")
f=rs("f")
g=rs("g")
h=rs("h")
i=rs("i")
j=rs("j")
k=rs("k")
l=rs("l")


Set ro = Server.CreateObject("ADODB.RecordSet")
sqlo = "Select * From [StuCur] where b='"& Lb &"' and c='"&c&"' and d='"&d&"'"
ro.Open Sqlo,Connkaa,1,3
if ro.eof then
ro.addnew
ro("a")=a
ro("b")=b
ro("c")=c
ro("d")=d
ro("e")=e
ro("f")=f
ro("g")=g
ro("h")=h
ro("i")=i
ro("j")=j
ro("k")=k
ro("l")=l
ro("nam")=session("AdminUser")
ro("tim")=now()
ro.update
ro.close
set ro=nothing
response.write "<br><div align=center>从 "&La&" 向 "&Lb& "拷贝了:"&d&"</div>"
end if


rs.movenext
loop
response.write "<br><div align=center>从"&La&"向"&Lb&"拷贝课程完毕!</div>"
Response.end
end if
%>

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

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