File Manager

<head>
<script language="javascript">	
		function doSubmit()
{
	if( document.form1.meas_name.value == "" )
	{
		alert("��سҡ�͡��������ͧ����Ѵ")
		document.form1.meas_name.focus()
			return false;
	}

if( document.form1.meas_lib.value == "" )
	{
		alert("��سҡ�͡����级ҹ�Ԩ��")
		document.form1.meas_lib.focus()
			return false;
	}
if( document.form1.meas_calnum.value == "" )
	{
		alert("��سҡ�͡�����Ţ���¡˹ѧ���")
		document.form1.meas_calnum.focus()
			return false;
	}
if( document.form1.meas_key.value == "" )
	{
		alert("��سҡ�͡���Ӥѭ")
		document.form1.meas_key.focus()
			return false;
	}
	if ( document.form1.meas_his2.value == "" ) 
	{

alert("��سҡ�͡��������´����Ңͧ����ͧ����Ѵ")
		document.form1.meas_his2.focus()
		return false;
	}
	
if ( document.form1.meas_ans1.value == "" )
	{

alert("��سҡ�͡��������´�ٻẺ��õ�Ǩ��С������ṹ")
		document.form1.meas_ans1.focus()
		return false;
	}
if( document.form1.meas_diff.value == "" )
	{
		alert("��سҡ�͡��������´�ٻẺ��õ�Ǩ��С������ṹ")
		document.form1.meas_diff.focus()
			return false;
	}
	if( document.form1.meas_pwr.value == "" )
	{
		alert("��سҡ�͡�ӹҨ��ṡ �Ըա����о����")
		document.form1.meas_pwr.focus()
			return false;
	}
if( document.form1.meas_expe.value == "" )
	{
		alert("��سҡ�͡�س�Ҿ�ͧ����ͧ����Ѵ")
		document.form1.meas_expe.focus()
			return false;
	}

if( document.form1.meas_vali.value == "" )
	{
		alert("��سҡ�͡�������§�ç")
		document.form1.meas_vali.focus()
			return false;
	}
if( document.form1.meas_reli.value == "" )
	{
		alert("��سҡ�͡�����������")
		document.form1.meas_reli.focus()
			return false;
	}
if( document.form1.meas_sample.value == "" )
	{
		alert("��سҡ�͡������������")
		document.form1.meas_sample.focus()
			return false;
	}
if( document.form1.meas_time.value == "" )
	{
		alert("��سҡ�͡����㹡��������ͧ����Ѵ")
		document.form1.meas_time.focus()
			return false;
	}
if( document.form1.meas_obj2.value == "" )
	{
		alert("��سҡ�͡�ش���ʧ�����Ңͧ����ͧ����Ѵ")
		document.form1.meas_obj2.focus()
			return false;
	}
if( document.form1.meas_formsample.value == "" )
	{
		alert("��سҡ�͡������ҧ����ͧ����Ѵ")
		document.form1.meas_formsample.focus()
			return false;
	}}
		</script>

</head>
<form  name="form1"  Action = "save_mea.asp" method="post"  >
<script language="JavaScript1.2" src="utility.js" type='text/javascript'></script>

<%
'����ҧ���ǡѺ������ҧ �ҹ�Ԩ��

set ors=server.createobject("adodb.recordset")
	 sqlmark="select * from temp_id"
	 ors.open sqlmark,Conn,1,3
	 ors.movelast
id_mea_new=request("id_mea_new")
if id_mea_new="" then
	 id_mea_new=ors("search_id")+1
	 update_id=session("login")
set ors_id=server.createobject("adodb.recordset")
	 sql_id="insert into temp_id(search_id,update_id) values ("&id_mea_new&",'"&update_id&"')"
	 ors_id.open sql_id,Conn,1,3
else 
    id_mea_new=request("id_mea_new")
end if

%>
<div align="center"><strong>��������������ͧ����Ѵ</strong></div><br>
<table align="center" width="75%"><tr bgcolor ="#FFFFCC"><td class='text'><font color="#660000"><strong>��������ͧ����Ѵ</td><td><input type="text" name="meas_id" readonly value = <%=id_mea_new%>></td></tr>
<%
response.write "<tr><td><font color='#660000'><strong>��������ͧ����Ѵ</td><td><textarea cols='60' name='meas_name' rows='2'></textarea>"
response.write "</td></tr>"
response.write"<tr bgcolor =#FFFFCC><td><font color='#660000'><strong>���ʧҹ�Ԩ�·����ҧ�ԧ</td><td>"
'set ors_type_res=server.createobject("adodb.recordset")

sql_res1="select * from search_th_ms"
set ors_res1=server.createobject("adodb.recordset")
ors_res1.open sql_res1,conn,1,3
ors_res1.movefirst
'���͡�˹�������ʧҹ�Ԩ�·����ҧ ���ǹ�ٻ���������ʧҹ�Ԩ���	option����
res_id_select=request("res_id_select")
if res_id_select="" then
res_id = ors_res1("search_id")
else res_id=request("res_id_select")
end if

'�����ʴ������Ţͧ�ҹ�Ԩ�·����Ҩ����͡
		sql_res="select * from search_th_ms where search_id ="&res_id&""
		set ors_res=server.createobject("ADODB.RECORDSET")
		ors_res.open sql_res,conn,1,3
%>
<select name="meas_ref">
	<%	   
 do while not ors_res1.eof
		 %>
           <option <%if cint(ors_res1("search_id"))=cint(res_id) then%>  
												value = <%=cint(res_id)%> selected
							<%else%>
								   value =  <%=ors_res1("search_id") %><%end if%>> <%=ors_res1("search_id")%></option><%
ors_res1.movenext
loop%>
                        </select>
<%

response.write "<a href=select_res_new.asp?res_id="&res_id&"&id_mea_new="&id_mea_new&">���͡�ҹ�Ԩ��</a></td>"
response.write "<tr bgcolor =#FFFFCC><td><font color='#660000'><strong>�ҹ�Ԩ����ҧ�ԧ</td><td>"
response.write "<textarea cols='60' rows='3'  readonly>"& ors_res("search_title") &"</textarea>"

'end if
'response.write "<form name='form1' method='post' action='choose_research.asp'>
response.write "</td></tr>"
response.write "<tr><td><font color='#660000'><strong>����级ҹ�Ԩ��</td><td ><input type='text' name='meas_lib'></td></tr>"
response.write "<tr bgcolor =#FFFFCC><td><font color='#660000'><strong>�����Ţ���¡˹ѧ���</td><td ><input rows='1' cols='60' name='meas_calnum'></td></tr>"
response.write "<tr><td><font color='#660000'><strong>���Ӥѭ</td><td ><textarea cols='60' rows='3' name='meas_key' ></textarea></td></tr>"
'����Ңͧ����ͧ����Ѵ
response.write "<tr bgcolor =#FFFFCC><td><font color='#660000'><strong>����Ңͧ����ͧ����Ѵ </td><td>"

'his_id=ors("meas_his1")
							sql_his="select * from meas_his_type"
							set ors_his=server.createobject("ADODB.RECORDSET")
							ors_his.open sql_his,conn,1,3
										'if not ors_his.eof then
										'result = ors_his(0)
										'end if
										  'if result > 0 then
ors_his.movefirst
response.write "<select name='meas_his1'>"
do while not ors_his.eof
		 %>
           <option   value =  <%=ors_his("type_id") %>> <%=ors_his("type_nameth")%></option>
								   <%
ors_his.movenext
loop
  response.write"               </select></td></tr>"
  ors_his.close
'�������ͧ����ͧ����Ѵ
response.write "<tr><td><font color='#660000'><strong>��������´����Ңͧ����ͧ����Ѵ </td><td><textarea rows='3' cols='60' name='meas_his2'></textarea></td></tr>"
'������ش���ʧ��㹡�����ҧ����ͧ����Ѵ
response.write "<tr bgcolor =#FFFFCC><td><font color='#660000'><strong>�ش���ʧ��㹡�����ҧ����ͧ����Ѵ </td><td>"

'obj=ors("meas_obj1")
							sql="select * from meas_obj_type"
							set ors_obj=server.createobject("ADODB.RECORDSET")
							ors_obj.open sql,conn,1,3
ors_obj.movefirst
response.write "<select name='meas_obj1'>"
do while not ors_obj.eof
		 %>
           <option
								   value =  <%=ors_obj("type_id") %>> <%=ors_obj("type_nameth")%></option>
								   <%
ors_obj.movenext
loop
  response.write"               </select></td></tr>"
  ors_obj.close
'�ٻẺ�������ṹ
response.write "<tr ><td><font color='#660000'><strong>�ٻẺ�������ṹ </td><td>"
'ans=ors("meas_ans2")
							sql="select * from meas_ans_type"
							set ors_ans=server.createobject("ADODB.RECORDSET")
							ors_ans.open sql,conn,1,3
'										if not ors_ans.eof then
'										result = ors_ans(0)
'										end if

'										  if result > 0 then
ors_ans.movefirst
response.write "<select name='meas_ans2'>"
do while not ors_ans.eof
		 %>
           <option 
								   value =  <%=ors_ans("type_id") %>> <%=ors_ans("type_nameth")%></option>
								   <%
ors_ans.movenext
loop
  response.write"               </select></td></tr>"
  ors_ans.close

'response.write "<tr ><td><font color='#660000'><strong>�ٻẺ��õ�Ǩ��С������ṹ</td><td ><textarea rows='3' cols='60' name='meas_ans2'>"& ors_ans("type_nameth") &"</textarea></td></tr>"'�֧�ҡ ���ҧ meas_ans_type
'else
'response.write "<tr ><td><font color='#660000'><strong>�ٻẺ��õ�Ǩ��С������ṹ</td><td ><textarea rows='3' cols='60' name='meas_ans2' >"& ors("meas_ans2") &"</textarea></td></tr>"'�֧�ҡ ���ҧ meas_ans_type
'end if
response.write "<tr bgcolor =#FFFFCC><td><font color='#660000'><strong>��������´�ٻẺ��õ�Ǩ��С������ṹ</td><td ><textarea cols='60' rows='3' name='meas_ans1' ></textarea></td></tr>"
response.write "<tr ><td><font color='#660000'><strong>�س�Ҿ�ͧ����ͧ����Ѵ</td><td ><textarea rows='3' cols='60' name='meas_expe' ></textarea></td></tr>"
response.write "<tr bgcolor =#FFFFCC><td><font color='#660000'><strong>�����ҡ �Ըա����о����</td><td ><input type='text' size='60' name='meas_diff' ></td></tr>"
response.write "<tr><td><font color='#660000'><strong>�ӹҨ��ṡ �Ըա�� ��о����</td><td ><textarea cols='60' rows='3' name='meas_pwr' ></textarea></td></tr>"
response.write "<tr  bgcolor =#FFFFCC><td><font color='#660000'><strong>�������§�ç �Ըա�� �Ѫ�շ�駩�Ѻ</td><td ><textarea cols='60' name='meas_vali' rows='3' ></textarea></td></tr>"
response.write "<tr><td><font color='#660000'><strong>�����������</td><td ><textarea cols='60' rows='3' name='meas_reli' ></textarea></td></tr>"
response.write "<tr  bgcolor =#FFFFCC><td><font color='#660000'><strong>��������������С����������ҧ</td><td ><textarea cols='60' rows='3' name='meas_sample' ></textarea></td></tr>"
response.write "<tr><td><font color='#660000'><strong>����㹡��������ͧ���</td><td ><textarea cols='60'  name='meas_time' ></textarea></td></tr>"
response.write "<tr  bgcolor =#FFFFCC><td><font color='#660000'><strong>�ش���ʧ��ͧ����ͧ����Ѵ</td><td ><textarea cols='60' rows='5' name='meas_obj2'></textarea></td></tr>"
response.write "<tr><td><font color='#660000'><strong>������ҧ����ͧ����Ѵ</td><td ><textarea  cols='60' rows = '5' name='meas_formsample' value =></textarea></td></tr>"
response.write "</table>"

'ors.Open sqlmark, conn, 1, 3
    On Error Resume Next
    ors.Close
    Conn.Close

'
'<SCRIPT LANGUAGE="JavaScript">
'
'</SCRIPT>
%>
<div align ="center"><input type="submit" value="�ѹ�֡"  onmousedown="doSubmit();"></div>
</FORM>

File Manager

Editing: research/add_mea.asp