File Manager

<html>
<meta http-equiv="Content-Type" content="text/html; charset=windows-874"></HEAD>

<body>
<%
Response.Expires = -10000
Server.ScriptTimeOut = 300

Set theForm = Server.CreateObject("ABCUpload4.XForm")
Set theField = theForm("filefield1")(1)'show filename
filename=theField.SafeFileName
theForm.Overwrite = True
theForm.MaxUploadSize = 8000000
'theForm.ID = Request.QueryString("ID")
Set theField = theForm("filefield1")(1)
If theField.FileExists Then
	theField.Save "pic_stu/" &theField.FileName
End If
%>

<%
'response.write session("id_res_up")
id_stu=session("id_stu")
response.write "up.........."&filename&" /"&id_stu
sql_check="select * from student where id_stu='"&id_stu&"'"
set ors_check=server.createobject("adodb.recordset")
ors_check.open sql_check,conn,1,3
if not ors_check.eof then
sqlupload="update student set pic_stu='"&filename&"' where id_stu='"&id_stu&"'"
set orsupload = Server.CreateObject("adodb.recordset")
response.write sql_upload
orsupload.open sqlupload,conn,1,3
response.write "aaa"&id_stu
end if
%>
<meta http-equiv="refresh" content ="0;url=detail_stu.asp?id_stu=<%=id_stu%>">

Upload Complete...

</body>
</html>

File Manager

Editing: upload_stu_pic.asp.bak