<% dim cls if session("admin")="" then Response.Redirect("index.asp?err=4") else if session("flag")<>"0" then cls = Instr(session("flag"), "case") if cls <= 0 then %> <% end if end if end if %>

当前位置: 网站管理中心--批量复制 列表管理 | 类别管理 <% if v<>1 then %> | 批量复制<% end if %> 批量增加，可以把已添加的<%= lang_1 %>内容，全部拷贝到<%= lang_2 %>版中。<%= lang_1 %>复制到<%= lang_2 %> <% if Request("action")="copy" then %> 程序执行?.. 产品目录正在拷贝处理?请耐心等待... <% dim rs,gbcode,LarCode,MidCode,gbseq,larseq,midseq,str gbcode= "" LarCode = "" MidCode = "" gbseq= "" larseq= "" midseq= "" set rs = conn.execute("select * from casemain where gb='ch' and ProdId is not null") Do while not rs.eof 'response.Write request("rsl_"&rs("gbseq")) 'response.Write request("rs_"&rs("gbseq")) 'response.End() oldcate = request("rsl_"&rs("gbseq")) newcate = request("rs_"&rs("gbseq")) '---------------------查找获得的中文版id号的类别上下关系----------------------------------' '-------------------------------第一页&---------------------------------------------------' if newcate<>"" then sqllar="select * from CClass where gb='en' and id="& newcate &" order by Orders asc" Set rsclass=Server.CreateObject("ADODB.RecordSet") rsclass.Open sqllar,conn,1,1 if rsclass.bof and rsclass.eof then response.Write("数据类别有修改，请刷新页面或重新登录一次!") response.End() else if rsclass("parentid")=0 then gbseq=rsclass("id") gbcode=rsclass("ClassName") larseq=rsclass("id") larcode=rsclass("classname") midseq=rsclass("id") midcode=rsclass("classname") else gbseq=rsclass("id") gbcode=rsclass("ClassName") '----------------------------------第二?------------------------------------------- sqllar="select * from CClass where gb='en' and id="& rsclass("parentid") &" order by Orders asc" Set rsclass1=Server.CreateObject("ADODB.RecordSet") rsclass1.Open sqllar,conn,1,1 if rsclass1.bof and rsclass1.eof then response.Write("数据类别有修改，请刷新页面或重新登录一次!") response.End() else if rsclass1("parentid")=0 then larseq=rsclass1("id") larcode=rsclass1("classname") midseq=rsclass1("id") midcode=rsclass1("classname") else midseq=rsclass1("id") midcode=rsclass1("classname") '--------------------------------------第三?----------------------------------- sqllar="select * from CClass where gb='en' and id="& rsclass1("parentid") &" order by Orders asc" Set rsclass2=Server.CreateObject("ADODB.RecordSet") rsclass2.Open sqllar,conn,1,1 if rsclass2.bof and rsclass2.eof then response.Write("数据类别有修改，请刷新页面或重新登录一次!") response.End() else larseq=rsclass2("id") larcode=rsclass2("classname") end if rsclass2.close set rsclass2=nothing '---------------------------------------第三层结?-------------------------------- end if end if rsclass1.close set rsclass1 = nothing '---------------------------------第二层结?----------------------------------- end if end if rsclass.close set rsclass = nothing end if '---------------------------------第一层结?---------------------------------- 'response.Write oldcate 'response.Write gbseq 'response.Write gbcode 'response.Write larseq 'response.Write larcode 'response.Write midseq 'response.Write midcode 'response.End() 'LarCode = request("L"&cstr(rs("Larcode"))) 'MidCode = request("M"&cstr(rs("Midcode"))) if (oldcate<>"" and newcate<> "") then str = "insert into casemain (GB,ProdId,ProdName,Model,PriceList,PriceOrigin,ImgPrev,"&_ "ImgPrevWidth,ImgPrevHeight,ImgFull,ImgFullWidth,ImgFullHeight,FileOther,ProdDisc,MemoSpec,"&_ "gbCode,gbseq,LarCode,Larseq,MidCode,Midseq,ProduceArea,ProdLong,ProdWidth,ProdHeight,SearchType,"&_ "Online,AddDate,ClickTimes,Remark,RemarkA,Quantity,Other1,id,xuhao) values"&_ "('en','"&rs("ProdId")&"','"&rs("ProdName")&"','"&rs("Model")&"','"&rs("PriceList")&"','"&rs("PriceOrigin")&"',"&_ "'"&rs("ImgPrev")&"','"&rs("ImgPrevWidth")&"','"&rs("ImgPrevHeight")&"','"&rs("ImgFull")&"','"&rs("ImgFullWidth")&"',"&_ "'"&rs("ImgFullHeight")&"','"&rs("FileOther")&"','"&rs("ProdDisc")&"','"&Replace(rs("MemoSpec"),"'","")&"','"&gbCode&"',"&_ "'"&gbseq&"','"&LarCode&"','"&larseq&"','"&midCode&"','"&midseq&"','"&rs("ProduceArea")&"',"&_ "'"&rs("ProdLong")&"','"&rs("ProdWidth")&"','"&rs("ProdHeight")&"',' ',"&rs("Online")&","&_ ""&rs("AddDate")&","&rs("ClickTimes")&",'"&rs("Remark")&"','"&rs("RemarkA")&"','"&rs("Quantity")&"',"&_ "'"&rs("Other1")&"','"&rs("id")&"','"&rs("xuhao")&"')" conn.execute(str) end if rs.movenext loop rs.close response.write("") response.end end if %> <% sqllar="select * from CClass where gb='ch' and ParentID=0 order by Orders asc" Set rs=Server.CreateObject("ADODB.RecordSet") rs.Open sqllar,conn,1,1 if rs.bof and rs.eof then response.write "Sorry! no product now!" else id=1 Do While Not rs.eof Lar=id %> <%if not rsmid.eof then%> <% if request("ParentID")<>"" then Larcode=conn.execute("select parentid from cclass where ID="&request("ParentID"))(0) if request("ID")<>"" then midcode=conn.execute("select parentid from cclass where ID="&request("ID"))(0) %> <%end if%> <% rs.movenext id=id+1 if rs.eof then exit do end if Loop rs.close end if '-----------------1---------------- set rs=nothing %> ').style){display=display=='none'?'':'none';this.style.backgroundImage=display!='none'?'url(<%=imagesurl%>e.gif)':'url(<%=imagesurl%>c.gif)'}"> <% sql="select * from cclass where ParentID="&rs("ID")&" order by orders asc" Set rsmid=Server.CreateObject("ADODB.RecordSet") rsmid.Open sql,conn,1,1 %>   <%=replace(cstr(rs("id")),"@","&")%> <%=replace(cstr(rs("classname")),"@","&")%>    " value="<%=rs("id")%>"> "> 请选择类别 <% '----------------------------第一层开?------------------------------- sqlsearch="select gb,id,classname,parentid from CClass where gb='en' and parentid=0 order by id asc" set rssearch=Server.Createobject("ADODB.RecordSet") rssearch.Open sqlsearch,conn,1,1 if rssearch.bof and rssearch.eof then response.Write("暂时没有分类") else do while not rssearch.eof %> "><%=rssearch("classname")%> <%'----------------------------第二层开? sql1="select gb,id,classname,parentid from CClass where gb='en' and parentid="&rssearch("ID")&" order by id asc" set rs1=Server.Createobject("ADODB.RecordSet") rs1.Open sql1,conn,1,1 if not (rs1.bof and rs1.eof) then do while not rs1.eof %> "> +<%=rs1("classname")%> <%'--------------------------------第三层开?-------------------------------- sql2="select gb,id,classname,parentid from CClass where gb='en' and parentid="&rs1("ID")&" order by id asc" set rs2=Server.Createobject("ADODB.RecordSet") rs2.Open sql2,conn,1,1 if not (rs2.bof and rs2.eof) then do while not rs2.eof %> ">----<%=rs2("classname")%> <% rs2.movenext loop end if rs2.close set rs2=nothing '-------------------------------第三层结?------------------------------ %> <% rs1.movenext loop end if rs1.close set rs1=nothing '--------------------------------第二层结?--------------------------- %> <% rssearch.movenext loop end if rssearch.close set rssearch= nothing '------------------------第一层结?------------------------------ %> " style='<%if rs("ID")=Larcode or rs("id")=midcode then%> display: <%else%> display:<%end if%>'> <% Do While Not rsmid.eof sql="select * from cclass where ParentID="&rsmid("ID")&" order by orders asc" Set rstemp=Server.CreateObject("ADODB.RecordSet") rstemp.Open sql,conn,1,1 if rstemp.bof then %> <%else%> <%Do While Not rstemp.eof%> <% rstemp.movenext if rstemp.eof then exit do end if Loop rstemp.close %> <%end if%> <% rsmid.movenext if rsmid.eof then exit do end if Loop rsmid.close %> ·<%=replace(cstr(rsmid("id")),"@","&")%> <%=replace(cstr(rsmid("classname")),"@","&")%>    " value="<%=rsmid("id")%>"> "> 请选择类别 <% '----------------------------第一层开?------------------------------- sqlsearch="select gb,id,classname,parentid from CClass where gb='en' and parentid=0 order by id asc" set rssearch=Server.Createobject("ADODB.RecordSet") rssearch.Open sqlsearch,conn,1,1 if rssearch.bof and rssearch.eof then response.Write("暂时没有分类") else do while not rssearch.eof %> "><%=rssearch("classname")%> <%'----------------------------第二层开? sql1="select gb,id,classname,parentid from CClass where gb='en' and parentid="&rssearch("ID")&" order by id asc" set rs1=Server.Createobject("ADODB.RecordSet") rs1.Open sql1,conn,1,1 if not (rs1.bof and rs1.eof) then do while not rs1.eof %> "> +<%=rs1("classname")%> <%'--------------------------------第三层开?-------------------------------- sql2="select gb,id,classname,parentid from CClass where gb='en' and parentid="&rs1("ID")&" order by id asc" set rs2=Server.Createobject("ADODB.RecordSet") rs2.Open sql2,conn,1,1 if not (rs2.bof and rs2.eof) then do while not rs2.eof %> ">----<%=rs2("classname")%> <% rs2.movenext loop end if rs2.close set rs2=nothing '-------------------------------第三层结?------------------------------ %> <% rs1.movenext loop end if rs1.close set rs1=nothing '--------------------------------第二层结?--------------------------- %> <% rssearch.movenext loop end if rssearch.close set rssearch= nothing '------------------------第一层结?------------------------------ %> ·<%=replace(cstr(rsmid("id")),"@","&")%> <%=replace(cstr(rsmid("classname")),"@","&")%>    " value="<%=rsmid("id")%>"> "> 请选择类别 <% '----------------------------第一层开?------------------------------- sqlsearch="select gb,id,classname,parentid from CClass where gb='en' and parentid=0 order by id asc" set rssearch=Server.Createobject("ADODB.RecordSet") rssearch.Open sqlsearch,conn,1,1 if rssearch.bof and rssearch.eof then response.Write("暂时没有分类") else do while not rssearch.eof %> "><%=rssearch("classname")%> <%'----------------------------第二层开? sql1="select gb,id,classname,parentid from CClass where gb='en' and parentid="&rssearch("ID")&" order by id asc" set rs1=Server.Createobject("ADODB.RecordSet") rs1.Open sql1,conn,1,1 if not (rs1.bof and rs1.eof) then do while not rs1.eof %> "> +<%=rs1("classname")%> <%'--------------------------------第三层开?-------------------------------- sql2="select gb,id,classname,parentid from CClass where gb='en' and parentid="&rs1("ID")&" order by id asc" set rs2=Server.Createobject("ADODB.RecordSet") rs2.Open sql2,conn,1,1 if not (rs2.bof and rs2.eof) then do while not rs2.eof %> ">----<%=rs2("classname")%> <% rs2.movenext loop end if rs2.close set rs2=nothing '-------------------------------第三层结?------------------------------ %> <% rs1.movenext loop end if rs1.close set rs1=nothing '--------------------------------第二层结?--------------------------- %> <% rssearch.movenext loop end if rssearch.close set rssearch= nothing '------------------------第一层结?------------------------------ %>     ·<%=replace(cstr(rstemp("id")),"@","&")%> <%=replace(cstr(rstemp("classname")),"@","&")%>    " value="<%=rstemp("id")%>"> "> 请选择类别 <% '----------------------------第一层开?------------------------------- sqlsearch="select gb,id,classname,parentid from CClass where gb='en' and parentid=0 order by id asc" set rssearch=Server.Createobject("ADODB.RecordSet") rssearch.Open sqlsearch,conn,1,1 if rssearch.bof and rssearch.eof then response.Write("暂时没有分类") else do while not rssearch.eof %> "><%=rssearch("classname")%> <%'----------------------------第二层开? sql1="select gb,id,classname,parentid from CClass where gb='en' and parentid="&rssearch("ID")&" order by id asc" set rs1=Server.Createobject("ADODB.RecordSet") rs1.Open sql1,conn,1,1 if not (rs1.bof and rs1.eof) then do while not rs1.eof %> "> +<%=rs1("classname")%> <%'--------------------------------第三层开?-------------------------------- sql2="select gb,id,classname,parentid from CClass where gb='en' and parentid="&rs1("ID")&" order by id asc" set rs2=Server.Createobject("ADODB.RecordSet") rs2.Open sql2,conn,1,1 if not (rs2.bof and rs2.eof) then do while not rs2.eof %> ">----<%=rs2("classname")%> <% rs2.movenext loop end if rs2.close set rs2=nothing '-------------------------------第三层结?------------------------------ %> <% rs1.movenext loop end if rs1.close set rs1=nothing '--------------------------------第二层结?--------------------------- %> <% rssearch.movenext loop end if rssearch.close set rssearch= nothing '------------------------第一层结?------------------------------ %> 　请选择对应的分类，类对类进行对拷；