admin_addxh.asp

来自「功能: 1.添加单个成绩 2.批量添加成绩 3.通过搜索并修改与删」· ASP 代码 · 共 68 行

<%if session("password")<>"" then%>
<!-- #include file="conn.asp"-->
<%
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&"')")

response.write "<script language=JavaScript>" & chr(13) & "alert('同学信息添加成功！');"&"window.location.href = '"&session("return")&"'"&" </script>"
set savebbs1=nothing 

%>


<%next%>


<%else
response.redirect "admpost.asp"
end if
%>