info_list.asp

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

<!--#include file="../../../base/base.asp"-->
<%
sub List_info(byval classid,byval title, byval PageSize, byval Curpage)

DIM Obj
set Obj=createObject("DataCommon.Common")
info=Obj.GetArray("SP_NEWS_LIST",msg, classid)
if msg="ok" and isarray(info) then
TotleNum=ubound(info,2)+1
TotalPage=GetPagenum(PageSize,TotleNum)
response.write "<TABLE cellSpacing=0 cellPadding=0 width=95% border=1 align=center style='border-collapse: collapse' bordercolor=#cccccc>"
response.write "<tr bgcolor='#f8f8f8'align=center><td height=25 >标题</td><td width=220>子标题</td><td width=90>大类</td><td width=90>子类</td><td width=120>发布时间</td><td width=80>操作</td></tr>"
if TotalPage > 1 then
	IF CurPage < TotalPage THEN
			FOR I=(CurPage-1)* PageSize TO CurPage*PageSize-1
			response.write "<form method=post action=info_update.asp style='margin:0'><tr><td height=25 ><a href='../../information/info_detail.asp?id="& info(0,i) & "' target='_blank'>" & info(3,I) & "</a></td><td width=220>"& info(4,I) &"</td><td width=90 align=center>" & GetClassName(info(1,I)) & "</td><td width=90 align=center>" & GetSClassName(info(2,I)) & "</td><td width=120 align=center>" & info(10,I) & "</td><td width=80 align=center><input type=hidden name=id value='"& info(0,i) &"'><input type=hidden name=reto value='info_list.asp?classid="& classid & "^name="& title &"^page="& curpage &"'><input type=submit value=修改 class='btout' onMouseOut='bt_Out(this)' onMouseOver='bt_Over(this)'>&nbsp;&nbsp;<input type=button value=删除 class='btout' onMouseOver='bt_Over(this)' onMouseOut='bt_Out(this)' onclick='javascript:window.location.href=""info_delete.asp?id="&  info(0,i) &"&reto=info_list.asp?classid="& classid & "^name="& title &"^page="& curpage & """;'></td></tr></form>"
		NEXT
	ELSE
		FOR I=(CurPage-1)* PageSize TO TotleNum-1
			response.write "<form method=post action=info_update.asp style='margin:0'><tr><td height=25 ><a href='../../information/info_detail.asp?id="& info(0,i) & "' target='_blank'>" & info(3,I) & "</a></td><td width=220>"& info(4,I) &"</td><td width=90 align=center>" & GetClassName(info(1,I)) & "</td><td width=90 align=center>" & GetSClassName(info(2,I)) & "</td><td width=120 align=center>" & info(10,I) & "</td><td width=80 align=center><input type=hidden name=id value='"& info(0,i) &"'><input type=hidden name=reto value='info_list.asp?classid="& classid & "^name="& title &"^page="& curpage &"'><input type=submit value=修改 class='btout' onMouseOut='bt_Out(this)' onMouseOver='bt_Over(this)'>&nbsp;&nbsp;<input type=button value=删除 class='btout' onMouseOver='bt_Over(this)' onMouseOut='bt_Out(this)' onclick='javascript:window.location.href=""info_delete.asp?id="&  info(0,i) &"&reto=info_list.asp?classid="& classid & "^name="& title &"^page="& curpage & """;'></td></tr></form>"
		NEXT
	END IF
else
	FOR I=0 TO ubound(info,2)
			response.write "<form method=post action=info_update.asp style='margin:0'><tr><td height=25 ><a href='../../information/info_detail.asp?id="& info(0,i) & "' target='_blank'>" & info(3,I) & "</a></td><td width=220>"& info(4,I) &"</td><td width=90 align=center>" & GetClassName(info(1,I)) & "</td><td width=90 align=center>" & GetSClassName(info(2,I)) & "</td><td width=120 align=center>" & info(10,I) & "</td><td width=80 align=center><input type=hidden name=id value='"& info(0,i) &"'><input type=hidden name=reto value='info_list.asp?classid="& classid & "^name="& title &"^page="& curpage &"'><input type=submit value=修改 class='btout' onMouseOut='bt_Out(this)' onMouseOver='bt_Over(this)'>&nbsp;&nbsp;<input type=button value=删除 class='btout' onMouseOver='bt_Over(this)' onMouseOut='bt_Out(this)' onclick='javascript:window.location.href=""info_delete.asp?id="&  info(0,i) &"&reto=info_list.asp?classid="& classid & "^name="& title &"^page="& curpage & """;'></td></tr></form>"
	NEXT
end if
response.write "<tr><td colspan=6 height='30' align=right>" & ExportPageInfo(totalpage,curpage,TotleNum,PageSize,"info_list.asp?classid="& classid &"&name=" & title & "&") &"&nbsp;&nbsp;</td></tr>" 
response.write "</table>" 
else
call err_list("目前尚无该类信息！")
end if
end sub

function GetClassName(BYVAL ID)

DIM Obj
set Obj=createObject("DataCommon.Common")
info=Obj.GetSingleColums("SP_NEWS_CLASS_GETNAME",  ID ,msg)
if msg="ok"  and isarray(info)  then
GetClassName =INFO(1)
END IF
end function

function GetSClassName(BYVAL ID)

DIM Obj
set Obj=createObject("DataCommon.Common")
info=Obj.GetSingleColums("SP_NEWS_SCLASS_GETNAME",  ID ,msg)
if msg="ok"  and isarray(info)  then
GetSClassName =INFO(2)
END IF
end function
%>