<% if request.QueryString("Act") = "Up_Msg" then yourname = request.Form("yourname") if yourname = "" then response.Write("不正当的操作!") response.End() end if youremail = request.Form("youremail") yourarea = request.Form("yourarea") yourtelephone= request.Form("yourtelephone") yourcontent = request.Form("yourcontent") parent_id = request.Form("parent_id") class_id = request.Form("class_id") nowtime = Now() sql = "select * from Message" set rs= server.CreateObject("adodb.recordset") rs.open sql,Conn,1,3 rs.addnew rs("Name") = yourname rs("Email") = youremail rs("Area") = yourarea rs("Telephone") = yourtelephone rs("Content") = yourcontent rs("Parent_id") = int(parent_id) rs("Class_id") = int(class_id) rs("Time") = nowtime rs.update rs.close sql = "" response.Write("") response.End() end if parent_id = request.QueryString("Parent_id") if parent_id = "" then parent_id = 0 else if parent_id <> 0 and parent_id <> 1 and parent_id <> 2 and parent_id <> 3 and parent_id <> 4 and parent_id <> 5 then parent_id = 0 end if end if class_id = request.QueryString("Class_id") set Ts = server.CreateObject("adodb.recordset") Ts.open "select * from Class where Class_id = "&parent_id&" order by Time desc",conn,1,3 if Ts.eof then response.Write("
请添加子栏目
") response.End() else default_class_id = Ts("Id") default_class_name = Ts("Name") default_type_id = Ts("Type_id") end if Ts.close if class_id = "" then class_id = default_class_id product_default = 1 '如果有这个那么,就是所有产品 end if set Ts = server.CreateObject("adodb.recordset") Ts.open "select * from Class where Class_id = "&parent_id&" and Id="&class_id&" order by Time desc",conn,1,3 if Ts.eof then class_id = default_class_id class_name = default_class_name type_id = default_type_id else class_name = Ts("Name") type_id = Ts("Type_id") end if Ts.close is_info = 0 id = request.QueryString("Id") IF id <> "" THEN set Ts = server.CreateObject("adodb.recordset") Ts.open "select * from News where Parent_id = "&parent_id&" and Class_id="&class_id&" and Id="&id&" order by Time desc",conn,1,3 if Ts.eof then is_info = 0 else is_info = 1 end if Ts.close END IF %>
<% set Ts = server.CreateObject("adodb.recordset") Ts.open "select * from Class where Class_id = "&parent_id&" order by Time desc",conn,1,3 if not Ts.eof then if Ts.recordcount > 1 then while not Ts.eof %> <% if int(class_id) = Ts("Id") then %> <% if Ts("Type_id") = 5 then%> <% set Ps = server.CreateObject("adodb.recordset") Ps.open "select * from Product_class order by Time desc",conn,1,3 while not Ps.eof %> <% set Cs = server.CreateObject("adodb.recordset") Cs.open "select * from News where Product_class_id="&Ps("Id")&" order by Time desc",conn,1,3 while not Cs.eof %> <% Cs.movenext wend Cs.close %> <% Ps.movenext wend Ps.close %> <% end if %> <% else%> <% end if%> <% Ts.movenext wend end if end if Ts.close %>
<% response.Write(Ts("Name"))%>
<% response.Write(Ps("Name"))%>
&Id=<%response.Write(Cs("Id"))%>" class="let_menuD"> · <% response.Write(Cs("Title"))%>
" class="let_menuA"><% response.Write(Ts("Name"))%>
中国区销售联络
电话: 86-021-51086811
邮箱: info@bekencorp.com

<% if parent_id = 2 and id > 0 then set Ps = server.CreateObject("adodb.recordset") Ps.open "select * from News where Parent_id=2 and Class_id="&class_id&" and Id="&id&" order by Time desc",conn,1,3 if not Ps.eof then if Ps("Product_class_id") > 0 then set Os = server.CreateObject("adodb.recordset") Os.open "select * from Product_class where id="&Ps("Product_class_id")&" order by Time desc",conn,1,3 if not Os.eof then Product_class_name = Os("Name") end if end if end if Ps.close end if %>
<% if Product_class_name <> "" then response.Write(Product_class_name) else response.Write(class_name) end if %> 您现在的位置:首页 > <% response.Write(Config_array(parent_id))%><% if Config_array(parent_id) <> class_name then%> > <% response.Write(class_name)%><% end if %><%if Product_class_name <> "" then %> ><% response.Write(Product_class_name)%> <% end if%>
<% 'if ((parent_id =2 and product_default = 1) or type_id = 8 or type_id = 5) then%> <% if ((parent_id =2 and product_default = 1) or type_id = 8 or (type_id = 5 and id = "")) then%> <% else%> <% if is_info = 0 then %> <% if type_id = 0 then%> <% elseif type_id = 1 then%> <% elseif type_id = 2 then%> <% elseif type_id = 3 then%> <% elseif type_id = 4 then%> <% elseif type_id = 6 then%> <% end if %> <% else %> <% end if %> <% end if %>