addnews.asp

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

<!--#include file="conn.asp"--> 
<%if session("password")<>"" then%>
<%
dim i,j
num=request.form("number")
max=request.form("max")

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),"'","''") 

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
	response.write "<script language=JavaScript>" & chr(13) & "alert('同学成绩信息添加成功！');"&"window.location.href = 'adds.asp'"&" </script>" 

%> 

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