class_list.asp.bak

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

<%
sub class_list()

DIM Obj
dim info
set Obj=createObject("DataCommon.Common")
info=Obj.GetArray("SP_NEWS_CLASS_LIST",msg)
if msg="ok" and isarray(info) then
	type_list = "<select name=typeid onchange='document.frm.submit();'><option value='-1'>请先选择大类</option>"
	for i=0 to ubound(info,2)
		if cint(info(0,i))=cint(request("typeid")) then
		type_list = type_list & "<option value="& info(0,i) &" selected>" & info(1,i) & "</option>"
		else
		type_list = type_list & "<option value="& info(0,i) &" >" & info(1,i) & "</option>"
		end if
	next
		type_list = type_list & "</select>"
end if
response.write "<form method=post name=frm action=class_list.asp style='margin:0'>"
response.write "<TABLE cellSpacing=0 cellPadding=0 width=300 border=0 align=center><tr><td width=300 align=center>信息大类:" & type_list
response.write "</td></tr></table></form><br>"

if cint(request("typeid"))>0 then
response.write "<form method=post action=class_add.asp style='margin:0'>"
response.write "<TABLE cellSpacing=0 cellPadding=0 width=300 border=0 align=center><tr><td>子类名称:<input type=hidden name=tpid value=" & request("typeid") & ">"
response.write "<input class=button name=areaname size=20 maxLength=20>&nbsp;&nbsp;&nbsp;&nbsp;<input type=submit value=增&nbsp;加 style='FONT-SIZE: 9pt;  HEIGHT: 20px; BORDER-RIGHT: #999999 1px solid; BORDER-TOP: #999999 1px solid; BORDER-LEFT: #999999 1px solid; BORDER-BOTTOM: #999999 1px solid; BACKGROUND-COLOR: #ffffff'>"
response.write "</td></tr></table></form><br>"

info=Obj.GetArray("SP_NEWS_SCLASS_LIST",msg, request("typeid"))
if msg="ok" and isarray(info) then
response.write "<TABLE cellSpacing=0 cellPadding=0 width=450 border=1 align=center style='border-collapse: collapse' bordercolor=#cccccc>"
response.write "<tr bgcolor='#f8f8f8'><td width=300 height=25 align=center ><font color='#000000' >信息子类名称</font></td><td width=150 align=center><font color='#000000'>操&nbsp;&nbsp;作</font></td></tr>" 
for i=0 to ubound(info,2)
response.write "<form method=post action=class_update.asp style='margin:0'><tr><td width=300 height=25 align=center ><input type=text class=button name=area value='"& info(2,i) &"'><input type=hidden name=tpid value=" & request("typeid") & "><input type=hidden class=button name=id value='"& info(0,i) &"'></td><td width=150 align=center><input type=submit value=修&nbsp;改 class='btout' onMouseOut='bt_Out(this)' onMouseOver='bt_Over(this)'>&nbsp;&nbsp;&nbsp;&nbsp;<input type=button value=删&nbsp;除 class='btout' onMouseOver='bt_Over(this)' onMouseOut='bt_Out(this)' onclick='javascript:window.location.href=""class_delete.asp?id="&  info(0,i) &"&tpid="& request("typeid") & """;'></td></tr></form>" 
next
response.write "</table><br>"
end if
end if
end sub
%>