www.gusucode.com > ASP+ACCESS在线教育系统设计(源代码+论文) > ASP+ACCESS在线教育系统设计(源代码+论文)\王智_在线教育系统\teacher\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 num = '" & 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" %>