⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 spzs2.asp

📁 物流管理系统,可以用于中小企业,建立自己的内部物流管理.
💻 ASP
📖 第 1 页 / 共 2 页
字号:
              <tr> 
                <td width="24" height="30" valign="top"><img src="images/a41.gif" width="24" height="30"></td>
                <td width="725" valign="middle" background="images/a42.gif">现在位置:产品展示</td>
                <td width="29" valign="top"><img src="images/a43.gif" width="29" height="30"></td>
              </tr>
            </table></td>
          <td> </td>
        </tr>
        <tr> 
          <td height="213"> </td>
          <td valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#FBF9EC">
              <!--DWLayoutTable-->
              <tr> 
                <td width="25" rowspan="2" valign="top"><p> </p>
                  <p> </p>
                  <p> </p>
                  <p> </p>
                  <p> </p>
                  <p> </p>
                  <p> </p></td>
                <td width="31" height="207"> </td>
               <TD vAlign=top width=813 height=110>
      <DIV align=center>
      <CENTER>
        <DIV align=center>
          <CENTER>
            <DIV align=center>
              <CENTER>
                <DIV align=center>
                  <CENTER>
                    <% 
sql="select * from spzs where gsid="+cstr(id)+" order by ID desc"
Set rs= Server.CreateObject("ADODB.Recordset") 
rs.open sql,conn,1,1 
if rs.eof and rs.bof then 
response.write"<SCRIPT language=JavaScript>alert('暂无产品发布,如您对我公司产品感兴趣,请与我们联系!');"
response.write"this.location.href='mail.asp?id="+cstr(id)+"';</SCRIPT>" 
else 
totalPut=rs.recordcount 
if currentpage<1 then 
currentpage=1 
end if 
if (currentpage-1)*MaxPerPage>totalput then 
if (totalPut mod MaxPerPage)=0 then 
currentpage= totalPut \ MaxPerPage 
else 
currentpage= totalPut \ MaxPerPage + 1 
end if 
end if 
if currentPage=1 then 
showContent
else 
if (currentPage-1)*MaxPerPage<totalPut then 
rs.move (currentPage-1)*MaxPerPage 
dim bookmark 
bookmark=rs.bookmark 
showContent
else 
currentPage=1 
showContent
end if 
end if
end if 
myrs.close 
set myrs=nothing
conn.close
set conn=nothing
sub showContent 
%>
                    <br>
                    <TABLE height=24 cellSpacing=0 cellPadding=0 width="85%" 
border=0 style="border-collapse: collapse" bordercolor="#111111">
                      <TBODY>
                        <TR>
                          <TD vAlign=top width="29%" height=148>
                            <div align="center">
                              <center>
                                <TABLE border=0 cellPadding=0 cellSpacing=0 width="99%" style="border-collapse: collapse" bordercolor="#111111">
                  <TBODY>
                  
                  <TR>
                    <TD valign=top>
                      <div align="center">
                        <center>
                          <TABLE border=0 cellPadding=0 cellSpacing=0 width="98%" style="border-collapse: collapse" bordercolor="#111111">
                            <TBODY>
                              <TR>
                                <TD class=M><%showpage totalput,MaxPerPage,"spzs.asp"%></TD>
                              </TR>
                            </TBODY>
                          </TABLE>
                        </center>
                      </div>
                      <div align="center">
                        <center>
                          <TABLE border=0 cellPadding=0 cellSpacing=0 width="98%" style="border-collapse: collapse" bordercolor="#111111">
                            <TR>
                              <TD height="10" colspan="2" background="images/line_gr.gif"></TD>
                            </TR>
                          </TABLE>
                        </center>
                      </div>
                      <%do while not rs.eof%>
                      <div align="center">
                        <center>
                          <TABLE border=0 cellPadding=0 cellSpacing=0 width="98%" style="border-collapse: collapse" bordercolor="#111111">
                            <TBODY>
                              <TR>
                                                              <TD align=middle width="23%"> 
                                                                <a href="javascript:show_sader('show_product.asp?id=<%=rs("id")%>')"> 
                                                                </a><a href="javascript:show_sader('show_product.asp?id=<%=rs("id")%>&quot;)"><img border=1 height=95 src="../picture/<%=rs("picture")%>" width=100 style="border: 1px solid #000000"></a></TD>
                                <TD width="77%" vAlign=top><SPAN class=m><B><font color="#ff6600"><a href="javascript:show_sader('show_product.asp?id=<%=rs("id")%>')"><font color="#FF6600"><%=rs("cpmc")%></font></a></font><a href="javascript:show_sader('show_product.asp?id=<%=rs("id")%>')"> </A></B></SPAN><BR>
                                    <B>产品描述:</B><%=rs("jysm")%>...(<a href="javascript:show_sader('show_product.asp?id=<%=rs("id")%>')"><font color="#ff6600">详细信息</font></a>)<BR></TD>
                              </TR>
                              <TR>
                                <TD height="15" colspan="2"></TD>
                              </TR>
                              <TR>
                                <TD height="10" colspan="2" background="images/line_gr.gif"></TD>
                              </TR>
                            <BR>
                            </TBODY>
                            
                          </TABLE>
                        </center>
                      </div>
                      <% i=i+1 
if i>=MaxPerPage then exit do 
rs.movenext 
loop 
rs.close 
set rs=nothing 
%>
                      <TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
                        <TR>
                          <TD colspan="2"><%showpage totalput,MaxPerPage,"spzs.asp"%></TD>
                        </TR>
                    </table></TD>
                  </TR>
                                </TABLE>
                              </center>
                            </div>
                            <%
end sub 
function showpage(totalnumber,maxperpage,filename) 
dim n 
if totalnumber mod maxperpage=0 then 
n= totalnumber \ maxperpage 
else 
n= totalnumber \ maxperpage+1 
end if 
response.write "<form method=Post action="&filename&">" 
if CurrentPage<2 then 
response.write "<div align=center>"
response.write "<table border=0 width=98% cellspacing=0 cellpadding=5>"
response.write "<tr height=5><td colspan=2></td></tr>"
response.write "<tr height=5>"
response.write "<td align=left valign=top>"
response.write "<font color=red><b>共"&n&"页&nbsp;第"&CurrentPage&"页 " 
response.write "共有"&totalnumber&"&nbsp;种产品</b></font>" 
response.write "</td>"
response.write "<td VALIGN=middle align=right >"
response.write "【最前页】【上一页】" 
else 
response.write "<div align=center>"
response.write "<table border=0 width=98% cellspacing=0 cellpā?=?ū???鮠?忀??adding=5>"
response.write "<tr height=0><td colspan=2></td></tr>"
response.write "<tr height=0>"
response.write "<td align=left VALIGN=top>"
response.write "<font color=red><b>共"&n&"页&nbsp;第"&CurrentPage&"页 " 
response.write "共有"&totalnumber&"&nbsp种产品</b></font>" 
response.write "</td>"
response.write "<td VALIGN=center align=right >"
response.write "【<a href="&filename&"?page=1&id="&id&">最前页</a>】" 
response.write "【<a href="&filename&"?page="&CurrentPage-1&"&id="&id&">上一页</a>】" 
end if 
if n-currentpage<1 then 
response.write "【下一页】【最后页】" 
else 
response.write "【<a href="&filename&"?page="&(CurrentPage+1)&"&id="&id&">" 
response.write "下一页</a>】【 <a href="&filename&"?page="&n&"&id="&id&">最后页</a>】" 
end if 
response.write "</form>" 
response.write "</td>"
response.write "</tr>"
response.write "</table>"
response.write "</div>"
end function
%>
                          </TD>
                        </TR>
                      </TBODY>
                    </TABLE>
                    <TABLE height=40 cellSpacing=0 cellPadding=0 width="90%" border=0>
                      <TBODY>
                        <TR></TR>
                      </TBODY>
                    </TABLE>
                  </CENTER>
                </DIV>
                <DIV align=center></DIV>
              </CENTER>
            </DIV>
            <DIV align=center></DIV>
          </CENTER>
        </DIV>
        </CENTER></DIV>
      </TD>
                <td width="49"> </td>
              </tr>
              <tr> 
                <td height="47" valign="top"><p> </p>
                  <p> </p></td>
                <td> </td>
              </tr>
            </table></td>
          <td> </td>
        </tr>
        <tr> 
          <td height="31"> </td>
          <td valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
                    <!--DWLayoutTable-->
                    <tr> 
                      <td width="778" height="16">&nbsp;</td>
                    </tr>
                    <tr> 
                      <td height="23" align="center" valign="middle"><%=rs("qymc")%>   <%=year(rs("idate"))%><SPAN style="FONT-SIZE: 12px">-</SPAN><%=year(rs("idate"))+1%><SPAN style="FONT-SIZE: 12px"><BR>
                        客户服务:</SPAN><a href="mailto:<%=rs("email")%>"><%=rs("email")%></a><SPAN style="FONT-SIZE: 12px">&nbsp; 联系电话:</SPAN><font face="Arial"><%=rs("phone")%><br>
                        您是第<font color="#FF6600"><%=rs("click")%></font> <SCRIPT src="images/counter.asp"></SCRIPT>
                        位访客 <br> </td>
                    </tr>
                  </table></td>
          <td> </td>
        </tr>
      </table></td>
  </tr>
</table>
</BODY></HTML>

⌨️ 快捷键说明

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