modify.asp

学生成绩管理系统 :功能: 1.添加单个成绩 2.批量添加成绩 3.通过搜索并修改与删除 4.直接修改 5.可以批量删除 6.可以直接GO到达你想到达的页 7.分页显示 后台

<%if session("password")<>"" or session("pwd")<>"" then%>
<%
dim IID
IID=request("id")
%>

<%if request("kind")="1" then%>
<!-- #include file="inc/conn.asp" -->
<%
if request("xh")="" then
    response.write "<script language=JavaScript>" & chr(13) & "alert('请输入学号！');" & "history.back()" & "</script>" 
    Response.End
end if
mm=request("mm")
mm1=request("mm1")
if session("password")<>"" then mm1=mm

if mm<>mm1 then
    response.write "<script language=JavaScript>" & chr(13) & "alert('密码前后不一致！');" & "history.back()" & "</script>"
    Response.End
end if

xm=request("xm")
bj=request("bj")
xh=request("xh")

sex=request("sex")
addr=request("addr")
yb=request("yb")
question=request.form("question")
answer=request.form("answer")

mysql="select xh from user where xh='"&xh&"'"
set rs1=conn.execute(mysql)
if not rs1.eof  and xh<> session("xh") then
  rs1.close
  response.write "<script language=JavaScript>" & chr(13) & "alert('你输入的学号已经存在！~');" & "history.back()" & "</script>"
  response.End
end if
session("xh")=""

set rs=server.createobject("adodb.recordset")
conn = "DBQ=" + server.mappath("#25175class_cj.asp") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
'set rs=conn.execute("update user(bj,xh,mm,xm,sex,addr,yb)values('"&bj&"','"&xh&"','"&mm&"','"&xm&"','"&sex&"','"&addr&"','"&yb&"')")
sql="update user set bj='"&bj&"',xh='"&xh&"',mm='"&mm&"',xm='"&xm&"',sex='"&sex&"',question='"&question&"',answer='"&answer&"',addr='"&addr&"',yb='"&yb&"' where id="+ IID
rs.Open sql,conn,1,1
session("pwd")=mm
response.write "<script language=JavaScript>" & chr(13) & "alert('记录更新成功');"&"window.location.href = '"&session("return")&"'"&" </script>"

set rs=nothing
%>
<%end if%>


<%if request("kind")="0" then
if request("username")="" or request("password")="" then
    response.write "<script language=JavaScript>" & chr(13) & "alert('请将用户名和密码填写完整！');" & "history.back()" & "</script>" 
    Response.End
end if
username=request("username")
if username<>session("user") then
    response.write "<script language=JavaScript>" & chr(13) & "alert('不能修改用户名！');" & "history.back()" & "</script>" 
    Response.End
session("user")=""
end if
password=request("password")


set rs=server.createobject("adodb.recordset")
conn = "DBQ=" + server.mappath("#25175class_cj.asp") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
'set rs=conn.execute("update user(bj,xh,xm,sex,addr,yb)values('"&bj&"','"&xh&"','"&xm&"','"&sex&"','"&addr&"','"&yb&"')")
sql="update admin set username='"&username&"',password='"&password&"' where id="+ IID
rs.Open sql,conn,1,1
response.write "<script language=JavaScript>" & chr(13) & "alert('记录更新成功');"&"window.location.href = 'admin_user.asp'"&" </script>" 

set rs=nothing
end if
%>



<%if request("kind")="2" then%>
<%
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("#25175class_cj.asp") + ";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('记录更新成功');"&"window.location.href = 'admin.asp'"&" </script>"

set rs=nothing
%>
<%
end if
%>

<%if request("kind")="3" then
if request("bj")="" or request("xhf")="" then
    response.write "<script language=JavaScript>" & chr(13) & "alert('请将班级和学号代码填写完整！');" & "history.back()" & "</script>"
    Response.End
end if
bj=request("bj")
xhf=request("xhf")


set rs=server.createobject("adodb.recordset")
conn = "DBQ=" + server.mappath("#25175class_cj.asp") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
sql="update bjb set bj='"&bj&"',xhf='"&xhf&"' where id="+ IID
rs.Open sql,conn,1,1
response.write "<script language=JavaScript>" & chr(13) & "alert('记录更新成功');"&"window.location.href = 'admin_addxhs.asp'"&" </script>"

set rs=nothing
end if
%>

<%if request("kind")="4" then
if request("kc")="" then
    response.write "<script language=JavaScript>" & chr(13) & "alert('请将课程填写完整！');" & "history.back()" & "</script>"
    Response.End
end if
bj=request.form("bj")
xq=request.form("xq")
kc=request.form("kc")
lx=request.form("lx")

set rs=server.createobject("adodb.recordset")
conn = "DBQ=" + server.mappath("#25175class_cj.asp") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
sql="update kcb set bj='"&bj&"',xq='"&xq&"' ,kc='"&kc&"',lx='"&lx&"' where id="+ IID
rs.Open sql,conn,1,1
response.write "<script language=JavaScript>" & chr(13) & "alert('记录更新成功');"&"window.location.href = 'admin_kcs.asp'"&" </script>"

set rs=nothing
end if
%>


<%else
Response.Redirect "admpost.asp"
end if%>