File Manager
Back to List
| Current Directory: ~/
Editing: add_km_stu_form.asp
Full path: C:\ict\ICT\add_km_stu_form.asp
Permissions: rwx
Write test: File appears not directly writable
Current process identity: IIS APPPOOL\DefaultAppPool
<!--#INCLUDE FILE="connectdb.asp"--> <!--#INCLUDE FILE="km_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"> <head> <meta http-equiv="Content-Type" content="text/html; charset=windows-874" /> <title>�������ҡ���Ե ʶҺѹ�Ԩ�¾ĵԡ�����ʵ��</title> <style type="text/css"> <!-- body,td,th { font-family: Microsoft Sans Serif, MS Sans Serif, sans-serif; } body { background-color: #FFCCFF; } .style1 {color: #FFFFFF} --> </style> </head> <body> <table width="100%" border="0" cellspacing="0"> <tr> <td><div align="center"><img src="image/head.jpg" width="800" height="191" /></div></td> </tr> <tr> <td> <div align="right">[<a href="index_km_stu.asp">������������</a>][<a href="km_log_out.asp">LogouT</a>]</div></td></tr> <tr> <td align="center" valign="top"><p>���������ź�����</p> <form id="form1" name="form1" method="post" action="add_km_stu.asp"> <table width="50%" border="1" cellspacing="0" cellpadding="0"> <tr> <td width="25%">�����Ԫ�</td> <td width="75%"> <div align="left"> <select name="id_course_eng"> <% sql_course="select * from course " set ors_course=server.createobject("adodb.recordset") ors_course.open sql_course,conn,1,3 if not ors_course.eof then ors_course.movefirst do while not ors_course.eof response.write "<option value="&ors_course("id_course_eng")&">"&ors_course("id_course_th")&" "&ors_course("course_th")&"</option>" ' end if ors_course.movenext loop end if %> </select> </div></td> </tr> <tr> <td>��������ͧ</td> <td><div align="left"> <textarea name="abs_km_name" cols="40" rows="3" id="abs_km_name"></textarea> </div></td> </tr> <tr> <td>����</td> <td><div align="left"> <select name="id_lecturer" id="id_lecturer"> <% set orsl=server.createobject("adodb.recordset") sqll="select * from lecturer where statusdel = '1' order by name_lec" orsl.open sqll,Conn,1,3 if not orsl.eof then orsl.movefirst do while not orsl.eof response.write "<option value="&orsl("id_lecturer")&">"&orsl("name_lec")&" "&orsl("sur_lec")&" </option>" orsl.movenext loop end if %> </select> </div></td> </tr> <tr> <td>��</td> <td><label> <div align="left"> <textarea name="author_km" cols="40" rows="3" id="author_km"><% u=session("usernamekm") sqlu="select * from student where login_name_s='"&u&"'" set orsu=server.CreateObject("adodb.recordset") orsu.open sqlu,conn,1,3 'response.write sqlu if not orsu.eof then response.write orsu("name_stu")&" "&orsu("sur_stu") end if %></textarea> </div> </label></td> </tr> <tr> <td>upload file </td> <td> </td> </tr> <tr> <td> </td> <td><input type="submit" name="Submit" value="Submit" /></td> </tr> </table> </form> <p><br /> </p> </td> </tr> </table> </body> </html>