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

📄 index.asp

📁 佳可商务购物程序v1.0
💻 ASP
📖 第 1 页 / 共 4 页
字号:
                      </table>
                      <%end if
rs.close
set rs=nothing%>
                      <%set rs=server.CreateObject("adodb.recordset")
rs.open "select top 10 * from pingpai where tuijian=1 order by pingpaiorder",conn,1,1
if rs.eof and rs.bof then
response.write "<center>&nbsp;</center>"
else%>
                      <table width="180" border="0" cellspacing="0" cellpadding="0">
                        <tr> 
                          <td bgcolor="#F0F0F0" height="28"> 
                            <table cellspacing=0 cellpadding=0 width=170 height="20">
                              <tr> 
                                <td width=5>&nbsp;</td>
                                <td width=28> 
                                  <div align="center"><img src="images/index7.gif" width="14" height="10"></div>
                                </td>
                                <td class=hg12 valign=bottom width="123">&nbsp;<b><font color="#990000">品牌推荐</font></b></td>
                                <td width=12>&nbsp;</td>
                              </tr>
                            </table>
                          </td>
                        </tr>
                        <tr> 
                          <td> 
                            <table width="91%" border="0" align="center" cellpadding="0" cellspacing="0">
                              <tr> 
                                <td height="2"></td>
                              </tr>
                              <tr> 
                                <td height="19"> 
                                  <div align="center"> </div>
                                </td>
                              </tr>
                              <tr> 
                                <td> 
                                  <%
		  while not rs.eof
		  response.write "·<a href=research.asp?action=2&searchkey="&trim(rs("pingpainame"))&" target=_blank>"&trim(rs("pingpainame"))&"</a><br>"
		  rs.movenext
		  wend
		  %>
                                </td>
                              </tr>
                              <tr> 
                                <td height="1" ></td>
                              </tr>
                            </table>
                          </td>
                        </tr>
                        <tr> 
                          <td height="19">&nbsp;</td>
                        </tr>
                      </table>
                      <%end if
rs.close
set rs=nothing%>
                      <table width="180" border="0" cellspacing="0" cellpadding="0">
                        <tr> 
                          <td bgcolor="#F0F0F0" height="28"> 
                            <table cellspacing=0 cellpadding=0 width=170 height="20">
                              <tr> 
                                <td width=5>&nbsp;</td>
                                <td width=28> 
                                  <div align="center"><img src="images/index7.gif" width="14" height="10"></div>
                                </td>
                                <td class=hg12 valign=bottom width="123">&nbsp;<b>特价商品</b></td>
                                <td width=12>&nbsp;</td>
                              </tr>
                            </table>
                          </td>
                        </tr>
                        <tr> 
                          <td> 
                            <table width="91%" border="0" align="center" cellpadding="0" cellspacing="0">
                              <tr> 
                                <td height="6"></td>
                              </tr>
                              <tr> 
                                <td height="20"> 
                                  <%
			set rs=server.CreateObject("adodb.recordset")
			i=0
			rs.open "select top 8 bookid,dazhe,bookname from shop_books where dazhe<=0.6 order by adddate desc",conn,1,1
			if rs.eof and rs.bof then
			response.write "<br>目前没有特价商品"
			end if
			if rs.recordcount>=3 then
			rs.absoluteposition=3
			do while not rs.eof
			i=i+1
			if len(trim(rs("bookname")))>14 then
			response.write "·<a href=book.asp?id="&rs("bookid")&" target=_blank>"&left(trim(rs("bookname")),12)&"...</a>&nbsp;&nbsp;<font color=#FF6600>"&rs("dazhe")*100&"%</font><br>"
			else
			response.write "·<a href=book.asp?id="&rs("bookid")&" target=_blank>"&trim(rs("bookname"))&"</a>&nbsp;&nbsp;<font color=#FF6600>"&rs("dazhe")*100&"%</font><br>"
			end if
			if i>=6 then exit do
			rs.movenext
			loop
			end if
			rs.close
			set rs=nothing
			%>
                                </td>
                              </tr>
                              <tr> 
                                <td></td>
                              </tr>
                              <tr> 
                                <td height="1"></td>
                              </tr>
                              <tr> 
                                <td height="1"></td>
                              </tr>
                            </table>
                          </td>
                        </tr>
                        <tr> 
                          <td>&nbsp;</td>
                        </tr>
                      </table>
                      <table width="180" border="0" cellspacing="0" cellpadding="0">
                        <tr> 
                          <td bgcolor="#F0F0F0" height="28"> 
                            <table cellspacing=0 cellpadding=0 width=170 height="20">
                              <tr> 
                                <td width=5>&nbsp;</td>
                                <td width=28> 
                                  <div align="center"><img src="images/index7.gif" width="14" height="10"></div>
                                </td>
                                <td class=hg12 valign=bottom width="123">&nbsp;<b>请投一票</b></td>
                                <td width=12>&nbsp;</td>
                              </tr>
                            </table>
                          </td>
                        </tr>
                        <tr> 
                          <td> 
                            <!--
            <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#CDDEED">
              <tr> 
                <td height="6"></td>
              </tr>
              <tr> 
                <td height="20"> 
                  <div align="center">
                    <script language="javascript" src="admin/vote/votedy.asp"></script>
                  </div>
                </td>
              </tr>
              <tr> 
                <td></td>
              </tr>
              <tr> 
                <td height="1" background="images/ppb.gif"></td>
              </tr>
              <tr> 
                <td> 
                  <div align="right"></div>
                </td>
              </tr>
              <tr> 
                <td height="1" background="images/ppb.gif"></td>
              </tr>
            </table>
            -->
                            <table width="94%" border="0" cellpadding="0" cellspacing="0">
                              <tr> 
                                <td width="100%" align="center" height=50> 
                                  <%
		set rs=conn.execute("SELECT * FROM vote where IsChecked=1 ") 
		if rs.eof then
	  %>
                                  暂无投票 
                                  <%else%>
                                  <table border="0" width="91%" cellspacing="2" cellpadding="2">
                                    <tr> 
                                      <td width=100% align="center"><b><br>
                                        <%=rs("Title")%> </b><br>
                                      </td>
                                    </tr>
                                    <form action="vote.asp" target="newwindow" method=post name=research>
                                      <tr> 
                                        <td valign=top width="100%"> 
                                          <%
for i=1 to 8
	if rs("Select"&i)<>"" then
%>
                                          <input style="border: 0" <%if i=1 then%>checked<%end if%> name=Options type=radio value=<%=i%>>
                                          <%=i%>.<%=rs("Select"&i)%><br>
                                          <%
	end if
next
%>
                                        </td>
                                      </tr>
                                      <tr> 
                                        <td width="100%" height=30 align=center> 
                                          <input type="image" border="0" name="submit" src="images/vote1.gif" width="59" height="19" style="cursor:hand">
                                          <a href="vote.asp?stype=view" target="_blank"><img src="images/vote.gif" width="59" height="19" border="0"></a> 
                                        </td>
                                      </tr>
                                    </form>
                                  </table>
                                  <%end if%>
                                </td>
                              </tr>
                            </table>
                          </td>
                        </tr>
                        <tr> 
                          <td>&nbsp;</td>
                        </tr>
                      </table>
                    </td>
                  </tr>
                </table>
              </td>
            </tr>
          </table>
          <!--#include file="service.asp"-->
          <!--#include file="copyright.asp"-->
          <div  id=floater 
            style="Z-INDEX: 20; WIDTH: 130px; POSITION: absolute; TOP: 342px; overflow: visible;; left: 2px"> 
          </div>
          <script language=javascript 
            src="floater.js"></script>
        </td>
      </tr>
    </table>
</body>
</html>

⌨️ 快捷键说明

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