File Manager
Back to List
|
Up to Parent Directory
| Current Directory: ~/homework
Editing: homework/register_stu_form.asp.bak
Full path: C:\ict\ICT\homework\register_stu_form.asp.bak
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"--> <!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>�������Ե�����ͧ���¹</p> <form id="form1" name="form1" method="post" action="add_register.asp"> <table width="599" border="0"> <tr> <td width="76" align="right">�����Ԫ�</td> <td width="213"><label> <% course_no=request("course_no") %> <input readonly size=3 name="course_no" type="text" value=<%=course_no%> ></input> </label></td> </tr> <tr> <td>���͡���Ե</td> <td><label> <select name="username_stu"> <% set ors1=server.createobject("adodb.recordset") sql="select * from student" ors1.open sql,Conn,1,3 ors1.movefirst do while not ors1.eof response.write "<option value="&ors1("username_stu")&">"&ors1("name_stu")&" "&ors1("surname_stu")&"</option>" ors1.movenext loop %> </select> </label></td> </tr> <tr> <td></td> <td><label> </label></td> </tr> <tr> <td></td> <td><label> </label></td> </tr> <tr> <td><label></label></td> <td><input name="����" type="submit" id="����" value="Submit" /></td> </tr> </table> </form> <p>��ª����Ե���ŧ����¹����</p> <table width="536" border="0" bgcolor="#FFFFCC"> <tr bgcolor="#FFFFFF"> <td width="43"><div align="center">�ӴѺ���</div></td> <td width="55"><div align="center">���������</div></td> <td width="49"><div align="center">���ʼ�ҹ</div></td> <td width="97"><div align="center">�����Ե</div></td> <td width="115"><div align="center">���ʡ��</div></td> </tr> <tr> <% sql_stu="select * from register where course_no='"&course_no&"'" Set ors_stu = Server.CreateObject("ADODB.Recordset") ors_stu.Open sql_stu, Conn, 1, 3 'response.write sql_c if not ors_stu.eof then a=1 ors_stu.movefirst username_stu=ors_stu("id_stu") do while not ors_stu.eof sql_stu1="select * from student where username_stu='"&ors_stu("id_stu")&"'" Set ors_stu1 = Server.CreateObject("ADODB.Recordset") ors_stu1.Open sql_stu1, Conn, 1, 3 if not ors_stu1.eof then response.write "<tr><td>"&a&"<td>"&ors_stu1("username_stu")&"<td>"&ors_stu1("password_stu")&"<td>"&ors_stu1("name_stu")&"<td>"&ors_stu1("surname_stu") 'response.write "<td>+++" %> <td>[<a href=del_stu_register.asp?username_stu=<%=username_stu%>&course_no=<%=course_no%> onclick="return confirm('Are you Sure?');">ź</a>] <% end if response.write "</tr>" ors_stu.movenext a=a+1 loop else response.write "<tr colspan=6><td>No Data</td></tr>" end if %> </tr> </table> <p><% response.write "<table>" response.write "<tr><td>" %></p> <!-- InstanceEndEditable --></td> </tr> </table> </body> <!-- InstanceEnd --></html>