📄 config_shop.asp
字号:
<!-- #include file="config.asp" -->
<!-- #include file="config_nsort.asp" -->
<%
dim us,table1,table2,table3,table4,atb,id,upload_file,w_h,pu,pun
us="fk2"
table1=format_table(1,3)
table2=format_table(3,2)
table3=format_table(3,1)
table4=format_table(3,5)
atb=" target=_blank"
upload_file=web_var(web_upload,1)
w_h=" height="&web_var(web_shop,4)
pu=web_var(web_shop,1)
pun=web_var(web_shop,2)
index_url="shop":n_sort="pro"
tit_fir=format_menu(index_url)
'pagetitle="<a href='shop.asp'>" & channelName & "</a>->"
const ChannelID=11 '频道ID号，在后台更改后要相应修改这里----贫龙
Const ShowRunTime="Yes"
sub shop_sort()
dim tmp
tmp="<table border=0 width='90%' align=center><tr><td>"&nsort_left(n_sort,cid,sid,"shop.asp?",0)&"</td></tr></table>"
%>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border="0" style="word-break:break-all">
<TR>
<TD align="center" background="Images/left01.gif"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td class="title_txt_center">产 品 分 类</td>
</tr>
</table></TD>
</TR>
<TR>
<TD valign="top"><table width="100%" height="100%" border="0" cellpadding="0" cellspacing="5">
<tr>
<td valign="top"> <img src="images/D_1.gif" border=0 align=absmiddle> <a href="shop.asp?action=search">所有产品</a><br> <%=tmp%> </td>
</tr>
</table></TD>
</TR>
</table>
<%
' response.write "<table border=0 width='96%'><tr><td align=center>"&format_bar("<font class=end><b>产 品 分 类</b></font>",tmp,0,2,"fk4",web_var(web_color,2)&"|"&web_var(web_color,1)&"|","")&"</td></tr></table>"
end sub
sub shop_left()
dim temp1
temp1=kong&vbcrlf&"<table border=0 cellSpacing=0 cellPadding=0 align=center>" & _
vbcrlf&"<form name=sea_product_frm action='shop.asp?' method=get>" & _
vbcrlf&"<input type=hidden name=action value='search'>" & _
vbcrlf&"<input type=hidden name=c_id value='"&cid&"'>" & _
vbcrlf&"<input type=hidden name=s_id value='"&sid&"'>" & _
vbcrlf&"<tr><td colspan=2 align=center>产品查询：<input type=text name=keyword class=input1></td></tr>" & _
vbcrlf&"<tr><td height='40' valign='middle'> <select name=sea_type style='FONT: 9pt Verdana,Geneva,sans-serif;WIDTH: 100px; COLOR: #000000;HEIGHT: 18px; BACKGROUND-COLOR: #dff1f9'><option value='name'>按产品名称</option><option value='brand'>按产品品牌</option><option value='remark_1'>按产品简介</option></select> </td>" & _
vbcrlf&"<td> <input type=image src='images/sea_button.gif' width=37 height=18 border=0></td></tr>" & _
vbcrlf&"</form></table>" & _
vbcrlf&"<table border=0 cellSpacing=0 cellPadding=0 align=center width='100%'><tr><td align='center'><input type=button name='button' value='查看我的购物车' onclick='shop_bag.asp'></td></tr></table>" & _
vbcrlf&"<table border=0 align=center>" & _
vbcrlf&"<form name=sea_order_frm action='shop_order.asp?' method=get>" & _
vbcrlf&"<tr><td colspan=2 align=center>订 单 号：<input type=text name=ordernum class=input1></td></tr>" & _
vbcrlf&"<tr align=center><td> "&img_small("jt12")&"<a href='shop_order.asp'>订单查询搜索</a></td><td> <input type=image src='images/sea_button.gif' width=37 height=18 border=0></td></tr>" & _
vbcrlf&"</form></table>"&kong
%>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border="0" style="word-break:break-all">
<TR>
<TD align="center" background="Images/left01.gif"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td class="title_txt_center">产 品 查 询</td>
</tr>
</table></TD>
</TR>
<TR>
<TD valign="top"><table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td valign="top"><%=temp1 %></td>
</tr>
</table></TD>
</TR>
</table>
<%
end sub
sub product_sea()
%><table border=0 width='98%' cellspacing=0 cellpadding=0 align=center>
<tr><td><table border=0 cellspacing=0 cellpadding=0 width='100%'><tr align=center height=20>
<td height="1" class="title_right2">
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td class='title_bg_center'>产品搜索</td>
</tr>
</table></td>
<td>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td class='title_bg_center'>订单查询</td>
</tr>
</table></td>
</tr></table></td></tr>
<tr><td height=5></td></tr>
</table>
<table border=0 width='98%'>
<tr height=25>
<td width='60%'>
<table border=0>
<form name=sea_product_frm action='shop.asp?' method=get>
<input type=hidden name=action value='search'>
<input type=hidden name=c_id value='<%response.write cid%>'>
<input type=hidden name=s_id value='<%response.write sid%>'>
<tr>
<td>关键字：<input type=text name=keyword size=15 maxlength=20></td>
<td> <select name=sea_type><option value='name'>按产品名称</option><option value='brand'>按产品品牌</option><option value='remark_1'>按产品简介</option></select></td>
<td> <input type=image src='images/sea_button.gif' width=37 height=18 border=0></td>
</tr>
</form>
</table>
</td>
<td width='40%'>
<table border=0>
<form name=sea_order_frm action='shop_order.asp?' method=get>
<tr>
<td>订单号：<input type=text name=ordernum size=15 maxlength=10></td>
<td> <input type=image src='images/sea_button.gif' width=37 height=18 border=0></td>
</tr>
</form>
</table>
</td>
</tr>
</table><%
end sub
'=================================================
'过程名：Show_super_Menu
'作 用：显示下拉菜单效果 -来自异域-晓炊改进
'参 数：无
'=================================================
sub Show_super_Menu()
dim sqlRoot,rsRoot,tdstyle,tdmouse,sqlClass,rsClass,k
tdstyle=" style='background-image: url(images/menu_bg1.gif);background-repeat: no-repeat;background-position: right;letter-spacing: 2px' "
' tdmouse=" onmouseover='this.style.background-image: url(images/menu_bg1.gif)' onmouseout='this.style.background-image: url(images/menu_bg1.gif)' "
sqlRoot="SELECT a.c_id, a.c_name, (select count(b.s_id) from product_sort as b where b.c_id=a.c_id) FROM product_class AS a WHERE a.nsort='pro' ORDER BY a.c_order"
Set rsRoot= Server.CreateObject("ADODB.Recordset")
rsRoot.open sqlRoot,conn,1,1
response.write "<table border='0' cellpadding='0' cellspacing='0' width='100%' height='100%'>"
' response.write "<td width='1%' nowrap" & tdstyle & tdmouse & "> <a href='" & SiteUrl & "'><img src='Images/home.gif' border=0 align='absmiddle'>首页<a> </td>"
if not(rsRoot.bof and rsRoot.eof) then
do while not rsRoot.eof
if rsRoot(2)>0 then
response.write "<A href='shop.asp?c_id=" & rsRoot(0) & "'><TD style='CURSOR: hand; width:1%; padding:0px,18px,0px,18px;' nowrap" & tdstyle & tdmouse & " id=Menu" & rsRoot(0) & ">" & rsRoot(1) & "</TD></A>" & vbcrlf
else
response.write "<a href='shop.asp?c_id=" & rsRoot(0) & "'><td style='CURSOR: hand; width:1%; padding:0px,18px,0px,18px;' nowrap" & tdstyle & tdmouse & ">" & rsroot(1) & "</td></a>" & vbcrlf
end if
rsRoot.movenext
loop
else
response.write "<td nowrap>  <font color=red>暂无栏目，请网站管理员先添加栏目！</font></td>"
end if
rsRoot.close
set rsRoot=nothing
response.write "<td width='90%'> </td></tr></table>"
%>
<script language="javascript">
if (mtDropDown.isSupported()) {
var ms = new mtDropDownSet(mtDropDown.direction.down, 0, 0, mtDropDown.reference.bottomLeft);
<%
sqlClass="SELECT a.c_id, a.c_name FROM product_class AS a WHERE a.nsort='pro'and (select count(b.s_id) from product_sort as b where b.c_id=a.c_id)>0 ORDER BY a.c_order"
Set rsClass= Server.CreateObject("ADODB.Recordset")
rsClass.open sqlClass,conn,1,1
do while not rsClass.eof
response.write "var Menu" & rsClass(0) & "=ms.addMenu(document.getElementById(""" & "Menu" & rsClass(0) & """));" & vbcrlf
call GetSuperMenu(rsClass(0))
rsClass.movenext
loop
rsClass.close
set rsClass=nothing
%>
mtDropDown.renderAll();
}
</script>
<%
end sub
sub GetSuperMenu(ID) '--被上面的调用，递归...
dim sqlClass,rsClass
sqlClass="SELECT s_id, s_name FROM product_sort WHERE c_id=" & id & " ORDER BY s_order"
Set rsClass= Server.CreateObject("ADODB.Recordset")
rsClass.open sqlClass,conn,1,1
do while not rsClass.eof
response.write " Menu" & ID & ".addItem(' " & rsClass(1) & "','shop.asp?c_id=" & id & "&s_id=" & rsClass(0) & "');" & vbcrlf
rsClass.movenext
loop
rsClass.close
set rsClass=nothing
end sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -