time.asp

这次自已做的美工,可能很难看,但主要是为提高效率,这次全部生成了静态,只有一个链接查看最新文章的列表没有生成,因为我觉得没必要生成,浪费空间大小,那是一个很少用到的功能!这次去掉了很多功能,这个版本主

<%
function adddate(intnum)
ttime=date()
atime=dateadd("d",intnum,ttime)
adddate=atime
end function
%>
<%
'批处理删除函数
'intnum参数为删除多少天之前的贴子,如果十天前就是-10
function moredel(intnum)
d=adddate(intnum)
sql="delete from art_file where arttime<#"&d&"#"
conn.execute(sql)
moredel=response.write("删除成功")
end function
%>