prod_listflag.asp

网上购物系统

<!--#include file=Conn.asp -->
<!--#include file=include/MyRequest.asp -->
<!--#include file="Sub.asp"-->
<!--#include file=include/Pages.asp-->
<%
flag=Request("flag")
select case flag
    case 1
        main_title="新品速递"
    case 2
        main_title="精品推荐" 
    case 3
        main_title="特价商品" 
end select

'	参数设置表中相关参数调出
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select root_option_NumsPerRow,root_option_WidthSPic,root_option_HeighSPic,root_option_RowsPerPage from root_option where id=1"
rs.open sql,conn,1,1
root_option_NumsPerRow   =rs(0)
root_option_WidthSPic    =rs(1)
root_option_HeighSPic    =rs(2)
root_option_RowsPerPage  =rs(3)
rs.close
set rs=nothing

if root_option_WidthSPic="" then root_option_WidthSPic=80
if root_option_HeighSPic="" then root_option_HeighSPic=80

NumsPerPage=root_option_NumsPerRow*root_option_RowsPerPage
if NumsPerPage="" then NumsPerPage=20
if NumsPerPage="0" then NumsPerPage=20
if root_option_NumsPerRow="" then root_option_NumsPerRow=5

Call Header(main_title,main_title)
call prod_ListFlag(flag,root_option_NumsPerRow,NumsPerPage)
Footer
%>