addnews.asp

用于学生查询成绩用,前台ASP动态网页,通过此学生在线查成绩,后台用ACCESS数据库

<!--#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
xh1=Replace(Request.Form("xh1"),"'","''") 
user1=Replace(Request.Form("user1"),"'","''") 
cj1=Replace(Request.Form("cj1"),"'","''") 
xh2=Replace(Request.Form("xh2"),"'","''") 
user2=Replace(Request.Form("user2"),"'","''") 
cj2=Replace(Request.Form("cj2"),"'","''") 
xh3=Replace(Request.Form("xh3"),"'","''") 
user3=Replace(Request.Form("user3"),"'","''") 
cj3=Replace(Request.Form("cj3"),"'","''") 
xh4=Replace(Request.Form("xh4"),"'","''") 
user4=Replace(Request.Form("user4"),"'","''") 
cj4=Replace(Request.Form("cj4"),"'","''") 
xh5=Replace(Request.Form("xh5"),"'","''") 
user5=Replace(Request.Form("user5"),"'","''") 
cj5=Replace(Request.Form("cj5"),"'","''") 
xh6=Replace(Request.Form("xh6"),"'","''") 
user6=Replace(Request.Form("user6"),"'","''") 
cj6=Replace(Request.Form("cj6"),"'","''") 
set savebbs1=conn.execute("insert into bbs1(xh,user,cj)values('"&xh1&"','"&user1&"','"&cj1&"')")
set savebbs2=conn.execute("insert into bbs1(xh,user,cj)values('"&xh2&"','"&user2&"','"&cj2&"')")
set savebbs3=conn.execute("insert into bbs1(xh,user,cj)values('"&xh3&"','"&user3&"','"&cj3&"')")
set savebbs4=conn.execute("insert into bbs1(xh,user,cj)values('"&xh4&"','"&user4&"','"&cj4&"')")
set savebbs5=conn.execute("insert into bbs1(xh,user,cj)values('"&xh5&"','"&user5&"','"&cj5&"')")
set savebbs6=conn.execute("insert into bbs1(xh,user,cj)values('"&xh6&"','"&user6&"','"&cj6&"')")
	response.write "<script language=JavaScript>" & chr(13) & "alert('同学信息修改成功！');"&"window.location.href = 'admin.asp'"&" </script>" 
set savebbs=nothing 
%> 
%> 
<%else
Response.Redirect "admpost.asp"
end if%>