add2.asp

来自「一个人事管理系统」· ASP 代码 · 共 33 行

<!--#include file="data.asp"-->
<%
if request.form("name1")="" then
  ' Request.Form("name1")
   'response.redirect"index.asp"
   response.write"请填写您的大名!!<a href=""javascript:history.go(-1)"">返回重输</a>"
   response.end
end if
if request.form("notes1")="" then
  ' Request.Form("notes1")
   'response.redirect"index.asp"
   response.write"参加统编教材不能为空，请重输入<a href=""javascript:history.go(-1)"">返回重输</a>"
   response.end
end if
name=Request.Form("name1")
notes=Request.Form("notes1")
sql="Select * from 教材 Where 姓名='"&name&"'"
Set rs = conn.Execute( sql )
If RS. EOF AND rs.BOF Then
	str="Insert Into 教材(姓名,教材) Values('"&name&"','"&notes&"')"
	conn.execute(str)

%>
<script language="javaScript">
alert ("<%=name%>\n\n加入成功！")
location.href="jiaocai.asp"
</script>
<%end if %>
  <script language="javaScript">
alert ("<%=name%>\n\n错误！数据库中以有同名问题。")
	location.href = "jiaocai.asp"
</script>