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

📄 index.asp

📁 购物系统(本版为正式商业版
💻 ASP
📖 第 1 页 / 共 5 页
字号:
                    </tr>
                    <tr>
                      <td colspan="2" align="right"><table width="176" border="0" align="center" cellpadding="0" cellspacing="0" class="rg_noti">
                          <%set rs5=server.CreateObject("adodb.recordset")
		  rs5.open "select top 10 shopid,shopname,chengjiaocount from shop_snsn order by chengjiaocount desc",conn,1,1%>
                          <%i=0
			  do while not rs5.eof%>
                          <tr>
                            <td height='24' >
                              <%response.write "&nbsp;<a href=../list.asp?id="&rs5("shopid")&" title=此商品已成功销售"&rs5("chengjiaocount")&"次><font color="&flxshph&">"
				if len(trim(rs5("shopname")))>13 then
				response.write left(trim(rs5("shopname")),13)&""
				else
				response.write trim(rs5("shopname"))
				end if
				response.write "</font></a><br>"
				%></td>
                          </tr>
                          <tr>
                            <td height="1"  background="/img/skin<%=cssid%>/x.gif"></td>
                          </tr>
                          <%i=i+1
			  if i>=8 then exit do
			  rs5.movenext
			  loop
			  rs5.close
			  set rs5=nothing%>
                      </table></td>
                    </tr>
                  </table>
                  <table width="188" border="0" align="center" cellpadding="0" cellspacing="0" background="/img/rg_bg.gif">
                    <tr bgcolor="#FFFFFF">
                      <td height="13" colspan="2"></td>
                    </tr>
                    <tr>
                      <td width="153" colspan="2"><img src="/img/rg_tl_cx.gif" width="188" height="36" border="0" usemap="#Map2Map"></td>
                    </tr>
                    <tr>
                      <td height="4" align="center" colspan="2"></td>
                    </tr>
                    <tr>
                      <td colspan="2" align="right"><table width="176" border="0" align="center" cellpadding="0" cellspacing="0" class="rg_noti">
                          <%set rs5=server.CreateObject("adodb.recordset")
		  rs5.open "select * from shop_snsn where cxiaoshop=1 order by adddate desc",conn,1,1%>
                          <%i=0
			  do while not rs5.eof%>
                          <tr>
                            <td height='24' >
                              <%response.write "&nbsp;<a href=../list.asp?id="&rs5("shopid")&" title=此商品已成功销售"&rs5("chengjiaocount")&"次><font color="&flxshph&">"
				if len(trim(rs5("shopname")))>13 then
				response.write left(trim(rs5("shopname")),13)&""
				else
				response.write trim(rs5("shopname"))
				end if
				response.write "</font></a><br>"
				%></td>
                          </tr>
                          <tr>
                            <td height="1"  background="/img/skin<%=cssid%>/x.gif"></td>
                          </tr>
                          <%i=i+1
			  if i>=8 then exit do
			  rs5.movenext
			  loop
			  rs5.close
			  set rs5=nothing%>
                      </table></td>
                    </tr>
                  </table>
                  <map name="MapMap">
                    <area shape="rect" coords="142,11,181,25" href="shoporder.asp">
                  </map>
                  <map name="Map2Map">
                    <area shape="rect" coords="147,12,182,24" href="/class.asp?lx=cx">
                  </map>
                  <%if xw=1 and xw1=2 then%>
                  <table width="188" border="0" align="center" cellpadding="0" cellspacing="0" background="/img/rg_bg.gif" class="sm_gray">
            <tr>
              <td height="12"></td>
            </tr>
            <tr>
              <td><img src="img/lf_news_y.gif" width="188" height="36" border="0" usemap="#Map10"></td>
          </tr>
            <tr>
              <td> </td>
            </tr>
      </table>
          <table width="188"  border="0" align="center" cellpadding="0" cellspacing="0" background="/img/rg_bg.gif">
            <tr>
              <td><table width="100%"  border="0" align="center" cellpadding="0" cellspacing="0">
                  <tr>
                    <td><%
				set rs=server.createobject("adodb.recordset")
		rs.open "select top 8 newsname,adddate,newsid from shop_news order by adddate desc",conn,1,1
		if rs.recordcount=0 then 
		%>
                        <table width="80%" border="0" cellspacing="0" cellpadding="5" align="center">
                          <tr>
                            <td height="26" align=center>暂无新闻</td>
                          </tr>
                        </table>
                        <%else%>
                        <table width="100%" border="0" cellspacing="0" cellpadding="0">
                        </table>
                        <table width="160" border="0" align="center" cellpadding="0" cellspacing="0">
                          <%
			while not rs.eof
			%>
                          <tr>
                            <td height="22"><img src="/img/go.gif" width="15" height="15"><a href="news/news.asp?id=<%=rs("newsid")%>" title=<%=year(rs("adddate"))%>年<%=month(rs("adddate"))%>月<%=day(rs("adddate"))%>日发布>
                              <%if len(trim(rs("newsname")))>11 then
	response.write left(trim(rs("newsname")),11)&""
	else
	response.write trim(rs("newsname"))
	end if%>
                            </a></td>
                          </tr>
                          <tr>
                            <td height="1" colspan="2" class="td_margin1"><img src="/img/skin<%=cssid%>/x.gif" width="149" height="1"></td>
                          </tr>
                          <%
			rs.movenext
		    wend
			%>
                        </table>
                        <%
		end if
		rs.close
		set rs=nothing
		%></td>
                  </tr>
              </table></td>
            </tr>
      </table>
          <%end if%>
        <%if zt=1 and zt1=2 then%>
          <table width="188" border="0" align="center" cellpadding="0" cellspacing="0" background="/img/rg_bg.gif" class="sm_gray">
            <tr>
              <td height="12"></td>
            </tr>
            <tr>
              <td><img src="img/lf_zt_y.gif" width="188" height="36" border="0" usemap="#Map6"></td>
          </tr>
            <tr>
              <td> </td>
            </tr>
      </table>
          <table width="188"  border="0" align="center" cellpadding="0" cellspacing="0" background="/img/rg_bg.gif">
            <tr>
              <td><table width="100%"  border="0" align="center" cellpadding="0" cellspacing="0">
                  <tr>
                    <td><%
				set rs=server.createobject("adodb.recordset")
		rs.open "select top 8 Title,UpdateTime,newsid from shop_zhuanti order by UpdateTime desc",conn,1,1
		if rs.recordcount=0 then 
		%>
                        <table width="80%" border="0" cellspacing="0" cellpadding="5" align="center">
                          <tr>
                            <td height="26" align=center>暂无专题</td>
                          </tr>
                        </table>
                        <%else%>
                        <table width="100%" border="0" cellspacing="0" cellpadding="0">
                        </table>
                        <table width="160" border="0" align="center" cellpadding="0" cellspacing="0">
                          <%
			while not rs.eof
			%>
                          <tr>
                            <td height="22"><img src="/img/go.gif" width="15" height="15"><a href="info/listzt.asp?id=<%=rs("newsid")%>" title=<%=year(rs("UpdateTime"))%>年<%=month(rs("UpdateTime"))%>月<%=day(rs("UpdateTime"))%>日发布>
                              <%if len(trim(rs("Title")))>11 then
	response.write left(trim(rs("Title")),11)&""
	else
	response.write trim(rs("Title"))
	end if%>
                            </a></td>
                          </tr>
                          <tr>
                            <td height="1" colspan="2" class="td_margin1"><img src="/img/skin<%=cssid%>/x.gif" width="149" height="1"></td>
                          </tr>
                          <%
			rs.movenext
		    wend
			%>
                        </table>
                        <%
		end if
		rs.close
		set rs=nothing
		%></td>
                  </tr>
              </table></td>
            </tr>
      </table>
          <%end if%>
          <%if gq=1 and gq1=2 then%>
          <table width="188" border="0" align="center" cellpadding="0" cellspacing="0" background="/img/rg_bg.gif" class="sm_gray">
            <tr>
              <td height="12"></td>
            </tr>
            <tr>
              <td><img src="img/lf_info_y.gif" width="188" height="36" border="0" usemap="#Map5"></td>
            </tr>
            <tr>
              <td> </td>
            </tr>
      </table>
          <table width="188"  border="0" align="center" cellpadding="0" cellspacing="0" background="/img/rg_bg.gif">
            <tr>
              <td><table width="100%"  border="0" align="center" cellpadding="0" cellspacing="0">
                  <tr>
                    <td><%
				set rs=server.createobject("adodb.recordset")
		  rs.open "select top 6 id,tit,lls from shop_infomsg order by id desc",conn,1,1
		if rs.recordcount=0 then 
		%>
                      <table width="80%" border="0" cellspacing="0" cellpadding="5" align="center">
                        <tr>
                          <td height="26" align=center>暂无信息</td>
                        </tr>
                      </table>
                      <%else%>
                      <table width="100%" border="0" cellspacing="0" cellpadding="0">
                      </table>
                      <table width="160" border="0" align="center" cellpadding="0" cellspacing="0">
                        <%
			while not rs.eof
			%>
                        <tr>
                          <td height="22"><img src="/img/go.gif" width="15" height="15"><a href=Supply/show.asp?n=<%=rs("id")%> title=此信息已被浏览<%=rs("lls")%>次>
                            <%if len(trim(rs("tit")))>11 then
	response.write left(trim(rs("tit")),11)&""
	else
	response.write trim(rs("tit"))
	end if%>
                          </a></td>
                        </tr>
                        <tr>
                          <td height="1" colspan="2" class="td_margin1"><img src="/img/skin<%=cssid%>/x.gif" width="149" height="1"></td>
                        </tr>
                        <%
			rs.movenext
		    wend
			%>
                      </table>
                    <%
		end if
		rs.close
		set rs=nothing
		%></td>
                  </tr>
              </table></td>
            </tr>
      </table>
          <%end if%>
          <%if rj=1 and rj1=2 then%>
          <table width="188" border="0" align="center" cellpadding="0" cellspacing="0" background="/img/rg_bg.gif" class="sm_gray">
            <tr>
              <td height="12"></td>
            </tr>
            <tr>
              <td><img src="img/lf_Diary_y.gif" width="188" height="36" border="0" usemap="#Map9"></td>
            </tr>
            <tr>
              <td> </td>
            </tr>
      </table>
          <table width="188"  border="0" align="center" cellpadding="0" cellspacing="0" background="/img/rg_bg.gif">
            <tr>
              <td><table width="100%"  border="0" align="center" cellpadding="0" cellspacing="0">
                  <tr>
                    <td><%
				set rs=server.createobject("adodb.recordset")
		rs.open "select top 8 * from shop_rj where shh=1 order by id desc",conn,1,1
		if rs.recordcount=0 then 
		%>
                        <table width="80%" border="0" cellspacing="0" cellpadding="5" align="center">
                          <tr>
                            <td height="26" align=center>暂无<span class="b14">日记</span></td>
                          </tr>
                        </table>
                        <%else%>
                        <table width="100%" border="0" cellspacing="0" cellpadding="0">
                        </table>
                        <table width="160" border="0" align="center" cellpadding="0" cellspacing="0">
                          <%
			while not rs.eof
			%>
                          <tr>
                            <td height="22"><img src="/img/go.gif" width="15" height="15"><a href="Diary/rj_show.asp?n=<%=rs("id")%>" title=<%=year(rs("rjdate"))%>年<%=month(rs("rjdate"))%>月<%=day(rs("rjdate"))%>日发布>
                              <%if len(trim(rs("rjname")))>11 then
	response.write left(trim(rs("rjname")),11)&""
	else
	response.write trim(rs("rjname"))
	end if%>
                            </a></td>
                          </tr>
                          <tr>
                            <td height="1" colspan="2" class="td_margin1"><img src="/img/skin<%=cssid%>/x.gif" width="149" height="1"></td>
                          </tr>
                          <%
			rs.movenext
		    wend
			%>

⌨️ 快捷键说明

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