in_right.asp

一套很早的多用户电子商务程序

<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr bgcolor="#FFDF80" valign="bottom"> 
    <td width="21%" height="17"> <p align="center"><img border="0" src="PIC/top_left2.gif" width="11" height="11"> 
    </td>
    <td height="17" bgcolor="#FFDF80">　最　新　公　告</td>
  </tr>
  <tr> 
    <td width="21%" height="1"></td>
    <td width="79%" height="1"></td>
  </tr>
  <tr> 
    <td width="21%" background="PIC/bg-line2.gif" height="1"></td>
    <td width="79%" background="PIC/bg-line2.gif" height="1"></td>
  </tr>
  <tr> 
    <td colspan="2"> <table border="0" cellpadding="0" cellspacing="4" width="100%" height="19">
        <tr> 
          <td width="100%" height="19"><marquee direction="up" width="100%" height="106"  scrollamount="2" id=info onMouseOver=info.stop() onMouseOut=info.start() >
<%
set rs=server.createobject("adodb.recordset")
sqltext="select gonggao from Manager"
rs.open sqltext,conn,1,1
response.Write Fomathtm(rs("gonggao"))
rs.close:set rs=nothing
%>
</marquee></td>
        </tr>
      </table></td>
  </tr>
</table>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td width="21%" background="PIC/bg-line2.gif" height="1"></td>
    <td width="79%" background="PIC/bg-line2.gif" height="1"></td>
  </tr>
  <tr> 
    <td width="21%" height="1"></td>
    <td width="79%" height="1"></td>
  </tr>
  <tr bgcolor="#FFDF80" valign="bottom"> 
    <td width="21%" height="17" bgcolor="#DBEDB6"> <p align="center"><img border="0" src="PIC/top_left2.gif" width="11" height="11"> 
    </td>
    <td height="17" bgcolor="#DBEDB6">　购　物　帮　助</td>
  </tr>
  <tr> 
    <td width="21%" height="1"></td>
    <td width="79%" height="1"></td>
  </tr>
  <tr> 
    <td width="21%" background="PIC/bg-line2.gif" height="1"></td>
    <td width="79%" background="PIC/bg-line2.gif" height="1"></td>
  </tr>
  <tr valign="top"> 
    <td colspan="2"> <table border="0" cellpadding="0" cellspacing="3" width="100%" height="25">
<%
set rs=server.createobject("adodb.recordset")
sqltext="select * from help"
rs.open sqltext,conn,1,1
if rs.eof then
response.write "<tr><td>没有相关帮助信息内容</td></tr>"
else
do while not (rs.eof or rs.bof)
%>
        <tr> 
          <td width="100%" height="19">☉ <a href="help.asp?id=<%=rs("id")%>" ><%=rs("n_top")%></a></td>
        </tr>
  <%
rs.movenext
loop
end if
rs.close:set rs=nothing
%>
      </table></td>
  </tr>
</table>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td width="21%" background="PIC/bg-line2.gif" height="1"></td>
    <td width="79%" background="PIC/bg-line2.gif" height="1"></td>
  </tr>
  <tr> 
    <td width="21%" height="1"></td>
    <td width="79%" height="1"></td>
  </tr>
  <tr bgcolor="#FFF4DD" valign="bottom"> 
    <td width="21%" height="17"> <p align="center"><img border="0" src="PIC/top_left2.gif" width="11" height="11"> 
    </td>
    <td height="17">　推　荐　商　店</td>
  </tr>
  <tr> 
    <td width="21%" height="1"></td>
    <td width="79%" height="1"></td>
  </tr>
  <tr> 
    <td width="21%" background="PIC/bg-line2.gif" height="1"></td>
    <td width="79%" background="PIC/bg-line2.gif" height="1"></td>
  </tr>
  <tr valign="top"> 
    <td colspan="2"> <table border="0" cellpadding="0" cellspacing="0" width="100%" height="19">
        <tr> 
          <td width="100%"> <table border="0" cellpadding="0" cellspacing="3" width="100%" height="25">
<%
set rs=server.createobject("adodb.recordset")
sqltext="select shop_name1,shop_name2 from shop where index_tj=1 order by tjTime desc"
rs.open sqltext,conn,1,1
if rs.eof then
response.write "<tr><td>没有相关推荐商店</td></tr>"
else
do while not (rs.eof or rs.bof)
%>
              <tr> 
                <td width="100%" height="19">☉ <a href="<%=rs("shop_name1")%>/" target="_blank"><%=rs("shop_name2")%></a></td>
              </tr>
  <%
rs.movenext
loop
end if
rs.close:set rs=nothing
%>
            </table></td>
        </tr>
      </table></td>
  </tr>
</table>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td width="21%" background="PIC/bg-line2.gif" height="1"></td>
    <td width="79%" background="PIC/bg-line2.gif" height="1"></td>
  </tr>
  <tr> 
    <td width="21%" height="1"></td>
    <td width="79%" height="1"></td>
  </tr>
  <tr bgcolor="#B9FFFF" valign="bottom"> 
    <td width="21%" height="17"> <p align="center"><img border="0" src="PIC/top_left2.gif" width="11" height="11"> 
    </td>
    <td height="17">　精　彩　店　铺</td>
  </tr>
  <tr> 
    <td width="21%" height="1"></td>
    <td width="79%" height="1"></td>
  </tr>
  <tr> 
    <td width="21%" background="PIC/bg-line2.gif" height="1"></td>
    <td width="79%" background="PIC/bg-line2.gif" height="1"></td>
  </tr>
  <tr valign="top"> 
    <td colspan="2"> <table border="0" cellpadding="0" cellspacing="6" width="100%">

<%
set rs=server.createobject("adodb.recordset")
sqltext="select * from jingcai order by id desc"
rs.open sqltext,conn,1,1
if rs.eof then
response.write "<tr><td>没有相关记录</td></tr>"
else
do while not (rs.eof or rs.bof)
%>

        <tr> 
          <td width="100%" height="19"><div align="center"><a href="<%=rs("l_url")%>"><img src="<%=rs("l_pic")%>" border="0" alt="<%=rs("l_name")%>"></a></div></td>
        </tr>
  <%
rs.movenext
loop
end if
rs.close:set rs=nothing
%>

      </table>
      <!--#include file="counter/counter.asp"-->
    </td>
  </tr>
</table>