📄 class.asp

📁 一个适用于企业的客户电话咨询系统,可以与其它的相关企业管理系统进行整合!
💻 ASP
📖 第 1 页 / 共 2 页
字号:
上一页 12
end sub
'===============================================================
sub ModifyClassOk(ID,table)
  if ClassName = "" or ClassEN = "" then
     response.write "<script>alert('分类的中，英文名称必须填写!');window.location.href='javascript:history.go(-1)';</script>"
  end if
  
  sql="select * from "&table&" where id="&ID
  rs.open sql,conn,1,1
  if Classlevel<3 then
     OldClassName=rs("BigClassCN")
  else
     OldClassName=rs("SmallClassCN")
  end if
  rs.close

  if Classlevel<3 then
     rs.source = "select * from "&table&" where BigClassCN = '"&ClassName&"'"
  else
     rs.source = "select * from "&table&" where SmallClassCN = '"&ClassName&"'"
  end if
  rs.open rs.source,conn,1,1
  'response.Write(rs.recordcount)
    if ClassName<>OldClassName and rs.recordcount>0 then
       response.write "<script>alert('分类的中文名称在系统中已经存在!');window.location.href='javascript:history.go(-1)';</script>"
       response.End()
	end if
  rs.close
  '修改电话号码：
  '修改指定的分类的所有子类的父类，并修改指定的分类
  select case Classlevel
         case 1
	conn.execute("update telephone set BigClassCN1='"&ClassName&"' where BigClassCN1='"&OldClassName&"'")
    conn.execute("update BigClass set FatherClass='"&ClassName&"' where FatherClass='"&OldClassName&"'")
	     case 2
	conn.execute("update telephone set BigClassCN='"&ClassName&"' where BigClassCN='"&OldClassName&"'")
    conn.execute("update SmallClass set BigClassCN='"&ClassName&"',FatherClass='"&ClassName&"' where BigClassCN='"&OldClassName&"'")
		 case 3
	conn.execute("update telephone set SmallClassCN='"&ClassName&"' where SmallClassCN='"&OldClassName&"'")
    conn.execute("update SmallClass set FatherClass='"&ClassName&"' where FatherClass='"&OldClassName&"'")
		 case 4
	conn.execute("update telephone set SmallClassCN1='"&ClassName&"' where SmallClassCN1='"&OldClassName&"'")	 
  end select
  '并修改指定的分类
  	sql="Select * From "&table&" where ID="&ID
	  rs.open sql,conn,1,3
	  if Classlevel<3 then
	  rs("BigClassCN")=ClassName
	  rs("BigClassEN")=ClassEN
	  else
	  rs("SmallClassCN")=ClassName
	  rs("SmallClassEN")=ClassEN
	  end if
	rs.update
	rs.close
    response.write "<script>alert('修改分类"&ClassCN&"成功！');window.location.href='javascript:history.go(-1)';</script>"
end sub
'================================================================
sub AddClass(table)
	FatherClass=ClassName
	if FatherClass="" then 
	   FatherClass="无"
	   Classlevel=0
	end if
%>
<form name="form" method="POST" action="class.asp?action=AddClassOK">
 <p align="center"><b>添加　<font color="#FF0000"><%=Classlevel+1%></font>　级分类</b></p>
  <table style="border-left: 1px solid #A4CEE4;border-top: 1px solid #A4CEE4;border-bottom: 1px solid #A4CEE4; border-right: 1px solid #A4CEE4" border="0" cellpadding="0" align="center" cellspacing="1" bgcolor="#FFFFFF">
    <tr> 
      <td colspan=3><!--#include file = topMenu.htm--></td>
    </tr>
	<tr bgcolor="#FFFFFF"> 
      <td height="20" valign="middle" width="153" onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor='';>&nbsp;&nbsp;上级分类:</td>
      <td width="328" valign="middle" onMouseOver=this.style.backgroundColor='#FAFBFC'; this.style.cursor='hand'; onMouseOut=this.style.backgroundColor='';>
      <%=FatherClass%></td>
    </tr>
    <tr> 
      <td height="25" width="152" valign="middle" bgcolor="#FFFFFF">&nbsp;&nbsp;分类中文名称：</td>
      <td height="25" width="326" valign="middle" bgcolor="#FFFFFF"> 
        <input type="text" name="ClassName" size="20" value="">
      </td>
    </tr>
    <tr> 
      <td height="25" width="152" valign="middle" bgcolor="#FFFFFF">&nbsp;&nbsp;分类特征码：</td>
      <td height="25" width="326" valign="middle" bgcolor="#FFFFFF"> 
        <input type="text" name="ClassEN" size="20" value="">
        <input type="hidden" name="FatherClass" value="<%=FatherClass%>">
		<input type="hidden" name="Classlevel" value="<%=Classlevel%>">
      </td>
    </tr>
    <tr>
      <td height="40" align="center" colspan=2 bgcolor="#FFFFFF" width="100%">
        <input type="submit" value=" 添 加 " name="B12">
        <input type="reset" value=" 还 原 " name="B13">
      </td>
    </tr>
  </table>
</form>
<%rs.close
end sub
sub AddClassOK()
'添加子类 Classlevel：0,1 table=BigClass  Classlevel：2,3 table=SmallClass
FatherClass = request("FatherClass")
if request("ClassName")="" or request("ClassEN")="" then response.write "<script>alert('信息填写不完整！');window.location.href='javascript:history.go(-1)';</script>"
'response.Write(FatherClass&"<br><font color=red>"&Classlevel&"</font>")
if Classlevel<2 then
   table="BigClass"
else
   table="SmallClass"
end if
	sql="Select * From "&table
	'response.Write(sql)
	rs.open sql,conn,1,3
	rs.addnew
    select case Classlevel
           case 0
	  rs("BigClassCN")=ClassName
	  rs("BigClassEN")=ClassEN
	  rs("IsFatherClass")=true
	  rs("FatherClass")="父类"
           case 1
	  rs("BigClassCN")=ClassName
	  rs("BigClassEN")=ClassEN
	  rs("IsFatherClass")=false
	  rs("FatherClass")=FatherClass
           case 2
	  rs("BigClassCN")=FatherClass
	  rs("SmallClassCN")=ClassName
	  rs("SmallClassEN")=ClassEN
	  rs("IsFatherClass")=true
	  rs("FatherClass")="父类"
           case 3
	  rs("BigClassCN")=FatherClass   
	  rs("SmallClassCN")=ClassName
	  rs("SmallClassEN")=ClassEN
	  rs("IsFatherClass")=false
	  rs("FatherClass")=FatherClass
           case 4
	response.write "<script>alert('最多只能有四级分类！');window.location.href='javascript:history.go(-1)';</script>"   
	rs.close
	response.End()
	end select
	  rs("adder")=session("name")
	rs.update
	rs.close
    response.write "<script>alert('添加分类"&ClassName&"成功！');window.location.href='javascript:history.go(-1)';</script>"
end sub
'=================================================================
function classString(ClassLevel,ClassCN,ClassEN)
'-----获得所有上级分类--------
set workrs=server.createobject("adodb.recordset")
select case ClassLevel
  case 1
       classString="?class1="&ClassCN&"&ClassEn1="&ClassEN
  case 2
       Class2=ClassCN
       ClassEN2=ClassEN
  	   sql="select FatherClass from BigClass where BigClassCN='"&Class2&"'"
	   workrs.open sql,conn,1,1
	   Class1=workrs("FatherClass")
	   workrs.close
	   sql="select BigClassEN from BigClass where BigClassCN='"&Class1&"'"
	   workrs.open sql,conn,1,1
	   ClassEN1=workrs("BigClassEN")
	   workrs.close
	   classString="?class1="&Class1&"&ClassEn1="&ClassEN1&"&Class2="&Class2&"&ClassEN2="&ClassEN2
 case 3
       Class3=ClassCN
       ClassEN3=ClassEN
	   sql="select BigClassCN from SmallClass where SmallClassCN='"&ClassCN&"'"
	   workrs.open sql,conn,1,1
	   Class2=workrs("BigClassCN")
	   workrs.close
	   sql="select BigClassEN from BigClass where BigClassCN='"&Class2&"'"
       workrs.open sql,conn,1,1
       ClassEN2=workrs("BigClassEN")
       workrs.close
	   	   '获得一级分类中文名
	   sql="select FatherClass from BigClass where BigClassCN='"&Class2&"'"
	   workrs.open sql,conn,1,1
	   Class1=workrs("FatherClass")
	   workrs.close
	   '获得一级分类英文名BEGIN
	   sql="select BigClassEN from BigClass where BigClassCN='"&Class1&"'"
	   workrs.open sql,conn,1,1
	   ClassEN1=workrs("BigClassEN")
	   workrs.close
	   '获得一级分类英文名END
	   classString="?class1="&Class1&"&ClassEn1="&ClassEN1&"&Class2="&Class2&"&ClassEN2="&ClassEN2&"&Class3="&Class3&"&ClassEN3="&ClassEN3
 case 4
       Class4=ClassCN
       ClassEN4=ClassEN
	   sql="select FatherClass from SmallClass where SmallClassCN='"&ClassCN&"'"
	   workrs.open sql,conn,1,1
	   Class3=workrs("FatherClass")
	   workrs.close
	   sql="select SmallClassEN from SmallClass where SmallClassCN='"&Class3&"'"
       workrs.open sql,conn,1,1
       ClassEN3=workrs("SmallClassEN")
       workrs.close
	    '获得二级分类中文名
		sql="select BigClassCN from SmallClass where SmallClassCN='"&Class3&"'"
	   workrs.open sql,conn,1,1
	   Class2=workrs("BigClassCN")
	   workrs.close
	   sql="select BigClassEN from BigClass where BigClassCN='"&Class2&"'"
       workrs.open sql,conn,1,1
       ClassEN2=workrs("BigClassEN")
       workrs.close
		'获得二级分类中文名
		
	   	   '获得一级分类中文名
	   sql="select FatherClass from BigClass where BigClassCN='"&Class2&"'"
	   workrs.open sql,conn,1,1
	   Class1=workrs("FatherClass")
	   workrs.close
	   '获得一级分类英文名BEGIN
	   sql="select BigClassEN from BigClass where BigClassCN='"&Class1&"'"
	   workrs.open sql,conn,1,1
	   ClassEN1=workrs("BigClassEN")
	   workrs.close
	   '获得一级分类英文名END
	   classString="?class1="&Class1&"&ClassEn1="&ClassEN1&"&Class2="&Class2&"&ClassEN2="&ClassEN2&"&Class3="&Class3&"&ClassEN3="&ClassEN3&_
	               "&Class4="&Class4&"&ClassEN4="&ClassEN4
end select
set workrs=nothing
'-----获得所有上级分类--------
end function
%>
</body>
</html>
上一页 12
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -