📄 menu.asp

📁 线上售货网管理模组

💻 ASP

字号:

<HTML>
<HEAD>
<TITLE>线上售货网管理模组</TITLE>
<link REL="stylesheet" HREF="../style.css" TYPE="text/css">
</HEAD>
<body background=../img/bg.gif bgcolor=cfe3f2 marginheight=0 marginwidth=0 leftmargin=0 topmargin=0>
<center>
<% If session("password")="test" Then %>
<big>管理选项</big><br>
<table border=0 cellspacing=2 cellpadding=1 width=90>
<tr><td width=100%><img src=../img/p.gif><a href=add_ca.asp target=main>新增目录</a></td></tr>
<% 
Set conn=Server.CreateObject("ADODB.Connection")
param = "driver={Microsoft Access Driver (*.mdb)}"
conn.Open param & ";dbq=" & Server.MapPath("../cd.mdb")
Set rs=Server.CreateObject("ADODB.Recordset")
Set rs=Server.CreateObject("ADODB.Recordset")
sqlstr="select * from area"
rs.open sqlstr,conn,3,2
  Do While Not rs.EOF
    Response.Write "<tr><td><img src=../img/p.gif>"
    Response.Write "<a href=list_cd.asp?areana="&rs("areana")&" target=main>"
    Response.Write rs("areana")&"</a></td></tr>"
    rs.MoveNext
  Loop
rs.close
conn.close
%>
<tr><td><img src=../img/p.gif><a href=new_cd.asp target=main>最新</a></td></tr>
<tr><td><img src=../img/p.gif><a href=list_member.asp target=main>列出会员</a></td></tr>
<tr><td><img src=../img/p.gif><a href=list_order.asp target=_blank>列出订单</a></td></tr>
</table>
<form action="search_user.asp" method="post" target=main><input type="text" name="key" size="10" maxlength="50"><br>
<input type="submit" value="会员搜索"></form><br>
<% end if %>
</center>
</body
</HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -