?? xsfkteacherone.asp
字號:
<!--#include file="a25175_top.asp"-->
<%
If Closeok=1 then
response.write"<script>alert('系統現在不能開始評價\n請等待開通...');location='index.asp'</script>"
end if
'-------------------------------------------------------------
Dim Depart,Teacher,Depart1,Teacher1,Term,Course
Depart=request("depart")
Teacher=request("Teacher")
'------------------------------------------------------
Depart1=Depart
Teacher1=Teacher
'------------------------------------------------------
if Depart<>"" and Teacher<>"" and Depart<>"請選擇教師院系" and Teacher<>"請選擇教師" then
strsql="select * from department where id="&depart
set rs=db.execute(strsql)
depart=rs("department")
strsql="select * from teacher where id="&teacher
set rs=db.execute(strsql)
teacher=rs("teachername")
else
Depart=""
Teacher=""
end if
'-------------------------------------------------------
'----------------將院別和教師編號轉化成真實的名稱
Term=request("Term")
Course=request("Course")
Term1=Term
Course1=Course
if Term<>"" and Course<>"" and Term<>"請選擇教師開課學期" and Course<>"請選擇教師課程" then
strsql="select * from term where id="&term
set rs=db.execute(strsql)
term=cstr(rs("term"))
strsql="select * from TEACHERCOURSE where id="&course
set rs=db.execute(strsql)
course=cstr(rs("course"))
else
Term=""
Course=""
end if
%>
<html>
<head>
<script language="JavaScript">
function checkdataok() {
if (document.FRM.Ftitle.value=='') {
window.alert ("請輸入反饋的標題！")
return false}
if (document.FRM.Fbody.value=='') {
window.alert ("請輸入反饋的內容！")
return false}
return false
}
</script>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<link href="25175css_pro.css" rel="stylesheet" type="text/css" />
<style type="text/css">
<!--
body {
background-color: #FBFDFF;
}
-->
</style></head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="970" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><!--#include file="top.asp"-->
</td>
</tr>
<tr>
</tr>
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="200" rowspan="10" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td bgcolor="#A5BEC6"><table width="200" border="0" cellspacing="1" cellpadding="0">
<tr>
<td bgcolor="#FFFFFF"><table width="200" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="30" bgcolor="#F7F7F7"> <img src="images/QQ_d.gif" alt="25175" width="15" height="15" /> <a href="index.asp">前臺管理區</a></td>
</tr>
<tr>
<td bgcolor="#ADD7FF"><!--#include file="left.asp"--></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
<tr>
<td height="21"> </td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td> </td>
</tr>
</table></td>
<td width="10"><div align="center"></div></td>
<td rowspan="10" valign="top" bgcolor="#A5BEC6"><table width="758" border="0" cellspacing="1" cellpadding="0">
<tr>
<td bgcolor="#E7F3FF"><table width="750" border="0" cellspacing="4" cellpadding="0">
<tr>
<td height="300" valign="top" bgcolor="#004194"><table width="750" border="0" cellspacing="1" cellpadding="0">
<tr>
<td height="300" valign="top" bgcolor="#FFFFFF">
<table width="100%" border="0" align="center" cellpadding="10" cellspacing="0">
<tr>
<td height="106"><form action="" method="post" name="addform" id="addform">
<table width="100%" border="0" cellpadding="5" cellspacing="1" bgcolor="#ADD7FF">
<tr align="center" bgcolor="#FFFFFF">
<td height="25" colspan="5"> </td>
</tr>
<tr align="center" bgcolor="#ADD7FF">
<td height="25" colspan="2" valign="middle" bgcolor="#ADD7FF" ><a href="xsfkteacherone.asp" target="_self">【重新填寫】</a>
<%
sql = "select * FROM TEACHER order by ID asc"
set rs=server.createobject("ADODB.Recordset")
rs.open sql,db,1,1%>
<script language = "JavaScript">
var onecount1;
onecount1=0;
subcat1 = new Array();
<%count = 0
do while not rs.eof%>
subcat1[<%=count%>] = new Array("<%= trim(rs("TEACHERNAME"))%>","<%= trim(rs("DEPARTID"))%>","<%= trim(rs("ID"))%>");
<%count = count + 1
rs.movenext
loop
rs.close
set rs=nothing%>
onecount1=<%=count%>;
function changelocation1(addone)
{
document.addform.teacher.length = 0;
var addone_id=addone_id;
var i;
document.addform.teacher.options[0] = new Option('請選擇教師','請選擇教師');
for (i=0;i < onecount1; i++)
{
if (subcat1[i][1] == addone)
{
document.addform.teacher.options[document.addform.teacher.length] = new Option(subcat1[i][0], subcat1[i][2]);
}
}
}
</script> </td>
</tr>
<tr align="center" valign="bottom" bgcolor="#FFFFFF">
<td width="26%" height="25" align="right" valign="middle" >請選擇教師院系：</td>
<td width="74%" height="25" align="left" valign="middle" >
<%
if Depart<>"" then
response.Write Depart
response.Write "<input name='Depart' type='hidden' value='"&Depart1&"'>"
else
%>
<select name="depart" id="select7" onChange="changelocation1(document.addform.depart.options[document.addform.depart.selectedIndex].value)">
<option value="請選擇教師院系" selected>請選擇教師院系</option>
<%
sql="select * from DEPARTMENT order by ID desc"
set rs=server.createobject("ADODB.Recordset")
rs.open sql,db,1,1
while not rs.eof%>
<option value="<%=rs("id")%>"><%=rs("DEPARTMENT")%></option>
<%rs.movenext
wend
rs.Close()
%>
</select>
*
<% end if%>
</td>
</tr>
<tr align="center" valign="bottom" bgcolor="#FFFFFF">
<td height="25" align="right" valign="middle" >請選擇教師：</td>
<td height="25" align="left" valign="middle" >
<%
if Teacher<>"" then
response.Write Teacher
response.Write "<input name='Teacher' type='hidden' value='"&Teacher1&"'>"
else
%>
<select name="teacher" id="select8">
<option selected value="請選擇教師">請選擇教師</option>
</select>
***
<input type="submit" name="Submit2" value="選擇學期和課程">
<%end if%>
</td>
</tr>
<%
if teacher<>"" and depart<>"" then
classterm()
end if
'------------------------------------------------選擇教師的課程
sub classterm()
sql = "select * FROM TEACHERCOURSE where teachername='"&teacher&"' and department='"&depart& "' order by ID desc"
set rs=server.createobject("ADODB.Recordset")
rs.open sql,db,1,1%>
<script language = "JavaScript">
var onecount2;
onecount2=0;
subcat2 = new Array();
<%count1 = 0
do while not rs.eof%>
subcat2[<%=count1%>] = new Array("<%= trim(rs("COURSE"))%>","<%= trim(rs("TERMID"))%>","<%= trim(rs("ID"))%>");
<%count1 = count1 + 1
rs.movenext
loop
rs.close
set rs=nothing%>
onecount2=<%=count1%>;
function changelocation2(addone)
{
document.addform.course.length = 0;
var addone_id=addone_id;
var i;
document.addform.course.options[0] = new Option('請選擇教師課程','');
for (i=0;i < onecount2; i++)
{
if (subcat2[i][1] == addone)
{
document.addform.course.options[document.addform.course.length] = new Option(subcat2[i][0], subcat2[i][2]);
}
}
}
</script>
<tr align="center" valign="bottom" bgcolor="#FFFFFF">
<td height="25" align="right" valign="middle" >請選擇開課學期：</td>
<td height="25" align="left" valign="middle" >
<%
if Term<>"" then
response.Write Term
response.Write "<input name='Term' type='hidden' value='"&Term1&"'>"
else
%>
<select name="term" id="term" onChange="changelocation2(document.addform.term.options[document.addform.term.selectedIndex].value)">
<option value="" selected>請選擇教師開課學期</option>
<%
sql="select * from TERM order by ID desc"
set rs=server.createobject("ADODB.Recordset")
rs.open sql,db,1,1
while not rs.eof%>
<option value="<%=rs("id")%>"><%=rs("TERM")%></option>
<%rs.movenext
wend
rs.Close()
%>
</select>
*
<%end if%></td>
</tr>
<tr align="center" valign="bottom" bgcolor="#FFFFFF">
<td height="25" align="right" valign="middle" >請選擇課程：</td>
<td height="25" align="left" valign="middle" >
<%
if Course<>"" then
response.Write Course
response.Write "<input name='Course' type='hidden' value='"&Course1&"'>"
else
%>
<select name="course" id="course">
<option selected value="">請選擇教師課程</option>
</select>
***
<input name="Submit1" type="submit" id="Submit1" value="填寫反饋內容">
<%end if%>
</td>
</tr>
<% end sub%>
</table>
</form></td>
</tr>
<tr>
<td height="107">
<%
if depart<>"" and teacher<>"" and term<>"" and course<>"" then %>
<form method="post" name="FRM" id="FRM" action="teacherfkok.asp" onSubmit="return checkdataok()">
<table width="100%" border="0" cellpadding="5" cellspacing="1" bgcolor="#ADD7FF">
<tr align="center" bgcolor="#ADD7FF">
<td height="25" colspan="2" bgcolor="#ADD7FF">【學生反饋】</td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="25" align="right">真實姓名：</td>
<td><input name="FNAME" type="text" id="FNAME">
可不添</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="32%" height="25" align="right">標題：</td>
<td width="68%"><input name="FTitle" type="text" id="FTitle">
*</td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="25" align="right">反饋內容：</td>
<td><textarea name="Fbody" cols="80" rows="10" id="Fbody"></textarea></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="25"><input name="depart" type="hidden" id="depart" value="<%=depart%>">
<input name="teacher" type="hidden" id="teacher" value="<%=teacher%>">
<input name="term" type="hidden" id="term" value="<%=term%>">
<input name="course" type="hidden" id="course" value="<%=course%>"></td>
<td><input type="submit" name="Submit" value="提交">
<input type="reset" name="Submit3" value="重置"></td>
</tr>
</table>
</form>
<%end if%></td>
</tr>
</table>
</td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
<tr>
<td height="21"> </td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td> </td>
</tr>
</table></td>
</tr>
<tr>
</tr>
<tr>
<td height="25">
<% databaseclose() %>
<!--#include file="foot.asp"--></td>
</tr>
<tr>
<td> </td>
</tr>
</table>
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -