updatauser.asp

来自「该系统实现居域网网络考试和,系统平分轻松实现」· ASP 代码 · 共 22 行

<!--#include file="conn.asp"-->
<%
dim user,password,score,kaohao
kaohao=session("id")
if kaohao<>"" then
password=request.Form("psw")
user=request.Form("user")
score=request.Form("score")
set rs=server.createobject("adodb.recordset")
cmd="select * from userlogin where kaohao='"&kaohao&"'"
rs.open cmd,conn,1,3
rs("user")=user
rs("passwd")=password
rs("score")=score
'rs("kaohao")=kaohao
rs.update
response.Write("<script>alert('考生信息修改成功!');window.location.href('Manageuser.asp')</script>")
else
response.Write("<script>alert('未选择考生!');window.location.href('Manageuser.asp')</script>")
end if
%>