addnews.asp

.添加单个成绩 2.批量添加成绩 3.通过搜索并修改与删除 4.直接修改 5.可以批量删除 6.可以直接GO到达你想到达的页 7.分页显示 8.代码精简 9.整合部分重复代码 1

<!--#include file="conn.asp"--> 
<%if session("password")<>"" then%>
<%
if request("xh1")="" then
	response.write "<script language=JavaScript>" & chr(13) & "alert('学号栏要全部填');" & "history.back()" & "</script>" 
	Response.End
end if
if request("xh2")="" then
	response.write "<script language=JavaScript>" & chr(13) & "alert('学号栏要全部填');" & "history.back()" & "</script>" 
	Response.End
end if
if request("xh3")="" then
	response.write "<script language=JavaScript>" & chr(13) & "alert('学号栏要全部填');" & "history.back()" & "</script>" 
	Response.End
end if
if request("xh4")="" then
	response.write "<script language=JavaScript>" & chr(13) & "alert('学号栏要全部填');" & "history.back()" & "</script>" 
	Response.End
end if
if request("xh5")="" then
	response.write "<script language=JavaScript>" & chr(13) & "alert('学号栏要全部填');" & "history.back()" & "</script>" 
	Response.End
end if
if request("xh6")="" then
	response.write "<script language=JavaScript>" & chr(13) & "alert('学号栏要全部填');" & "history.back()" & "</script>" 
	Response.End
end if
bj1=Replace(Request.Form("bj1"),"'","''")
xh1=Replace(Request.Form("xh1"),"'","''") 
user1=Replace(Request.Form("user1"),"'","''")
kc1=Replace(Request.Form("kc1"),"'","''") 
cj1=Replace(Request.Form("cj1"),"'","''")
xq1=Replace(Request.Form("xq1"),"'","''")
lx1=Replace(Request.Form("lx1"),"'","''") 
bj2=Replace(Request.Form("bj2"),"'","''") 
xh2=Replace(Request.Form("xh2"),"'","''") 
user2=Replace(Request.Form("user2"),"'","''") 
kc2=Replace(Request.Form("kc2"),"'","''") 
cj2=Replace(Request.Form("cj2"),"'","''") 
xq2=Replace(Request.Form("xq2"),"'","''")
lx2=Replace(Request.Form("lx2"),"'","''")
bj3=Replace(Request.Form("bj3"),"'","''")  
xh3=Replace(Request.Form("xh3"),"'","''") 
user3=Replace(Request.Form("user3"),"'","''")
kc3=Replace(Request.Form("kc3"),"'","''")  
cj3=Replace(Request.Form("cj3"),"'","''")
xq3=Replace(Request.Form("xq3"),"'","''")
lx3=Replace(Request.Form("lx3"),"'","''")
bj4=Replace(Request.Form("bj4"),"'","''") 
xh4=Replace(Request.Form("xh4"),"'","''") 
user4=Replace(Request.Form("user4"),"'","''")
kc4=Replace(Request.Form("kc4"),"'","''") 
cj4=Replace(Request.Form("cj4"),"'","''")
xq4=Replace(Request.Form("xq4"),"'","''")
lx4=Replace(Request.Form("lx4"),"'","''")
bj5=Replace(Request.Form("bj5"),"'","''")  
xh5=Replace(Request.Form("xh5"),"'","''") 
user5=Replace(Request.Form("user5"),"'","''")
kc5=Replace(Request.Form("kc5"),"'","''") 
cj5=Replace(Request.Form("cj5"),"'","''") 
xq5=Replace(Request.Form("xq5"),"'","''")
lx5=Replace(Request.Form("lx5"),"'","''")
bj6=Replace(Request.Form("bj6"),"'","''") 
xh6=Replace(Request.Form("xh6"),"'","''") 
user6=Replace(Request.Form("user6"),"'","''") 
kc6=Replace(Request.Form("kc6"),"'","''") 
cj6=Replace(Request.Form("cj6"),"'","''")
xq6=Replace(Request.Form("xq6"),"'","''")
lx6=Replace(Request.Form("lx6"),"'","''")
set savebbs1=conn.execute("insert into bbs1(bj,xh,user,kc,cj,xq,lx)values('"&bj1&"','"&xh1&"','"&user1&"','"&kc1&"','"&cj1&"','"&xq1&"','"&lx1&"')")
set savebbs2=conn.execute("insert into bbs1(bj,xh,user,kc,cj,xq,lx)values('"&bj2&"','"&xh2&"','"&user2&"','"&kc2&"','"&cj2&"','"&xq2&"','"&lx2&"')")
set savebbs3=conn.execute("insert into bbs1(bj,xh,user,kc,cj,xq,lx)values('"&bj3&"','"&xh3&"','"&user3&"','"&kc3&"','"&cj3&"','"&xq3&"','"&lx3&"')")
set savebbs4=conn.execute("insert into bbs1(bj,xh,user,kc,cj,xq,lx)values('"&bj4&"','"&xh4&"','"&user4&"','"&kc4&"','"&cj4&"','"&xq4&"','"&lx4&"')")
set savebbs5=conn.execute("insert into bbs1(bj,xh,user,kc,cj,xq,lx)values('"&bj5&"','"&xh5&"','"&user5&"','"&kc5&"','"&cj5&"','"&xq5&"','"&lx5&"')")
	response.write "<script language=JavaScript>" & chr(13) & "alert('新的考试成绩已经录入系统，并可以查询！');"&"window.location.href = 'adds.asp'"&" </script>" 
set savebbs=nothing 
%> 

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