uploadaction.asp

该资料包含大量网络开发的案例和源代码

<%@ Language=VBScript %>
<% Response.Expires=0 %>
<!-- #Include file="include\adovbs.inc" -->
<%
sub msgerror
	Response.Write "<script language=vbscript runat=server>"&chr(10)&chr(13)
	Response.Write "sub window_onload"&chr(10)&chr(13)
	Response.Write "	msgbox ""错误的用户名或密码！"",0,""清华网络学堂"""&chr(10)&chr(13)
	Response.Write "	window.history.back"&chr(10)&chr(13)
	Response.Write "end sub"&chr(10)&chr(13)
	Response.Write "</script>"&chr(10)&chr(13)
end sub

sub msgfail
	Response.Write "<script language=vbscript runat=server>"&chr(10)&chr(13)
	Response.Write "sub window_onload"&chr(10)&chr(13)
	Response.Write "	msgbox ""您已经提交过该次作业并且已批改过，此次提交无效！"",0,""清华网络学堂"""&chr(10)&chr(13)
	Response.Write "	window.history.back"&chr(10)&chr(13)
	Response.Write "end sub"&chr(10)&chr(13)
	Response.Write "</script>"&chr(10)&chr(13)
end sub

sub msgsuccess
	Response.Write "<script language=vbscript runat=server>"&chr(10)&chr(13)
	Response.Write "sub window_onload"&chr(10)&chr(13)
	Response.Write "	msgbox ""作业提交成功！"",0,""清华网络学堂"""&chr(10)&chr(13)
	Response.Write "	window.location.href=""uploadform.asp"""&chr(10)&chr(13)	
	Response.Write "end sub"&chr(10)&chr(13)
	Response.Write "</script>"&chr(10)&chr(13)
end sub
%>

<%
	Set Post = Server.CreateObject("ActiveFile.Post")
	Post.Upload server.MapPath("./tempforupload")

	' not into the database, just for creating the fileobject
	filepath = Post.FormInputs("zipfile").file.name

	num = Post.FormInputs("num").value
	passwd = Post.FormInputs("passwd").value
	id_num = Post.FormInputs("id_num").value
	set Post = nothing


'   验证密码
	set conn = server.CreateObject("adodb.connection")
	conn.Open Application("dsn")

	strSQL = "select passwd from student where num = '" & num & "'"
	set rs = server.CreateObject("adodb.recordset")
	rs.Open strSQL,conn
	if rs.EOF then
		set filesystem = createobject("scripting.FileSystemObject")		
		filesystem.DeleteFile filepath,1
		set filesystem = nothing
		rs.Close
		set rs = nothing
		conn.close
		set conn = nothing
		msgerror
		Response.End
	end if
	if rs("passwd") <> passwd then
		set filesystem = createobject("scripting.FileSystemObject")		
		filesystem.DeleteFile filepath,1
		set filesystem = nothing
		rs.Close
		set rs = nothing
		conn.close
		set conn = nothing
		msgerror
		Response.End
	end if
	rs.Close
	set rs = nothing
	conn.Close
	set conn = nothing


	set filesystem = createobject("scripting.FileSystemObject")		

	if filesystem.FileExists(server.MapPath("./homework") & "\" & num & id_num & "x.zip") then
		msgfail
		Response.End
	end if

	if filesystem.FileExists(server.MapPath("./homework") & "\" & num & id_num & ".zip") then
		filesystem.deleteFile server.MapPath("./homework") & "\" & num & id_num & ".zip"
	end if
	
	filesystem.CopyFile filepath,server.MapPath("./homework") & "\" & num & id_num & ".zip",1
	filesystem.DeleteFile filepath,1
	set filesystem = nothing
	
	msgsuccess
%>