File Manager
Back to List
|
Up to Parent Directory
| Current Directory: ~/finance
Editing: finance/add_budget.asp.bak
Full path: C:\ict\ICT\finance\add_budget.asp.bak
Permissions: rwx
Write test: File appears not directly writable
Current process identity: IIS APPPOOL\DefaultAppPool
<!--#INCLUDE FILE="ConnectDB.asp"--> <!--#include file="chklogin.asp"--> <% ypay=request.form("ypay") id_budget_type=request.form("id_budget_type") budgetall=request.form("budgetall") datetime=now if budgetall="" then budgetall=0 end if username=session("username") sqldata="insert into yearbudget(username,idyear,id_budget_type,budgetall,datetime) values('"&username&"','"&ypay&"','"&id_budget_type&"',"&budgetall&",'"&datetime&"')" ' response.write sqldata set orsdata = Server.CreateObject("adodb.recordset") sqlcheck="select * from yearbudget where idyear='"&ypay&"' and id_budget_type='"&id_budget_type&"'" 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=index.asp'>" else %> <SCRIPT LANGUAGE="JavaScript"> <% response.write"alert('�ѹ�֡�����ū��++ ��ҹ��ѹ�֡�����Żչ�������');" response.write "window.location.href='add_budget_form.asp';" %> --> </SCRIPT> <% 'response.write "�����ū�� " 'response.write "<meta http-equiv='refresh' content ='7;url=index.asp'>" end if %>