File Manager
Back to List
|
Up to Parent Directory
| Current Directory: ~/eform
Editing: eform/add1.asp
Full path: C:\ict\ICT\eform\add1.asp
Permissions: rwx
Write test: File appears not directly writable
Current process identity: IIS APPPOOL\DefaultAppPool
<!--#INCLUDE FILE="ConnectDB.asp"--> <% form_name=request.form("form_name") detail_form=request.form("detail_form") id_group=request.form("id_group") set orscr=server.createobject("adodb.recordset") sqlcr="select * from eform order by id_form asc" orscr.open sqlcr,Conn,1,3 if not orscr.eof then orscr.movelast a=orscr("id_form") a=a+1 else a=1 end if date_mo=now 'username=session("username") username=session("username") sqldata="insert into eform(username,id_form,date_mo,form_name,detail_form,id_group) values('"&username&"',"&a&",'"&date_mo&"','"&form_name&"','"&detail_form&"',"&id_group&")" response.write sqldata set orsdata = Server.CreateObject("adodb.recordset") if username="" then response.write "<meta http-equiv='refresh' content ='0;url=index.asp'>" else orsdata.open sqldata,conn,1,3 end if %> <SCRIPT LANGUAGE="JavaScript"> <% response.write"alert('�ѹ�֡���������º��������');" %> --> </SCRIPT> <% response.write "<meta http-equiv='refresh' content ='0;url=detail_form.asp?id="&a&"'>" %>