NewDate是用户输入的时间？

对，这个时间就是动态表在网页上显示的标题，点击该标题可以打开查看表的内容。为了防止出现两张相同标题（时间）的表，必须实行限制。

WebName也是时间类型的变量？

我在第一次提供的代码是NewDate在数据库中字段属性为"文本"时的代码，可以实现限制功能。但将NewDate改为"日期"属性后，就不行了。

if not rs.eof or DateDiff("d",NewDate,CDate(WebName))=0 then
把判断语句改成这样试试。

还是不行。如果不要WebName这个变量是否可以实现，因为WebName在数据库中不存在，只是在网页信息列表显示时定义为标题而已。我原来设计的原意是：如果NewDate与已有的信息标题相同时，阻止新表登记。现在的问题很明显，就是NewDate 与 WebName的属性已经不同（一个是日期型，一个是文本型），不能比较。

列表显示代码：
<a href="#" onClick="MM_openBrWindow('shiplist.asp?id=<%=rs("id")%>','','width=700,height=500,scrollbars=yes')"><%=rs("NewDate")%></a>

在页面显示：YYYY-MM-DD

点击日期，就可以显示出表shiplist.asp页面。

[此贴子已经被作者于2007-10-9 16:25:07编辑过]

WebName存储的是什么样的字符串，字符串也可以转成日期型的变量
但是必须是如"2007/9/10"或"2007-9-10 12:00:00"这样的字符串能转换
而里面如果有其他字符比如"2007/09/10 日期"这种会报错。

应该没有存储什么，因为在数据库中不存在这个变量。如果不要这个变量行不行？

我将两个相关联的文件发给你看看。

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

NewsDate=FormatDate(NewsDate,0)

'=================================================================================================
'该函数作用：按指定参数格式化显示时间。
'numformat=1:将时间转化为yyyy-mm-dd hh:nn格式。
'numformat=2:将时间转化为yyyy-mm-dd格式。
'numformat=3:将时间转化为hh:nn格式。
'numformat=4:将时间转化为yyyy年mm月dd日 hh时nn分格式。
'numformat=5:将时间转化为yyyy年mm月dd日格式。
'numformat=6:将时间转化为hh时nn分格式。
'numformat=7:将时间转化为yyyy年mm月dd日 星期×格式。
'numformat=8:将时间转化为yymmdd格式。
'numformat=9:将时间转化为mmdd格式。
Function FormatDate(shijian,numformat)
dim ystr,mstr,dstr,hstr,nstr '变量含义分别为年字符串，月字符串，日字符串，时字符串，分字符串

if isnull(shijian) then
numformat=0
else
ystr=DatePart("yyyy",shijian)

if DatePart("m",shijian)>9 then
mstr=DatePart("m",shijian)
else
mstr="0"&DatePart("m",shijian)
end if

if DatePart("d",shijian)>9 then
dstr=DatePart("d",shijian)
else
dstr="0"&DatePart("d",shijian)
end if

if DatePart("h",shijian)>9 then
hstr=DatePart("h",shijian)
else
hstr="0"&DatePart("h",shijian)
end if

if DatePart("n",shijian)>9 then
nstr=DatePart("n",shijian)
else
nstr="0"&DatePart("n",shijian)
end if

if DatePart("s",shijian)>9 then
sstr=DatePart("s",shijian)
else
sstr="0"&DatePart("s",shijian)
end if
end if

select case numformat
case 0
FormatDate=ystr&"-"&mstr&"-"&dstr&" "&hstr&":"&nstr&":"&sstr
case 1
FormatDate=ystr&"-"&mstr&"-"&dstr&" "&hstr&":"&nstr
case 2
FormatDate=ystr&"-"&mstr&"-"&dstr
case 3
FormatDate=hstr&":"&nstr
case 4
FormatDate=ystr&"年"&mstr&"月"&dstr&"日 "&hstr&"时"&nstr&"分"
case 5
FormatDate=ystr&"年"&mstr&"月"&dstr&"日"
case 6
FormatDate=mstr&"月"&dstr&"日 "&hstr&"时"&nstr&"分"
case 7
FormatDate=ystr&"年"&mstr&"月"&dstr&"日 "&WeekdayName(Weekday(shijian))
case 8
FormatDate=right(ystr,2)&mstr&dstr
case 9
FormatDate=mstr&dstr
end select
End Function