信管物流信息技术与软件开发

《物流信息技术与软件开发》实验要求实验一：物流信息采集技术（一）实验项目：EAN-13条码，校验程序设计实验学时：2实验日期：实验要求：1、EAN-13结构，应用。2、采用某语言设计能够校验13码正确性实验内容：1、EAN-13结构，应用。EAN-13商品HYPERLINK"/view/42078.htm"\t"/view/_blank"条码是表示EAN/UCC-13商品标识代码的条码符号，由左侧空白区、起始符、左侧数据符、HYPERLINK"/view/642452.htm"\t"/view/_blank"中间分隔符、右侧数据符、校验符、终止符、右侧空白区及供人识别HYPERLINK"/view/263416.htm"\t"/view/_blank"字符组成。左侧空白区：位于HYPERLINK"/view/42078.htm"\t"/view/_blank"条码符号最左侧与空的反射率相同的区域，其最小宽度为11个模块宽。起始符：位于HYPERLINK"/view/42078.htm"\t"/view/_blank"条码符号左侧空白区的右侧，表示信息开始的特殊符号，由3个模块组成。左侧数据符：位于起始符右侧，表示6位数字信息的一组HYPERLINK"/view/642451.htm"\t"/view/_blank"条码字符，由42个模块组成。HYPERLINK"/view/642452.htm"\t"/view/_blank"中间分隔符：位于左侧数据符的右侧，是平分HYPERLINK"/view/642451.htm"\t"/view/_blank"条码字符的特殊符号，由5个模块组成。右侧数据符：位于HYPERLINK"/view/642452.htm"\t"/view/_blank"中间分隔符右侧，表示5位数字信息的一组HYPERLINK"/view/642451.htm"\t"/view/_blank"条码字符，由35个模块组成。校验符：位于右侧数据符的右侧，表示校验码的HYPERLINK"/view/642451.htm"\t"/view/_blank"条码字符，由7个模块组成。终止符：位于HYPERLINK"/view/42078.htm"\t"/view/_blank"条码符号校验符的右侧，表示信息结束的特殊符号，由3个模块组成。右侧空白区：位于HYPERLINK"/view/42078.htm"\t"/view/_blank"条码符号最右侧的与空的反射率相同的区域，其最小宽度为7个模块宽。为保护右侧空白区的宽度，可在HYPERLINK"/view/42078.htm"\t"/view/_blank"条码符号右下角加“>”符号。见右图。供人识读HYPERLINK"/view/263416.htm"\t"/view/_blank"字符：位于HYPERLINK"/view/42078.htm"\t"/view/_blank"条码符号的下方，是与HYPERLINK"/view/642451.htm"\t"/view/_blank"条码字符相对应的供人识别的13位数字，最左边一位称前置码。供人识别HYPERLINK"/view/263416.htm"\t"/view/_blank"字符优先选用OCR-BHYPERLINK"/view/51987.htm"\t"/view/_blank"字符集，字符顶部和HYPERLINK"/view/42078.htm"\t"/view/_blank"条码底部的最小距离为0.5个模块宽。标准版商品HYPERLINK"/view/42078.htm"\t"/view/_blank"条码中的前置码印制在条码符号起始符的左侧。EAN-13条码符号结构应用：主要应用于超级市场和其它零售业2、采用某语言设计能够校验13码正确性采用C语言校验13码

CRC检验如下：

#include<stdio.h>

int

binaryToDec(char

*str)

{

unsigned

n=0;

while(*str!='\0')

{

if(*str<'0'||*str>'9')return

-1;

n=n*2+(*str-'0');

str++;

}

return

n;

}

void

printBinary(int

n)

{

if(n>1)printBinary(n/2);

printf("%d",n%2);

}

void

main()

{

unsigned

n,m,CRC=0x1A8000,fD=0x100000;

char

CRC16[32];

while(1)

{

printf("输入16位校验码:");

gets(CRC16);

n=binaryToDec(CRC16);

if(n>65535)

printf("输入值过长,请重新输入\n");

else

break;

}

n<<=5;//n左移5位

m=n;//m等于n

while(fD>0x20)

{

while(

!(m&fD)

&&

!(CRC&1)

)//保证被除数第一位为1

{

CRC>>=1;//除数右移一位

fD>>=1;//被除数首位的标志位右移一位

}

m=m^CRC;//被除数与除数相异或

}

n+=m;//模二余数相加

printf("输出21位校验码:");

printBinary(n);

printf("\n");

getchar()();

}

实验二：物流信息采集技术（二）实验项目：GTIN实验学时：2实验日期：实验要求：了解GTIN结构内容、在物流单元中的应用。实验内容：GTIN结构GTIN是全球贸易项目编码（Global

Trade

Item

Number）的英文简写。GTIN是EAN/UCC组织对贸易项目（包括产品与服务），在买卖，运输，仓储、零售与贸易运输结算过程中提供的唯一标识。GTIN的四种代码结构在物流单元中的应用：GTIN的应用主要是定量贸易项目、变量贸易项目、物流项目的内装贸易项目和单品EPC电子标签。

实验三：物流信息采集技术（三）实验项目：RFID技术实验学时：2实验日期：实验要求：了解RFID技术基础、标准、在物流中应用。实验内容：RFID技术基础、标准射频识别系统一般由以下两部分组成：(1)标签(应答器，TAG)：放置在要识别的物体上；(2)阅读器(读头，RFADER)：可以是读或写/读装置，取决于所使用的结构和技术。技术标准集装箱ISOTC104技术委员会专门负责集装箱标准制定，是HYPERLINK"/view/50438.htm"\t"_blank"集装箱制造和操作的最高权威机构。与RFID相关的标准，由第四子委员会（SC4）负责制定。包括如下标准：1）ISO6346集装箱—编码、ID和标识符号，1995制订2）ISO10374集装箱自动识别标准，1991制订，1995年修订3）ISO18185，集装箱HYPERLINK"/view/3476.htm"\t"_blank"电子官方标准草案（陆、海、空）物流管理为使RFID能在整个HYPERLINK"/view/1337624.htm"\t"_blank"物流供应链领域发挥重要作用，ISOTC122包装技术委员会和ISOTC104货运集装箱技术委员会成立联合工作组JWG，负责制定物流供应链系列标准。工作组按照应用要求、货运集装箱、装载单元、运输单元、产品包装、单品五级物流单元，制定六个应用标准。1）ISO17358应用要求2）ISO17363～17367系列标准这里需要注意的是ISO10374、ISO18185和ISO17363三个标准之间的关系，它们都针对集装箱，但是ISO10374是针对HYPERLINK"/view/50438.htm"\t"_blank"集装箱本身的管理，ISO18185是海关为监视集装箱，而ISO17363是针对供应链管理目的而在货运集装箱上使用可读写的RFID标识标签和货运标签。动物管理ISOTC23/SC19负责制订动物管理RFID方面标准，包括ISO11784/11785和ISO14223三个标准。基于RFID技术的物流应用(一)物流信息系统一个完整的物流信息系统包括配送、仓储、运输、结算和行政管理等相互独立而又相互关联的子系统,这些子系统分别实现物流配送、智能化仓库管理、运输调度管理、自动化结算、物流企业资源管理等系统功能。RFID技术的引进充分发挥了快速、实时、准确采集与处理信息的良好功能特性,使得企业能够实时、精确地掌握整个供应链上的商流、物流、信息流和资金流的流向和变化,同时使得供应链上各个业务环节和流程更加协调一致,提高整个供应链上的经济效益。(二)RFID物流行业应用现状RFID作为换代性标识技术,在欧美发达国家已经表现出了高度的专业性与普及趋势,具有在物流、物料管理、工业自动化和服务业领域广泛应用的前景。随着企业信息化的提高,RFID技术也有了长足进步。除了第三方物流企业之外,更多的制造企业将RFID应用在供应链管理、库存管理、配送等涉及产品流转的各个环节,大大提高了物流信息化水平,加快了商品流通的速度,增强了整个物流行业的竞争力。各个行业RFID技术的积极应用充分说明了RFID技术无论是对第三方物流企业还是大型制造企业物流供应链的构建都发挥着巨大的作用,它将物流供应链中的各个环节有效地结合在一起,实现了数据的高度管理,提高了整体运作效率。(三)RFID在物流行业的典型应用以RFID为基础的软硬件技术构建的RFID信息系统,将使产品、仓储、采购、运输、销售及消费的全过程发生根本性的变化。目前,RFID技术已经在物流的诸多环节中发挥着重要的作用。1.生产环节RFID技术应用于生产环节中的生产线上,能够实现生产线的自动化和原料、产品的识别定位,这将大大减少人工识读成本和出错率,同时也大大提高了生产的效率和质量。RFID技术还能够对产品进行信息的收集、处理,帮助生产人员轻松的掌握整个生产线的运作情况和产品的生产进度。2.配送/分销环节在配送环节,采用射频技术能大大加快配送的速度和提高拣选与分发过程的效率与准确率,并能减少人工、降低配送成本。如果到达中央配送中心的所有商品都贴有RFID标签,在进入中央配送中心时,托盘通过一个阅读器,读取托盘上所有货箱上的标签内容。系统将这些信息与发货记录进行核对,以检测出可能的错误,然后将RFID标签更新为最新的商品存放地点和状态。3.运输环节在运输环节中通过RFID技术,在运输的货物和车辆贴上RFID标签,运输线的检查点上安装上RFID接收装置,接收装置检测到RFID标签信息后,将标签信息、地理位置等经由Internet发送给运输调度中心,这样供应商和经销商就能够比较方便地查阅货物现在所处的状态。4.仓储环节在仓库里,射频技术广泛应用于存取货物与库存盘点,当贴有RFID标签的货物进入仓储中心是,入口的RFID识读器将自动识别标签并完成库存盘点。在整个仓库管理中,将系统制定的收货、取货、装运等实际功能与RFID技术相结合,能够高效地完成各种业务操作,如指定堆放区域、上架取货与补货等。5.销售环节在销售环节中,RFID可以改进零售商的库存管理。当货物被顾客取走时,装有RFID识读器的货架能够实时地报告货架上的货物情况,并通知系统在适当的时候补货。同时对装有RFID标签的货物能够监控其移动、位置等。所有的这些都大大节约的人工成本、减少出错、提高效率。实验四：物流信息交换EDI技术实验项目：EDI技术实验学时：2实验日期：实验要求：了解EDI技术基础、流程、EDI标准，EDI技术物流中应用。实验内容：EDI技术基础EDI包含了三个方面的内容，即计算机应用、通信、网络和数据标准化。其中计算机应用是EDI的条件，通信环境是EDI应用的基础，标准化是EDI的特征。这三方面相互衔接、相互依存，构成EDI的基础杠架。EDI的工作流程：1、发送方计算机应用系统生成原始用户数据。2、发送报文的数据影射与翻译。影射程序将用户格式的原始数据报文展开为平面文件，以便使翻译程序能够识别。翻译程序将平面文件翻译为标准的EDI格式文件。平面文件是用户格式文件和EDI标准格式文件之间的中间接口文件。3、发送标准的EDI文件。4、贸易伙伴获取标准的EDI文件。5、接受方应用系统处理翻译后的文件。与电子邮件等应用系统不同，EDI电子数据交换系统在网络中传输的是经过翻译软件翻译的标准格式报文。EDI的标准EDI标准就是国际社会共同制定的一种用于书写商务报文的规范和标准协议。制定这个标准的主要目的是消除各国语言、商务规定以及表达与理解上的歧义性，为国际贸易实务操作中的各类单证数据交换搭起一座电了数据通信的桥梁。在EDI的发展过程中曾经制订过以下标准。一、贸易数据交换导则在1981年斯德哥尔摩会议的基础上，欧洲推出了第一套网络商贸数据标准，即贸易数据交换导则（GuidelinesonTradeDataInterchange，GTDI）。它的发布为众多准备参加研制和开发国际电子商贸系统的国家和组织奠定了基础。二、美国的ANSI/ASC/X.12标准20世纪70年代后期，在美国国家标准局（ANSI）的指示下，由美国标准化委员会（ASC）在此基础上制定了ANSI/ASC/X.12标准。X.12标准的正式推出极大地促进了北美大陆的EDI进程。三、联合国UN/EDIFACT标准GTDl和X.12标准的推出推进了EDI和国际电子商贸系统的进程。但是两个标准的存在，客观上使欧共体和北美两大贸易集团之间的数据交换有了障碍。为了解决这一问题，1987年由联合国出面组织美国和欧洲等20多个国家的专家在纽约开会，讨论如何将两大标准统一，建立世界统一的EDI标准，随后经过几年的努力，终于在1990年3月正式推出UN/EDIFACT标准，并被国际标准化组织正式接受为国际标准ISO9735。它统一了世界贸易数据交换中的标准，使得利用电子技术在全球范围内开展商贸活动成为可能。联合国对UN/EDIFACT标准所给出的定义为：EDIFACT是“适用于行政、商业、运输部门的电子数据交换的联合国规则。它包括了一套国际协定标准、手册和结构化数据的电子交换指南，特别是那些在独立的、计算机化的信息系统之间所进行的交易和服务有关的其他规定”。表2-3是亚太地区EDI标准的使用情况。在EDI中，EDI参与者所交换的信息客体称为邮包。在交换过程中，如果接收者从发送者所得到的全部信息包括在所交换的邮包中.则认为语义完整，并称该邮包为完整语义单元（CSU），CSU的生产者和消费者统称为EDI的终端用户。在EDI工作过程中，所交换的报文都是结构化的数据。整个过程都是由EDI系统完成的。（1）用户接口模块业务骨干人员可用此模块进行输人.查询、统计，中断、打印等，及时地了解市场变化，调整策略。（2）内部接口模块这是EDI系统和本单位内部其他信息系统从数据库的接口，一份来自外部的EDI报文，经过EDI系统处理之后.大部分相关内容都需要经内部接口模块送往其他信息系统，或查询其他信息系统才能给对方EDI报文以确认的答复。（3）报文生成及处理模块该模块有两个功能：①接受来自用户接口模块和内部接口模块的命令和信息，按照EDI标准生成订单，发票等各种EDI报文和单证，经格式转换模块处理之后，由通信模块经EDI网络发给其他EDI用户。②自动处理由其他EDI系统发来的报文。在处理过程中要与本单位信息系统相连，获取必要信息并给其他EDI系统答复，同时将有关信息送给本单位其他信息系统。如因特殊情况不能满足对方的要求，经双方EDI系统多次交涉后不能妥善解决的，则把这一类事件提交用户接口模块，由人工干预决策。（3）格式转换模块所有的EDI单证都必须转换成标准的交换格式，转换过程包括语法上的压缩、嵌套、代码的替换以及必要的EDI语法控制字符。在格式转换过程中要进行语法检查，对于语法出错的EDI报文应拒收并通知对方重发。（4）通信模块该模块是EDI系统与EDI通信网络的接口。包括执行呼叫、自动重发、合法性和完整性检查、出错报警、自动应答、通信记录、报文拼装和拆卸等功能。除以上这此基本模块外，EDI系统还必须具备一些基本功能。（1）命名和寻址功能：EDI的终端用户在共享的名字当中必须是惟一可标识的。命名和寻址功能包括通信和鉴别两个方面。在通信方面，EDI是利用地址而不是名字进行通信的。因而要提供按名字寻址的方法，这种方法应建立在开放系统目录服务ISO9594（对应TTU-TX.500）基础上。在鉴别方面，有通信实体鉴别、发送者与接收者之间的相互鉴别等。（2）安全功能：EDI的安全功能应包含在上述所有模块中。它包括的主要内容有：终端用户以及所有EDI参与方之间的相互验证；数据完整性；EDI参与方之间的电子（数字）签名；否定EDI操作活动的可能性；密钥管理。（3）语义数据管理功能：完整语义单元（CSU）是由多个信息单元（IU）组成的。其CSU和IU的管理服务功能包括：IU应该是可标识和可区分的；IU必须支持可靠的全局参考；应能够存取指明IU属性的内容，如语法、结构语义、字符集和编码等；应能够跟踪和对IU定位；对终端用户提供方便和始终如一的访问方式。EDI在物流中的应用EDI最初是由美国企业应用在企业间订货业务活动中的电子数据交换系统，其后EDI的应用范围从订货业务向其他业务扩展，如POS销售信息传送业务、HYPERLINK"/s?wd=%E5%BA%93%E5%AD%98%E7%AE%A1%E7%90%86&hl_tag=textlink&tn=SE_hldp01350_v6v6zkg6"\t"_blank"库存管理业务、发货送货信息和支付信息的传送业务等。近年EDI在物流中广泛应用，被称为物流EDI。所谓物流EDI是指货主、承运业主以及其他相关的单位之间，通过EDI系统进行物流数据交换，并以此为基础实施物流作业活动的方法。物流EDI参与单位有发送货物业主（如生产厂家、贸易商、批发商、零售商等）、承运业主（如独立的物流承运企业等）、实际运送货物的交通运输企业（铁路企业、水运企业、航空企业、公路运输企业等）、协助单位（政府有关部门、金融企业等）和其他的物流相关单位（如仓库业者、专业报送业者等）。实验五：物流管理信息系统实验项目：某物流管理系统设计实验学时：8实验日期：实验要求：系统分析（可行性、业务流程、数据流程）,系统设计(代码设计、配置方案、数据存储、输入输出设计)实验内容：超市销售系统设计系统分析（可行性、业务流程、数据流程）可行性：旧的管理信息系统已经跟不上时代的发展，满足不了超市的发展，新管理信息系统的开发迫在眉睫。对于超市的采购、销售、储存和财务四个方面来说，信息系统是必不可少的。如果事事都让人去一步一步的来做，将会很费时，费力，费钱。在采购管理、销售管理、储存管理、财务管理等活动中，信息系统能起到支持保障功能。业务流程：顾客发订单给销售部门销售部门经过订单检查，把不合格的订单反馈给客户对合格的订单，通过核对库存记录，缺货订单通过缺货统计，向采购部门发出缺货通知，并登记缺货记录；对于可供货订单，登记客户档案，开出备货单，通知仓库备货。保存订单数据，并进行销售统计。销售部门业务流程图：数据流程：顶层数据流程图系统设计(代码设计、配置方案、数据存储、输入输出设计)代码设计：登陆页面：

<HTML>

<HEAD>

<Title>index.asp</Title>

<META

http-equiv="Content-Type"

content="text/html;

charset=gb2312">

<META

name="Generator"

content="Asp

Studio

1.0">

<script

language="javascript">

function

validate(

)

//检查用户名或密码不能为空

{

if((document.login.username.value.length==0)||(document.login.password.value.length==0)){

alert("用户名和密码都不能为空！！！");

return

false;

}

return

true;

}

</script>

</HEAD>

<BODY>

<center>

请先选择登录身份再登录

<form

name="login"

onsubmit="return

validate()"

action="logincheck.asp"

method="post">

选择登录身份：<select

name="position"

SelectedIndex=1>

<option

value="user">顾客身份</option>

<option

value="manager">管理员身份</option>

</select><br>

姓名：<input

name="username"

type="text"><br>

密码：<input

name="password"

type="password"><br>

<input

type="submit"

value="登录"><br>

</form>

如果没有账号，请点击下面的注册按钮

<form

name="regist"

action="regist.asp"

method="post">

<br>

<input

type="submit"

value="注册">

</form>

<br>

</center>

<%

%>

</BODY>

</HTML>

获取数据：

<HTML>

<HEAD>

<Title>logincheck.asp</Title>

<META

http-equiv="Content-Type"

content="text/html;

charset=gb2312">

<META

name="Generator"

content="Asp

Studio

1.0">

<script

language="vbscript">

dim

name,password

</script>

</HEAD>

<BODY>

<%

name=trim(Request("username"))

'获取用户名

password=trim(Request("password"))

'获取用户密码

set

conn=Server.CreateObject("ADODB.connection")

conn.Open"mydata"

set

rs=Server.CreateObject("ADODB.Recordset")

if(request("position")="user")

then

'选择用户表还是管理员表

strsql

=

"select

*

from

user

where

username='"&

name

&"

'and

password=

'"&

password

&"'"

else

strsql

=

"select

*

from

manager

where

username='"&

name

&"

'and

password=

'"&

password

&"'"

end

if

rs.open

strsql,conn

if

rs.eof

then

response.Redirect"error.asp"

else

if(request("position")="user")

then

'如果登录身份是顾客，则跳转到顾客页面

response.Redirect

"user.asp"

else

response.Redirect"manager.asp"

end

if

end

ifrs.Close

conn.Close

%>

</BODY>

</HTML>

系统检查：

<HTML>

<HEAD>

<Title>logincheck.asp</Title>

<META

http-equiv="Content-Type"

content="text/html;

charset=gb2312">

<META

name="Generator"

content="Asp

Studio

1.0">

<script

language="vbscript">

dim

name,password

</script>

</HEAD>

<BODY>

<%

'请在这里输入您的ASP代码

name=trim(Request("username"))

'获取用户名

password=trim(Request("password"))

'获取用户密码

set

conn=Server.CreateObject("ADODB.connection")

conn.Open"mydata"

set

rs=Server.CreateObject("ADODB.Recordset")

if(request("position")="user")

then

'选择用户表还是管理员表

strsql

=

"select

*

from

user

where

username='"&

name

&"

'and

password=

'"&

password

&"'"

else

strsql

=

"select

*

from

manager

where

username='"&

name

&"

'and

password=

'"&

password

&"'"

end

if

rs.open

strsql,conn

if

rs.eof

then

response.Redirect"error.asp"

else

if(request("position")="user")

then

'如果登录身份是顾客，则跳转到顾客页面

response.Redirect

"user.asp"

else

response.Redirect"manager.asp"

end

if

end

if

rs.Close

conn.Close

%>

</BODY>

</HTML>

顾客使用：

<HTML>

<HEAD>

<Title>user.asp</Title>

<META

http-equiv="Content-Type"

content="text/html;

charset=gb2312">

<META

name="Generator"

content="Asp

Studio

1.0">

</HEAD>

<BODY>

<center><h1>用户订货页面</h1></center>

<%

set

conn=Server.CreateObject("ADODB.connection")

conn.Open"mydata"

set

rs=Server.CreateObject("ADODB.Recordset")

strsql

=

"select

*

from

products"

rs.open

strsql,conn

%>

<table

border=1>

<tr>

<%for

i=0

to

rs.fields.count-1

'显示记录集的字段数

%><th><%=rs(i).name

'显示字段名

%></th>

<%next%>

</tr>

<%while

not

rs.eof%>

<tr>

<%

for

i=0

to

rs.fields.count-1%>

<td><%=rs(i)

'显示字段值

%></td>

<%next%>

</tr>

<%

rs.movenext

wend

rs.close

conn.close

%>

</table>

<form

action="userupdate.asp"

method="post">

订单

产品ID号：<input

type="text"

name="id"><br>

订货数量：<input

type="text"

name="count"><br>

<input

type="submit"

value="提交订单">

</form>

</BODY>

</HTML>

顾客购买商品

：<HTML>

<HEAD>

<Title>userupdate.asp</Title>

<META

http-equiv="Content-Type"

content="text/html;

charset=gb2312">

<META

name="Generator"

content="Asp

Studio

1.0">

<script

language="vbscript">

dim

id,count,minus

</script>

</HEAD>

<BODY>

<%

'请在这里输入您的ASP代码

id=trim(Request("id"))

count=trim(Request("count"))

set

conn=Server.CreateObject("ADODB.connection")

conn.Open"mydata"

set

rs=Server.CreateObject("ADODB.Recordset")

if

(isnumeric(id))and(isnumeric(count))

then

'判断输入的是否是数字

if

(id=cstr(cint(id)))

and

(id>0)and

(count=cstr(cint(count)))

and

(count>0)then'判断输入的是否是正整数

sql1="select

*

from

products

where

id="&

id

rs.Open

sql1,conn

if

rs.eof

then

%>

<script

language="vbscript">

msgbox

"输入的ID号不存在！！请重新输入"

</script>

<center><h1>

订货失败！！

</h1>

<a

href="user.asp">返回重新订</a>

</center>

<%

else

minus=CInt(rs.fields("库存量"))-count

if

minus<0

then

%>

<script

language="vbscript">

msgbox

"库存量不足，请重新输入"

</script>

<center><h1>

订货失败！！

</h1>

<a

href="user.asp">返回重新订</a>

</center>

<%

else

sql="update

products

set

库存量=库存量-"&

count

&"

where

id="&

id

conn.Execute

sql

%>

订货成功！！

<a

href="user.asp">返回继续订</a>

<%

end

if

end

if

else

%>

<script

language="vbscript">

msgbox

"输入的ID或者订货数量为非正整数！！请重新输入"

</script>

<center><h1>

订货失败！！

</h1>

<a

href="user.asp">返回重新订</a>

</center>

<%

end

if

else

%>

<script

language="vbscript">

msgbox

"输入的ID或者订货数量不是数字！！请重新输入"

</script>

<center><h1>

订货失败！！

</h1>

<a

href="user.asp">返回重新订</a>

</center>

<%

end

if

conn.Close

%>

</BODY>

</HTML>

增加顾客用户：

<HTML>

<HEAD>

<Title>adduser.asp</Title>

<META

http-equiv="Content-Type"

content="text/html;

charset=gb2312">

<META

name="Generator"

content="Asp

Studio

1.0">

</HEAD>

</h1>

<a

href="manager.asp">返回查看数据</a>

</center>

<%

else

%>

<script

language="vbscript">

msgbox

"该产品已经存在，不需要增加"

</script>

<center><h1>

增加失败！！

</h1>

<a

href="manager.asp">返回管理员操作页面</a>

</center>

<%

end

if

end

if

end

if

conn.Close

%>

</BODY>

</HTML>

增加顾客用户：

<HTML>

<HEAD>

<Title>adduser.asp</Title>

<META

http-equiv="Content-Type"

content="text/html;

charset=gb2312">

<META

name="Generator"

content="Asp

Studio

1.0">

</HEAD><BODY>

<center><h1>

增加用户成功！！

</h1>

</center>

<%

name=trim(Request("username"))

'获取用户名

password=trim(Request("password"))

'获取用户密码

set

conn=Server.CreateObject("ADODB.connection")

conn.Open"mydata"

sql="insert

into

user

(username,password)

values('"&

name

&"','"&

password

&"')"

conn.Execute

sql

conn.Close

%>

</BODY>

</HT