File Manager

<%response.cachecontrol="private"%>


<!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">
</title>
<%
		  pern=session("username")
		  per="2"
		  tb="research"
		  sqlnc="select * from tb_permission where id_staff='"&pern&"' and tb_edit='"&per&"' and tb_name='"&tb&"'"
		  set orsnc=server.createobject("adodb.recordset")
		  orsnc.open sqlnc,conn,1,3
				if not orsnc.eof then
		  %>
<%

capital_res_name=request.form("id_")

set orscr=server.createobject("adodb.recordset")
	 sqlcr="select * from capital_res order by id_capial_res"
	 orscr.open sqlcr,Conn,1,3
	 if not orscr.eof then
	orscr.movelast
	a=orscr("id_capital_res")
	a=a+1
	else
	a=0
		end if
		  
		  
date_mo=now
username=session("username")
sqldata="insert into capital_res(username,id_capital_res,date_mo,capital_res_name)  values('"&username&"','"&a&"','"&date_mo&"','"&capital_res_name&"')"
'  response.write sqldata

set orsdata = Server.CreateObject("adodb.recordset")
 sqlcheck="select * from capital_res where capital_res_name='"&capital_res_name&"'"
 set orscheck=server.createobject("adodb.recordset")
 orscheck.open sqlcheck,conn,1,3
		if orscheck.eof then
		orsdata.open sqldata,conn,1,3
		response.write sqldata
		response.write "<meta http-equiv='refresh' content ='0;url=capital_res.asp'>"
		else
			%>
<SCRIPT LANGUAGE="JavaScript">
	<%
		response.write"alert('�ѹ�֡�����ū��++ ��ҹ��ѹ�֡�����Ź�������');"
		response.write "window.location.href='capital_res.asp';"
	%>
	</SCRIPT>
	<%
		end if
end if
%>

File Manager

Editing: add_capital_res.asp.bak