?? stucurcopy.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"> </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"> </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"> </td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="25" align="center" valign="top" bgcolor="#3399FD"> </td>
</tr>
<tr>
<td height="25" align="center" valign="top" background="../Image/bg01a.jpg"> </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 + -