File Manager

<%
idmanu=request("idmanu")
idm=session("idm")

if idmanu <>"" and idm <>"" then
sql="select * from manuscript where id_manu='"&idmanu&"' and id_member='"&idm&"'"
	  Set ors = Server.CreateObject("ADODB.Recordset")
    ors.Open sql, Conn, 1, 3
	'response.write sql
	if not ors.eof then
	id_status=ors("id_status")
	if id_status=2 then
				date_mo=now
				sqldata="update manuscript set id_status='3', datetime_cf='"&date_mo&"' where id_manu='"&idmanu&"'"
				  'response.write sqldata
				  set orsdata=server.createobject("adodb.recordset")
				 orsdata.open sqldata,conn,1,3

sqlh="insert into manu_hitstatus(id_manu,datetime,id_status)  values('"&idmanu&"','"&date_mo&"', 3)"

set orsh = Server.CreateObject("adodb.recordset")
orsh.open sqlh,conn,1,3
				 	%>
<SCRIPT LANGUAGE="JavaScript">
<%
		response.write"alert('�׹�ѹ����觺��������º���¤��');"
   
%>
			</SCRIPT>
		<%
		response.write "<meta http-equiv='refresh' content ='0;url=detail_member.asp'>"
response.write "idmanu="&idmanu
'Response.Redirect ("detail_letterin.asp?id="&id)

else
'response.write "idm="&idm
	'	response.write "idmanu="&idmanu

'else

%>
<SCRIPT LANGUAGE="JavaScript">
<%
		response.write"alert('�ѧ��������Ṻ����������ö�׹�ѹ���');"
		response.write "<meta http-equiv='refresh' content ='0;url=detail_member.asp'>"

</SCRIPT>
		<%
		end if
		end if
end if

File Manager

Editing: journal/confirm_manu.asp