homework_markok.asp

系统结合实际需求

<%@ Language=VBScript %>
<%
	Response.Expires = -99999
	stu_no = Request.Form("stu_no")
	order_no = Request.Form("order_no")
	score = Request.Form("score")
	
	set fs = createobject("scripting.filesystemobject")
			
	if fs.FileExists(server.MapPath("../homework/" & stu_no & cstr(order_no) & ".zip")) then
		fs.MoveFile server.MapPath("../homework/" & stu_no & cstr(order_no) & ".zip"),server.MapPath("../homework/" & stu_no & cstr(order_no) & "x.zip") 
	end if
			
	set fs = nothing

	
	sql = "update student set score" & order_no & " = " & score & " where studentname = '" & stu_no & "'"
	set conn = server.CreateObject("adodb.connection")
	conn.Open application("dsn")
	conn.Execute sql
	conn.Close
	set conn = nothing
	Response.Redirect "homework_admin.asp"
%>