制造业物流管理系统论文.doc

本科毕业论文 制造业物流管理系统仓储管理子系统
目 录
摘要…………………………………………………………………………1
Abstract.........................................................................................................1
第一章 前言……………………………………………………………..2
第二章 系统开发的总体框架和设计思想……………………………..2
2.1 系统的设计思想………………………………………………......................2
2.2 主要流程………………………………………………………......................2
2.3 系统的功能模块………………………………………………......................3
2.4 系统的实现工具……………………………………………………………..3
2.4.1 ASP的特点和要点………………………………………………………………3
2.4.2 ASP的应用………………………………………………………………………5
2.4.3 SQL SEVER简介………………………………………………………………..5
第三章 有关设计的实现………………………………………………...6
3.1 界面之间的联系……………………………………………………………...6
3.1.1 页面链接流程………………………………………………………………………6
3.1.2 几个关键界面之间的联系…………………………………………………………6
3.2 系统的具体实现……………………………………………………………...7
3.2.1 管理员登录…………………………………………………………………………8
3.2.2 半成品入库…………………………………………………………………………9
3.2.3 半成品出库………………………………………………………………………..13
3.2.4 客户端界面………………………………………………………………………..15
3.2.4.1 访客留言…………………………………………………………………...15
3.2.4.2 产品订购…………………………………………………………………...17
3.3 关键技术 ……………………………………………………………….18
3.3.1 关于在网页中的表格实现动态显示记录………………………………………18
3.3.1.1 浏览所有半成品…………………………………………………………...18
3.3.2 关于在各仓库之间实现数据的联系……………………………………………20
3.3.2.1 查看半成品订单…………………………………………………………...20
3.3.2.2 查看需要的零件信息……………………………………………………...21
3.3.2.3 提交订单…………………………………………………………………...23
3.3.3 关于查询功能的实现……………………………………………………………23
第四章 总结……………………………………………………………25参考文献………………………………………………………………….26

26

本科毕业论文 制造业物流管理系统仓储管理子系统
摘 要
利用web技术和数据库技术，设计一种基于WEB的物流管理系统仓储子系统的方案，文章主要从系统的设计思想、主要流程、基本框架、实现工具、具体实现和关键技术几个方面进行了研究。并描述了用ASP技术结合SQL SERVER数据库进行该系统的开发过程。即ASP访问数据库的技术。最终对此次毕业设计做出总结。通过这次实践来解决物流管理信息系统网络化的基本问题。
关键词: 物流管理信息系统　　ＡＳＰ　　数据库

Abstract
This thesis makes a design based on a warehouse management system in a WEB logistics administration 
system with web techniques and database techniques. It mainly researches the design conception, the process, the basic frame, the instruments, the practice and the key techniques of the system. This article also describes the developing procedure of the system with the ASP Technique and the SQL Server database, that is, the technique of ASP visiting the database. At the end of the essay, it gets a conclusion of the graduating design, and settles the basic networking problems of the logistics administration system through this internship.

Keywords：Logistics Management, ASP, Database

第一章 前言
物流管理信息系统对于当今的企业和计算机软件领域来说已经不再陌生。这个在几年前还是一个新生的事物，如今已经发展得相当成熟。如金蝶软件公司生产的物流管理信息系统如今已经被许多大、中型企业所应用，它包括了生产、仓储、货运、财务等多重功能。由此可见，现在的物流管理信息系统含概了许多功能，而且功能也非常强大，设计的也都比较人性化，可以说真正意义上做到了物流的信息管理。但金蝶公司的这套物流管理信息系统对于一些正规的大、中型企业来说可能比较合适，但对于另外一些公司企业来说，由于其经营的特点、规模、资金、需求等方面的因素，金蝶的这套软件并不一定是合适的。所以，针对这些小型企业，根据其行业特点，设计一个仅关于仓储管理的物流信息软件对于提高生产效率，提高企业生产管理的现代化程度同样具有现实意义。
因此笔者提出一种基于Web的物流管理系统仓储管理子系统的方案，并用SQL SERVER数据库与ASP技术结合进行了该系统的开发过程。

第二章 系统开发的总体框架及设计思路
1.1 设计思想
由于物流管理信息系统具有极为重要的实时性，因此，本次设计将采用目前较为流行的ASP技术和数据库技术，以达到S/C（Sever/Client）模式的效果。将企业的新产品和新动向或是各生产环节之间对物品的需求情况展现于动态网页中，以便生产、销售、采购各环节的物流通畅。
其次，系统是否便于更新和维护是需要认真考虑的问题。把需要经常处理的数据和内容（例如说明性文本）做成动态的文件加载入系统而不是直接做入系统，就可以直接在文件上进行操作而不是把这个系统进行修改。
1.2 主要流程
此次毕业设计的作品关键是面向生产的、关于仓储情况的物流管理信息系统。其主要流程如下图：
材料库
半成品库
产品库
客户
材料供应商

图2.1 库存流程图
如图，我们可以清楚地了解“材料库”、“半成品库”、“产品库”之间的关系和仓储的主要流程：
1 )首先，由客户在本企业网站上对本企业的产品制定一份采购定单，生产企业根据此定单参看产品库中相应的产品数目是否达到要求。如果达到要求，则经过必要的条件判定后便可想客户发货；如果不能达到要求的数量，则将不足的产品数量列出，并通过电脑统计出生产这些产品所需要的半成品的种类及相关的数量。于是，产品库管理员可向半成品库管理员也制定一份“定单”。
2 )半成品库管理员在接到产品库管理员发来的定单后，查看相关半成品的库存情况。如果库存充足，则向生产加工部门提供半成品，待加工成成品后，添加入产品库中；如果相关的半成品库存不足，则半成品管理员向材料库管理员发出“定单”，定单中包括生产不足部分半成品所需的原材料种类和相应数量。
3 )材料库管理员根据半成品库发来的“定单”，向生产部门提供原材料，不足部分则向采购部门发出采购定单。
不同的仓库有相应的管理员进行管理，同时还将设置一个超级管理员，对三个仓库之间的物流情况做统筹规划及管理。具体关系如图：

产品库管理员
半成品库管理员
材料库管理员
超级管理员

图2.2 仓库管理员关系图
2.3 系统的功能模块
根据主要流程及各仓库之间的关系和各仓库管理员之间的关系，我们能得出此物流管理信息系统的基本框架：
1 )首先必须设有面向客户及管理员登录得界面。客户界面时向客户们提供产品查询功能，介绍相关产品资料和制定定单功能。管理员登录界面则是让各个级别管理员根据职位得到相应权限对仓库或仓储流通进行管理、各司其职。
2 )材料库管理员、半成品库管理员及产品库管理员设定相应得权限。大致上可以有：
(1)查询功能：可查询相应仓库中所有物品得库存情况（关键是库存数量），或根据物品得编号、名称、入库日期范围来查找库存情况。
(2)入库功能：将新得到的物品存入仓库，即将相应物品的数量增加。
(3)查看定单、下定单功能：查看各仓库的上一级（客户为产品库上级，产品库是半成品库上级，半成品库是材料库上级，材料库为材料供应商的上级）所下达的定单，并在核实后作出“出库”动作或“下达定单”动作。
(4)出库功能：根据上一级下达的定单情况，向上一级仓库发货，即将物品的库存数量减少。
(5)其他功能：在以上介绍过的几个主要功能后，我们还加入其他功能，如查看入库日志、出库日志、打印定单等等辅助功能。
(6)超级管理员可充当三个仓库管理员中的任一角色，对产品生产有个统筹的规划及管理。
2.4 物流管理系统的实现工具
目前作为单机版的物流管理信息系统的开发，在技术上可以说是比较成熟的了。但随着Internet的普及，以及在办公网络化的趋势下，单机版的物流管理信息系统已经不太能满足用户的需求了。因此，开发一种基于网络的物流管理信息系统已经是大势所趋了。
此次毕业设计的内容，就是基于网络的物流管理信息系统。所以，我们选择目前最流行的ASP技术来完成。
2.4.1 ASP的特点和要点
Microsoft Active Server Pages 即我们所称的 ASP ，其实是一套微软开发的服务器端脚本环境， ASP 内含于 IIS 3.0 和 4.0 之中（目前的版本为5.1） , 通过 ASP 我们可以结合 HTML 网页、 ASP 指令和 ActiveX 元件建立动态、交互且高效的 WEB 服务器应用程序。有了 ASP 你就不必担心客户的浏览器是否能运行你所编写的代码，因为所有的程序都将在服务器端执行，包括所有嵌在普通 HTML 中的脚本程序。当程序执行完毕后，服务器仅将执行的结果返回给客户浏览器，这样也就减轻了客户端浏览器的负担，大大提高了交互的速度。 以下罗列了 Active Server Pages 所独具的一些特点：
　 1 )使用 VBScript 、 JScript 等简单易懂的脚本语言，结合 HTML 代码，即可快速地完成网站的应用程序。
　 2 )无须 compile 编译，容易编写，可在服务器端直接执行。
　 3 ) 使用普通的文本编辑器，如 Windows 的记事本，即可进行编辑设计。
　 4 ) 与浏览器无关 (Browser Independence), 用户端只要使用可执行 HTML 码的浏览器，即可浏览 Active Server Pages 所设计的网页内容。 Active Server Pages 所使用的脚本语言 (VBScript 、 Jscript) 均在 WEB 服务器端执行，用户端的浏览器不需要能够执行这些脚本语言。
　 5 )Active Server Pages 能与任何 ActiveX scripting 语言相容。除了可使用 VBScript 或 JScript 语言来设计外，还通过 plug-in 的方式，使用由第三方所提供的其他脚本语言，譬如 REXX 、 Perl 、 Tcl 等。脚本引擎是处理脚本程序的 COM(Component Object Model) 物件。
　 6 )Active Server Pages 的源程序，不会被传到客户浏览器，因而可以避免所写的源程序被他人剽窃，也提高了程序的安全性。
　 7 ) 可使用服务器端的脚本来产生客户端的脚本。
　 8 ) 物件导向（ Object-oriented ）。
　 9 )ActiveX Server Components(ActiveX 服务器元件 ) 具有无限可扩充性。可以使用 Visual Basic 、 Java 、 Visual C++ 、 COBOL 等编程语言来编写你所需要的 ActiveX Server Component 。
　　让我们再来看看运行 ASP 所需的环境：
· Microsoft Internet Information Server version 3.0/4.0 on Windows NT Server
· Microsoft Peer Web Services Version 3.0 on Windows NT Workstation
· Microsoft Personal Web Server on Windows 95/98
　　正如前文所述，与一般的程序不同， .asp 程序无须编译， ASP 程序的控制部份，是使用 VBScript 、 JScript 等脚本语言来设计的，当执行 ASP 程序时，脚本程序将一整套命令发送给脚本解释器 ( 即脚本引擎 ) ，由脚本解释器进行翻译并将其转换成服务器所能执行的命令。当然，同其他编程语言一样， ASP 程序的编写也遵循一定的规则，如果你想使用你所喜爱的脚本语言编写 ASP 程序，那么你的服务器上必须要有能解释这种脚本语言的脚本解释器。当你安装 ASP 时，系统提供了两种脚本语言： VBsrcipt 和 JScript ，而 VBscript 则被作为系统默认的脚本语言。
ASP 本身并不是一种脚本语言，它只是提供了一种使镶嵌在 HTML 页面中的脚本程序得以运行的环境。ASP 程序其实是以扩展名为 .asp 的纯文本形式存在于 WEB 服务器上的，你可以用任何文本编辑器打开它，也可在其它网页设计软件（如Dreamweaver、FrontPage等）中打开并编辑它。 ASP 程序中可以包含纯文本、 HTML 标记以及脚本命令。你只需将 .asp 程序放在 WEB 服务器的虚拟目录下（该目录必须要有可执行权限），就可以通过 WWW 的方式访问 ASP 程序了。要学好 ASP 程序的设计，必须掌握脚本的编写，那么究竟什么是脚本呢？其实脚本是由一系列的脚本命令所组成的，如同一般的程序，脚本可以将一个值赋给一个变量，可以命令 WEB 服务器发送一个值到客户浏览器，还可以将一系列命令定义成一个过程。要编写脚本，你必须要熟悉至少一门脚本语言，如 VBScript 。脚本语言是一种介乎于 HTML 和诸如 JAVA 、 Visual Basic 、 C++ 等编程语言之间的一种特殊的语言，尽管它更接近后者，但它却不具有编程语言复杂、严谨的语法和规则。如前所述 ASP 所提供的脚本运行环境可支持多种脚本语言，譬如： JScript 、 REXX 、 PERL 等等，这无疑给 ASP 程序设计者提供了广泛的发挥余地。 ASP 的出现使得广大 WEB 设计者不必在为客户浏览器是否支持而担心，实际上就算你 在同一个 .asp 文件中使用不同的脚本语言，你都无须为此担忧，因为所有的一切都将在服务器端进行，客户浏览器得到的只是一个程序执行的结果，而你也只需在 .asp 中声明使用不同的脚本语言即可。
2.4.2 ASP的应用
很明显，采用ASP技术可以增强作品的灵活性，网站的管理员或设计者可以灵活并方便地对网站进行管理和维护。现在，很多网站基本上分采用了 ASP 技术，建立了相当一部分精美、灵活的动态网站。
显然，用 ASP技术混入物流管理信息系统是一个好办法，将原本功能强大的物流管理信息系统，赋予网络的特性，不但方便了管理员对数据库的管理和维护，同时可以达到事实性强的效果。对于物流系统本身来说，这是非常重要的。
2.4.3 SQL SERVER简介
SQL(Structured Query Language，结构查询语言)是一个功能强大的数据库语言。SQL通常使用于数据库的通讯。ANSI（美国国家标准学会）声称，SQL是关系数据库管理系统的标准语言。SQL语句通常用于完成一些数据库的操作任务，比如在数据库中更新数据，或者从数据库中检索数据。使用SQL的常见关系数据库管理系统有：Oracle、 Sybase、 Microsoft SQL Server、 Access、 Ingres等等。虽然绝大多数的数据库系统使用SQL，但是它们同样有它们自立另外的专有扩展功能用于它们的系统。但是，标准的SQL命令，比如"Select"、 "Insert"、 "Update"、 "Delete"、 "Create"和 "Drop"常常被用于完成绝大多数数据库的操作。
但是，不象其它的语言，如C、Pascal等，SQL没有循环结构（比如if-then-else、do-while）以及函数定义等等的功能。而且SQL只有一个数据类型的固定设置，换句话说，你不能在使用其它编程语言的时候创建你自己的数据类型。
SQL功能强大，但是概括起来，它可以分成以下几组：
DML（Data Manipulation Language，数据操作语言）：用于检索或者修改数据；
DDL（Data Definition Language，数据定义语言）： 用于定义数据的结构，比如 创建、
修改或者删除数据库对象；
DCL（Data Control Language，数据控制语言）：用于定义数据库用户的权限。
DML组可以细分为以下的几个语句：
SELECT：用于检索数据；
INSERT：用于增加数据到数据库；
UPDATE：用于从数据库中修改现存的数据
DELETE：用于从数据库中删除数据。
DDL语句可以用于创建用户和重建数据库对象。下面是DDL命令：
CREATE TABLE
ALTER TABLE
DROP TABLE
CREATE INDEX
DROP INDEX
DCL命令用于创建关系用户访问以及授权的对象。下面是几个DCL命令：
ALTER PASSWORD
GRANT
REVOKE
CREATE SYNONYM
为了让你对SQL有一个直观的认识，下面先给出一个简单SQL语句的例子：
我们使用SQL语句来从Employees中检索Department ID为CS的姓名：
SELECT Employees.Name
FROM Employees
WHERE Employees.DeptID = "CS"
可能你现在一开始不太理解这些语句，也许你会一头雾水，不要紧的，通过本教程的学习后，你会发现这段语句是多么的普通。为了不让你困惑，下面我也进行一番解释：
先对FROM子句吧，语句中的FROM Employees意思是从Employees表中检索数据。
而语句WHERE Employees.DeptID = "CS"意思是检索Employees的DeptID列为”CS”的行，这样SQL语句检索的结果将是DeptID为CS的列的所有数据，比如：
EmpID
Name
Dept
123
Purple
CS
124
Zsc
CS

第三章 有关设计的实现
3.1 界面之间的联系
作为一个基于网络的物流管理信息系统，关键的就是将原本只能用于单机的物流管理信息系统网络化。通俗的讲，就是要求用户能通过网络使用物流管理信息系统。于是，就将此系统完全嵌入网页当中去。
3.1.1 页面链接流程：
首先，在配置完成服务器运行环境的前提下，在IE中输入地址，将会出现物流管理系统的首页。在此页面中，存在四个超连接：管理员操作界面，客户操作界面，电子邮件连接，本网站的相关介绍。
选择“管理员”后，将会出现管理员登录界面，通过选择不同的管理员角色进行登录。其中，材料库、半成品库、成品库管理员都有各自不同的权限和功能；而超级管理员则拥有其它三个仓库管理员的权限和功能，即，当超级管理员要查看材料库的情况，或者在材料库中进行某项操作，就相当于以材料库管理员的身份进行操作。
选择“访客进入”后，将会出现客户操作界面。在此页中，将会出现一些新产品的信息，以及提供用户查询、留言以及在线订购产品的功能。
“联系我们”，则提供用户向企业发送电子邮件的功能。
“关于本网站”，则是介绍了本网站的一些信息。
3.1.2 几个关键界面之间的联系：
关键界面指的是材料库管理员、半成品库管理员、产品库管理员和客户界面四各界面。由于在客户界面中提供了在线订购的功能，因此三个仓库之间就有了联系。结合图2.1，我们再来看以下的流程图4.1
下面我们就来具体解释一下图4.1：
客户向企业订购产品后，管理系统中的超级管理员将首先接到“定单”，然后，将它发给产品库管理员。如果产品现有的库存足够，那么产品库将直接提货，准备发货；如果现有的库存不足，那么管理系统将自动列出生产出此类产品所需半成品的种类和数量，产品库管理员也将以“定单”的形式向半成品库申请调出所需的半成品来生产成产品。半成品库管理员也是根据产品库下的定单来决定“发货”的情况或是向材料库下“定单”；材料库管理员也根据半成品库下的定单来决定“发货”的情况或是向采购部门提出采购请求。

客户

订购 库存足够

产品库库存

生产加工
不足部分

半成品库库存

不足部分 生产加工

材料库库存

原材料供应商
采购

图4.1
3.2 系统的具体实现
在上一节我们了解了系统内部一些界面的联系以及一些数据上的关系以后，那么现在，就来看看系统中一些具体功能的实现。由于材料库管理员、半成品库管理员和产品库管理员所具备的功能几乎一样，因此，其中一个仓库管理员的模块和其它两个仓库管理员的模块也几乎是一样的，了解了一个仓库管理员功能的实现，其它的两个也就明白了。那么接下来，我们对半成品库管理员功能模块的实现作具体地介绍。

3.2.1 管理员登录：
在编写此网页时，如果想要达到预期的效果是必须用到数据库的。在这里就当数据库的连接已经完成。
为了达到登录效果，我用了下面的VB.script代码：
<%
Session("operator") = "null"
usrname = request("usrname")
pword = request("password")
sel = request("admin")
Session("operator") = usrname
Dim url
select case sel
case "acce"
url = "pages/acce/all.asp?valid=2"
case "semi"
url = "pages/semi/all.asp?valid=y"
case "final"
url = "pages/final/all.asp?valid=t"
case "admin"
url = "pages/admin/all.asp?valid=1"
end select
if usrname = "" or pword = "" then
response.Redirect("login.htm")
else
CheckValid usrname,pword,sel
end if
Function CheckValid(usr,pawd,sele)
SQL = "select * from manager where username ='" + usr + "' and type ='" + sele + "'"
Set conn = GetSQLServerConnection()
Set rs = GetSQLServerStaticRecordset( conn, SQL)
if rs.Eof = true then
response.Write("<center>该管理员不存在</center>")
else
SQL = "select * from manager where username ='" + usr + "' and password ='" + pawd + "' and type ='" + sele + "'"
Set s = GetSQLServerStaticRecordset( conn, SQL)
if s.EOF then
response.Write("<center>密码错误</center>")
response.Write("<center><a href='login.htm'>Back</a></center>")
else
response.Redirect(url)
end if
end if
set conn = nothing
set rs = nothing
End Function
%>
程序说明：
operator为操作员，系统要将进入系统的用户名记下，因为在下定单的时候必须出现操作人员的名字。系统接收用户所填信息，通过用户选择的管理员类型来判断准备连接的操作界面。对用户输入的信息进行判断，如果没有填用户名或密码，系统将刷新用户登录界面；如果用户名和密码都填写了，那么讲用户填写的信息作为参数，传入CheckValid(usr,pawd,sele)。方法CheckValid(usr,pawd,sele)方法从数据库的manager表中查询以存在的登录信息。如果传入的参数与manager表中的记录相付，那么网页将转入相应页面；否则，将会出现“该管理员不存在”或“密码错误”的提示。程序中Session为ASP的内置对象，它能在多个网页中来回传递信息。Request也是ASP的内置对象，使服务器端得到客户端的信息。response.Redirect中的response也是ASP的内置对象，使服务器向客户端输出信息，Redirect是response中的一个方法，作用是重定向网页。CheckValid(usr,pawd,sele)函数中的SQL = "select * from manager where username ='" + usr + "' and type ='" + sele + "'"指令是数据库的查询指令。Set conn = GetSQLServerConnection()用来将程序与数据库进行连接。GetSQLServerStaticRecordset( conn, SQL)得到数据库中所查询到的记录集合。相应的set conn = nothing和set rs = nothing关闭数据库。response.Write中的Write方法是将信息从Web服务器输出到客户端浏览器。

3.2.2 半成品入库：
当材料库的零件经过加工后生成半成品，于是，就要将新的半成品入库。为了实现此功能，用以下程序实现：
<% tip = ""
semiid = ""
semiid = request("semiid") '得到半成品编号

if IsEmpty(semiid) then
else
seminame = request("seminame") '半成品名
semitype = request("semitype")'类型
semidate = request("semidate")'日期
seminum = request("seminum")'数量
SQL = "select * from semiproduct where semiid='" & semiid & "'"'查找看是否已经存在了该编号的半成品
Set conn = GetSQLServerConnection()
Set rs = GetSQLServerStaticRecordset( conn, SQL)'运行SQL
if rs.eof then'记录为空则没有，可以插入
SQL = "insert into semiproduct values('" & semiid & "','" & seminame &"','" & semitype & "','" & seminum & "')"
else '记录不为空则先查看新输入个项指标与原来是否相符合
num = rs.Fields("seminum").Value
SQL2 = "select * from semiproduct where semiid = '" & semiid & "' and seminame ='" & seminame & "' and semitype='" & semitype & "'"
set rs2 = GetSQLServerStaticRecordset( conn, SQL2)
if rs2.eof then'不符合，提示用户
tip = "该编号已经存在，但所输入相关信息不符!"
SQL = "error"
else '若符合，则在原来的数量上增加新入库的。
SQL = "update semiproduct set seminum = " & seminum & "+" & num & " where semiid='" & semiid & "'"
end if
end if
if SQL <> "error" then'若添加成功
rs = GetSQLServerStaticRecordset( conn, SQL)
'写入入库日志表semi_in_log
SQL = "insert into semi_in_log values('" & semiid & "','" & seminame &"','" & semitype & "','" & semidate & "','" & seminum & "','" & session("operator") & "')"
rs = GetSQLServerStaticRecordset( conn, SQL) '运行SQL
tip = "添加成功" 'tip在下面显示。
end if
set conn = nothing
set rs = nothing
end if
%>
程序说明：
将用户所填的信息输入到数据库中。如果数据库中，不存在现在输入的信息（判断依据为半成品编号），那么就在数据库中插入此条记录；如果存在，那么判断半成品名称、型号和编号是否与记录相符合，不符合就输出“该编号已经存在，但所输入相关信息不符!”，符合就在“制造数量”字段中增加所填入的数量。最后，如果入库操作成功，那么此次输入的相关信息将被记录到“入库日志表semi_in_log”中并在网页中显示“添加成功”。num = rs.Fields("seminum").Value是从数据库的semiproduct表中去字段seminum的值。SQL = "insert into semi_in_log values('" & semiid & "','" & seminame &"','" & semitype & "','" & semidate & "','" & seminum & "','" & session("operator") & "')"就是将添加进数据库的记录集写入入库日志表semi_in_log。
同时为了达到限制用户在填入信息格式的功能，我们还用了JAVA.script程序：
<script language="javascript">
function IsID(Instring,tmpChar) {
if (Instring.substring(0,1) == tmpChar) {
return (true);
}
return false;
}
function IsNumber(Instring) {
if (Instring.length==0) return (false);
for(Count = 0;Count < Instring.length;Count++) {
tmpChar = Instring.substring(Count,Count+1);
if(tmpChar > '9' || tmpChar < '0')
return (false);
}
var t = parseInt(Instring);
if (t==0) return (false);
return (true);
}
</script>
<script language="javascript">
function IsDate(DateSt