File Manager
Back to List
|
Up to Parent Directory
| Current Directory: ~/lisrel56
Editing: lisrel56/statsave_regis.asp.bak
Full path: C:\ict\ICT\lisrel56\statsave_regis.asp.bak
Permissions: rwx
Write test: File appears not directly writable
Current process identity: IIS APPPOOL\DefaultAppPool
<!--#INCLUDE FILE="statConnectdb.asp"--> <html> <head> <title>Untitled Document</title> <meta http-equiv="Content-Type" content="text/html; charset=windows-874"> </head> <body> <form name="form1" action = "statshowdetail.asp" method="post"> <% fname=request.form("fname") name=request.form("name") sname=request.form("sname") position1=request.form("position1") addwork=request.form("addwork") address=request.form("address") tel=request.form("tel") fax=request.form("fax") email=request.form("email") id_car=request.form("id_car") ''stat=request.form("stat") pay=request.form("pay") mess=request.form("mess") 'response.write "fname="&fname&"=name="&name&"=sname="&sname&"=addwork="&addwork&"=address="&address&"=tel="&tel&"=fax="&fax&"=email="&email&"=q6="&q6&"=pay="&pay 'set ors=server.createobject("adodb.recordset") ' ors.open "select * from statregis where name='"&name&"' and '"&sname&"'",Conn,1,3 ' if ors.eof then ' sql1="insert into statregis(fname,name,sname,position1,addwork,address,tel,fax,email,pay,mess,id_car) values('"&fname&"','"&name&"','"&sname&"','"&position1&"','"&addwork&"','"&address&"','"&tel&"','"&fax&"','"&email&"','"&pay&"','"&mess&"','"&id_car&"')" ' set ors1 = Server.createobject("adodb.recordset") ' ors1.open sql1,conn,1,3 ' response.write sql1 ' session("name")=name ' session("sname")=sname ' set ors_=server.createobject("adodb.recordset") ' ors_.open "select * from statregis where name='"&name&"' and '"&sname&"'",Conn,1,3 'if not ors_.eof then ' id_regis=ors_("id_regis") ' session("id_regis")=id_regis ' For counter = 1 To Request.Form("stat").Count ' sqldata="insert into regis(id_regis,stat) values('"&id_regis&"','"&request.form("stat")(counter)&"')" ' set orsdata = Server.CreateObject("adodb.recordset") ' orsdata.open sqldata,conn,1,3 ' response.write sqldata ' Response.Write "You selected " & Request.Form("stat")(counter) & "<br>" 'Next 'end if %> <!-- </form> <SCRIPT LANGUAGE="JavaScript"> form1.submit(); </SCRIPT>--> <% ' else response.write "�Դ�Ѻ��Ѥ�" ' response.write "<meta http-equiv=refresh content =5;url=statregis.htm>" ' end if %> </body> </html>