程序代码：

<%@ LANGUAGE=VBScript CodePage=936%>
<!--#include file="Inc/Const.asp"-->
<!--#include file="Inc/System.asp"-->
<!--#include file="Head.asp"-->


<table width="102%" height="100%" border="0" bgcolor="#E6EEFF">
  <tr>
    <td width="5%">&nbsp;</td>
    <td width="91%" align="center" valign="top"><table width="1200" height="100%"ALIGN="center" CEllPADDING="0" CELLSPACING="0" border="1">
      <tr>
        <td align="center">

         <%
Table_List="Tx_Prclass"
FileName="Prclass"
    Page_Name=Web_Const(0)
    Call Page_Head()
    Call Page_iHead()
    %>

    <TABLE WIDTH="1200" BORDER="0" ALIGN="center" CEllPADDING="0" CELLSPACING="0">
        <TR>
            <TD WIDTH="195" VALIGN="top" CLASS="TABLE-Side">
                <DIV CLASS='TABLE-side1'><SPAN CLASS="type-color1">会员中心</SPAN></DIV><DIV CLASS='TABLE-side3'><%Call Page_Login()%></DIV>
                <DIV CLASS='TABLE-side1'><SPAN CLASS="type-color1">本站公告</SPAN></DIV><DIV CLASS='TABLE-side3'><%call Page_Inform(120,2)%></DIV>
                <DIV CLASS='TABLE-side1'><SPAN CLASS="type-color1">产品分类</SPAN></DIV><DIV CLASS='TABLE-side3'><%call Parent_xClass()%></DIV>
                <DIV CLASS='TABLE-side1'><SPAN CLASS="type-color1">本站调查</SPAN></DIV><DIV CLASS='TABLE-side3'><%Call Page_Vote()%></DIV>            </TD>
            <TD WIDTH="5"></TD>
            <TD align="left" VALIGN="top" CLASS="index-Main">
                <DIV CLASS="index-name"><SPAN CLASS="index-name1">推荐产品</SPAN><SPAN CLASS="index-more"><A HREF="Prclass.asp" TITLE="更多产品..."><IMG SRC="Skins/Blue/more.jpg" BORDER="0"></A></SPAN></DIV>
                <div class="index-content">
                  <p>
                    <%Call Index_Products()%>
                  </p>
                  </div>
                <DIV CLASS="index-name"><SPAN CLASS="index-name1">就品展示</SPAN><SPAN CLASS="index-more"><A HREF="Work.asp" TITLE="更多商品..."><IMG SRC="Skins/Blue/more.jpg" BORDER="0"></A></SPAN></DIV>
                <DIV CLASS="index-content"><%Call Index_Work()%>
                </DIV>
                <DIV CLASS="index-name"><SPAN CLASS="index-name1">相关资讯</SPAN><SPAN CLASS="index-more"><A HREF="Neclass.asp" TITLE="更多新闻信息..."><IMG SRC="Skins/Blue/more.jpg" BORDER="0"></A></SPAN></DIV>
                <div class="index-content">
                  <%Call Index_News()%>
                </div></TD>
        </TR>
</TABLE>
<table width="100%" height="30" border="1">
      <tr>
        <td width="100%" height="230"><iframe   src="2.asp"   width=100%   height=230></iframe></td>
      </tr>
    </table>
  <%

    Call Index_Link()
  
    Call Page_Bottom()
    Call CloseConn()
    %>
       
        &nbsp;</td>
      </tr>
    </table></td>
    <td width="4%">&nbsp;</td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td align="center" valign="middle">中国南通 邮编226300 Email bsm5632@ </td>
    <td>&nbsp;</td>
  </tr>
  <tr>
    <td height="96">&nbsp;</td>
    <td align="center" valign="top"><p>版权所有：2009-2020 晟蓝圣家家纺</p>
    </td>
    <td>&nbsp;</td>
  </tr>
</table>