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

📄 index.asp

📁 BJXSHOP购物管理系统是一个功能完善、展示信息丰富的电子商店销售平台;针对企业与个人的网上销售系统;开放式远程商店管理;完善的订单管理、销售统计、结算系统;强力搜索引擎支持;提供网上多种在线支付方
💻 ASP
📖 第 1 页 / 共 2 页
字号:
<!--#include file="connection.asp"-->
<!--#include file="webconfig.asp"-->
<!--#include file="char.asp"-->
<html>
<head>
<title><%=webname%>--首页</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

<link href="images/default.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" onMouseOver="window.status='【<%=webname%>】<%=weburl%> 如果您喜欢本站,别忘了把本站介绍给您的好友哦!:)';return true">
<!--#include file=webtop.asp-->
<%dim dada,dadaurl,xiao1,xiao2,xiao3,xiao4,xiao5,xiao1url,xiao2url,xiao3url,xiao4url,xiao5url,tx1,tx1url,tx2,tx2url,tx3,tx3url,tx4,tx4url
set rs=conn.execute("select * from shop_gg")
dada=trim(rs("458"))
dadaurl=trim(rs("458url"))
xiao1=trim(rs("2541"))
xiao1url=trim(rs("2541url"))
xiao2=trim(rs("2542"))
xiao2url=trim(rs("2542url"))
xiao3=trim(rs("2543"))
xiao3url=trim(rs("2543url"))
xiao4=trim(rs("2544"))
xiao4url=trim(rs("2544url"))
xiao5=trim(rs("2545"))
xiao5url=trim(rs("2545url"))
tx1=trim(rs("1441"))
tx1url=trim(rs("1441url"))
tx2=trim(rs("1442"))
tx2url=trim(rs("1442url"))
tx3=trim(rs("1443"))
tx3url=trim(rs("1443url"))
tx4=trim(rs("1444"))
tx4url=trim(rs("1444url"))

rs.close
set rs=nothing
%>
<table width="778"  border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="171" rowspan="2" align="left" valign="top"><table width="160" border="0" align="left" cellpadding="0" cellspacing="0">
      <tr>
        <td colspan="2"><img src="<%if request.cookies("bookshop")("username")="" then
			response.write "images/login_r1_c1.gif"
			else
			response.write "images/GWXX.gif"
			end if%>" width="170" height="26"></td>
      </tr>
      <tr>
        <td width="1" rowspan="2"><img src="images/login_r2_c1.gif" width="6" height="164"></td>
        <td width="138" height="140" align="center" valign="middle" background="images/login_r2_c2.gif">
          <!--#include file="userinfo.asp"--></td>
      </tr>
      <tr>
        <td valign="bottom"><img src="images/login_r3_c2.gif" width="164" height="20"></td>
      </tr>
    </table></td>
    <td width="607"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" ID="Table1">
      <tr>
        <form name="searchform" method="post" action="research.asp?datestart=1990-1-1&dateend=2008-12-31" ID="Form1">
          <td width="550" height="26" background="images/search_bg.gif" bgcolor="#ffd55a"><div align="center"> <img src="images/search.gif" width="76" height="25" align="absmiddle"> &nbsp;
                  <input name="searchkey" type="text" size="20"  onFocus="this.value=''" value="请输入图书名称">
                  <select name="action" id="select2">
                    <option value="1" selected>书 名</option>
                    <option value="2">作 者</option>
                    <option value="3">出版社</option>
                    <option value="4">ISBN</option>
                  </select>
&nbsp;
<input style="background-color: #01BAF2; background-repeat: repeat; background-attachment: scroll; color: #000000; font-size: 12px; font-style: normal; font-variant: normal; font-weight: normal; height: 18px; line-height: normal; border: 1px solid #A55400; background-position: 0% 50%" type="submit" name="Submit" value="立即查询" onClick="return checkss();" id="Submit4">
&nbsp;
          <input style="background-color: #01BAF2; background-repeat: repeat; background-attachment: scroll; color: #000000; font-size: 12px; font-style: normal; font-variant: normal; font-weight: normal; height: 18px; line-height: normal; border: 1px solid #A55400; background-position: 0% 50%" type="button" name="Submit2" value="高级查询" onClick="location.href='search.asp'" ID="Submit22">
</div></td>
        </form>
      </tr>
    </table></td>
  </tr>
  <tr>
    <td><a href=<%=dadaurl%> target="_blank"><img src=<%=dada%>  border="0"></a></td>
  </tr>
</table>
<table width="776" height="6" border="0" align="center" cellpadding="0" cellspacing="0">
</table>
<table width="776" height="6" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td height=3></td>
  </tr>
</table>
<table width="776" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td><div align="center"></div>      <div align="center"></div>      <div align="center"><a href=<%=xiao3url%> target="_blank"><img src=<%=xiao3%>  border="0"></a></div></td>
  </tr>
</table>
<table width="776" height="6" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td height=3></td>
  </tr>
</table>
<table width="776" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td width="160" valign="top"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td><img src="images/INDEX_r3_c1.jpg" width="170" height="29"></td>
      </tr>
      <tr>
        <td><table width="100%" border="0" cellspacing="0" cellpadding="0">
            <tr>
              <td background="images/INDEX_r9_c1.jpg" style="padding-left:3px">
                <marquee direction="up" width="160" height="106"  scrollamount="2" id=info onmouseover=info.stop() onmouseout=info.start() ><%dim i
		  i=0
		  set rs=conn.execute("select top 7 newsname,adddate,newsid from shop_news order by adddate desc")
		  if rs.eof and rs.bof then
		  response.write "目前还没有新闻!"
		  else
		  do while not rs.eof
		  i=i+1
		  response.write "·<a href=# onClick=""javascript:window.open('news.asp?id="&rs("newsid")&"','','width=496,height=340,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=yes');return false;"" title="&year(rs("adddate"))&"年"&month(rs("adddate"))&"月"&day(rs("adddate"))&"日发布>"&ubbcode(trim(rs("newsname")))&"</a><br>"
		  if i>=7 then exit do
		  rs.movenext
		  loop
		  end if
		  rs.close
		  set rs=nothing%></marquee>
              </td>
            </tr>
            <tr>
              <td><img src="images/INDEX_r11_c1.jpg" width="170" height="20"></td>
            </tr>
        </table></td>
      </tr>
      <tr>
        <td>&nbsp;</td>
      </tr>
    </table>
    <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr> 
          <td height="22"><div align="center"><img src="images/tsfl.gif" width="170" height="30"></div></td>
        </tr>
        <tr> 
          <td><table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#CA6802">
              <tr> 
                <td height="70" bgcolor="#FDFADD"><!--#include file="CyClass.asp"--></td>
              </tr>
            </table></td>
        </tr>
      </table>
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td height="22"><div align="center"><br>
            <img src="images/tszt.gif" width="170" height="30"></div></td>
        </tr>
        <tr> 
          <td><table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor=#969F05>
              <tr> 
                <td height="48" bgcolor="#FDFADD"><!--#include file="ZhuanTi.asp"--></td>
              </tr>
            </table></td>
        </tr>
      </table>
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td height="22"><div align="center"><br>
            <img src="images/tjls.gif" width="170" height="30"></div></td>
        </tr>
        <tr> 
          <td><table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor=#FF0000>
              <tr> 
                <td height="48" bgcolor="FFEDED"><table width="100%" border="0" cellspacing="0" cellpadding="0">
                  <tr>
                    <td style="padding-left:6px">
                      <%set rs=conn.execute("select top 10 bookid,bookname from shop_books where dazhe<=0.69  order by bookdateorder desc")
		  i=0
		  do while not rs.eof
            response.write "·<a href=book.asp?id="&rs("bookid")&" target=_blank>"
				if len(trim(rs("bookname")))>10 then
				response.write left(trim(rs("bookname")),10)&"..."
				else
				response.write trim(rs("bookname"))
				end if
				response.write "</a>"
				response.write "<br>"
				i=i+1
				if i>19 then exit do
				rs.movenext
				loop
				rs.close
				set rs=nothing
				%>
                      <div align=right><a href="tejia.asp" target="_blank">更多排行&gt;&gt;</a>&nbsp;</div></td>
                  </tr>
                </table></td>
              </tr>
            </table></td>
        </tr>
      </table>
      
      <table width="100%" border="0" cellspacing="2" cellpadding="0">
        <tr> 
          <td><div align="center"></div></td>
        </tr>
        <tr> 
          <td><div align="center"><a href="<%=tx2url%>" target=_blank><img src="<%=tx2%>" border="0"></a></div></td>
        </tr>
        <tr> 
          <td><div align="center"><a href="<%=tx3url%>" target=_blank><img src="<%=tx3%>" border="0"></a></div></td>
        </tr>
      </table></td>
    <td width="458" align="left" valign="top">
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr> 
          <td><div align="center"><img src="images/xpsj.jpg" width="436" height="43" border="0" usemap="#Map"></div><SCRIPT FOR='sinadl' EVENT='FSCommand()' LANGUAGE='JavaScript'>huashuolayer4.style.visibility='hidden';
huashuolayer5.style.visibility='hidden';</script><div id=left_banner_two style='position: absolute;visibility: visible;z-index: 1'><a href="<%=xiao4url%>"><img src="<%=xiao4%>" border="0"></a> </div>
  <div id=right_banner_two style='position: absolute; visibility: visible; z-index: 1;'><a href="<%=xiao5url%>"><img src="<%=xiao5%>" border="0"></a> </div>
  <p>
    <SCRIPT language=JavaScript>window.screen.width>800 ? imgheight=100:imgheight=150//在这设计图片离顶端的距离
function mymove(){
left_banner_two.style.top=document.body.scrollTop+document.body.offsetHeight-imgheight-320;
right_banner_two.style.top=document.body.scrollTop+document.body.offsetHeight-imgheight-320;
left_banner_two.style.left=1;
right_banner_two.style.right=1;
setTimeout("mymove();",50)
}
mymove()</SCRIPT></td>
        </tr>
        <tr> 
          <td height="68"> 
            <%set rs=conn.execute("select top 10 bookname,bookid,bookpic,shichangjia,huiyuanjia,tuantijia,queshu,dazhe from shop_books order by bookdateorder desc , bookid desc")
		  if rs.eof and rs.bof then
		  response.write "<center><font color=red >本站还未添加图书!</font></td></tr>"
		  else
		  %>
            <table width="100%" border="0" align="center" cellpadding="2" cellspacing="2">
              <%
			  dim num
			  i=0
			  num=0
			  do while not rs.eof
			  i=i+1
			  num = Num+1
			  If num Mod 2 = 0 Then
			  %>
              <td width="50%">
                <%showbook%>
              </td>
              </tr>
              <%else%>
              <tr> 
                <td width="50%">
                  <%showbook%>
                </td>

⌨️ 快捷键说明

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