谢谢你的帮助。但我现在的问题不是在日期的转换。而是如何将当前要登记的新表与库中已有的内容进行判断，确定是否可以登记。以确保每天只能登记一张表。判断的要素是日期（也是在页面中显示的信息标题）。

NewsDate=FormatDate(Date(),0)


'mssql2000
if not(Conn.exeCute("select top 1 * from [ship] where NewDate='"&NewsDate&"'").eof then
errmsg="<br>"+"<li>对不起，此天的船舶动态表已存在，请您修改或重新建立。"
end if

'Access
if not(Conn.exeCute("select top 1 * from [ship] where NewDate='#"&NewsDate&"#'").eof then
errmsg="<br>"+"<li>对不起，此天的船舶动态表已存在，请您修改或重新建立。"
end if

这段代码的目的是为了判断数据库(ship)中的NewDate是否存在相同,如果存在,即提示“对不起，此天的船舶动态表已存在，请您修改或重新建立”的错误信息,如果没有，即写入新的登记表信息。目的是为了阻止与当天相同的表被写入库中,以达到限制一天内出现相同的登记表。现在老是出错，请问错在哪？？NewDate是日期型字段，由用户输入的日期，同时也是在网页中显示的信息标题，通过点击Newdate，可显示一张数据报表。

<%
founderr=false

if request.form("Duty")="" then
errmsg=errmsg+"<br>"+"<li>请输入值班人员名字!"
founderr=true
else
Duty=trim(request.form("Duty"))
end if
if request.form("NewDate")="" then
errmsg=errmsg+"<br>"+"<li>请调整时间格式!"
founderr=true
else
NewDate=trim(request.form("NewDate"))
end if

if founderr=true then
call error()
else

sql="select * from ship where NewDate='"&NewDate&"'"
rs.open sql,conn,1,3
if not rs.eof or NewDate=NewDate then
errmsg="<br>"+"<li>对不起，此天的船舶动态表已存在，请您修改或重新建立。"
founderr=true
else

rs.addnew

rs("Duty")=Duty
rs("NewDate")=NewDate

........

[此贴子已经被作者于2007-10-11 14:39:38编辑过]