<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
'****************************************************************
'** 版权所有：烈火工作室 演示网站http://www.strongfire.cn **
'** QQ:839225572 邮箱：strongfire2008@163.com **
'** 非正版用户不得擅自非法修改用于商业用途！查出必究。 **
'****************************************************************
%>
添加大类
<%
dim Action,ClassName,rs
Action=trim(Request("Action"))
ClassName=trim(request("ClassName"))
if Action="Add" then
if ClassName="" then
response.Write ""
response.End
end if
Set rs=Server.CreateObject("Adodb.RecordSet")
rs.open "Select * From Class Where ClassName='" & ClassName & "'",conn,1,3
if not (rs.bof and rs.EOF) then
response.Write ""
response.End
else
rs.addnew
rs("ClassName")=ClassName
rs.update
rs.Close
set rs=Nothing
conn.close
set conn=nothing
Response.Redirect "ClassManage.asp"
end if
else
%>