addnew.asp

来自「教师在线查分系统」· ASP 代码 · 共 18 行

<!--#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
tnum=Replace(Request.Form("xh"),"'","''") 
tname=Replace(Request.Form("user"),"'","''")
tsc=Replace(Request.Form("km"),"'","''") 
tscore=Replace(Request.Form("cj"),"'","''") 
set savebbs=conn.execute("insert into teacher1(tnum,tname,tsc,tscore)values('"&tnum&"','"&tname&"','"&tsc&"','"&tscore&"')")
response.write "<script language=JavaScript>" & chr(13) & "alert('添加成功！');"&"window.location.href = 'gl.asp'"&" </script>"
set savebbs=nothing 
%>  
<%else
Response.Redirect "dlu.html"
end if%>