File Manager
Back to List
|
Up to Parent Directory
| Current Directory: ~/homework
Editing: homework/add_homework.asp.bak
Full path: C:\ict\ICT\homework\add_homework.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"--> <form name="form1" Action = "create_homework.asp" method="post"> <% 'course_no=request.form("course_no") work_name=request.form("work_name") ddate=request.form("dday") mmonth = request.form("mmonth") yyear=request.form("yyear") course_no=request.form("course_no") %> <% 'sql_data="select * from lecturer where id_lecturer='"&id_lecturer&"' " ' set ors_data=server.createobject("adodb.recordset") ' ors_data.open sql_data,conn,1,3 ' if not ors_data.eof then%> <SCRIPT LANGUAGE="JavaScript"> <% 'response.write "���ʫ��"&id_lecturer ' response.write"alert('"&id_lecturer&"�ѹ�֡���ʻ�Шӵ�ǫ��');" ' response.write "window.location.href='add_lec_form.asp';" %> --> </SCRIPT> <% 'else sqldata="insert into home_work(course_no,work_name,d_expire,m_expire,y_expire) values('"&course_no&"','"&_ work_name&"','"&ddate&"','"&_ mmonth&"', '"&yyear&"')" set orsdata = Server.CreateObject("adodb.recordset") orsdata.open sqldata,conn,1,3 response.write sqldata response.write "<meta http-equiv='refresh' content ='0;url=create_homework.asp?course_no="&course_no&"'>" 'end if 'end if set conn = nothing 'ors_data.close %> </FORM>