📄 top.asp

📁 网络购物
💻 ASP
字号:

<!--#include file="conn.asp"-->
<link rel="stylesheet" type="text/css" href="css.css">
<%set rs7=server.createobject("adodb.recordset")
sql="select top 1 * from system"
rs7.open sql,conn,1,1
%>

<script>
  function openbag(id) { window.open("basket.asp?hw_id="+id,"","height=300,width=450,left=190,top=10,resizable=yes,scrollbars=yes,status=no,toolbar=no,menubar=no,location=no");} 
</script>
<script language="javascript">
function openScript(url, width, height){
	var Win = window.open(url,"openScript",'width=' + width + ',height=' + height + ',resizable=1,scrollbars=yes,menubar=no,status=yes' );
}
</script>
<head><title><%=rs7("sitename")%></title></head> 
<body onload="if(event.shiftKey){location.href='a/'}" topmargin="0" leftmargin="0">
<table align="center" border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="778"><tr>
  <td valign="bottom">
     <table border="0" height="25" style="border-collapse: collapse" bordercolor="#111111" cellpadding="0" cellspacing="0"><tr>
     <td width="88" align="center" height="28" background="img/main.gif">
     <a href="index.asp">主页</a></td>
     <%set rs2=server.createobject("adodb.recordset") 
        sql2="select * from sort" 
        rs2.open sql2,conn,3,3 
        do while not rs2.eof
         %>
         
         <td width="88" align="center" height="28" background="img/main.gif"><a href="sort.asp?sort_id=<%=rs2("sort_id")%>"><%=rs2("sort_name")%></a></td>
          <%rs2.movenext
           loop
              rs2.close
              set rs1=nothing
              set rs2=nothing
              %></tr></table>
</td><td align="right" width="280">
     <img border="0" src="img/logo.gif"></td></tr></table>
<div align="center">
  <center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1" background="img/1right.gif" height="20">
  <tr><td align="center">
  <a  href="javascript:openScript('tousu.asp',530,380)">订单投诉</a>
| <a href="javascript:openScript('guest.asp',530,380)">客户反馈</a>
| <a href="allnews.asp">新闻中心</a>
| <a href="javascript:openScript('subpass.asp',530,380)">我的订单</a>
| <a href="javascript:openScript('buy.asp',530,380)">购物车</a>
| <a href="javascript:openScript('cash.asp',530,380)">收银台</a>
<% dim rs,sql
          set rs=server.createobject("adodb.recordset")
          sql="select * from sort"
          rs.open sql,conn,3,3
          if rs.eof then
          response.write ""
          end if
          do while not rs.eof
          %>
                <%rs.movenext
          loop
          rs.close%><%if session("user_name")<>"" then%>
| <a href=javascript:openScript('MODIFY.ASP',530,380)>更改资料</a>
| <a href="quit.asp">退出</a>
<%
end if
response.write "| <a target=_blank href=http://www.freedown.net>技术支持:凡人网络</a> | "
%> 

  <%' 暂不起用=rs7("web")%><%=year(date())%>年<%=month(date())%>月<%=day(date())%>日
</td></tr></table>
  </center>
</div>
<script src="admin/mystat.asp"></script>
⌨️ 快捷键说明

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