webtop.asp

购物系统(本版为正式商业版

<%end if%>
</head>
<script language="JavaScript" src="/top.js"></script>
<script>
//定义当前需用软键盘的表单和控件的名称
	var curEditName
	curEditName="userlogin.userpassword"
		</script>
<table width="100%" height="131" align="center" valign="top" border="0" cellspacing="0" cellpadding="0" background="/new_img/top_bar_bg_book.gif" bgcolor="#ffffff"><tr>
    <td background="/img/skin<%=cssid%>/top_bar_bg.gif">
      <table width="940" height="131" align="center" valign="top" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td width="189" rowspan="2" align="right">            <a href="<%=weburl%>"><img src="<%=weblogo%>" border="0"></a></td>
          <td height="32" align="right" valign="bottom">
          <table border="0" cellspacing="0" cellpadding="0">
            <tr>
              <td width="64" align="right"><a href="/index.asp"><img src="/img/nav_happyshop.gif" alt="" width="64" height="16" border="0"></a></td>
              <td><a href="/about.asp"><img src="/img/nav_order.gif" alt="" height="16" border="0"></a></td>
              <td><a href="/class.asp?lx=tejia"><img src="/img/nav_cart.gif" alt="" height="16" border="0"></a></td>
              <td><a href="/vip.asp"><img src="/img/nav_mypage.gif" alt="" height="16" border="0"></a></td>
              <td width="27" align="left"><a href="/shoporder.asp"><img src="/img/nav_crm.gif" height="16" border="0"></a></td>
              <td width="27" align="left"><a href="/pingpai.asp"><img src="/img/nav_class.gif" height="16" border="0"></a></td>
              <td width="27" align="left"><a href="/fk.asp"><img src="/img/nav_gbook.gif" height="16" border="0"></a></td>
              <td width="69" align="left"><a href="/logout.asp"><img src="/img/nav_logut.gif" width="59" height="16" border="0"></a></td>
              <td width="80"><select name="menu1" onChange="MM_jumpMenu('parent',this,0)"  class="wenbenkuang">
                <option value="index.asp?skin=1" <%if cssid=1 then%>selected<%end if%>>蓝色浪漫界面</option>
                <option value="index.asp?skin=2" <%if cssid=2 then%>selected<%end if%>>黄色淡雅界面</option>
                <option value="index.asp?skin=3" <%if cssid=3 then%>selected<%end if%>>灰色稳重界面</option>
                <option value="index.asp?skin=4" <%if cssid=4 then%>selected<%end if%>>縁色心情界面</option>
				<option value="index.asp?skin=0" <%if cssid=0 then%>selected<%end if%>>恢复默认界面</option>
              </select></td>
            </tr>
          </table></td>
        </tr>
        <tr>
          <td width="751" height="42" align="left" valign="bottom"><div align="right">
              
              <table border="0" cellspacing="0" cellpadding="0">
                <tr>
                 <%
		  set rstop=server.CreateObject("adodb.recordset")
		  rstop.open "select * from shop_top order by toppx asc",conn,1,1
		  do while not rstop.eof%> <td width="2"><img src="/img/skin<%=cssid%>/top_l.gif" width="2" height="23"></td>
                  <td background="/img/skin<%=cssid%>/top_b.gif"><table width="100%" border="0" cellspacing="0" cellpadding="0">
                    <tr>
                      <td align="center" class="fontglow1">&nbsp;<a href="<%=rstop("topurl")%>"><FONT color="<%=rstop("sztys")%>"><%=rstop("topname")%></FONT></a>&nbsp;</td>
                    </tr>
                  </table></td>
                  <td width="2"><img src="/img/skin<%=cssid%>/top_r.gif" width="2" height="23"></td>
				  <td width="2"></td>
                <%rstop.movenext
			loop
				rstop.close
				set rstop=nothing%>
                </tr>
              </table>			  
              
	      </div></td>
        </tr>
        <tr>
          <td height="30" colspan="2">
            <table border='0' align="center" cellpadding='0' cellspacing='0'>
              <tr>
                <td> <%
		  set rs=server.CreateObject("adodb.recordset")
		  rs.open "select anclass,anclassid,sztys from shop_anclass where xs=2 order by anclassidorder asc",conn,1,1
		  do while not rs.eof
		   response.write "<A href=/class.asp?lx=big&anid="&rs("anclassid")&" class=link_redblank1><b><font color="&trim(rs("sztys"))&">"&trim(rs("anclass"))&"</font></b></a> | "
			rs.movenext
			loop
				rs.close
				set rs=nothing%></td>
              </tr>
            </table></td>
        </tr>
        <tr>
          <td colspan="2" height="28">
            <table border="0" cellspacing="0" cellpadding="0" align="left">
              <form name="form" method="post" action="/research.asp">
                <tr>
                  <td width="10"></td>
                  <td width="170"><input type="text" id="searchkey" name="searchkey" maxlength="40" size="26"  class="wenbenkuang" onKeyPress="enter_key()" style="background:url(/img/input_img_keyw.gif); background-repeat:no-repeat; padding:3 0 0 20;" onfocus="this.style.background='#F7F7F7'" onclick="searchCheck()"></td>
                  <td width="115" align="right"><%set rs=server.CreateObject("adodb.recordset")
		  rs.open "select * from shop_anclass where xs=2 order by anclassidorder",conn,1,1
		  %>
                    <select name="anclassid" class="wenbenkuang" id="anclassid">
                      <option value="0">所有分类</option>
                      <%do while not rs.eof%>
                      <option value="<%=rs("anclassid")%>"><%=trim(rs("anclass"))%></option>
                      <%rs.movenext
		  loop
		  rs.close
		  set rs=nothing%>
                    </select>&nbsp;</td>
                  <td width="53" align="right"><input name="image3" type="image" src="/img/top_14.gif" width="53" height="24" border="0"></td>
                  <td width="67" align="right"><a href="/search.asp"><img src="/img/top_15.gif" width="67" height="24" border="0"></a></td>
                </tr>
              </form>
            </table>
            <%if session("username")="" then%>
            <table border="0" cellspacing="0" cellpadding="0" align="right">
              <form name="userlogin" method="post" action="/checkuserlogin.asp">
                <tr>
                  <td width="82" align="left"><input type="text" id="username" name="username" maxlength="15" size="11" class="wenbenkuang" style='background:url(/img/input_img_id.gif); background-repeat:no-repeat; padding:2 0 0 5;' onfocus="this.style.background='#F7F7F7'" ></td>
                  <td width="110" align="left"><input type="password" id="userpassword" name="userpassword" maxlength="15" size="11" class="wenbenkuang" onkeydown="go_menu_submit();" style="background:url(/img/input_img_pw.gif); background-repeat:no-repeat; padding:2 0 0 5;" onfocus="this.style.background='#F7F7F7'"> <a onclick="showkeyboard(curEditName)"><img src="/img/login/login.gif" alt="使用软键盘" width="14" height="13" hspace="5" align="absMiddle"></a>
                      <input name="yzm" type="hidden" class="wenbenkuang" id="yzm" value="<%=yz%>" size="5">
                      <input name="yzm1" type="hidden" class="wenbenkuang" id="yzm1" value="<%=yz%>" size="8" maxlength="5">
                  </td>
                  <td align="left">&nbsp;</td>
                  <td width="37"><input name="image222" type="image" src="/img/top_17.gif" height="22" border="0"></td>
                  <td width="61"><a href="/reg.asp"><img src="/img/top_18.gif" border="0"></a></td>
                  <td width="43"><a href="/getpwd.asp"><img src="/img/top_19.gif" border="0"></a></td>
                  <td width="10"></td>
                </tr>
              </form>
            </table> <%else%> <%username=session("username")                       
    set rs = server.CreateObject("ADODB.RecordSet")
    mailnewno="SELECT   Count(isnew) FROM sms where  tname='"&username&"' and isnew=1"   
	rs.open mailnewno,conn,3,3
 if rs.Eof or rs.Bof then

 tishi="<a href=/bbs/mysms.asp?id=0>0</a>"                  
 else                   
tishi="<a href=/bbs/mysms.asp?id=0><font color=red>"&rs(0)&"</font></a>"                        
end if%><table border="0" cellspacing="0" cellpadding="0" align="right">
              <form name="userlogin" method="post" action="/checkuserlogin.asp">
                <tr>
                  <td align="left"><%
						set rs=server.createobject("adodb.recordset")
                        rs.open "select jifen,yucun,reglx,vipdate from [shop_user] where username='"&nosql(session("username"))&"'",conn,1,3
                        if rs("vipdate")<>"" then 
                          '看是不是过期VIP
                          if rs("vipdate")<date and rs("reglx")=2 then
                          rs("reglx")=1
                          rs.update
                          end if
                        end if
                        session("yucun")=rs("yucun")
                        session("jifen")=rs("jifen")
                        session("reglx")=rs("reglx")
                        rs.close
                        set rs=nothing
				if session("reglx")=2 then
				response.write " &nbsp;&nbsp;<font color=red>"&session("username")&" (VIP)贵宾</font>您好,您有"&session("jifen")&"积分,存款"&session("yucun")&"元,新消息("&tishi&")"
								elseif session("reglx")=3 then
				response.write " &nbsp;&nbsp;<font color=red>"&session("username")&" 特别会员</font>您好,您有"&session("jifen")&"积分,存款"&session("yucun")&"元,新消息("&tishi&")"
				else
				response.write " &nbsp;&nbsp;<font color=red>"&session("username")&"(普通会员)</font>您好,您有"&session("jifen")&"积分,存款"&session("yucun")&"元,新消息("&tishi&")"
				end if%></td>
                  <td>&nbsp;</td>
                  <td width="61"><a href="/user.asp"><img src="/img/top_20.gif" border="0"></a></td>
                  <td width="43"><a href="/gouwu.asp?action=show&lx=1"><img src="/img/top_21.gif" width="88" height="22" border="0"></a></td>
                  <td width="10"></td>
                </tr>
              </form>
            </table>
          <%end if%>          </td>
        </tr>
    </table></td>
  </tr>
</table>
<script>
  search_default_value = new Array();
  var random_number;
  search_default_value[0] = "搜一搜试下强大功能！";
  search_default_value[1] = "您还没有找到商品吗？";
  search_default_value[2] = "输入搜索关键字查找";
  search_default_value[3] = "更多商品待您搜索";
  search_default_value[4] = "快来更多商品等着您！";
  random_number = parseInt(Math.random()*5); 

  var objSearchInput = document.getElementById("searchkey");
  objSearchInput.value = search_default_value[random_number];
  
  function searchCheck() {
    if (objSearchInput.value==search_default_value[random_number]) {
      objSearchInput.value = "";
//  alert(objSearchInput.style.padding);
      objSearchInput.style.padding = "3px 0px 0px 5px";
      return;
    }
  }
</script>
<!--top-->
<table width="940"  border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td><%if webbanner<>"" then%>
      
      <%if bannerlx=1  then%>
      <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="940" align="middle">
        <param name="movie" value="<%=webbanner%>">
        <param name="quality" value="high">
        <embed src="<%=webbanner%>" width="940" align="middle" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash"></embed>
      </object>
      <%else%>
      <a href="<%=weburl%>"><img src="<%=webbanner%>" width="940" border="0"></a>
      <%end if%>
    <%end if%></td>
  </tr>
</table>