addzuoyesave.asp

（1）管理员能够实现会员管理 （2）教师管理 （3）资料管理及资料显示等操作

<!--#include file="inc/dbconn.inc"-->
<!--#INCLUDE file = "include/upload_5xsoft.inc"-->
<%
	dim uploadObj, szPath, fileObj, szFileName, tmp
	dim strSQL
	dim nID, szType
	
	set uploadObj = new upload_5xSoft
	set fileObj = uploadObj.File("filePic")	 '与上传表单中的file1相对应
	nID = uploadObj.Form("id")
	szType = uploadObj.Form("type")
	'判断参数是否正确
	if nID = "" or szType = "" then
		Response.Write "有错误发生，无法获取上传参数<br>"
		Response.Write "<a href=""javascript:window.close();"">[关闭]</a>"
		Response.End()
	end if
	
	szPath = "upload/" & szType & "/"
	
	set fso = CreateObject("Scripting.FileSystemObject")
path=server.mappath(szPath)
if fso.folderexists(path)=false then
	fso.createfolder(path)
end if
set fso=nothing

if right(szPath,1)<>"/" then 
	szPath=szPath&"/" 
end if
	
	if fileObj.FileSize>0 then         '如果 FileSize > 0 说明有文件数据
		tmp = fileObj.FileName
		'以nID+原文件扩展名重新命名上传文件
		szFileName = nID & right(tmp, (len(tmp)-InStrRev(tmp,".")+1))
		

datetime=year(date)&month(date)&day(date)
szFileName=datetime&ranNum&szFileName
		Response.Write szFileName 
		fileObj.SaveAs Server.MapPath(szPath & szFileName)   '保存文件                  
	end if
	
	set fileObj = nothing     
	
	Set rs = Server.CreateObject("ADODB.Recordset")    
sql="select * from zuoye"    
rs.open sql,conn,3,3    
rs.addnew    
rs("teacherid")=szType 
rs("studentid")=nID     
rs("lujin")=szPath & szFileName    
rs("biaozhi")=1   
    
rs("datetime")=now()    
rs.update    
rs.close    
 conn.close    
 set conn=nothing  
%>
<script language = Javascript>
<!--
	alert("上传作业成功！");
	opener.location.reload();
	window.close();
-->
</script>