📄 vocationclass.asp
字号:
session("TopMenu_DaoHang_VCID_List") = str_Session
'response.Write("原"&session("TopMenu_DaoHang_VCID_List"))
',1,2,3,4,' 与 ',3,'
if right(str_Session,len(str_Req_VCID)) <> str_Req_VCID then
if instr(str_Session,str_Req_VCID)>0 then
''截取
str_Session = mid(str_Session,1,instr(str_Session,str_Req_VCID) + len(str_Req_VCID) - 1)
session("TopMenu_DaoHang_VCID_List") = str_Session
'response.Write("减"&session("TopMenu_DaoHang_VCID_List"))
else
''添加
str_Session = str_Session & NoSqlHack(request.QueryString("VCID")) &","
session("TopMenu_DaoHang_VCID_List") = str_Session
'response.Write("加"&session("TopMenu_DaoHang_VCID_List"))
end if
end if
''**************
Sql_Session = str_Session
if left(Sql_Session,1)="," then Sql_Session = mid(Sql_Session,2,len(Sql_Session))
if right(Sql_Session,1)="," then Sql_Session = mid(Sql_Session,1,len(Sql_Session) - 1)
'response.Write(session("TopMenu_DaoHang_VCID_List"))
''**************
''顺序真实的组合
str_Session = ""
Arr_Tmp = split(Sql_Session,",")
for each Per_ID_Session in Arr_Tmp
This_Fun_Sql = "select VCID,vClassName from FS_ME_VocationClass where VCID = "&Per_ID_Session
Set VClass_Rs = User_Conn.execute(This_Fun_Sql)
if not VClass_Rs.eof then
Str_Tmp = Str_Tmp & "<a href=""VocationClass.asp?Act=View&VCID=" &VClass_Rs(0)&""">"&VClass_Rs(1)&"<a> >> "
str_Session = str_Session &VClass_Rs(0)& ","
end if
VClass_Rs.close
next
session("TopMenu_DaoHang_VCID_List") = "," & str_Session
if right(Str_Tmp,len(" >> "))=" >> " then Str_Tmp = mid(Str_Tmp,1,len(Str_Tmp) - len(" >> "))
TopMenu_DaoHang = Str_Tmp
'response.Write(session("TopMenu_DaoHang_VCID_List"))
End Function
Function Get_OneClassEname(ClassID,ClassName)
'得到栏目的英文名
If ClassID = "" Or ClassName = "" Then Exit Function
Dim Rs
Set Rs = User_Conn.ExeCute("Select vClassName_En From FS_ME_VocationClass Where VCID = " & ClassID & " And vClassName = '" & ClassName & "'")
If Rs.Eof Then
Get_OneClassEname = ""
Else
Get_OneClassEname = Rs(0)
End If
Rs.Close : Set Rs = NOthing
End Function
%>
<html xmlns="http://www.w3.org/1999/xhtml">
<HEAD>
<TITLE>FoosunCMS</TITLE>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_reloadPage(init) { //reloads the window if Nav4 resized
if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
-->
</script>
</HEAD>
<script language="JavaScript" src="../../FS_Inc/PublicJS.js" type="text/JavaScript"></script>
<%if request.QueryString("Act")="Edit" then%><script language="javascript" src="../../FS_Inc/class_liandong.js" type="text/javascript"></script><%end if%>
<link href="../images/skin/Css_<%=Session("Admin_Style_Num")%>/<%=Session("Admin_Style_Num")%>.css" rel="stylesheet" type="text/css">
<BODY LEFTMARGIN=0 TOPMARGIN=0 MARGINWIDTH=0 MARGINHEIGHT=0 scroll=yes oncontextmenu="return true;">
<%
'******************************************************************
select case request.QueryString("Act")
case "View",""
ViewClass
case "Add"
AddClass
case "Del"
DelClass
case "Edit"
EditClass
case "Save"
SaveClass
end select
'******************************************************************
Sub ViewClass()
Dim View_VCID,IsOk,VClass_Rs1
IsOk = false
View_VCID = NoSqlHack(request.QueryString("VCID"))
if View_VCID<>"" then if isnumeric(View_VCID) then if View_VCID>0 then IsOk = true
if IsOk=false then
str_Url_Add = "&VCID=0&VCText=无"
else
set VClass_Rs1 = User_Conn.execute( "select vClassName from FS_ME_VocationClass where VCID="&View_VCID )
if not VClass_Rs1.eof then
str_Url_Add = "&VCID="&View_VCID&"&VCText=" & VClass_Rs1(0)
else
str_Url_Add = "&VCID=0&VCText=无"
end if
VClass_Rs1.close
set VClass_Rs1=nothing
end if
%>
<table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
<form name="VCForm" id="VCForm" method="post" action="?Act=Del">
<tr class="hback">
<td class="xingmu" colspan="5">行业分类管理</td>
</tr>
<tr class="hback">
<td align="left" colspan="5">分类导航：<a href="VocationClass.asp" >管理首页</a>
>> <%=TopMenu_DaoHang()%></td>
</tr>
<tr class="hback">
<td align="left" class="xingmu">分类名称</td>
<td width="20%" align="center" class="xingmu">英文名称</td>
<td width="10%" align="center" class="xingmu">新增子栏目</td>
<td width="10%" align="center" class="xingmu">设置</td>
<td width="5%" align="center" class="xingmu"><input name="ischeck" type="checkbox" value="checkbox" onClick="selectAll(this.form)" /></td>
</tr>
<%
response.Write( Get_VClass(request.QueryString("VCID")) )
%>
</form>
</table>
<%End Sub
Sub AddClass()
if not MF_Check_Pop_TF("ME026") then Err_Show
dim View_Par_ID
if request.QueryString("VCID")<>"" then
View_Par_ID = request.QueryString("VCID")
else
View_Par_ID = request.QueryString("ParID")
end if
%>
<table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
<form name="VCForm" id="VCForm" method="post" action="?Act=Save">
<tr class="hback">
<td align="left" class="xingmu" colspan="5">分类导航：<a href="VocationClass.asp" >管理首页</a>
>> <%=TopMenu_DaoHang()%></td>
</tr>
<tr class="hback">
<td colspan="2" align="left" class="xingmu" >新增行业信息 行业分类最多四级</td>
</tr>
<tr class="hback">
<td width="171" align="right">上一级行业名称</td>
<td width="803">
<input name="VCText" id="VCText" readonly type="text" size="50" value="<%=request.QueryString("VCText")%>"/>
<input type="hidden" name="ParID" id="ParID" value="<%=View_Par_ID%>"/>
</td>
</tr>
<tr class="hback">
<td align="right">新的行业名称：</td>
<td width="803"><input name="vClassName" type="text" id="vClassName" size="50" onBlur="if(this.value==''){Chk_vCName.innerText='该项必须填写';this.focus();} else if(Chk_vCName.innerText!='')Chk_vCName.innerText=''"><span id="Chk_vCName" class="tx"></span>
</td>
</tr>
<tr class="hback">
<td align="right">对应英文名：</td>
<td width="803"><input name="vClassName_En" type="text" id="vClassName_En" size="50" onKeyUp="value=value.replace(/[^a-zA-Z0-9_-]/g,'') " onbeforepaste="clipboardData.setData('text',clipboardData.getData('text').replace(/[^a-zA-Z0-9_-]/g,''))">
</td>
</tr>
<tr class="hback">
<td colspan="4">
<table border="0" width="100%" cellpadding="0" cellspacing="0">
<tr>
<td align="center">
<input type="submit" <%call Say_Limit_Class("AddMode")%> name="SaveClass" id="SaveClass" value=" 保存 " onClick="if(vClassName.value==''){alert('必要的参数必须填写');vClassName.focus();return false}" />
<input type="reset" name="ReSet" id="ReSet" value=" 重置 " />
</td>
<td width="50" align="right">
<a href="VocationClass.asp?Act=View&VCID=<%=Get_PatID_TO_View(View_Par_ID)%>">返回父级</a>
</td>
<td width="50" align="right">
<a href="#" onClick="javascript:history.back();">返回</a>
</td>
</tr>
</table>
</td>
</tr>
</form>
</table>
<%End Sub
Sub EditClass()
if not MF_Check_Pop_TF("ME026") then Err_Show
%>
<table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
<form name="VCForm" id="VCForm" method="post" action="?Act=Save">
<tr class="hback">
<td align="left" class="xingmu" colspan="5">分类导航：<a href="VocationClass.asp" >管理首页</a> >> <%=TopMenu_DaoHang()%></td>
</tr>
<tr class="hback">
<td colspan="2" align="left" class="xingmu" >修改行业信息 行业分类最多四级</td>
</tr>
<tr class="hback">
<td width="168" align="right">变更上级类别<br><span class="tx">若不变更请重置</span></td>
<td width="806">
<!---联动菜单开始--->
<SELECT NAME="vclass1" ID="vclass1" onBlur="javascript:RemoveChildopt(this,'vclass2,vclass3,vclass4');" style="width:100px">
<OPTION></OPTION>
</SELECT>
<SELECT NAME="vclass2" ID="vclass2" onBlur="javascript:RemoveChildopt(this,'vclass3,vclass4');" style="width:100px">
<OPTION></OPTION>
</SELECT>
<SELECT NAME="vclass3" ID="vclass3" onBlur="javascript:RemoveChildopt(this,'vclass4');" style="width:100px">
<OPTION></OPTION>
</SELECT>
<SELECT NAME="vclass4" ID="vclass4" style="width:100px">
<OPTION></OPTION>
</SELECT>
<!---联动菜单结束--->
</td>
</tr>
<tr class="hback">
<td align="right">行业名称</td>
<td width="806">
<input name="vClassName" id="vClassName" type="text" size="50" value="<%=request.QueryString("VCText")%>" onBlur="if(this.value==''){Chk_vCName.innerText='该项必须填写';this.focus()} else if(Chk_vCName.innerText!='')Chk_vCName.innerText=''"><span id="Chk_vCName" class="tx"></span>
<input type="hidden" name="VCID" id="VCID" value="<%=request.QueryString("VCID")%>">
<!--<input type="text" name="ParentID" id="ParentID" value="">-->
</td>
</tr>
<tr class="hback">
<td align="right">对应英文名：</td>
<td width="806"><input name="vClassName_En" type="text" id="vClassName_En" size="50" onKeyUp="value=value.replace(/[^a-zA-Z0-9_-]/g,'') " onbeforepaste="clipboardData.setData('text',clipboardData.getData('text').replace(/[^a-zA-Z0-9_-]/g,''))" value="<% = Get_OneClassEname(request.QueryString("VCID"),request.QueryString("VCText")) %>">
</td>
</tr>
<tr class="hback">
<td colspan="4">
<table border="0" width="100%" cellpadding="0" cellspacing="0">
<tr>
<td align="center">
<input type="submit" <%call Say_Limit_Class("AddMode")%> name="SaveClass" id="SaveClass" value=" 保存 " onClick="if(vClassName.value==''){vClassName.focus();return false}" />
<input type="reset" name="ReSet" id="ReSet" value=" 重置 " />
</td>
<td width="50" align="right">
<a href="VocationClass.asp?Act=View&VCID=<%=Get_PatID_TO_View(request.QueryString("VCID"))%>">返回父级</a>
</td>
<td width="50" align="right">
<a href="#" onClick="javascript:history.back();">返回</a>
</td>
</tr>
</table>
</td>
</tr>
</form>
</table>
<%End Sub%>
</body>
<%if request.QueryString("Act")="Edit" then%>
<script language="javascript">
<!--
//awen created
//联动菜单---行业类别 最多4级 --start
//数据格式 ID，父级ID，名称
var array=new Array();
<%dim sql,rs,i
sql="select VCID,ParentID,vClassName from FS_ME_VocationClass where VCID<>"&request.QueryString("VCID")
set rs=User_Conn.execute(sql)
i=0
do while not rs.eof
%>
array[<%=i%>]=new Array("<%=rs("VCID")%>","<%=rs("ParentID")%>","<%=rs("vClassName")%>");
<%
rs.movenext
i=i+1
loop
rs.close
%>
var liandong=new CLASS_LIANDONG_YAO(array)
liandong.firstSelectChange("0","vclass1");
liandong.subSelectChange("vclass1","vclass2");
liandong.subSelectChange("vclass2","vclass3");
liandong.subSelectChange("vclass3","vclass4");
//---------------------------清除关联下拉框的内容
function RemoveChildopt(obj,StrList)
{
/*
if (StrList=='')
if (document.getElementById('ParentID')!=null)
{
if (obj.value!='')
{document.getElementById('ParentID').value=obj.value;return;}
else
{document.getElementById('ParentID').value=document.getElementById('vclass3').value;return;}
}
*/
var TmpArr = StrList.split(',');
if(obj.selectedIndex<2)
{
for (var i=TmpArr.length-1 ; i>=0; i--)
{
//alert(TmpArr[i]);
if (TmpArr[i]!='')
//清除下拉内容
for (var j=document.getElementById(TmpArr[i]).options.length-1 ; j>=0 ; j--)
document.getElementById(TmpArr[i]).options.remove(j);
}
}
/* else
//选择实际项目将值副给隐藏域，以便修改的时候存盘。
{
var Tmpstr = '';
for (var i=TmpArr.length-1 ; i>=0; i--)
{
if (TmpArr[i]!='')
{ if (document.getElementById(TmpArr[i]).selectedIndex>1)
Tmpstr += document.getElementById(TmpArr[i]).options[document.getElementById(TmpArr[i]).selectedIndex].value;
}
}
//alert(document.VCForm.ParentID.value);
if (Tmpstr=='')
{
//副给隐藏域
if (document.getElementById('ParentID')!=null) document.all.ParentID.value=obj.value;
}
}
*/
}
//end
-->
</script>
<%end if%>
<%
Set VClass_Rs=nothing
User_Conn.close
Set User_Conn=nothing
%>
</html>
<!-- Powered by: FoosunCMS4.0系列,Company:Foosun Inc. -->
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -