啊估风栅设备订单管理系统 2.1(access数据库)

ASP/Basic基础

下载此实例

开发语言：ASP
实例大小：0.60M
下载次数：16
浏览次数：226
发布时间：2019-03-04
实例类别：ASP/Basic基础
发布人：llllpppp
文件格式：.rar
所需积分：2

相关标签：系统管理 2 1 管理系统

网友评论举报投诉收藏该页

下载此实例

实例介绍

【实例简介】一款风栅订单管理系统，设计这套系统，只为方便公司内部使用。可以添加多个管理账号，同时多人登录操作。添加/修改订单，添加/统计材料的使用记录（默认可以添加2种材料的使用和统计，每种材料可以添加使用4种不同的规格、使用张数，切割方式），制作过程中，随时更改订单状态。搜索/筛选订单。在订单列表，自动统计2种不同规格的材料的使用张数。

【实例截图】

from clipboard

【核心代码】

<%@language="VBScript" CodePage="65001"%>
<%Option Explicit%>
<%Session.CodePage=65001%>
<%Response.Charset="UTF-8"%>
<%Server.ScriptTimeout=60%>
<%dim WebpageSort:WebpageSort="Administrator"%>
<%dim WebpageName:WebpageName=""%>
<%dim WebpageTitle:WebpageTitle="网 站 管 理 中 心"%>
<!--#include file="../Include/Config.asp"-->
<!--#include file="../Include/Connection.asp"-->
<!--#include file="../Include/MD5.asp"-->

<!DOCTYPE HTML>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html;charset=UTF-8" />
<title>风栅订单管理--<%=CompanyName%></title>
<meta name="Keywords" content="" />
<meta name="Description" content="" />
<link type="text/css" rel="stylesheet" id="WebsiteStyleWhole" href="../Include/Style.css" />
<link type="text/css" rel="stylesheet" id="WebsiteStyleAdmin" href="Include/Style.css" />
<script type="text/javascript" src="../Include/Function.js"></script>
<script type="text/javascript">
<!--
if (top.location!=self.location) {
	top.location=self.location;
	}
//-->
</script>
</head>

<body style="margin:30px 0px 0px 30px;background:#FFFFFF;">

<%
if trim(request.querystring("Command"))="Login" then

	dim AM_Account,AM_Password

	AM_Account=lcase(trim(request.form("GuAccount")))
	AM_Password=MD5(MD5(trim(request.form("GuPassword"))))

	if trim(request.form("GuAccount"))="" or trim(request.form("GuPassword"))="" then
		response.redirect "Admin.asp?Command=2718"
		response.end
	elseif instr(AdminLoginPageParameter,"CaptchaShow")>=1 and ucase(trim(request.form("GuCaptchaForm")))<>ucase(request.cookies("GuCaptchaCookies")) then
		ACMA.Execute("insert into "&GuDatabaseTablePrefix&"_Administrator_Log(AL_Code,AL_Note,AL_AddAdministrator,AL_AddIP,AL_AddDateTime) values('2719','登录失败，验证码错误。','"&AM_Account&"','"&GuBrowserIP&"','"&now()&"')")
		response.redirect "Admin.asp?Command=2719"
		response.end
	else
		set ARAC=Server.CreateObject("ADODB.RecordSet")
		SQL="select * from "&GuDatabaseTablePrefix&"_Administrator where AM_DatabaseTablePrefix='"&GuDatabaseTablePrefix&"' and AM_Account='"&AM_Account&"' and AM_Password='"&AM_Password&"' and AM_Status='Enabled'"
		ARAC.Open SQL,ACMA,1,3
		if ARAC.bof and ARAC.eof then
			ACMA.Execute("insert into "&GuDatabaseTablePrefix&"_Administrator_Log(AL_Code,AL_Note,AL_AddAdministrator,AL_AddIP,AL_AddDateTime) values('2718','登录失败，管理帐号或者密码错误。','"&AM_Account&"','"&GuBrowserIP&"','"&now()&"')")
			response.redirect "Admin.asp?Command=2718"
			response.end
		else
			ARAC("AM_LoginNumber")=ARAC("AM_LoginNumber") 1
			ARAC("AM_LoginLdentifying")=MD5(now())
			ARAC("AM_LastLoginIP")=GuBrowserIP
			ARAC("AM_LastLoginDateTime")=now()
			ARAC.Update

			if instr(AdminLoginPageParameter,"CookiesEnabled")>=1 then
				response.cookies("GUEEONAIRGRIDADMINISTRATOR")("ACCOUNT")=ARAC("AM_Account")
				response.cookies("GUEEONAIRGRIDADMINISTRATOR")("LOGINLDENTIFYING")=ARAC("AM_LoginLdentifying")
				response.cookies("GUEEONAIRGRIDADMINISTRATOR").Expires=now() AdminLoginTimeout/1440
			else
				session("GUEEONAIRGRIDADMINISTRATORACCOUNT")=ARAC("AM_Account")
				session("GUEEONAIRGRIDADMINISTRATORLOGINLDENTIFYING")=ARAC("AM_LoginLdentifying")
				Session.timeout=AdminLoginTimeout
			end if

			if instr(ucase(ARAC("AM_Purview")),"ALAY")>=1 then
				ACMA.Execute("insert into "&GuDatabaseTablePrefix&"_Administrator_Log(AL_Code,AL_Note,AL_AddAdministrator,AL_AddIP,AL_AddDateTime) values('2720','登录成功。','"&AM_Account&"','"&GuBrowserIP&"','"&now()&"')")
			end if

			response.redirect "Admin_AirGrid_Data.asp"
			response.end
		end if
		ARAC.Close
		set ARAC=nothing
	end if

end if


if trim(request.querystring("Command"))="Logout" then

	if len(GuAdministratorAccount)>=1 then
		set ARAC=Server.CreateObject("ADODB.RecordSet")
		SQL="select * from "&GuDatabaseTablePrefix&"_Administrator where AM_DatabaseTablePrefix='"&GuDatabaseTablePrefix&"' and AM_Account='"&GuAdministratorAccount&"' and AM_Status='Enabled'"
		ARAC.open SQL,ACMA,1,1
		if ARAC.bof and ARAC.eof then
			response.write ""
			response.end
		else
			if instr(ucase(ARAC("AM_Purview")),"ALAY")>=1 then
				ACMA.Execute("insert into "&GuDatabaseTablePrefix&"_Administrator_Log(AL_Code,AL_Note,AL_AddAdministrator,AL_AddIP,AL_AddDateTime) values('2000','退出成功。','"&GuAdministratorAccount&"','"&GuBrowserIP&"','"&now()&"')")
			end if
		end if
		ARAC.Close
		set ARAC=nothing
	end if

	if instr(AdminLoginPageParameter,"CookiesEnabled")>=1 then
		response.cookies("GUEEONAIRGRIDADMINISTRATOR")("ACCOUNT")=""
		response.cookies("GUEEONAIRGRIDADMINISTRATOR")("LOGINLDENTIFYING")=""
		response.cookies("GUEEONAIRGRIDADMINISTRATOR").Expires=#2000-01-01#
	else
		session("GUEEONAIRGRIDADMINISTRATORACCOUNT")=""
		session("GUEEONAIRGRIDADMINISTRATORLOGINLDENTIFYING")=""
	end if

'	response.redirect WebsiteDomain
	response.redirect "Admin.asp"
	response.end

end if


if len(trim(request.querystring("Command")))>=1 then
	select case trim(request.querystring("Command"))
	case "2711"
		GuSystemMessageContent="登录失败，读取数据出现错误。"
	case "2718"
		GuSystemMessageContent="登录失败，用户帐号或者密码错误。"
	case "2719"
		GuSystemMessageContent="登录失败，验证码错误。"
	case "2811"
		GuSystemMessageContent="操作失败，没有登录或者已经超时。"
	case else
		GuSystemMessageContent="操作失败，"
	end select
end if
%>
<table border="0px" cellpadding="0px" cellspacing="0px" class="Style_Table_Login_Whole">
<form method="post" name="Admin_Login" action="?Command=Login" target="_top">
 <tr>
  <td colspan="2" style="width:auto;height:88px;"></td>
 </tr>
 <tr>
  <td align="right" style="width:128px;height:38px;"><span style="font-family:宋体;font-size:14px;color:#2F2F2F;">管理账号:</span>&nbsp;</td>
  <td align="left" style="width:auto;height:38px;"><input type="text" id="GuAccount" name="GuAccount" maxlength="50" value="<%=trim(request.querystring("Account"))%>" onfocus="javascript:this.select();" class="Style_InputText" style="width:166px;background:#FFFFFF;" /></td>
 </tr>
 <tr>
  <td align="right" style="width:128px;height:38px;"><span style="font-family:宋体;font-size:14px;color:#2F2F2F;">登录密码:</span>&nbsp;</td>
  <td align="left" style="width:auto;height:38px;"><input type="password" id="GuPassword" name="GuPassword" maxlength="50" value="<%=trim(request.querystring("Password"))%>" onfocus="javascript:this.select();" class="Style_InputText" style="width:<%if instr(AdminLoginPageParameter,"CaptchaShow")>=1 then response.write "102" else response.write "166" end if%>px;background:#FFFFFF;" /> <%if instr(AdminLoginPageParameter,"CaptchaShow")>=1 then%><input type="text" id="GuCaptchaForm" name="GuCaptchaForm" maxlength="20" value="" onfocus="javascript:this.select();" class="Style_InputText" style="width:52px;" />&nbsp;<img id="" src="../Include/Captcha.asp" alt="验证码" title="单击即可刷新验证码" onclick="javascript:this.src='../Include/Captcha.asp?' Math.random();" style="width:46px;height:12px;border:0px;vertical-align:middle;cursor:pointer;" /><%end if%></td>
 </tr>
 <tr>
  <td style="width:128px;height:40px;"></td>
  <td style="width:auto;height:40px;"><input type="submit" id="Button_Submit" name="Button_Submit" value="" class="Style_Button_Confirm" />&nbsp;<input type="reset" id="Button_Reset" name="Button_Reset" value="" class="Style_Button_Reset" /></td>
 </tr>
 <tr>
  <td colspan="2" align="right" style="width:auto;height:40px;vertical-align:top;"><table border="0px" cellpadding="0px" cellspacing="0px" style="width:388px;height:20px;"><tr><td align="left" style="width:240px;height:auto;vertical-align:bottom;"><span class="RedS12"><%if len(trim(request.querystring("Command")))>=1 then response.write GuSystemMessageContent end if%></span></td><td align="center" style="width:auto;height:auto;vertical-align:bottom;"><span class="SilverS12"><a href="http://www.gueeon.com" target="_blank" class="SilverS12">啊估工作室</a>·设计</span></td></tr></table></td>
 </tr>
 <tr>
  <td colspan="2" style="width:auto;height:20px;"></td>
 </tr>
</form>
</table>

<script type="text/javascript">
<!--
	document.forms['Admin_Login'].GuAccount.focus();
//-->
</script>

<script type="text/javascript" src="../Include/AltTitle.js"></script>

</body>
</html>

<%call GuDatabaseClose()%>

标签： 系统管理 2 1 管理系统

实例下载地址

啊估风栅设备订单管理系统 2.1(access数据库)

点此下载实例

不能下载？内容有错？点击这里报错 + 投诉 + 提问

好例子网口号：伸出你的我的手 — 分享！

网友评论

我要评论

小贴士

感谢您为本站写下的评论，您的评论对其它用户来说具有重要的参考价值，所以请认真填写。

类似“顶”、“沙发”之类没有营养的文字，对勤劳贡献的楼主来说是令人沮丧的反馈信息。
相信您也不想看到一排文字/表情墙，所以请不要反馈意义不大的重复字符，也请尽量不要纯表情的回复。
提问之前请再仔细看一遍楼主的说明，或许是您遗漏了。
请勿到处挖坑绊人、招贴广告。既占空间让人厌烦，又没人会搭理，于人于己都无利。

关于好例子网

本站旨在为广大IT学习爱好者提供一个非营利性互相学习交流分享平台。本站所有资源都可以被免费获取学习研究。本站资源来自网友分享，对搜索内容的合法性不具有预见性、识别性、控制性，仅供学习研究，请务必在下载后24小时内给予删除，不得用于其他任何用途，否则后果自负。基于互联网的特殊性，平台无法对用户传输的作品、信息、内容的权属或合法性、安全性、合规性、真实性、科学性、完整权、有效性等进行实质审查；无论平台是否已进行审查，用户均应自行承担因其传输的作品、信息、内容而可能或已经产生的侵权或权属纠纷等法律责任。本站所有资源不代表本站的观点或立场，基于网友分享，根据中国法律《信息网络传播权保护条例》第二十二与二十三条之规定，若资源存在侵权或相关问题请联系本站客服人员，点此联系我们。关于更多版权及免责申明参见版权及免责申明

啊估风栅设备订单管理系统 2.1(access数据库)

同类人气实例

实例介绍

实例下载地址

啊估风栅设备订单管理系统 2.1(access数据库)

相关软件

相关文章

网友评论

小贴士

关于好例子网

下载周排行

下载总排行