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

📄 index_top.asp

📁 创建和运行动态、交互的Web服务器应用程序
💻 ASP
字号:
<html>
<head>
<title>index_top</title>
</head>
<body>

<table width="776" height="5" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td height=3></td>
  </tr>
</table>

<table width="776" border="0" align="center" cellpadding="0" cellspacing="0">
 <tr>
    <td width="155" valign="top">
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
        <td><!--#include file="userinfo_left.asp"--></td>
        </tr>
        <tr><td height=3>
        <tr> 
        <td><!--#include file="search_wid.asp"--></td>
        </tr>
      </table>
    <td valign="top" >
       <table width="99%" border="0" align="right" cellpadding="0" cellspacing="0">
          <tr>
             <%
               set rs_gg_A=server.CreateObject("adodb.recordset")
                   rs_gg_A.Open "select * from shop_ggpic where ggpicposi='A' order by picaddate desc",conn,1,1
                   do while not rs_gg_A.eof
              %> 
             <td><a href=<%=trim(rs_gg_A("ggpicurl"))%> target=_blank><img src="<%=trim(rs_gg_A("ggpicpath"))%>" border="0"></a></td>
                  <%
                    rs_gg_A.movenext
                    loop
                    rs_gg_A.close
                set rs_gg_A=nothing
                  %>
             
          </tr>
          <tr>
             <td colspan=4 height=2>
          <tr>
             <td colspan=4>
             <table width="100%"  border="0" align="center" cellpadding="0" cellspacing="0">
                <tr> 
                   <td width=25% align="center">·&nbsp;<a href=bkzt01.asp  target=_blank><font color=red>用支付宝购买张洪举图书</font></a>
                   <td width=10% align="center"><font color=blue>网站公告</font>
                   <%
                     set rs_gg=server.CreateObject("adodb.recordset")
                         rs_gg.Open "select * from shop_config",conn,1,1
                         gonggao=rs_gg("gonggao")
                         rs_gg.close
                     set rs_gg=nothing
                   %>
                   <td width=65%><marquee direction="left" crollamount="2" id=info onmouseover=info.stop() onmouseout=info.start()><%=gonggao%></marquee></td>
                </tr>
             </table>
          </tr>
      </table>
    </tr>
</table>

<table width="776" border="0" align="center" cellpadding="1" cellspacing="0">
  <tr>
    <td height=3>
  </tr>
  <tr> 
    <td><!--#include file="srollimges.asp"--></td>
  </tr>
</table>

</body>
</html>  

⌨️ 快捷键说明

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