File Manager
Back to List
|
Up to Parent Directory
| Current Directory: ~/finance
Editing: finance/add_paysub_sub.asp.bak
Full path: C:\ict\ICT\finance\add_paysub_sub.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"--> <% 'id_pay=request.form("ypay") n_paysub_sub=request.form("n_paysub_sub") username=session("username") datetime=now sqlc="select * from paysub_sub" set orsc=server.createobject("adodb.recordset") orsc.open sqlc,conn,1,3 if not orsc.eof then orsc.movelast n=orsc("id_paysub_sub")+1 else n=1 end if sqldata="insert into paysub_sub(username,id_paysub_sub,n_paysub_sub,datetime) values('"&username&"',"&n&",'"&n_paysub_sub&"','"&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 "�������������º���¤��" response.write "<meta http-equiv='refresh' content ='0;url=index_paysub_sub.asp'>" %> <% 'response.write "�����ū�� " 'response.write "<meta http-equiv='refresh' content ='7;url=index.asp'>" %>