<%'---------------------类别修改---------------- function Clachg(kao) dim wtr set rs=server.CreateObject("ADODB.RECORDSET") if kao=0 then SQL="Select * from nbclass order by nb_id asc" end if if kao=1 then SQL="Select * from cbclass order by cb_id asc" end if if kao=2 then SQL="Select * from dbclass order by db_id asc" end if rs.open SQL,conn,1,3 if not(rs.eof and rs.bof) then wtr=wtr&"" wtr=wtr&""&TheB&"" do while not rs.eof wtr=wtr&""&rs(1)&"" rs.movenext loop rs.close set rs=nothing wtr=wtr&"" end if Clachg=wtr end function%> <%'信息修改类别 Sub npdclassm(Cla) dim wtr set rsnpd=server.CreateObject("ADODB.RECORDSET") if Cla=0 then SQL="Select * from nbclass order by nb_id asc" end if if Cla=1 then SQL="Select * from cbclass order by cb_id asc" end if if Cla=2 then SQL="Select * from dbclass order by db_id asc" end if rsnpd.open SQL,conn,1,3 if rsnpd.eof then response.write"尚无分类！" else%> <%do while not rsnpd.eof%> selected="selected"<%end if%>><%=rsnpd(1)%> <%set rsnpd1=server.CreateObject("ADODB.RECORDSET") if Cla=0 then SQL="Select * from nsclass where nb_id="&rsnpd("nb_id")&" order by ns_id asc" end if if Cla=1 then SQL="Select * from csclass where cb_id="&rsnpd("cb_id")&" order by cs_id asc" end if if Cla=2 then SQL="Select * from dsclass where db_id="&rsnpd("db_id")&" order by ds_id asc" end if rsnpd1.open SQL,conn,1,3 if rsnpd1.eof then else do while not rsnpd1.eof%> selected="selected"<%end if%>>----<%=rsnpd1(1)%> <%rsnpd1.movenext loop end if rsnpd1.close set rsnpd1=nothing rsnpd.movenext loop end if rsnpd.close set rsnpd=nothing%> <%End Sub%> <%'信息一动 Function npdclassY(Cla) dim wtr set rs=server.CreateObject("ADODB.RECORDSET") if Cla=0 then SQL="Select * from nbclass order by nb_id asc" end if if Cla=1 then SQL="Select * from cbclass order by cb_id asc" end if if Cla=2 then SQL="Select * from dbclass order by db_id asc" end if rs.open SQL,conn,1,3 if rs.eof then wtr=wtr&"尚无分类！" else wtr=wtr&"" wtr=wtr&"请选择类别" do while not rs.eof wtr=wtr&""&rs(1)&"" set rs1=server.CreateObject("ADODB.RECORDSET") if Cla=0 then SQL="Select * from nsclass where nb_id="&rs("nb_id")&" order by ns_id asc" end if if Cla=1 then SQL="Select * from csclass where cb_id="&rs("cb_id")&" order by cs_id asc" end if if Cla=2 then SQL="Select * from dsclass where db_id="&rs("db_id")&" order by ds_id asc" end if rs1.open SQL,conn,1,3 if rs1.eof then else do while not rs1.eof wtr=wtr&"----"&rs1(1)&"" rs1.movenext loop end if rs1.close set rs1=nothing rs.movenext loop end if rs.close set rs=nothing wtr=wtr&"" npdclassY=wtr End Function%>