File Manager
Back to List
|
Up to Parent Directory
| Current Directory: ~/journal
Editing: journal/add_newauthor.asp
Full path: C:\ict\ICT\journal\add_newauthor.asp
Permissions: rwx
Write test: File appears not directly writable
Current process identity: IIS APPPOOL\DefaultAppPool
<!--#INCLUDE FILE="Connectdb.asp"--> <% username=request.form("username") password1=request.form("password1") password2=request.form("password2") prefix = request.form("prefix") id_academic=request.form("id_academic") other_po = request.form("other_po") firstname = request.form("firstname") 'year_retire = request.form("year_retire") lastname = request.form("lastname") address = request.form("address") email=request.form("email") university=request.form("university") faculty=request.form("faculty") department=request.form("department") tel=request.form("tel") mobile=request.form("mobile") datetime=now %> <% sql="select * from manu_member" set ors=server.createobject("adodb.recordset") ors.open sql,conn,1,3 if not ors.eof then ors.movelast id_member=ors("id_member") id_member=id_member+1 else id_member=1 end if sql_data="select * from manu_member where username='"&username&"' " set ors_data=server.createobject("adodb.recordset") ors_data.open sql_data,conn,1,3 if not ors_data.eof then %> <SCRIPT LANGUAGE="JavaScript"> <% response.write"alert('"&id_stu&"�ѹ�֡���ͼ������');" response.write "window.location.href='new_author.asp';" %> </SCRIPT> <% else sqldata="insert into manu_member(id_member,username,password,prefix,id_aca_po,id_other_po, firstname,lastname,address,email,university,faculty,department,tel,mobile) values('"&id_member&"','"&username&"','"&password1&"','"&prefix&"', '"&id_academic&"','"&other_po&"','"&firstname&"','"&lastname&"','"&address&"','"&email&"','"&university&"','"&faculty&"','"&department&"','"&tel&"','"&mobile&"')" set orsdata = Server.CreateObject("adodb.recordset") orsdata.open sqldata,conn,1,3 response.write sqldata response.write "<meta http-equiv='refresh' content ='0;url=detail_member.asp'>" 'response.write "<meta http-equiv='refresh' content ='0;url=detail_member.asp?id_member="&id_member&"'>" session("idm")=id_member end if set conn = nothing %>