inc.asp.bak

物流管理系统,可以用于中小企业,建立自己的内部物流管理.

<%
'//以Select列出大类
Sub ListSelectClassID(ID)
DIM Obj
dim msg
set Obj=createObject("DataCommon.Common")
info=Obj.GetArray("SP_NEWS_CLASS_LIST",msg)
if msg="ok" and isarray(info) then
Response.Write("<select name=ClassID size=1 onChange=""changelocation(document.myform.ClassID.options[document.myform.ClassID.selectedIndex].value)"" >")
Response.Write("<option value=0>选择大类</option>")
for i=0 to ubound(info,2)
        If (ID <> 0) and (info(0,I) = ID) Then
			   FLAG = "Selected"
		 End If
         Response.Write("<option value=" & info(0,I) & " " & Msg & ">" & info(1,I) & "</option>")
		 FLAG = ""
NEXT
   Response.Write("</select>")
END IF
End Sub

'//以Select列出行业小类
Sub ListSelectNClassID()
DIM Obj
dim msg
set Obj=createObject("DataCommon.Common")
info=Obj.GetArray("SP_NEWS_SCLASS_LIST",msg)
if msg="ok" and isarray(info) then
M = 1
for i=0 to ubound(info,2)
    Response.Write("subcat[" & Cstr(M) & "] = new Array(""" & info(2,I) &  """,""" & info(1,I) & """,""" & info(0,I) & """);")
	M = M + 1
NEXT
   Response.Write("onecount=" & M & ";")
END IF
End Sub
%>