doaddclass.asp

asp图书馆管理系统的一个源代码

<!--#include file="globe/DataConnect.asp"-->

<%
 Dim ClassName,rs,sql
 ClassName=trim(request.form("ClassName"))
 Set rs=Server.Createobject("ADODB.Recordset")
 sql="Select * From Class Where Name='"&ClassName&"'"
 rs.open sql,cnn,1,1
 if rs.recordcount>0  then 
                       response.redirect "AddClass.asp?error=<--同学，不要输入已存在的总类名，别的同学会给你搞疯的！-->"
					   rs.close
					   Set rs = Nothing
					   else
					   rs.close
					   Set rs = Nothing
					   sql="INSERT INTO CLASS (Name) VALUES ('"&ClassName&"')"
					   Cnn.Execute sql
					   response.redirect "AddClass.asp?error=<--恭喜您！您的操作已经成功了，请点击刷新！-->"
					  
					   
					   'response.redirect "tree.asp target='_blank'" '怎么刷新tree.asp呀？ 
					   end if		   
%>
<!--#include file="globe/DataClose.asp"-->