我现在没有安装iis服务器,无法测试。作者: 情比金坚 时间: 2007-7-2 08:09
<%
Dim Rs,Sql
dim ti as date
Set Rs = Server.CreateObject( "ADODB.Recordset" )
Sql="SELECT * FROM book
Rs.Open Sql, Conn, 1,1
Ti=Rs("time")
%>
<table><tr><td>response.write DateDiff("d",Date(),ti)</td></tr></table>
<%
Rs.Close
Set Rs=Nothing
%>