File Manager

<script language="javascript">	
		function doSubmit()
{
	if( document.form1.id_lecturer.value == "" )
	{
		alert("��سҡ�͡���ʻ�Шӵ��")
		document.form1.id_lecturer.focus()
			return false;
	}

if( document.form1.name_lec.value == "" )
	{
		alert("��سҡ�͡����")
		document.form1.name_lec.focus()
			return false;
	}
if( document.form1.sur_lec.value == "" )
	{
		alert("��سҡ�͡���ʡ��")
		document.form1.sur_lec.focus()
			return false;
	}
	if (document.form1.byear_lec.value.length<4 || document.form1.byear_lec.value.length>5){
			alert('��سҡ�͡ 4 ����ѡ��');
			document.form1.byear_lec.focus();
			return false;
		}

if( document.form1.byear_lec.value == "" )
	{
		alert("��سҡ�͡���Դ")
		document.form1.byear_lec.focus()
			return false;
	}
	if ( document.form1.year_retire.value == "" ) 
	{

alert("��سҡ�͡�շ�����³")
		document.form1.year_retire.focus()
		return false;
	}
	if (document.form1.year_retire.value.length<4 || document.form1.year_retire.value.length>5){
			alert('��سҡ�͡ 4 ����ѡ��');
			document.form1.year_retire.focus();
			return false;
		}
	}
		</script>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>

<title>�к����ʹ�����͡�ú�����</title>
 
<meta http-equiv="Content-Type" content="text/html; charset=windows-874">

<link href="bsri2006.css" rel="stylesheet" type="text/css">
<link href="image/favicon.ico" rel="shortcut icon" type="image/x-icon">
</head>

<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="100%" border="0">
  <tr> 
    <td colspan="2"><div align="right"><img src="Image/head1.gif" width="800" height="61"></div></td>
  </tr>
  <tr> 
    <td colspan="2" background="Image/bghead1.gif"><div align="right"><font size="2" face="MS Sans Serif, Tahoma, sans-serif"><strong>| 
        <a href="http://www.swu.ac.th" target=_blank>SWU</a> | <a href="http://bsri.swu.ac.th" target=_blank>BSRI</a> 
        |<a href="chaPW.asp"><strong>Change 
        Password</strong></a>|<a href="log_out.asp">Log Out </a></strong></font>|</div></td>
  </tr>
  <tr> 
    <td width="20%" align="left" valign="top" bgcolor="#FFCCCC"></td>
    <td width="77%" align="left" valign="top">
<table width="100%" border="0" cellspacing="0">
<%
'*****************************************************************

session("tb_name")="lecturer"
%>

<%
'*****************************************************************

%>
 
<%id_lecturer=request("id_lecturer")
if id_lecturer="" then
id_lecturer=session("id_lecturer1")
end if
'session("id_lecturer1")=id_lecturer
	sql_edit_lec="select * from lecturer where id_lecturer ='"&id_lecturer&"'"
	set  ors_edit_lec=server.createobject("adodb.recordset")
	ors_edit_lec.open sql_edit_lec,conn,1,3
	if not ors_edit_lec.eof then
'response.write "�����Ҩ����"&id_lecturer&"session"&session("id_lecturer1")
if session("tb_edit")<>1 or session("id_lecturer1") = id_lecturer then '���Է��� �����㹰ҹ ��� ����Ңͧ�������ͧ

%> <tr> 
        <td  align="left" valign="top"><div align="center">
		<%if session("tb_edit")=2 then %>[<a href=add_lec_form.asp>+�����������Ҩ����+</a>] [��䢢������Ҩ����][<a href=all_lecturer.asp>�ʴ��������Ҩ���������</a>]<%end if%><br>
	<form name="form1" method="post" action="save_edit_lec.asp">
          <table width="100%" border="0" align="left" cellpadding="0" cellspacing="0">
            <tr> 
              <td>&nbsp;</td><td>&nbsp;</td>
			  <%response.write "<td colspan=2 rowspan=10><div align=center><img src=pic_lec/"&ors_edit_lec("picture_lec")&" width=100></td>"%>
            </tr>
            <tr> 
              <td height="20" width ="50%"><div align="right">���ʻ�Шӵ��</div></td><td width ="50%"> <input type="text" name="id_lecturer" onkeypress='if (event.keyCode < 46 || event.keyCode >57 ) event.returnValue=false;' value=<%=ors_edit_lec("id_lecturer") %> readonly></td>
			 
            </tr>
            <tr> 
              <td><div align="right">���˹觷ҧ������</div></td><td>
			  <select name="administor">
			  		<%	  set ors1=server.createobject("adodb.recordset")
	 sql="select * from administrator_position"
	 ors1.open sql,Conn,1,3
	ors1.movefirst
	do while not ors1.eof
	%>
		<option 
		<%
		if cint(ors1("id_administor"))=cint(ors_edit_lec("id_administor")) then 
		%>
		value=<%=ors_edit_lec("id_administor")%>
		selected 
		<%else%>
		value=<%=ors1("id_administor")%>
		<% end if %>>
		<%=ors1("administor")%>
		</option>
<%		ors1.movenext
		loop
		%>
			  </select>
			  
			 <%'response.write ors_edit_lec("id_administer")%></td><tr> 
              <td><div align="right">���˹觷ҧ�Ԫҡ��</div></td><td>
			  <select name="academic">
<% 
			  set ors_p=server.createobject("adodb.recordset")
	 sqlmark_p="select * from academic_position"
	 ors_p.open sqlmark_p,Conn,1,3
	ors_p.movefirst
	do while not ors_p.eof
	%>
	           <option <%if cint(ors_p("id_academic"))=cint(ors_edit_lec("id_academic")) then%>  
												value = <%=cint(ors_edit_lec("id_academic"))%> 
												selected
							<%else%>
												 value =  <%=ors_p("id_academic") %><%end if%>> <%=ors_p("academic")%></option>
		<%
		ors_p.movenext
		loop
		%>
			  </select>
			  			 <%'response.write ors_edit_lec("id_academic")%>
						 <%'response.write ors_p("id_academic")%></td></tr>
	       <tr> 
              <td><div align="right">����� �</div></td><td>
			  
<% 
response.write "<input type=text name=other_position value="&ors_edit_lec("id_other_position")&"></input>"

'<select name="other_position">
			  'set ors_o=server.createobject("adodb.recordset")
	 'sqlmark_o="select * from other_position"
	 'ors_o.open sqlmark_o,Conn,1,3
	'ors_o.movefirst
	'do while not ors_o.eof
	'<option 
	%>
		 
		<%' if cint(ors_o("id_other_position"))=cint(ors_edit_lec("id_other_position")) then%> 
		<%'=ors_edit_lec("id_other_position")value=selected %>
		
		<%'else value = %>
		<%'=ors_o("id_other_position")%><%'end if>%> 
		<%'=ors_o("other_position")%>
		
		<%'</option>
		'ors_o.movenext
		'loop 
		'</select>
		%>
			 
			  <%'response.write ors_edit_lec("id_other_position")%></td></tr>
            <tr> 
              <td><div align="right">�ӹ�˹��</div></td><td>
			  <select name="preface">
<% 
			  set ors2=server.createobject("adodb.recordset")
	 sql2="select * from preface"
	 ors2.open sql2,Conn,1,3
	ors2.movefirst
	do while not ors2.eof
	%>

<option <%if cint(ors2("id_preface"))=cint(ors_edit_lec("id_preface")) then%> value=<%=ors_edit_lec("id_preface")%> selected
	<%else%>
	value=<%=ors2("id_preface")%><%end if%>><%=ors2("preface")%></option>
	<%
		ors2.movenext
		loop
		%>
			  </select>
			  			 <%'response.write ors_edit_lec("id_preface")%>
			  </td></tr>
            <tr> 
              <td><div align="right">����</div></td><td><input type="text" name="name_lec" value=<%=ors_edit_lec("name_lec")%>> </td>
            </tr>
            <tr> 
              <td><div align="right">���ʡ��</div></td><td><input type="text" name="sur_lec" value=<%=ors_edit_lec("sur_lec")%>> </td>
            </tr>
            <tr> 
<%		cutday=ors_edit_lec("bdate_lec")
			dayleft=left(cutday,2)
			'response.write dayleft
numday=Array("01","02","03","04","05","06","07","08","09","10","11","12","13","14","15","16","17","18","19","20","21","22","23","24","25","26","27","28","29","30","31")
				  i=lbound(numday)
				 ' response.write numday(i)
				  %>

<td colspan="2"><div align="center">�ѹ��͹���Դ 
                  <select name="bdate_lec">
				  <% 				  do while i<=ubound(numday)
				  %>
				  <option <% if numday(i)=dayleft then %>
				  value=<%=dayleft%> selected <%else%>
				  value=<%=numday(i)%><%end if%>><%=numday(i)%></option>
				<%  i=i+1
				  loop
				  %>
                  </select>
                  
                
				  <%
				  monthmid=mid(cutday,4,2)
				  'response.write monthmid
				  nummonth=array("01","02","03","04","05","06","07","08","09","10","11","12")
				  nummonthth=array("���Ҥ�","����Ҿѹ��","�չҤ�","����¹","����Ҥ�","�Զع�¹","�á�Ҥ�","�ԧ�Ҥ�","�ѹ��¹","���Ҥ�","��Ȩԡ�¹","�ѹ�Ҥ�")
				  ii=lbound(nummonth)
				  iii=lbound(nummonthth)
				 ' response.write nummonth(ii)
				  'response.write nummonthth(iii)
				  %>
  <select name="bmon_lec">
  <%
				do while ii<=ubound(nummonth)
  %>
  <option <% if nummonth(ii)=monthmid then%>
  value=<%=monthmid%> selected <%else%>
  value=<%=nummonth(ii)%><%end if%>><%=nummonthth(iii)%></option>
  <%ii=ii+1
        iii=iii+1
		loop
	%>
                  </select>
                  
<%
yearleft=right(cutday,4)

%>
                  <input type="text" name="byear_lec" onkeypress='if (event.keyCode < 46 || event.keyCode >57 ) event.returnValue=false;' value=<%=yearleft%>>
                  </div></td></tr>
<%		cutday1=ors_edit_lec("date_entrance")
			dayleft1=left(cutday1,2)
			'response.write dayleft
numday=Array("01","02","03","04","05","06","07","08","09","10","11","12","13","14","15","16","17","18","19","20","21","22","23","24","25","26","27","28","29","30","31")
				  i=lbound(numday)
				 ' response.write numday(i)
				  %>

<td colspan="2"><div align="center">�ѹ��͹�շ���è�
                  <select name="dentrance">
				  <% 				  do while i<=ubound(numday)
				  %>
				  <option <% if numday(i)=dayleft1 then %>
				  value=<%=dayleft1%> selected <%else%>
				  value=<%=numday(i)%><%end if%>><%=numday(i)%></option>
				<%  i=i+1
				  loop
				  %>
                  </select>
                  
                
				  <%
				  monthmid1=mid(cutday1,4,2)
				  'response.write monthmid
				  nummonth=array("01","02","03","04","05","06","07","08","09","10","11","12")
				  nummonthth=array("���Ҥ�","����Ҿѹ��","�չҤ�","����¹","����Ҥ�","�Զع�¹","�á�Ҥ�","�ԧ�Ҥ�","�ѹ��¹","���Ҥ�","��Ȩԡ�¹","�ѹ�Ҥ�")
				  ii=lbound(nummonth)
				  iii=lbound(nummonthth)
				 ' response.write nummonth(ii)
				  'response.write nummonthth(iii)
				  %>
  <select name="mentrance">
  <%
				do while ii<=ubound(nummonth)
  %>
  <option <% if nummonth(ii)=monthmid1 then%>
  value=<%=monthmid1%> selected <%else%>
  value=<%=nummonth(ii)%><%end if%>><%=nummonthth(iii)%></option>
  <%ii=ii+1
        iii=iii+1
		loop
	%>
                  </select>
                  
<%
yearleft1=right(cutday1,4)

%>
                  <input type="text" name="yentrance" onkeypress='if (event.keyCode < 46 || event.keyCode >57 ) event.returnValue=false;' value=<%=yearleft1%>>
                  </div></td></tr>
            <tr> 
              <td><div align="right">�շ�����³</div></td><td><input type="text" name="year_retire" onkeypress='if (event.keyCode < 46 || event.keyCode >57 ) event.returnValue=false;' value=<%=ors_edit_lec("year_retire")%>> </td>
            </tr>
            <tr> 
              <td><div align="right">ʶҹ�Ҿ</div></td><td>
			  <select name="id_status_lec">
<% 
			  set ors3=server.createobject("adodb.recordset")
	 sql3="select * from status_lec"
	 ors3.open sql3,Conn,1,3
	ors3.movefirst
	do while not ors3.eof
	%>
		<option<% if ors_edit_lec("id_status_lec")=ors3("id_status_lec") then%>
		value=<%=ors_edit_lec("id_status_lec")%> selected<%else%>
		value=<%=ors3("id_status_lec")%><%end if%>><%=ors3("status_lec")%></option>
		<%
		ors3.movenext
		loop

%>
			  </select>
			   <td colspan=2><div align="center">[<a href=upload_lec_pic_form.asp?id_lecturer=<%=id_lecturer%>>����ٻ�Ҿ</a>]  </div></td></tr>
            <tr> 
             
			  <%
			  		'response.write id_lecturer&"idlecturer<br>"
'response.write session("id_lecturer1")&"idlecturer1<br>"

%>
			
              
            </tr>
            <tr>
              <td>&nbsp;</td><td><input type="submit" name="Submit" value="Save" onmousedown="doSubmit();">
                </td></tr>
          </table>
      </form>
	  <%	else '���Է�
	response.write "<tr><td colspan=3><center>�س������Է����� �س���ѵԹ��"
response.write "<meta http-equiv=refresh content =4;url=javascript:history.back();>" '���Է�
	end if '���Է�
	end if '������դ������������������������й� ��Ҵ����͹�������
%>

</div></td>
    </table>

</td>
  </tr>
  <tr> 
    <td colspan="2" background="Image/bghead1.gif">Contact Admin:: wassanaw@swu.ac.th 
      tel.02-649-5000 ext 17600</td>
  </tr>
</table>
</body>
</html>

File Manager

Editing: edit_lec_form.asp.bak