?? product_listcategory.asp
字號(hào):
<%
dim dbpath
dbpath=""
%>
<!--#include file=Conn.asp -->
<!--#include file=include/MyRequest.asp -->
<!--#include file="Sub.asp"-->
<!--#include file=include/Pages.asp-->
<%
cid=my_request("cid",1)
//調(diào)出商品類(lèi)別名稱(chēng)
sql="select product_class_name from product_Class where cid="&cid
set rs=conn.execute (sql)
product_class_name=rs(0)
rs.close
set rs=nothing
//參數(shù)設(shè)置表中相關(guān)參數(shù)調(diào)出
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(4)
root_option_HeighSPic =rs(5)
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 up(product_class_name&" 類(lèi)別下商品列表","<b>"&product_class_name&"</b> 類(lèi)別下商品列表","<b>"&product_class_name&"</b> 類(lèi)別下商品列表")
response.write "<tr><td>"
call Product_ListCategory(cid,root_option_NumsPerRow,NumsPerPage)
response.write "</td></tr>"
call down()
%>
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -