📄 index.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"> 最新店铺</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> <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> </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> <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> <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> <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 + -