admin_adddata.asp

成绩查询管理系统

<%if session("password")<>"" then%>
<!--#include file="inc/conn.asp"-->
<%if request.querystring("type")="news" then
dim i,j
num=request.form("number")
max=request.form("max")
set rs=Server.CreateObject("ADODB.Recordset")
for j=1 to num
for i=1 to max
if request("bj"&j&i)="--==请选择==--" then
    response.write "<script language=JavaScript>" & chr(13) & "alert('请选择该学生所在班级');" & "history.back()" & "</script>" 
    Response.End
end if
if request("xh"&j&i)="" then
    response.write "<script language=JavaScript>" & chr(13) & "alert('学号栏要全部填');" & "history.back()" & "</script>" 
    Response.End
end if
bj=Replace(Request.Form("bj"&j&i),"'","''")
xh=Replace(Request.Form("xh"&j&i),"'","''") 
user=Replace(Request.Form("user"&j&i),"'","''")
kc=Replace(Request.Form("kc"&j&i),"'","''") 
cj=Replace(Request.Form("cj"&j&i),"'","''")
xq=Replace(Request.Form("xq"&j&i),"'","''")
lx=Replace(Request.Form("lx"&j&i),"'","''") 
sql="select * from bbs1 where bj='"&bj&"' and kc='"&kc&"' and xq='"&xq&"' and lx='"&lx&"' and xh='"&xh&"' and user='"&user&"'"
rs.open sql,conn,1,1
if not rs.eof then
    response.write "<script language=JavaScript>" & chr(13) & "alert('您所添加的成绩部分已经存在！');" & "history.back()" & "</script>"
    Response.End
end if
rs.close
set savebbs1=conn.execute("insert into bbs1(bj,xh,user,kc,cj,xq,lx)values('"&bj&"','"&xh&"','"&user&"','"&kc&"','"&cj&"','"&xq&"','"&lx&"')")
set savebbs=nothing
next
next
set rs=nothing
    response.write "<script language=JavaScript>" & chr(13) & "alert('同学成绩信息添加成功！');"&"history.back()"&" </script>"

%> 
<%end if%>

<%if request.querystring("type")="kc" then
fs=request("fs")
set rs=Server.CreateObject("ADODB.Recordset")
for i=1 to fs
if request.Form("kc"&i)="" then
    response.write "<script language=JavaScript>" & chr(13) & "alert('课程栏要全部填');" & "history.back()" & "</script>" 
    Response.End
end if
bjj=Replace(Request.Form("bj"&i),"'","''")
bj=left(bjj,3)
for t=4 to len(bjj)
if mid(bjj,t,1)>="0" and mid(bjj,t,1)<="9" then exit for
bj=bj&mid(bjj,t,1)
next
kc=Replace(Request.Form("kc"&i),"'","''") 
xq=Replace(Request.Form("xq"&i),"'","''")
lx=Replace(Request.Form("lx"&i),"'","''") 
sql="select * from kcb where bj='"&bj&"' and kc='"&kc&"' and xq='"&xq&"' and lx='"&lx&"'"
rs.open sql,conn,1,1
if not rs.eof then
    response.write "<script language=JavaScript>" & chr(13) & "alert('您所添加的课程部分已经存在！');" & "history.back()" & "</script>" 
    Response.End
end if
rs.close
set savebbs1=conn.execute("insert into kcb(bj,kc,xq,lx)values('"&bj&"','"&kc&"','"&xq&"','"&lx&"')")
set savebbs=nothing 
next
set rs=nothing
response.write "<script language=JavaScript>" & chr(13) & "alert('课程信息添加成功！');"&"window.location.href = 'admin_addkcs.asp'"&" </script>" 
end if%>

<%if request.querystring("type")="xh" then
if request("start")="" or request("start")<0 or request("end")<0 or request("end")="" or bj="--==请选择==--" then
    response.write "<script language=JavaScript>" & chr(13) & "alert('请您输入正确的学号和班级');" & "history.back()" & "</script>"
    Response.End
end if
bj=request("bj")
star=request("start")
endd=request("end")
if endd>star then
a=star
num=endd-star
else
a=endd
num=star-endd
end if
b=a
if a="0" then b=a+1
for i=b to a+num
msql="select * from bjb where bj='"&bj&"'"
set rs0=conn.execute(msql)
if not rs0.eof then
p=i
if i>0 and i<10 then p="0"&p
xh=rs0("xhf")&p
else
  rs0.close
  response.write "<script language=JavaScript>" & chr(13) & "alert('您选择的班级不存在！~');" & "history.back()" & "</script>"
  response.End
end if
mm=xh
rs0.close
set rs0=nothing
mysql="select * from user where xh='"&xh&"'"
set rs1=conn.execute(mysql)
if not rs1.eof then
  rs1.close
  response.write "<script language=JavaScript>" & chr(13) & "alert('你输入的学号部分已经存在了！~');" & "history.back()" & "</script>"
  response.End
end if
set savebbs1=conn.execute("insert into user(bj,xh,mm)values('"&bj&"','"&xh&"','"&mm&"')")
next
response.write "<script language=JavaScript>" & chr(13) & "alert('同学信息添加成功！');"&"window.location.href = '"&session("return")&"'"&" </script>"
set savebbs1=nothing
end if%>

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