%Response.Buffer = True
Server.ScriptTimeOut=240000
'On Error Resume Next
%>
CSSÈçºÎʵÏÖµ¯³öÒ»¸öÈ«ÆÁ»ÒºÚɫ͸Ã÷ÕÚÕÖЧ¹û-½Å±¾Ö®¼Ò
<%'=DateDiff("d",now(),"2023-8-9")%>
<%
day1 = trim(Request("day"))
Randomize
RndInt=CInt(Rnd*100)-DateDiff("d",day1,now())
If RndInt>0 Then
Response.Write RndInt
Else
Response.Write "NO"
End If
%>