www.gusucode.com > ASP+ACCESS学生成绩查询系统毕业设计(源代码+论文+开题报告) > ASP+ACCESS学生成绩查询系统毕业设计(源代码+论文+开题报告)\score\score\modi.asp
<%if session("password")<>"" then%> <% dim IID IID=request("id") if request("xh")="" then response.write "<script language=JavaScript>" & chr(13) & "alert('请输入学号!');" & "history.back()" & "</script>" Response.End end if user=request("user") bj=request("bj") xh=request("xh") kc=request("kc") cj=request("cj") xq=request("xq") lx=request("lx") set rs=server.createobject("adodb.recordset") conn = "DBQ=" + server.mappath("class_cj.mdb") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" 'set rs=conn.execute("update bbs1(bj,xh,user,kc,cj,xq,lx)values('"&bj&"','"&xh&"','"&user&"','"&kc&"','"&cj&"','"&xq&"','"&lx&"')") sql="update bbs1 set bj='"&bj&"',xh='"&xh&"',user='"&user&"',kc='"&kc&"',cj='"&cj&"',xq='"&xq&"',lx='"&lx&"' where id="+IID rs.Open sql,conn,1,1 response.write "<script language=JavaScript>" & chr(13) & "alert('ok');"&"window.location.href = 'admin.asp'"&" </script>" set rs=nothing %> <%else Response.Redirect "admpost.asp" end if%>