doaddsubclass.asp

来自「asp图书馆管理系统的一个源代码」· ASP 代码 · 共 24 行

<!--#include file="globe/DataConnect.asp"-->
<%
Dim ClassName,ClassName1,rs,sql
ClassName=trim(request.form("ClassName"))
ClassName1=trim(request.form("ClassName1"))
set rs=server.createobject("adodb.recordset")
sql="select * from SubClass where SubName='"&ClassName1&"'"
rs.open sql,Cnn,1,2

if rs.recordcount>0 then
 			         response.redirect "AddSubClass.asp?error=<--同学，不要输入已存在的分类，别的同学会给你搞疯的！-->"
					  rs.close
					  Set rs = Nothing
					  else
					  rs.close
					  Set rs = Nothing
					  sql="INSERT INTO SubClass (SubName,Num) VALUES ('"&ClassName1&"','"&ClassName&"')"
					  Cnn.Execute sql
					  response.redirect "AddSubClass.asp?error=<--同学，恭喜您！您的操作已经成功了，请点击刷新！-->"
					 'refresh response.write "tree.asp target='treename'"
					  end if
                      
 %>
 <!--#include file="globe/DataClose.asp"-->