<% dim Action,BigClassName,SmallClassName,rs,FoundErr,ErrMsg bigclasstable=trim(Request("bigclasstable")) SmallClasstable=trim(Request("SmallClasstable")) infotable=trim(Request("infotable")) Action=trim(Request("Action")) BigClassName=trim(request("BigClassName")) SmallClassName=trim(request("SmallClassName")) if Action="Add" then if BigClassName="" then FoundErr=True ErrMsg=ErrMsg & "
  • 大类名不能为空！
    • " end if if SmallClassName="" then FoundErr=True ErrMsg=ErrMsg & "
  • 小类名不能为空！
    • " end if if FoundErr<>True then Set rs=Server.CreateObject("Adodb.RecordSet") rs.open "Select * From "&SmallClasstable&" Where BigClassName='" & BigClassName & "' AND SmallClassName='" & SmallClassName & "'",conn,1,3 if not rs.EOF then FoundErr=True ErrMsg=ErrMsg & "
  • “" & BigClassName & "”中已经存在小类“" & SmallClassName & "”！
    • " else rs.addnew rs("BigClassName")=BigClassName rs("SmallClassName")=SmallClassName rs.update rs.Close set rs=Nothing call CloseConn() Response.Redirect "allClassManage.asp?bigclasstable="&bigclasstable&"&SmallClasstable="&SmallClasstable end if end if end if if FoundErr=True then call WriteErrMsg() else %>
      返回列表 
    添加小类
    所属大类：
    小类名称：
     
    <% end if call CloseConn() %>