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

📄 top.asp

📁 ASP入门与提高实用教程 源文件(上传网站)
💻 ASP
字号:
<!--#include file="conn.asp"-->
<%
'日期函数
sub datetime
dat=int(datediff("d",dateserial(2000,8,27),now) mod 7)
response.write(formatdatetime(now,1))&"&nbsp;"
select case dat
case 0
	response.write "星期天"
case 1
	response.write "星期一"
case 2
	response.write "星期二"
case 3
	response.write "星期三"
case 4
	response.write "星期四"
case 5
	response.write "星期五"
case 6
	response.write "星期六"
end select
end sub
%>

<script>
  function openbag(id) { window.open("basket.asp?hw_id="+id,"","height=200,width=600,left=190,top=0,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>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href=style.css rel=STYLESHEET type=text/css>
</head>
  
<center>

<table border="0" width="760" cellspacing="0" cellpadding="0">
  <tr>
    <td width="191"><%datetime%></td>
    <td width="569" bgcolor="#FF9933">
      <table border="0" width="100%" cellspacing="1">
        <tr>
          <td width="100%" bgcolor="#FFCC66"><a href="index.asp">首页</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
          %>-<a href="sort.asp?sort_id=<%=rs("sort_id")%>"><%=rs("sort_name")%></a><%rs.movenext
          loop
          rs.close%>-<a href="javascript:openScript('buy.asp',600,200)">购物栏</a>-<a href="cash.asp">收银台</a>-<a href="quit.asp">退出</a><%if session("user_name")<>"" then%>
          -<a href=javascript:openScript('MODIFY.ASP',500,220)>更改资料</a><%end if%></td> 
        </tr> 
      </table> 
    </td> 
  </tr> 
</table> 
  </center> 
  <center> 
<table border="0" width="760" cellspacing="0" cellpadding="0" height="50"> 
  <tr> 
    <td width="223"> 
      <table border="1" width="160" bordercolor="#C0C0C0" height="60" cellspacing="0" cellpadding="0"> 
        <tr> 
          <td width="100%" bgcolor="#FFFFFF"> 
            <p align="center"><img src="logo.gif" width="150" height="46" border="0"></td> 
        </tr> 
      </table> 
    </td> 
    <td width="526" height="60"> 
      <table border="1" width="468" bordercolor="#C0C0C0" cellspacing="0" cellpadding="0" height="60"> 
        <tr> 
          <td width="100%" background="title.jpg" bgcolor="#C0C0C0">&nbsp;</td> 
        </tr> 
      </table> 
    </td> 
    <td width="135" height="26">设为首页<br>加入收藏<br>联系我们</td> 
  </tr></table> 
<table border="0" width="760" cellspacing="0" cellpadding="0"> 
  <tr> 
    <td width="100%"><a href="index.asp">首页</a><%sql="select * from sort" 
    rs.open sql,conn,3,3 
    if rs.eof then 
        response.write "" 
    else 
    do while not rs.eof%> - <a href="sort.asp?sort_id=<%=rs("sort_id")%>"><%=rs("sort_name")%></a> 
    <%rs.movenext 
    loop 
    end if 
    rs.close 
    %> - <a href="javascript:openScript('buy.asp',600,200)">购物栏</a> - <a href="cash.asp">收银台</a> - <a href="quit.asp">退出</a> 
      <%if session("user_name")<>"" then%>
          - <a href=javascript:openScript('MODIFY.ASP',500,220)>更改资料</a><%end if%>
    </td>
  </tr>
</table></center>

⌨️ 快捷键说明

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