📄 default_1.asp

📁 物流管理系统,可以用于中小企业,建立自己的内部物流管理.
💻 ASP
字号:
<%@ codepage ="936" %><!--#include file="head.asp"--><!--#include file="sortcount.asp"--><!--#include file="newcount.asp"--><% const MaxPic=5const TjMax=12dim zsrsdim zssqldim rssortdim sortsqldim rs1dim sql1'打开精品推荐商品展示数据库zssql="select id,picture,cpmc from spzs where zsbz like '%02%' order by ID desc"Set rszs= Server.CreateObject("ADODB.Recordset") rszs.open zssql,conn,1,1 '打开商品展示数据库zssql1="select id from spzs where Cpmc<>'""' order by ID desc"Set rszs1= Server.CreateObject("ADODB.Recordset") rszs1.open zssql1,conn,1,1 cpnum=rszs1.recordcount%><HTML><HEAD><TITLE>产品展示.<%=WebName%></TITLE><META content=zh-cn http-equiv=Content-Language><META content="text/html; charset=gb2312" http-equiv=Content-Type><LINK href="images/main.css" rel=stylesheet type=text/css><META content="Microsoft FrontPage 5.0" name=GENERATOR></HEAD><BODY bgColor=#ffffff text=#000000 topMargin=0 marginheight="0"><div align="center"><center><table border="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="760" id="AutoNumber5" height="82"><tr><td width="729" valign="top"><iframe src="../ads/hotcpzs.asp" width=728 height=90 border=0 frameborder=0 framespacing=0 marginheight=1 marginwidth=1 noResize scrolling=no vspace="0" name="I1"></iframe></td><td width="29" valign="top"><a target="_blank" href="../banner.asp"><IMG border=0 src="../images/520bannernotes.gif"></a></td></tr></table></center></div><CENTER><TABLE border=0 cellPadding=0 cellSpacing=0 width=760 style="border-collapse: collapse" bordercolor="#111111"><TBODY><TR><TD vAlign=top height="285"><SCRIPT language=javascript><!--function validate(){if(document.f.s_key.value=="" || document.f.s_key.value==null){alert("请输入查询的关键字!");document.f.s_key.focus();document.f.s_key.select();}else{document.f.submit();}}--></SCRIPT><table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber6" height="1"><tr><td width="100%" height="2"></td></tr></table><TABLE border=1 borderColorDark=#ffffff borderColorLight=#ced7ce cellPadding=0 cellSpacing=0 width="100%"><FORM action=search.asp method=POST name=search><TBODY><TR bgColor=#f7f7e7><TD bgColor=#edf2f8 class=M height=35><DIV align=left><B><FONT color=#3366ff>查询产品资料：</FONT></B> <INPUT name=txtitle size=22><select name="sortid"><%dim rs2,sql2set rs2=server.createobject("adodb.recordset")sql2="select * from Class_1"rs2.open sql2,conn,1,1if rs2.eof and rs2.bof then response.write "<option value='没有类别'>没有类别</option>"elseresponse.write "<option value='0'>所有类别</option>"&vbcrlf do while not rs2.eofresponse.write "<option value='"&rs2("SortID")&"'" if request("SortID")<>"" then if rs2("SortID")=cint(request("SortID")) then response.write " selected " end if response.write ">"&rs2("Sort")&"</option>"&vbcrlf rs2.movenext loop end if rs2.close %></select> &nbsp;<INPUT align=bottom border=0 name=I9 src="images/CreditDynamic_index_search.gif" type=image ></DIV></TD><TD bgColor=#edf2f8 height=35><a href=default.asp><B>查看简洁行业分类</b></a></TD></TR></FORM></TBODY></TABLE><TABLE border=0 cellPadding=0 cellSpacing=0 width="100%"><TBODY><TR><TD width="25%">　</TD><TD width="25%">　</TD><TD width="25%">　</TD><TD width="25%">　</TD></TR><TR><TD height=22 width="100%" colspan="4"><table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber3"><tr><TD width="100%" height="16" style="color: #000; font-family: 宋体; font-size: 12px; line-height:150%"> <div align="right">            <TABLE cellSpacing=0 cellPadding=0 width="98%" border=0>              <TBODY>              <TR>                <TD align=right>                <TABLE border="0" width="100%" height="20" style="border-collapse: collapse" cellspacing="1" cellpadding="2">                <%Set rssort= Server.CreateObject("ADODB.Recordset") 		sortsql="select * from Class_1" 		rssort.open sortsql,conn,1,1		if rssort.eof then 		response.write "还没有大分类！"		end if		do while not rssort.eof%> 		<TR> 		<td width="100%" height="25" align="left" style="color: #000; font-family: 宋体; font-size: 12px; line-height:150%"><p style="line-height: 150%">               <img src=../qyml/images/arow1.gif><A class=C href="search.asp?sortid=<%=rssort("sortid")%>"><%=rssort("sort")%></a><font color="#ff6600"><%response.write"("&count(rssort("sortid"))&")" %></font><%if count1(rssort("sortid"))=0 then%><%else%><img border="0" src="../Pict/new2.gif"><%end if%>	                <br>	                <%Set rstype= Server.CreateObject("ADODB.Recordset") 			typesql="select * from Class_2 where SortId="&rssort("SortID")			rstype.open typesql,conn,1,1			if rstype.eof then 			response.write "还没有该小分类！"			end if			do while not rstype.eof			%>			<A href="search.asp?sortid=<%=rssort("sortid")%>&typeid=<%=rstype("typeid")%>"><%=rstype("Typename")%></a>			<%if count1(rstype("typeid"))=0 then%><%else%><img border="0" src="../Pict/new2.gif"><%end if%>	                <font color=#cccccc>|</font>	                <%rstype.movenext			loop%>                </td></tr>		<%rssort.movenext		loop 		rssort.close		rstype.close		set rssort=nothing		set rstype=nothing		%>		</TABLE>          </TD>        </TR>        </TBODY>      </TABLE></div></TD></tr></table></TD></TR></TBODY></TABLE></TD><TD height="285">　</TD><TD background=images/Products_index_right_bg01.gif vAlign=top width=190 height="285"><DIV align=right><TABLE border=0 cellPadding=0 cellSpacing=0 width=180 style="border-collapse: collapse" bordercolor="#111111"><TBODY><TR><TD><a href="add.asp"><IMG border=0 src="images/Products_index_right01.gif"></a></TD></TR><TR><TD background="images/z1.gif" width="180" height="31">&nbsp;&nbsp; <font color="#FFFFFF"><span style="font-size: 10.5pt"><b>本站商品推荐</b></span></font></TD></TR><TR><td align=center>产品统计：<font color="red"><%=cpnum%></font>件</td></tr><tr><%DO WHILE NOT rszs.eof%><TD background=images/Products_index_right_bg03.gif align=center>	<TABLE border=0 cellPadding=0 cellSpacing=0 width=110>	  <TBODY>	    <TR>		<TD background=images/Products_index_xia044.gif height=110>			<DIV align=center>			<a href="Show_product.asp?id=<%=rszs("id")%>">			<IMG border=0 src="../picture/<%=rszs("picture")%>" width="88" height="88" alt="<%=rszs("cpmc")%>" style="border: 1px solid #000000"></a>			</DIV>		</TD>	    </TR>	    <TR>		<TD height=5></TD>	    </TR>	    <TR>		<TD background=images/Products_index_xia055.gif height=30>			<DIV align=center>			<span style=\&quot;font-size:9pt;line-height: 15pt\">			<a target="_blank" href="Show_product.asp?id=<%=rszs("id")%>">			<%if len(rszs("Cpmc"))>7 then%>			<%=left(rszs("Cpmc"),7)%></a>			<a target="_blank" href="Show_product.asp?id=<%=rszs("id")%>">..<% else%><%=rszs("Cpmc")%><%end if%></a></span>			</DIV>		</TD>	    </TR>	  </TBODY>	</TABLE></TD></TR><% y=y+1if y>=MaxPic then exit dorszs.movenext loop rszs.close set rszs=nothing %><TR><TD height=1><map name="FPMap0"><area href="add.asp" shape="rect" coords="6, 4, 84, 20"><area href="search.asp" shape="rect" coords="117, 0, 166, 19"></map><IMG border=0 src="images/Products_index_right04.gif" useMap=#FPMap0></TD></TR><TR><TD><table border="0" cellpadding="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber7" cellspacing="0"><tr><td width="100%" height="6"></td></tr></table><div align="center"><center><table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber8"><tr><td width="100%"><p align="center"><script src="../ads/cpzs.asp"></script></td></tr></table></center></div><TR> </td></tr></table></center></TD></TR></TABLE></TD></TR></TBODY></TABLE></DIV></TD></TR></TBODY></TABLE><br><!--#include file="../inc/end.asp"--></HTML>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -