📄 product.asp
字号:
<!--#include file="Inc/Code.asp" -->
<%
dim i,j
dim ArticleID
dim Title
dim BigClass
dim PurviewChecked
PurviewChecked=false
Title=Trim(request("Title"))
ArticleID=Request("ArticleID")
BigClassName=Trim(request("BigClassName"))
strFileName="Product.asp?BigClassName=" & BigClassName
if request("page")<>"" then
currentPage=cint(request("page"))
else
currentPage=1
end if
sql="select * from Product"
if BigClassName<>"" then
sql=sql & " where BigClassName='" & BigClassName & "' "
else
end if
sql=sql & " order by Row desc,UpdateTime desc"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
%><HTML>
<HEAD>
<TITLE><%Call W_WebSiteName()%>┊<%Call W_WebSiteUrl()%></TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK href="Images/style.css" type=text/css rel=stylesheet>
</HEAD>
<BODY leftMargin=0 topMargin=0>
<TABLE cellSpacing=0 cellPadding=0 width=758 align=center border=0>
<TBODY>
<TR>
<TD rowspan="2"><a href="Index.asp"><img src="Images/Logo.gif" alt="企网互联|域名注册|虚拟主机|全能空间|企业网站建设专家|企业网站智能管理系统官方网站" width="160" height="75" border="0"></a></TD>
<TD width="598"><TABLE cellSpacing=0 cellPadding=0 align=center bgColor=#ffffff
border=0>
<TBODY>
<TR>
<TD width=418 height="28"> </TD>
<TD vAlign=bottom width=180 background=Images/index_new2.gif>
<DIV align=center><IMG height=11 src="Images/home.gif" width=13> 设为首页 | <IMG height=12
src="Images/ofldr.gif" width=16> 加入收藏</DIV></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR>
<TD><img src="Images/Menu1.gif" width="598" height="47" border="0" usemap="#Map"></TD>
</TR>
</TBODY></TABLE>
<table width="758" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="756" height="140" valign="top"><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="758" height="140">
<param name="movie" value="Images/tt.swf">
<param name="quality" value="high">
<embed src="Images/tt.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="758" height="140"></embed>
</object></td>
</tr>
<tr>
<td><img src="Images/pic03.gif" width="758" height="5"></td>
</tr>
<tr>
<td height="445" valign="top"><table width="758" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="195" height="445" valign="top" background="images/bg06.gif"><table width="195" border="0" cellpadding="0" cellspacing="0" class="c">
<tr>
<td width="258"><img src="Images/pic40.gif" width="195" height="44"></td>
</tr>
<tr>
<td valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="36"><img src="Images/pic42.gif" width="36" height="26"></td>
<td width="159" valign="bottom"><font color="#FFFFFF">.</font><strong><font color="#FF0000">产品展示</font></strong></td>
</tr>
<tr>
<td colspan="2"><img src="images/pic41.gif" width="195" height="7"></td>
</tr>
</table></td>
</tr>
<tr>
<td><% call Product_Type() %></td>
</tr>
<tr>
<td> </td>
</tr>
</table></td>
<td valign="top" bgcolor="#FFFFFF"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="44" valign="middle" background="images/bg05.gif"><table width="95%" border="0" align="center" cellpadding="0" cellspacing="0" class="b">
<tr>
<td class="L15"><a href="Index.asp">首页</a> <span class="en_text">>> </span><a href="Product.asp">产品展示</a> >> <%Call Product_ClassName()%></td>
</tr>
</table></td>
</tr>
<tr>
<td height="16" valign="top"><TABLE width=100%
border=0 align=center cellPadding=5 cellSpacing=1>
<TBODY>
<TR>
<TD height=126 valign="top">
<TABLE width="96%" border=0 align="center" cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
<TD width="378"
height=28><%
if rs.eof and rs.bof then
response.write"暂无此相关数据，或数据整理中...！"
end if
%></TD>
<TD width="114"><%
if rs.eof and rs.bof then
response.write "共找到 0 个产品"
else
totalPut=rs.recordcount
if currentpage<1 then
currentpage=1
end if
if (currentpage-1)*8>totalput then
if (totalPut mod 8)=0 then
currentpage= totalPut \ 8
else
currentpage= totalPut \ 8 + 1
end if
end if
response.Write "共找到 " & totalPut & " 个产品"
%>
</TD>
</TR>
<TR>
<TD
height=1 colspan="2"><%
if currentPage=1 then
MaxPerPage=8
showContent
showpage strFileName,totalput,MaxPerPage,true,false,"个产品"
else
if (currentPage-1)*8<totalPut then
MaxPerPage=8
rs.move (currentPage-1)*8
dim bookmark
bookmark=rs.bookmark
showContent
showpage strFileName,totalput,MaxPerPage,true,false,"个产品"
else
currentPage=1
MaxPerPage=8
showContent
showpage strFileName,totalput,MaxPerPage,true,false,"个产品"
end if
end if
end if
%>
<%
sub showContent
dim i
i=0
%>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
<%i=1 %>
<TR>
<% Do While Not rs.EOF%>
<TD><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><div align="center">
<table width="130" height="96" border="0" cellpadding="2" cellspacing="1" bgcolor="#333333">
<tr>
<td bgcolor="#FFFFFF"><a href="ProductShow.asp?ProductID=<%=rs("ArticleID")%>"><img src="<%=rs("DefaultPicUrl")%>" width=130 height=96 alt="" border="0"></a></td>
</tr>
</table>
</div></td>
</tr>
<tr>
<td height="15"></td>
</tr>
<tr>
<td><div align="center"><a href="ProductShow.asp?ProductID=<%=rs("ArticleID")%>"><%=rs("title")%></a></div></td>
</tr>
<tr>
<td height="10"></td>
</tr>
</table></td>
<% if i mod 2 =0 then%>
</TR>
<tr>
<%end if%>
<%
i=i+1
if i >= 9 then exit do
rs.MoveNext
loop
%>
</tr>
</table>
<%
end sub
%>
</TD>
</TR>
<TR>
<TD
height=1 colspan="2"> </TD>
</TR>
<TR>
<TD height=10 colspan="3"> </TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
</TBODY>
</TABLE></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
<table width="758" height="28" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="34" background="Images/bg07.gif"><table width="72%" border="0" align="right" cellpadding="0" cellspacing="0">
<tr>
<td><SPAN class=buttom><%Call W_Copyright()%> <%Call W_Count()%></SPAN></td>
</tr>
</table></td>
</tr>
</table>
<map name="Map">
<area shape="rect" coords="29,10,103,29" href="About.asp">
<area shape="rect" coords="126,10,199,29" href="News.asp">
<area shape="rect" coords="223,10,299,30" href="Product.asp">
<area shape="rect" coords="319,10,396,30" href="Download.asp">
<area shape="rect" coords="419,10,493,29" href="Guestbook.asp">
<area shape="rect" coords="516,10,591,30" href="Contact.asp">
</map>
</BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -