📄 index.asp
字号:
<TABLE cellSpacing=0 cellPadding=0 width=760 align=center border=0 class=page>
<TBODY>
<TR> <td>
<!--#include file="top.asp"-->
<strong><font color="#00009c">
<SCRIPT language=JavaScript>
function CheckInput(){
if(input.username.value==''){
alert("用户帐号不能为空！");
input.username.focus();
return false;
}
if( input.password.value =="") {
alert("密码不能为空!")
input.password.focus();
return false;
}
return true;
}
</SCRIPT>
</font></strong>
<TABLE width=760 border=0 align=center cellSpacing=0 cellPadding=0>
<TBODY>
<TR>
<TD vAlign=top width=176><!--#include file="left.asp"-->
</TD><td bgcolor="#59be48" width="1"></td>
<TD vAlign=top>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD bgColor=#008000 height=21> <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD align=middle width=25 bgcolor="#FFFFFF" >
<img border="0" src="images/news.gif" width="15" height="15"></TD>
<TD bgcolor="#FFFFFF" >本站新闻</TD>
<TD width=90 bgcolor="#FFFFFF" >
<a href="news_list.asp">
<img border="0" src="images/more.gif" width="60" height="10" align="right"></a></TD>
</TR>
</TBODY>
</TABLE>
</TD>
</TR>
<TR>
<TD> <table width="100%" border="0" cellpadding="2" style="border-collapse: collapse">
<%
Set rs= conn.execute("select * from news order by news_id desc" )
do while not rs.eof
%>
<tr>
<td height=18 > ·<a href="news_info.asp?news_id=<%=rs("news_id")%>" target="_blank"><%=rs("news_title")%></a><font color="#999999"> (<%=rs("news_date")%>)</font></td>
<% i=i+1
if i>=6 then exit do
rs.movenext
loop
rs.close
set rs=nothing
%>
</tr>
</table>
</TD>
</TR>
</TBODY>
</TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD height=11><IMG height=11
src="images/kuai10.gif" width=1></TD>
</TR>
</TBODY>
</TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD bgColor=#59BE48 height=21> <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD align=middle width=25 bgcolor="#FFFFFF">
<img border="0" src="images/news.gif" width="15" height="15"></TD>
<TD bgcolor="#FFFFFF">新进商品</TD>
<TD width=90 bgcolor="#FFFFFF"><a href="goods_list.asp">
<img border="0" src="images/more.gif" width="60" height="10" align="right"></a></TD>
</TR>
</TBODY>
</TABLE>
</TD>
</TR>
<TR>
<TD>
<table width="100%" border="0" cellspacing="4" style="border-collapse: collapse">
<%
Set rs= conn.execute("select * from goods_info order by goods_id desc" )
do while not rs.eof
%>
<tr>
<td height=21 > ·<a href="goods_info.asp?goods_id=<%=rs("goods_id")%>"><%=rs("goods_name")%></a>
<font color="#999999">(<%=rs("goods_date")%>)</font></td>
<% s=s+1
if s>=10 then exit do
rs.movenext
loop
rs.close
set rs=nothing
%>
</tr>
</table>
</TD>
</TR>
</TBODY>
</TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD bgColor=#59BE48 height=21> <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD align=middle width=25 bgcolor="#FFFFFF">
<img border="0" src="images/news.gif" width="15" height="15"></TD>
<TD bgcolor="#FFFFFF">新开店铺</TD>
<TD width=90 bgcolor="#FFFFFF"><a href="shop_list.asp">
<img border="0" src="images/more.gif" width="60" height="10" align="right"></a></TD>
</TR>
</TBODY>
</TABLE>
</TD>
</TR>
<TR>
<TD> <table width="100%" border="0" cellspacing="4" style="border-collapse: collapse">
<%
Set rs= conn.execute("select * from user_info order by user_id desc" )
do while not rs.eof
%>
<tr>
<td height=18 > ·<a href="shop_info.asp?user_id=<%=rs("user_id")%>"><%=rs("shop_name")%></a>
<font color="#999999">(<%=rs("user_date")%>)</font></td>
<% d=d+1
if d>=8 then exit do
rs.movenext
loop
rs.close
set rs=nothing
%>
</tr>
</table>
</TD>
</TR>
</TBODY>
</TABLE>
</TD><td bgcolor="#59be48" width="1"></td>
<TD width=180 vAlign=top>
<%
Set tj=Conn.Execute("select * from tj_info where tj_id=1")
Set tjshop=Conn.Execute("select * from user_info where user_id="&tj("tj_info_id")&"")
%>
<TABLE cellSpacing=0 cellPadding=0 align=center border=0>
<TBODY>
<TR>
<TD width=779 vAlign=top>
<TABLE width=100% border=0 cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
<TD bgColor=#DFF1DC height=21>
<TABLE cellSpacing=0 cellPadding=0 width="105%" border=0>
<TBODY>
<TR>
<TD align=middle width=25>
<img border="0" src="images/tj.gif" width="16" height="16"></TD>
<TD>本周推荐店铺</TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR>
<TD >
<div align="center">
<table width="100%" border="0">
<tr>
<td align="center"><a href="shop_info.asp?user_id=<%=tjshop("user_id")%>" target="_blank">
<img src="<%=tjshop("shop_img")%>" width="100" height="100" border="1" style="border: 1px solid #008000"></a></td>
</tr>
<tr>
<td><font color="#008000">店铺名称：</font><a href="shop_info.asp?user_id=<%=tjshop("user_id")%>" target="_blank"><%=tjshop("shop_name")%></a></td>
</tr>
<tr>
<td><font color="#008000">店铺掌柜：</font><%=tjshop("user_realname")%></td>
</tr>
</table></div>
</TD>
</TR>
</TBODY>
</TABLE>
</TD>
</TR>
</TBODY>
</TABLE>
<%
tj.close
set tj=nothing
tjshop.close
set tjshop=nothing
%>
<br>
<%
set tj=server.createobject("adodb.recordset")
sql="select * from tj_info where tj_id<>1"
tj.open sql,conn,1,3
%><TABLE cellSpacing=0 cellPadding=0 align=center border=0>
<TBODY>
<TR>
<TD width=779 vAlign=top>
<TABLE width=100% border=0 cellPadding=0 cellSpacing=0>
<TBODY>
<TR>
<TD bgColor=#DFF1DC height=21> <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD align=middle width=25>
<img border="0" src="images/tj.gif" width="16" height="16"></TD>
<TD>本周推荐商品</TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR>
<TD> <%do while not tj.eof %> <TABLE width="100%" border=0 cellPadding=4 cellSpacing=2 >
<TR>
<TD width="75" rowspan="2" align="center"> <%Set tjgoods=Conn.Execute("select * from goods_info where goods_id="&tj("tj_info_id")&"")%>
<a href="goods_info.asp?goods_id=<%=tjgoods("goods_id")%>" target="_blank">
<IMG src="<%=tjgoods("goods_pic")%>" width="70" height="70" border="1" style="border: 1px solid #008000"></a></TD>
<TD><a href="goods_info.asp?goods_id=<%=tjgoods("goods_id")%>" target="_blank"><%=tjgoods("goods_name")%></a></TD>
</TR>
<TR>
<TD valign="top"><%=left(tjgoods("goods_content"),20)%> ……</TD>
</TR>
<TBODY>
</TBODY>
</TABLE>
<%
tj.movenext
loop
%> </TD>
</TR>
</TBODY>
</TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD> </TD>
</TR>
</TBODY>
</TABLE>
</TD>
</TR>
</TBODY>
</TABLE>
</TD>
</TR>
</TBODY>
</TABLE>
<!--#include file="bottom.asp"-->
</TD>
</TR>
</TBODY>
</TABLE>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -