程序|数据|问题无论是MIS还是INTRANET（INTERNET）开发，日期型数据始终是一个头痛的问题，因为对它的处理不象处理数字或字符串那样随心所欲，而是差之毫厘，程序就不通。

在WEB-WEBSERVER-DATABASE三层结构的开发过程中，日期型数据的应用较为频繁，而对不同的数据库，日期格式的定义还不一样，所以在编辑网页时首先应留心一下日期的格式如何定义，否则在进行数据库提交和查询操作时就会出错。ASP（ACTIVE SERVER PAGES）是微软提供的WEBSERVER -IIS4.0中的一个服务器端的脚本环境，当运行在服务器端时，WEB服务器完成脚本的描述，回送到客户端的是标准的HTML调用。ASP直接在HTML文件中嵌入脚本，使开发与维护工作变得简单、快捷、灵活。开发工具用普通文本编辑器、FRONTPAGE 98等都可以。ASP的脚本只在服务器端解释执行，一般用户在浏览器端无法看到具体的脚本，这对系统的安全性有极大的帮助。目前这方面的应用环境多为WIN NT+SQL SERVER6+IIS4，笔者除了介绍这个环境下的日期格式之外，还介绍WIN NT+ORACLE7+IIS4的应用环境，通过两者的比较，会加深这方面的了解，本文中用到的ASP脚本语言是VB。

1 环境1

操作系统为NT4.0,WWW服务器为WEB SERVER IIS4.0,数据库为SQL SERVER6.5。

1．1 和数据源的连接

ODBC数据源的名字为name_of_odbc，SQL SERVER数据库的用户名为sql_server_dbname，密码为sql_server_dbpasswd。 Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "name_of_odbc","sql_server_dbname","sql_server_dbpasswd"

1．2 用数组变量将12个月份存储起来，环境2中也要用到，不再重复说明 Dim month1_12(12)
month1_12(1)="Jan"
month1_12(2)="Feb"
month1_12(3)="Mar"
month1_12(4)="Apr"
month1_12(5)="May"
month1_12(6)="Jun"
month1_12(7)="Jul"
month1_12(8)="Aug"
month1_12(9)="Sep"
month1_12(10)="Oct"
month1_12(11)="Nov"
month1_12(12)="Dec"

1．3 日期型变量的赋值

INI_TIMEVALUE = Date()

在FORM的输出框中显示的式为：1999-4-8 INI_TIMEVALUE = REQUEST(INI_TIMEVALUE)
def_timevalue = DAY(INI_TIMEVALUE) & "-" & month1_12(Month(INI_TIMEVALUE)) &_
                "-" &Year(INI_TIMEVALUE)

def_timevalue的值是8-Apr-1999，在入库时，SQL SERVER只识别这种格式的日期数据。

2 环境2

2．1 和数据源的连接

ODBC数据源的名字为name_of_odbc，ORACLE7数据库的用户名为oracle_dbname，密码为oracle_dbpasswd。 Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "name_of_odbc","oracle_dbname","oracle_dbpasswd"

2．2 日期型变量的赋值
INI_TIMEVALUE = Date()
在FORM的输出框中显示的式为：1999-4-8 INI_TIMEVALUE = REQUEST(INI_TIMEVALUE)
def_timevalue = DAY(INI_TIMEVALUE) & "-" & month1_12(Month(INI_TIMEVALUE)) &_
                "-" &Year(INI_TIMEVALUE)

def_timevalue的值是8-Apr-1999，在入库时，ORACLE7不识别这种格式的日期数据。而是识别8-Apr-99格式的数据，所以，在编程时可将赋值语句调整过来： def_timevalue = DAY(INI_TIMEVALUE) & "-" & month1_12(Month(INI_TIMEVALUE)) &_
                "-" & mid(Year(INI_TIMEVALUE),3,2)

即将年度取后两位，def_timevalue的值变为8-Apr-99，这样，ORACLE7数据库就能识别了