addnew.asp

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

<!--#include file="conn.asp"--> 
<%if session("password")<>"" then%>
<%
if request("xh")="" then
	response.write "<script language=JavaScript>" & chr(13) & "alert('学号栏要全部填');" & "history.back()" & "</script>" 
	Response.End
end if
xh=Replace(Request.Form("xh"),"'","''") 
user=Replace(Request.Form("user"),"'","''") 
cj=Replace(Request.Form("cj"),"'","''") 
set savebbs=conn.execute("insert into bbs1(xh,user,cj)values('"&xh&"','"&user&"','"&cj&"')")
response.write "<script language=JavaScript>" & chr(13) & "alert('添加成功！');"&"window.location.href = 'admin.asp'"&" </script>"
set savebbs=nothing 
%>  
<%else
Response.Redirect "admpost.asp"
end if%>