📄 menu.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Inc/Dataconn.asp" -->
<!--#include file="Inc/md5.asp" -->
<!--#include file="Inc/Funcs.asp" -->
<% '注销
if request.QueryString("Action")="CancelLogin" then
session("User")=""
end if
'登录
If Request.Form("action")="UserLogin" Then
Dim UserName,UserPass,SQLStr
UserName=Request.Form("UserName")
If UserName="" Then
Call eMessage("用户名不能为空！")
End If
UserPass=Request.Form("Userpass")
If UserPass="" Then
Call eMessage("密码不能为空！")
End If
rS.Open "Select * from Admin where UserName='"&md5(UserName)&"'",conn,1,1
If rS.eof and rS.bof then
Call eMessage("该用户不存在！")
End if
If Md5(UserPass)<>rS("UserPass") then
Call eMessage("密码错误！")
end if
'登录正确后设置会话变量（session）
session("User")="Admin"
End If
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title></title>
<style type="text/css">
<!--
body {
margin-left: 0px;
margin-top: 1px;
margin-right: 2px;
margin-bottom: 0px;
}
-->
</style>
<link href="Inc/css.css" rel="stylesheet" type="text/css" />
<!--#include file="Inc/hlink.asp" -->
<style type="text/css">
<!--
.STYLE1 {
color: #000000;
font-weight: bold;
}
-->
</style>
</head>
<body>
<table width="150" height="450" border="0" align="right" cellpadding="0" cellspacing="1" bgcolor="#000000">
<tr>
<td align="center" valign="top" bgcolor="#FFFFFF"><table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
<tr>
<td height="25" align="center" background="Images/MenuTitle.jpg" class="mnu"><span class="STYLE1">功能菜单</span></td>
</tr>
<%if session("User")="Admin" then%>
<tr>
<td height="25" align="center" bgcolor="#FFFFFF" class="mnu"><a title="注销登录" href="default.asp?Action=CancelLogin" target="_parent">注销</a> / <a href="ChangePass.asp" target="mainFrame">修改密码</a></td>
</tr>
<%end if%>
<%if session("User")="Admin" then%>
<tr>
<td height="25" align="center" background="Images/Made_Report.gif" class="mnu"><a href="SPCount.asp" target="mainFrame">系统资源统计</a></td>
</tr>
<tr>
<td height="25" align="center" background="Images/title_bg_show.gif" bgcolor="#6699FF" class="mnu"><strong>商品录入</strong></td>
</tr>
<tr>
<td height="25" align="center" bgcolor="#FFFFFF" class="mnu"><a href="SPLBAdmin.asp" target="mainFrame">商品类别管理</a></td>
</tr>
<tr>
<td height="25" align="center" bgcolor="#FFFFFF" class="mnu"><a href="SPGYSAdmin.asp" target="mainFrame">商品供应商管理</a></td>
</tr>
<tr>
<td height="25" align="center" bgcolor="#FFFFFF" class="mnu"><a href="SPZZSAdmin.asp" target="mainFrame">商品制造商管理</a></td>
</tr>
<tr>
<td height="25" align="center" bgcolor="#FFFFFF" class="mnu"><a href="UpLoadImages/index.asp?Path=SPImages" target="mainFrame">商品图片管理</a></td>
</tr>
<tr>
<td height="25" align="center" bgcolor="#FFFFFF" class="mnu"><a href="SPAdmin.asp" target="mainFrame">商品信息录入/修改</a></td>
</tr>
<%end if%>
<tr>
<td height="25" align="center" background="Images/title_bg_show.gif" bgcolor="#6699FF" class="mnu"><strong>商品信息查询</strong></td>
</tr>
<%if session("User")="" then%>
<tr>
<td height="25" align="center" bgcolor="#FFFFFF" class="mnu"><a href="SPList.asp" target="mainFrame">查看商品</a> </td>
</tr>
<%end if%>
<%if session("User")="Admin" then%>
<tr>
<td height="25" align="center" bgcolor="#FFFFFF" class="mnu"><a href="SPSearch.asp?SearchType=ByLB" target="mainFrame">按类别查询</a></td>
</tr>
<tr>
<td height="25" align="center" bgcolor="#FFFFFF" class="mnu"><a href="SPSearch.asp?SearchType=ByGYS" target="mainFrame">按供应商查询</a></td>
</tr>
<tr>
<td height="25" align="center" bgcolor="#FFFFFF" class="mnu"><a href="SPSearch.asp?SearchType=BySellPH" target="mainFrame">按商品销售排行查询</a></td>
</tr>
<tr>
<td height="25" align="center" bgcolor="#FFFFFF" class="mnu"><a href="SPSearch.asp?SearchType=BySPName" target="mainFrame">按商品名称查询</a></td>
</tr>
<tr>
<td height="25" align="center" background="Images/title_bg_show.gif" bgcolor="#6699FF" class="mnu"><strong>商品信息维护</strong></td>
</tr>
<tr>
<td height="25" align="center" bgcolor="#FFFFFF" class="mnu"><a href="SPSLAdmin.asp" target="mainFrame">商品库存维护</a></td>
</tr>
<tr>
<td height="25" align="center" background="Images/title_bg_show.gif" class="mnu"><strong>生成采购清单</strong></td>
</tr>
<tr>
<td height="25" align="center" bgcolor="#FFFFFF" class="mnu"><a href="StockClew.asp" target="mainFrame">生成采购清单</a></td>
</tr>
<%end if%>
<tr>
<td height="25" align="center" bgcolor="#FFFFFF" class="mnu"><a href="Default.asp" target="_parent">回到登录界面</a></td>
</tr>
</table></td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -