classsave.asp

天创商务网客户资源管理系统 v1,asp+Access,iis5

<%
Sub AddBig()
  session("errormsg")=""
  session("result")=""
  BigClass=replace(request.form("BigClass"),"'","''")
  set rs = server.createobject("adodb.recordset")
  rs.source = "select * from BigClass where BigClass = '"&BigClass&"' "
  rs.open rs.source,conn,1,1
  if BigClass = "" then
    errormsg=errormsg+"栏目的中文必须填写!!!<br>"
  end if
  if not rs.eof then
    errormsg=errormsg+"栏目的英文与中文名称不能重名!!!<br>"
  end if
  session("errormsg")=errormsg
  rs.close
  if errormsg="" then
    set rs=Server.CreateObject("Adodb.Recordset")
	sql="Select * From BigClass"
	rs.open sql,conn,1,3
	rs.addnew
	  rs("BigClass")=BigClass
	rs.update
	rs.close
	set rs=nothing
    session("result")="添加一级栏目成功"
  end if
End Sub

Sub ModifyBig()
  session("errormsg")=""
  BigClass=replace(request.form("BigClass"),"'","''")
  BigClass1=replace(request.form("BigClass1"),"'","''")
  SBigClass=replace(request.form("SBigClass"),"'","''")
  ID=request.form("ID")
  if BigClass = "" then
    errormsg=errormsg+"栏目的中文必须填写<br>"
  end if
  if SBigClass<>BigClass then
    set rs = server.createobject("adodb.recordset")
    rs.source = "select * from BigClass where BigClass = '"&BigClass&"' "
    rs.open rs.source,conn,1,1
    if not rs.eof then
      errormsg=errormsg+"栏目的中文名称在系统中已经存在<br>"
    end if
    rs.close
  end if
  session("errormsg")=errormsg
  if errormsg="" then
    conn.execute("update SmallClass set BigClass='"&BigClass&"' where BigClass='"&SBigClass&"' ")
    conn.execute("update Review set BigClass='"&BigClass&"' where BigClass='"&SBigClass&"'")
    set rs=Server.CreateObject("Adodb.Recordset")
	sql="Select * From BigClass where ID="&ID
	rs.open sql,conn,1,3
	rs.update
	rs.close
	set rs=nothing
    conn.execute("update BigClass set BigClass='"&BigClass1&"' where ID="&ID)
    session("result")="修改一级栏目成功"&ID&BigClass1
  end if
End Sub

Sub DelBig()
  session("result")=""
  BigClass=replace(request.form("BigClass"),"'","''")
  if BigClass="" then response.redirect"ClassManage.asp"
  set rs=Server.CreateObject("adodb.recordset")
  rs.source="select * from BigClass where BigClass='"&BigClass&"'"
  rs.open rs.source,conn,1,1
  if not rs.eof then BigClass=rs("BigClass")
  rs.close
  set rs=nothing
  conn.execute("Delete From SmallClass where BigClass='"&BigClass&"'")
  conn.execute("Delete from BigClass where BigClass='"&BigClass&"'")
  conn.execute("Delete from News where BigClass='"&BigClass&"'")
  session("result")="删除一级栏目成功"
End Sub

Sub AddSmall()
  session("errormsg")=""
  session("result")=""
  BigClass=replace(Request.Form("BigClass"),"'","''")
  set rs=Server.Createobject("Adodb.Recordset")
  rs.source="select * from BigClass where BigClass='"&BigClass&"' "
  rs.open rs.source,conn,1,1
  BigClass=rs("BigClass")
  rs.close
  SmallClass=replace(Request.Form("SmallClass"),"'","''")
  set rs=Server.CreateObject("Adodb.Recordset")
  rs.source="select * from SmallClass where BigClass='"&BigClass&"' and SmallClass='"&SmallClass&"'  "
  rs.open rs.source,conn,1,1
  if not rs.eof then
    errormsg=errormsg+"栏目的英文与中文名称不能重名<br>"
  end if
  if SmallClass = "" then
    errormsg=errormsg+"栏目的中文必须填写<br>"
  end if
  rs.close
  session("errormsg")=errormsg
  if errormsg="" then
    conn.execute("insert into SmallClass(BigClass,SmallClass) values ('"&BigClass&"','"&SmallClass&"')")
    session("result")="添加二级栏目成功"
  end if
End Sub

Sub ModifySmall()
smallclass1=request.form("smallclass1")
  session("result")=""
  ID=request.form("ID")
	 conn.execute("Update SmallClass Set SmallClass='"&smallclass1&"' where ID="&ID)
     session("result")="修改二级栏目成功"
End Sub

Sub DelSmall()
  session("errormsg")=""
  session("result")=""
   SmallClassID=request.Form("SmallClassID")
   if SmallClassID="" then
     errormsg=errormsg+"请选择小类栏目<br>"
   end if
   session("errormsg")=errormsg
   if errormsg="" then
     set rs=Server.CreateObject("Adodb.RecordSet")
     rs.source="select * from SmallClass where ID="&SmallClassID
     rs.open rs.source,conn,1,1	 
     BigClass=rs("BigClass")
     SmallClass=rs("SmallClass")
     rs.close
	 set rs=nothing
     conn.execute("delete from SmallClass where id="&SmallClassID)
     conn.execute("delete from News where BigClass='"&BigClass&"' and SmallClass='"&SmallClass&"'")
     session("result")="删除二级栏目成功"
   end if
End Sub

Sub Wran()

    response.write result
%>
<p>&nbsp;</p>
<p>&nbsp;</p>
<p>&nbsp;</p>
<body background="images/BLogo.gif">
<form method=post action=ClassManage.asp>
 <table  width="349" border="0" cellspacing="1" cellpadding="0" align="center" bgcolor="#4397c5">
  <tr bgcolor="#AED2E6" >
      <td height="20"><b>
	  <%
	   if session("errormsg")<>"" then
	     response.write("操作错误")
	   else
             response.write session("result")
	   end if
	  %>
	  </b></td>
  </tr>
  <tr align="center"> 
    <td height="115" bgcolor="#FFFFFF" background="images/BLogo.gif">
        <font color=red><%=session("errormsg")%></font>
      <% if session("errormsg")<>"" then %>
	     <br><br><br>
		 <input type="button" value=" 返 回 " onclick="javascript:history.back()">
      <% else %>
	     <br>按确定键返回"模板管理"<br><br>
             <input type="submit" value=" 确 定 ">
      <% end if %>
    </td>
  </tr>
</table>
</form>
</body>
<% End Sub %>