File Manager
Back to List
|
Up to Parent Directory
| Current Directory: ~/homework
Editing: homework/index_lec.asp
Full path: C:\ict\ICT\homework\index_lec.asp
Permissions: rwx
Write test: File appears not directly writable
Current process identity: IIS APPPOOL\DefaultAppPool
<!--#INCLUDE FILE="connectdb.asp"--> <!--#include file="inc_cache_control.asp"--> <!--#include file="inc_access_control.asp"--> <!--#include file="chk_login.asp"--> <script language="javascript"> function doSubmit() { if( document.form1.id_course.value == "" ) { alert("�ô��͡���������ú") document.form1.id_course.focus() return false; } if( document.form1.coursename.value == "" ) { alert("�ô��͡���������ú") document.form1.coursename.focus() return false; } } </script> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"><!-- InstanceBegin template="/Templates/homework.dwt" codeOutsideHTMLIsLocked="false" --> <head> <meta http-equiv="Content-Type" content="text/html; charset=windows-874" /> <!-- InstanceBeginEditable name="doctitle" --> <title>�������ҡ���Ե ʶҺѹ�Ԩ�¾ĵԡ�����ʵ��</title> <!-- InstanceEndEditable --> <style type="text/css"> <!-- body,td,th { font-family: Microsoft Sans Serif, MS Sans Serif, sans-serif; } body { background-color: #FFCCFF; } --> </style> <!-- InstanceBeginEditable name="head" --><!-- InstanceEndEditable --> </head> <body> <table width="100%" border="0" cellspacing="0"> <tr> <td><div align="center"><img src="head.jpg" width="800" height="191" /></div></td> </tr> <tr> <td> <div align="center"> <!--#include file="chk_menu.asp"--> </div></td></tr> <tr> <td align="center" valign="top"><!-- InstanceBeginEditable name="EditRegion3" --> <p>���ʴ� �س��� <% username=session("id_lecturer1") semeter=session("semeter") txtyear=session("txtyear") sql = "select * from lecturer where username = '" & username & "'" Set ors = Server.CreateObject("ADODB.Recordset") ors.Open sql, Conn, 1, 3 if not ors.eof then response.Write ors("name")&" "&ors("surname") id_lec=ors("id_lec") session("id_lec")=id_lec end if %> </p> <p>��������Ԫҷ�����Ҥ���¹���</p> <form id="form1" name="form1" method="post" action="add_course.asp"> <table width="577" border="0" bgcolor="#FF99FF"> <tr> <td width="78">�����Ԫ�</td> <td width="489"> <div align="left"> <input name="id_course" type="text" id="id_course" /> </div> </td> </tr> <tr> <td>�����Ԫ�</td> <td> <div align="left"> <input name="coursename" type="text" id="coursename" size="70" /> </div> </td> </tr> <tr> <td> </td> <td> <div align="left"> <input type="submit" name="Submit" value="����" onMouseDown="doSubmit();" /> </div> </td> </tr> </table> </form> <% response.write "����Ԫҷ���ҹ� ��Ш��Ҥ���¹����֡��" response.write "<br>" response.write semeter&"/"&txtyear response.write "<br>" %> <table bgcolor=#FF99FF width=800><tr bgcolor=#f5f7f9><td align=center>�����Ԫ�<td align=center>�����Ԫ�<td align=center>������¹<td align=center>��ú�ҹ <% sql_c = "select * from course where id_lecturer = '" & id_lec & "' and year_t='"&txtyear&"' and semeter='"&semeter&"'" Set ors_c = Server.CreateObject("ADODB.Recordset") ors_c.Open sql_c, Conn, 1, 3 'response.write sql_c if not ors_c.eof then ors_c.movefirst do while not ors_c.eof response.write "<tr><td>" response.Write ors_c("id_course")&"<td>"&ors_c("coursename")&"<td><a href=register_stu_form.asp?course_no="&ors_c("course_no")&">++++</a><td><a href=create_homework.asp?course_no="&ors_c("course_no")&">++++</a>"%> <td>[<a href=edit_course_form.asp?course_no=<%=ors_c("course_no")%> >���</a>] <td>[<a href=del_course.asp?course_no=<%=ors_c("course_no")%> onClick="return confirm('Are you Sure?');">ź</a>] <% ors_c.movenext loop end if ' %> </p> <!-- InstanceEndEditable --></td> </tr> </table> </body> <!-- InstanceEnd --></html>