?? kechengxiugai.asp
字號:
<%@ Language=VBScript %>
<html>
<head>
<meta NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<meta http-equiv="Content-Type" content="text/html;charset=gb2312">
<script Language="JavaScript">
function DoSubmit(){
document.main.submit()
}
</script>
<SCRIPT ID=clientEventHandlersJS LANGUAGE=javascript>
<!--
function window_onafterprint() {
}
//-->
</SCRIPT>
</head>
<body background=images/netbkgnd.gif>
<!-- #include virtual="./admin/include/title.html"-->
<table align="center" border="0" cellpadding="0" cellspacing="0" width="90%">
<%
Sub School()
dim conn, sql,Res
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../dbf/school.mdb")
sql="select * from school"
set Res=server.createobject("adodb.recordset")
Res.open sql,conn,1,3
response.write "<option value=" & Res("sFenxiao") & ">" & Res("sName") & "</option>"
Res.close
conn.close
End Sub
%>
</table>
<table align=center width="90%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td></td>
</tr>
<tr>
<td></td>
</tr>
<tr >
<hr width="100%" color="royalblue" size="4">
</tr>
</table>
<%
dim seaUserName
dim seaPassWord
dim sIn
dim sClass
dim sban
dim sFenxiao
Dim TempStr
seaUserName=Request.Form("seaUserName")
seaPassWord=Request.Form("seaPassWord")
sIn=Request.Form("sIn")
sClass=Request.Form("sClass")+Request.Form("sban")
sFenxiao=Request.Form("sFenxiao")
dim conn2,connstr2
Set conn2 = Server.CreateObject("ADODB.Connection")
connstr2="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../dbf/課程.mdb")
conn2.Open connstr2
dim sql2,Res2
sql2="select * from kecheng where "
If sClass <> "" Then
sql2= sql2 & TempStr & "sClass='"&sClass&"'"
TempStr = " and "
End If
If sFenxiao <> "" Then
sql2 = sql2 & TempStr & "sSchool='"&sFenxiao&"'"
TempStr = " and "
End If
If sClass="" and sFenxiao="" Then
response.write"請輸入查詢條件"
response.end
End If
set Res2=server.createobject("adodb.recordset")
Res2.open sql2,conn2,1,1
If Res2.eof Then
%>
<p> </p>
<table align="center" BORDER="0" cellSpacing="1" cellPadding="1" width="95%">
<tr>
<td>
<TABLE align="center" WIDTH=90% BORDER=0 CELLSPACING=1 CELLPADDING=1>
<TR>
<td>
<font face="宋體" style="FONT-SIZE: larger" color="navy"><strong>
目前數據庫里沒有您需要的信息</strong></font>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td>
<TABLE align="center" WIDTH=90% BORDER=0 CELLSPACING=1 CELLPADDING=1>
<TR>
<TD><a href="chaxunkecheng.asp">返回</a></TD>
</TR>
</TABLE>
</td>
</tr>
</table>
<% else
%>
<p><font face="幼圓" size="5" color="#000080"><b>請修改課程信息,單擊"提交"以便更改信息,帶星號禁止修改!</b></font></p>
<form action=kechengmodifysavenews.asp method=post id=form1 name=main style="BACKGROUND-COLOR: white">
<table align="center" BORDER="0" cellSpacing="1" cellPadding="1" width="100%">
<tr>
<td>
<div align="center">
<table border="1" width="80%" id="table1" bgcolor="#FFFFA6">
<tr>
<td width="170"><span style="vertical-align: middle"><font size="4">
<b>*班級</b></font></span></td>
<td width="184" colspan="2"> <input id=text1 style="WIDTH: 129; HEIGHT: 25" size=18 name=sClass value="<%=Res2("sClass")%>" ></td>
<td width="180" colspan="2"><b>*學校</b></td>
<td colspan="3">
<input id=text1 style="WIDTH: 279; HEIGHT: 25" size=18 name=sSchool value="<%=SchoolName(session("MySchool"))%>" > </td>
</tr>
<tr>
<td width="170">課程設計</td>
<td width="88">星期一</td>
<td width="90">星期二</td>
<td width="90">星期三</td>
<td width="90">星期四</td>
<td width="90">星期五</td>
<td width="90">星期六</td>
<td>周日</td>
</tr>
<tr>
<td width="170">1～2節</td>
<td width="88">
<input id=text1 style="WIDTH: 88; HEIGHT: 25" size=18 name=Mon1 value="<%=Res2("Mon1")%>" > </td>
<td width="90">
<input id=text1 style="WIDTH: 90; HEIGHT: 25" size=18 name=Tue1 value="<%=Res2("Tue1")%>"> </td>
<td width="90">
<input id=text1 style="WIDTH: 87; HEIGHT: 25" size=18 name=Wen1 value="<%=Res2("Wen1")%>"> </td>
<td width="90">
<input id=text1 style="WIDTH: 87; HEIGHT: 25" size=18 name=Thu1 value="<%=Res2("Thu1")%>"> </td>
<td width="90">
<input id=text1 style="WIDTH: 87; HEIGHT: 25" size=18 name=Fri1 value="<%=Res2("Fri1")%>"> </td>
<td width="90">
<input id=text1 style="WIDTH: 87; HEIGHT: 25" size=18 name=Sat1 value="<%=Res2("Sat1")%>"> </td>
<td width="110">
<input id=text1 style="WIDTH: 87; HEIGHT: 25" size=18 name=Sun1 value="<%=Res2("Sun1")%>"> </td>
</td>
</tr>
<tr>
<td width="170">3～4節</td>
<td width="88">
<input id=text1 style="WIDTH: 88; HEIGHT: 25" size=18 name=Mon2 value="<%=Res2("Mon2")%>"> </td>
<td width="90">
<input id=text1 style="WIDTH: 90; HEIGHT: 25" size=18 name=Tue2 value="<%=Res2("Tue2")%>"> </td>
<td width="90">
<input id=text1 style="WIDTH: 87; HEIGHT: 25" size=18 name=Wen2 value="<%=Res2("Wen2")%>"> </td>
<td width="90">
<input id=text1 style="WIDTH: 87; HEIGHT: 25" size=18 name=Thu2 value="<%=Res2("Thu2")%>"> </td>
<td width="90">
<input id=text1 style="WIDTH: 87; HEIGHT: 25" size=18 name=Fri2 value="<%=Res2("Fri2")%>"> </td>
<td width="90">
<input id=text1 style="WIDTH: 87; HEIGHT: 25" size=18 name=Sat2 value="<%=Res2("Sat2")%>"> </td>
<td width="110">
<input id=text1 style="WIDTH: 87; HEIGHT: 25" size=18 name=Sun2 value="<%=Res2("Sun2")%>"> </td>
</td>
</tr>
<tr>
<td width="170">5～6節</td>
<td width="88">
<input id=text1 style="WIDTH: 88; HEIGHT: 25" size=18 name=Mon3 value="<%=Res2("Mon3")%>"> </td>
<td width="90">
<input id=text1 style="WIDTH: 90; HEIGHT: 25" size=18 name=Tue3 value="<%=Res2("Tue3")%>"> </td>
<td width="90">
<input id=text1 style="WIDTH: 87; HEIGHT: 25" size=18 name=Wen3 value="<%=Res2("Wen3")%>"> </td>
<td width="90">
<input id=text1 style="WIDTH: 87; HEIGHT: 25" size=18 name=Thu3 value="<%=Res2("Thu3")%>"> </td>
<td width="90">
<input id=text1 style="WIDTH: 87; HEIGHT: 25" size=18 name=Fri3 value="<%=Res2("Fri3")%>"> </td>
<td width="90">
<input id=text1 style="WIDTH: 87; HEIGHT: 25" size=18 name=Sat3 value="<%=Res2("Sat3")%>"> </td>
<td width="110">
<input id=text1 style="WIDTH: 87; HEIGHT: 25" size=18 name=Sun3 value="<%=Res2("Sun3")%>"> </td>
</td>
</tr>
<tr>
<td width="170">7～8節</td>
<td width="88">
<input id=text1 style="WIDTH: 88; HEIGHT: 25" size=18 name=Mon4 value="<%=Res2("Mon4")%>" > </td>
<td width="90">
<input id=text1 style="WIDTH: 90; HEIGHT: 25" size=18 name=Tue4 value="<%=Res2("Tue4")%>"> </td>
<td width="90">
<input id=text1 style="WIDTH: 87; HEIGHT: 25" size=18 name=Wen4 value="<%=Res2("Wen4")%>"> </td>
<td width="90">
<input id=text1 style="WIDTH: 87; HEIGHT: 25" size=18 name=Thu4 value="<%=Res2("Thu4")%>"> </td>
<td width="90">
<input id=text1 style="WIDTH: 87; HEIGHT: 25" size=18 name=Fri4 value="<%=Res2("Fri4")%>"> </td>
<td width="90">
<input id=text1 style="WIDTH: 87; HEIGHT: 25" size=18 name=Sat4 value="<%=Res2("Sat4")%>"> </td>
<td width="110">
<input id=text1 style="WIDTH: 87; HEIGHT: 25" size=18 name=Sun4 value="<%=Res2("Sun4")%>"> </td>
</td>
</tr>
<tr>
<td width="170">9～10節</td>
<td width="88">
<input id=text1 style="WIDTH: 88; HEIGHT: 25" size=18 name=Mon5 value="<%=Res2("Mon5")%>" > </td>
<td width="90">
<input id=text1 style="WIDTH: 90; HEIGHT: 25" size=18 name=Tue5 value="<%=Res2("Tue5")%>"> </td>
<td width="90">
<input id=text1 style="WIDTH: 87; HEIGHT: 25" size=18 name=Wen5 value="<%=Res2("Wen5")%>"> </td>
<td width="90">
<input id=text1 style="WIDTH: 87; HEIGHT: 25" size=18 name=Thu5 value="<%=Res2("Thu5")%>"> </td>
<td width="90">
<input id=text1 style="WIDTH: 87; HEIGHT: 25" size=18 name=Fri5 value="<%=Res2("Fri5")%>"> </td>
<td width="90">
<input id=text1 style="WIDTH: 87; HEIGHT: 25" size=18 name=Sat5 value="<%=Res2("Sat5")%>"> </td>
<td width="110">
<input id=text1 style="WIDTH: 87; HEIGHT: 25" size=18 name=Sun5 value="<%=Res2("Sun5")%>"> </td>
</td>
</tr>
</table>
</form>
</div>
</div>
</td>
</tr>
<tr>
<td height="25">
<TABLE align="center" WIDTH=90% BORDER=0 CELLSPACING=1 CELLPADDING=1>
<TR>
<TD> <input id=button1 style="WIDTH: 91px; HEIGHT: 24px" onclick=DoSubmit() type=button size=29 value=" 提交 " name=button1>
<p> <a href="kechengmodify.asp">返回</a></TD>
</TR>
</TABLE>
</td>
</tr>
</table>
<% end if %>
<p> </p>
<%
Sub School()
dim conn, sql,Res
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../dbf/school.mdb")
sql="select sName from school where sId='" & Res2("sFenxiao") & "'"
set Res=server.createobject("adodb.recordset")
Res.open sql,conn,1,3
response.write "" & Res("sName") & ""
Res.close
conn.close
End Sub
%>
</body>
</html>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -