📄 index.asp

📁 实用的拍卖源码。适合个人建站学习使用。仅供学习参考
💻 ASP
字号:
<!-- #include file="inc/char.asp" -->
<!-- #include file="conn.asp" -->
<!-- #include file="head.asp" -->
<html>
<head>
<TITLE><%=webname%>--首页---联系QQ:6439358，联系邮箱vqqq59r@163.com，网站www.vqqq.com，谢谢大家对我们系统的支持</title>
<META http-equiv=Content-Type content="text/html; charset="<%=charset%>">
<META name="keywords" content="<%=keywords%>">
<META name="description" content="<%=description%>">
</HEAD>
<BODY>
<CENTER>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=760>
  <tr>
    <td height="5"></td>
  </tr>
</table>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=760 bgcolor=<%=bgcolor%>>
  <TBODY>
  <TR>
    <TD vAlign=top width=240>
      <TABLE class=yellow_bg border=0 cellPadding=0 cellSpacing=1 width="100%"><TBODY>
        <tr>
          <TD bgcolor=<%=bgcolor%>>
          <!--#include file="news_left.asp"-->
	</TD>
        </tr>
	</TBODY></TABLE>
    <TD width=2 bgcolor=<%=bgcolor%>></TD>
    <TD vAlign=top>
      <TABLE class=yellow_bg border=0 cellPadding=0 cellSpacing=1 width="100%"><TBODY>
        <TR>
          <TD bgcolor=<%=bgcolor%>>
<!--#include file="hotauc.asp"-->
<!--#include file="hotshop.asp"-->
            <TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
              <TBODY>
              <TR class=yellow_bg>
                <TD colSpan=3 height=2></TD></TR>
              <TR>
                <TD class=yellow_bg width=140>&nbsp;<font class=fblack><b>商品分类</b></font></TD>
                <TD width=20 class=yellow_bg>
                <IMG height=22 src="images/conner.gif" width=20></TD>
                <TD align=middle vAlign=bottom class=huise_bg>
                <a href="cat.asp?action=all"  class="blacklink">所有商品</a> 
                / <a href="cat.asp?action=closing" class="blacklink">即将结束</a> 
                / <a href="cat.asp?action=new" class="blacklink">新登商品</a> 
                / <a href="cat.asp?action=hot" class="blacklink">热点商品</a></TD></TR>
		</TBODY></TABLE><BR>
            <TABLE align=right border=0 cellPadding=2 cellSpacing=0 width=525>
              <TBODY>
              <TR>
                <TD width="100%">
		<table width="100%" border="0" cellpadding="2" cellspacing="1">
		<tr>
		<%
		sqlfl = "SELECT * FROM cat order by catid"    
		set rsfl=server.createobject("adodb.recordset")
		rsfl.open sqlfl,conn,1,1
		if rsfl.eof then 
		response.write "还没有分类呢"
		end if
dim kk
kk=0
		    do while not rsfl.eof
		%>
		    <td width=50%><img src=images/hit.gif>
		        <a href="displaycats.asp?catid=<%=rsfl("catID")%>" class="catbig"><%=rsfl("catname")%></a><br>&nbsp;&nbsp;
			<%
			sqlfl2="select * from catson where catID="&rsfl("catID")
			set rsfl2=server.createobject("adodb.recordset")
		   	rsfl2.open sqlfl2,conn,1,1
			if rsfl2.eof then
			 response.write "还没有分类目录呢！"
			else
		if rsfl2.recordcount<4 then
			while not rsfl2.eof 
			%>
			<a href="displaycats.asp?catid=<%=rsfl("catID")%>&catsid=<%=rsfl2("catsonID")%>"><%=rsfl2("catsonname")%></a>
			|<%rsfl2.movenext
			wend
		else
			for i=1 to 4
			%>
		<a href="displaycats.asp?catid=<%=rsfl("catID")%>&catsid=<%=rsfl2("catsonID")%>"><%=rsfl2("catsonname")%></a>	|
			<%
			rsfl2.movenext
			next
		end if
			end if
			%>
		    </td>

		<%
			kk=kk+1
			if kk mod 2=0 then
			response.write"</tr><tr>"
			end if
		  	rsfl.movenext
			loop
			rsfl.close
			rsfl2.close
		        set rsfl = nothing
		        set rsf2 = nothing
			%>
		  </tr>
		<tr><td colspan=2 align=right><a href="aucclass.asp"><更多分类></a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="searchshop.asp">☆vqqq商店☆</a>&nbsp;&nbsp;&nbsp;</td></tr>
		</table>
                </TD>
                </TR>
              </TBODY></TABLE>
              </TD></TR></TBODY></TABLE>
</td>
</TR></TBODY></TABLE>
</CENTER>
</BODY></HTML>
<!-- #include file="bottom.asp" -->
⌨️ 快捷键说明

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