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

📄 index.asp

📁 AspEase Auction System Ver2.0/动易拍卖系统 Ver2.0
💻 ASP
字号:
<!--#include file="conn.asp" -->
<!-- #include file="inc/info.asp" -->
<!-- #include file="inc/const.asp" -->
<% 
stats="首页"
header 
call activeonline()
%><table width="760" height="50" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td width="12"><img src="images/search_03.gif" width="12" height="63"></td>
    <td width="14" background="images/search2_05.gif"> </td>
    <td width="383" background="images/search2_05.gif"> <table width="93%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td><img src="images/search2.gif" width="223" height="21"></td>
        </tr>
        <tr> 
          <td height="5"></td>
        </tr>
        <tr> 
          <td height="20"><table width="400" height="22" border="0" cellpadding="0" cellspacing="0">
              <tr> 
                <FORM action="search.asp" name="myform" method="post" onsubmit="return isok(this)">
                  <td width="400"> 
                  <%=catlist%>
                   <input name=name1 type="text" onfocus="if(this.value=='请输入关键字')this.value='';" size="10" value="请输入关键字">
                  </td>
                  <td width="62"> <div align="center"> 
                      <table width="100%" border="0" cellspacing="0" cellpadding="0">
                        <tr> 
                          <td height="4"></td>
                        </tr>
                        <tr> 
                          <td><div align="center"> <input type="hidden" name="submit" value="查询">
                              <input type="image" border="0" name="submit1" src="images/sousuo1.gif" width="54" height="18">
                            </div></td>
                        </tr>
                      </table>
                    </div></td>
                </form>
              </tr>
            </table></td>
        </tr>
      </table></td>
    <td width="65"><img src="images/search_05.gif" width="65" height="63"></td>
    <td width="400" background="images/search4_08.gif"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td height="24"></td>
        </tr>
        <tr> 
          <td height="5"></td>
        </tr>
        <tr> 
          <td height="20"><TABLE align=right border=0 cellPadding=0 cellSpacing=0 
              width="80%">
              <TBODY>
                <TR> 
                  
                <TD><A href="reg.asp" target="_blank" id="b1">会员注册</A> <SPAN id="b1"><A href="info_change.asp">修改信息</A> 
                  </SPAN><A href="my.asp" id="b1" target="_blank">用户操作</A></TD>
                </TR>
              </TBODY>
            </TABLE></td>
        </tr>
      </table></td>
    <td width="12"><img src="images/search_10.gif" width="12" height="63"></td>
  </tr>
</table>
<TABLE width=760 border=0 align="center" cellPadding=0 cellSpacing=0>
  <TBODY>
    <TR> 
      <TD vAlign=top width=223> <TABLE bgColor=#ffcc00 border=0 cellPadding=0 cellSpacing=1 
        width="223">
          <TBODY>
            <tr> 
              
          <td width="248" height="72" valign="top" id="bg06"> 
            <table width="100%" border="0" cellspacing="1" cellpadding="3">
              <tr align="center"> 
                <td><img src="images/gonggao.gif"></td>
              </tr>
            </table>
            <table width="100%" border="0" cellspacing="5">
              <tr> 
                <td colspan="2"> <% sqlnew="select * from news order by newsdate desc"
set rsnews=conn.execute(sqlnew)
if rsnews.eof then
response.write "暂时没有新闻"
else
response.write "<marquee direction=up height=60 scrolldelay=150 scrollamount=4 onmouseout=""if (document.all!=null){this.start()}"" onmouseover=""if (document.all!=null){this.stop()}"">"
while not rsnews.eof
response.write "<IMG height=12 src=""images/star.gif"" width=13> <a href=news.asp?newsid="&rsnews("newsid")&" target=_blank><FONT color=#ff0000>"&rsnews("newstitle")&"</font></a><BR>"
rsnews.movenext
wend
response.write "</marquee>"
end if
set rsnews=nothing %> </td>
              </tr>
            </table>
          </td>
            </tr>
            <tr> 
              <TD bgColor=#ffffff> 
			  <TABLE border=0 cellPadding=0 cellSpacing=0 width="100%" style="margin-top:3px">
                  <TBODY>
                    <TR bgColor=#ffcc00> 
                      <TD colSpan=3 height=3></TD>
                    </TR>
                    <TR> 
                      
                <TD bgColor=#ffcc00 
                  width=140 align="center">&nbsp;最新店铺</TD>
                      <TD bgColor=#ffcc00 width=20> <IMG height=20 
                  src="images/conner.gif" width=20></TD>
                      
                <TD bgColor=#e9e9e9 align="center"> <a href="shop.asp" target="_blank">更多</a> 
                </TD>
                    </TR>
                  </TBODY>
                </TABLE>
                
            <%=newshopindex(10)%> </TD>
            </tr>
            <tr> 
              <TD valign="top" bgColor=#ffffee>
			   <TABLE border=0 cellPadding=0 cellSpacing=0 width="100%" style="margin-top=3px">
                  <TBODY>
                    <TR bgColor=#ffcc00> 
                      <TD colSpan=3 height=3></TD>
                    </TR>
                    <TR> 
                      
                <TD bgColor=#ffcc00 width=140 align="center">论坛新贴</TD>
                      <TD width=20> <IMG height=20 
                  src="images/conner2.gif" width=20></TD>
                      <TD vAlign=bottom> <DIV align=right 
              style="PADDING-RIGHT: 5px"></DIV></TD>
                    </TR>
                  </TBODY>
                </TABLE>
                <TABLE border=0 cellPadding=4 cellSpacing=2 width="90%">
                  <TBODY>
                    <TR> 
                      <TD><script src=http://asp/bbs6/newtopic.asp?boardid=all&tlen=16&n=10&sdate=1&orders=2&info=0&action=1></script>

                        </TD>
                    </TR>
                  </TBODY>
                </TABLE></TD>
            </tr>
          </TBODY>
        </TABLE>
        
    </TD>
      <TD align="right" vAlign=top> 
        <TABLE 
        width="526" border=0 cellPadding=0 cellSpacing=1 bgColor=#ffcc00>
          <TBODY>
            <TR> 
              <TD width="524" valign="top" bgColor=#ffffff> 
                <TABLE width="524" border=0 cellPadding=0 cellSpacing=0>
                  <TBODY>
                    <TR bgColor=#ffcc00> 
                      <TD colSpan=3 height=1></TD>
                    </TR>
                    <TR> 
                      <TD width=140 align="center" bgColor=#ffcc00>&nbsp;<A href="browse.asp">商品分类</A></TD>
                      <TD bgColor=#ffcc00 width=20> <IMG height=20 
                  src="images/conner.gif" width=20></TD>
                      <TD align=middle vAlign=bottom bgColor=#e9e9e9> <a href="alllist.asp">所有商品</a>|<a href="alllist.asp?action=closing">即将结束</a>|<a href="alllist.asp?action=new">新登商品</a> 
                        |<a href="alllist.asp?action=hot">热点商品</a></TD>
                    </TR>
                  </TBODY>
                </TABLE>
                <table width="524" border="0">
<%sql="select * from cat where depth=0 order by rootid,orders"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof then 
	response.write "<tr><td>还没有分类呢</td></tr>"
end if
i=1	
do while not rs.eof
If i mod 2 = 1 Then
	Response.Write "<tr valign=""top"">"
End If%>
                    <td width="518"> 
                      <table width="249" border="0">
                        <tr> 
                          <td width="193"><img src=images/hit.gif><a href="cat.asp?catid=<%=fval(rs("catID"))%>"><b><%=rs("catname")%></b></a></td>
                          <td width="46"><a href="cat.asp?catid=<%=fval(rs("catID"))%>" target="_blank">更多</a></td>
                      </tr>
                    </table>                   
<%rs.movenext
	If rs.eof AND i mod 2 = 1 Then
		Response.Write "<TD colspan=2>&nbsp;</TD>"
	End If
	If i mod 2 = 0 Then
		Response.Write "</TR>"
	End If	
	if i=16 then exit do
i = i + 1			
loop
%>
                  </td>
                  </tr>
                </table>
                <table width="100%" border="0" bgcolor="#FFCC00">
                  <tr> 
                    <td width="50%" align="center"><a href="browse.asp" target="_blank"><b>全部目录</b></a></td>
                    <td width="50%" align="center"><a href="shop.asp" target="_blank"><b>主题购物</b></a></td>
                  </tr>
                </table> </TD>
            </TR>
          </TBODY>
        </TABLE>        
        <TABLE 
        width="526" border=0 cellPadding=0 cellSpacing=1 bgColor=#ffcc00 style="margin-top:3px">
          <TBODY>
            <TR> 
              <TD width="524" bgColor=#ffffff> <TABLE border=0 cellPadding=0 cellSpacing=0 width="524">
                  <TBODY>
                    <TR bgColor=#ffcc00> 
                      <TD colSpan=3 height=1></TD>
                    </TR>
                    <TR> 
                      
                <TD width=140 align="center" bgColor=#ffcc00>&nbsp;<A href="alllist.asp?action=closing">即将结束</A></TD>
                      <TD bgColor=#ffcc00 width=20> <IMG height=20 
                  src="images/conner.gif" width=20></TD>
                      
                <TD height="20" align="center" valign="bottom" bgColor=#e9e9e9> 
                  <a href="alllist.asp?action=closing" target="_blank">更多商品</a></TD>
                    </TR>
                  </TBODY>
                </TABLE>
                <table width="100%" border="0">
                  <tr> 
                    
                <td width="100%"><%= getindex("closing",10) %></td>
                  </tr>
                </table></TD>
            </TR>
          </TBODY>
        </TABLE>
        <TABLE 
        width="526" border=0 cellPadding=0 cellSpacing=1 bgColor=#ffcc00 style="margin-top:3px">
          <TBODY>
            <TR> 
              <TD width="524" bgColor=#ffffff> 
                <TABLE border=0 cellPadding=0 cellSpacing=0 width="524">
                  <TBODY>
                    <TR bgColor=#ffcc00> 
                      <TD colSpan=3 height=1></TD>
                    </TR>
                    <TR> 
                      <TD width=140 align="center" bgColor=#ffcc00>&nbsp;<A href="alllist.asp?action=hot">热点商品</A></TD>
                      <TD bgColor=#ffcc00 width=20> <IMG height=20 
                  src="images/conner.gif" width=20></TD>
                      <TD height="20" align="center" valign="bottom" bgColor=#e9e9e9> 
                        <a href="alllist.asp?action=hot" target="_blank">更多商品</a></TD>
                    </TR>
                  </TBODY>
                </TABLE>
                <table width="100%" border="0">
                  <tr> 
                    <td width="100%"><%= getindex("hot",10) %></td>
                  </tr>
                </table></TD>
            </TR>
          </TBODY>
        </TABLE>
        <TABLE 
        width="526" border=0 cellPadding=0 cellSpacing=1 bgColor=#ffcc00 style="margin-top:3px">
          <TBODY>
            <TR> 
              <TD width="524" bgColor=#ffffff> 
                <TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
                  <TBODY>
                    <TR bgColor=#ffcc00> 
                      <TD colSpan=3 height=1></TD>
                    </TR>
                    <TR> 
                      <TD width=140 height="20" align="center" bgColor=#ffcc00>&nbsp;<A href="alllist.asp?action=new">新登商品</A></TD>
                      <TD width=20 height="20" bgColor=#ffcc00> <IMG height=20 
                  src="images/conner.gif" width=20></TD>
                      <TD height="20" align="center" vAlign=bottom bgColor=#e9e9e9> 
                        <a href="alllist.asp?action=new">更多商品</a></TD>
                    </TR>
                  </TBODY>
                </TABLE>
                <table width="100%" border="0">
                  <tr> 
                    <td> <%= getindex("new",10) %></td>
                  </tr>
                </table></TD>
            </TR>
          </TBODY>
        </TABLE>     
      </TD>
    </TR>
  </TBODY>
</TABLE>
<% footer %> 
<script language="javascript">
<!--
function isok(theform)
{
if (theform.name1.value=="")
  {
    alert("搜索关键字不能为空!");
    theform.name1.focus();
    return (false);
  }
return (true);
}
-->
</script>

⌨️ 快捷键说明

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