Classic ASP时间校验求助：对比当前时间与数据库时间判断是否过1分钟

嘿，我看了你的ASP代码，问题出在类型不匹配和错误的字符串操作上，这才导致逻辑判断不符合预期。咱们一步步捋：

核心问题1：字符串与数值的混用 #

你的ConvertToUnixTimeStamp函数用了CStr把时间戳转换成了字符串，但time_from_db是数值类型，而且你在计算ConvertToUnixTimeStamp(Now) + 60的时候，会触发字符串拼接而不是数值相加。举个例子：如果函数返回字符串"11293015"，加60后会变成"1129301560"，而不是你想要的11293075，这直接导致后续的比较完全错了。

核心问题2：字符串比较的逻辑错误 #

当你拿字符串类型的时间戳和数值类型的time_from_db做比较时，VBScript的隐式转换会搞乱逻辑。比如数值11293075对应的字符串是"11293075"，如果当前时间戳字符串是"11293000"，数值上它更小，但字符串比较是按字符逐个比，结果可能完全相反。

修复后的代码 #

我调整了函数返回类型，统一用数值处理时间戳，同时优化了细节：

<%
Function ConvertToUnixTimeStamp(input_datetime) ' 返回数值类型（Long）
    Dim d : d = CDate(input_datetime)
    ' 去掉CStr，直接返回DateDiff的数值结果
    ConvertToUnixTimeStamp = DateDiff("s", "01/01/2018 00:00:00", d)
End Function

' 把当前时间戳存到变量里，避免多次调用Now产生微小时间差
current_time_stamp = ConvertToUnixTimeStamp(Now)
time_from_db = 11293015 + 60 ' 数据库返回的时间戳（数值类型）

Response.write "Current Time: " & current_time_stamp & "<BR><BR>"
Response.write "Time from DB: " & time_from_db & "<BR><BR>"
Response.write "<BR><BR>"
Response.write "Update DB with this time (Added 1 minute): " & current_time_stamp + 60 & "<BR><BR>"

If current_time_stamp > time_from_db then
    Response.write("<BR>Current Time is Greater than DB")
else
    Response.write("<BR>DB Time is Newer than Current Time")
end if
%>

修复说明 #

1. 统一类型：让ConvertToUnixTimeStamp返回数值，所有时间戳操作都用数值计算，彻底避免字符串拼接和错误比较的问题。
2. 优化严谨性：把当前时间戳存到变量里，避免多次调用Now导致的几秒时间差（虽然影响不大，但更规范）。
3. 拼写修正：把Greaten改成Greater，then改成than，让提示文本更准确。

另外提一句：如果你的目标是标准Unix时间戳，基准时间应该改成"01/01/1970 00:00:00"，不过看你代码里用的是2018年的基准，只要数据库里的时间戳也是用同一个基准生成的，就没问题。

内容的提问来源于stack exchange，提问作者compcobalt