xuanjuAsp/xafch315/bdcommx/theFunc.asp

		<META http-equiv=Content-Type content="text/html; charset=utf-8">
		<%'---------------------类别修改---------------- 
		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&"<select name='theclass'>"
		wtr=wtr&"<option value="&rssmall(3)&" selected='selected'>"&TheB&"</option>"
		do while not rs.eof
		wtr=wtr&"<option value="&rs(0)&">"&rs(1)&"</option>"
		rs.movenext
		loop
		rs.close
		set rs=nothing
		wtr=wtr&"</select>"
		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%>
		<select name="npdcla">
		<%do while not rsnpd.eof%>
		<option value="<%=rsnpd(0)%>|0" <%if rs(2)=rsnpd(0) then%>selected="selected"<%end if%>><%=rsnpd(1)%></option>
        <%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%>
		<option value="<%=rsnpd1(3)%>|<%=rsnpd1(0)%>"<%if rs(2)=rsnpd1(3) and rs(3)=rsnpd1(0) then%>selected="selected"<%end if%>>----<%=rsnpd1(1)%></option>
		<%rsnpd1.movenext
		loop
		end if
		rsnpd1.close
		set rsnpd1=nothing
		rsnpd.movenext
		loop
		end if
		rsnpd.close
		set rsnpd=nothing%>
		</select>
		<%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&"<select name=""npdclaY"">"
		wtr=wtr&"<option value=>请选择类别</option>"
		do while not rs.eof
        wtr=wtr&"<option value="&rs(0)&"|0>"&rs(1)&"</option>"
	    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&"<option value="&rs1(3)&"|"&rs1(0)&">----"&rs1(1)&"</option>"
		rs1.movenext
		loop
		end if
		rs1.close
		set rs1=nothing
		rs.movenext
		loop
		end if
		rs.close
		set rs=nothing
        wtr=wtr&"</select>"
		npdclassY=wtr
		End Function%>