asp 取得反日期
<%
function dt(v)
dim dy
dy=31
Marr=array(4,6,9,11)
yyyy=Year(Date())
mm=Month(Date())
dd=Day(Date())
if mm=2 then
if yyyy mod 400 or (yyyy mod 4=0 and yyyy mod v0=0) then
dy=29
else
dy=28
end if
else
for i=0 to 3
if Marr(i)=mm then
dy=30
exit for
end if
next
end if
if dd-v<=0 then
if Month(Date())-1<=0 then
dt=(Year(Date())-1)&"-"&(12-(Month(Date())-1))&"-"&(dy-abs(dd-v))&" 00:00:00"
else
dt=(Year(Date()))&"-"&(12-(Month(Date())-1))&"-"&(dy-abs(dd-v))&" 00:00:00"
end if
else
dt=(Year(Date()))&"-"&(Month(Date()))&"-"&(dd-v)&" 00:00:00"
end if
end function
%>
<body>
<%
response.Write(dt(4))调用
%>
相关文档：
最近估计很多人都碰到和我同样的问题，就是因为扫黄及备案管理非常严，一个没备案直接关服务器，一个黄站直接封机房。现在网站所有域名必需通过备案，以前还松点。但我们服务器100多个，总不能一个一个检查吧，上网搜了下，有个程序稍合适，但导出的是网站域名站点名，我修改为导出域名列表，同时解决了导出一个站点绑定多� ......
摘自：http://zxlh168.blog.163.com/blog/static/7778614020098168638654/
<%
’FSO组件名称
dim FSObject
FSObject="Scripting.FileSystemObject"
’=========================================================
’◆是否支持组件
’=============================================== ......
引自：http://blog.csdn.net/yizia/archive/2006/09/19/1248669.aspx
访问远程数据库的情况有以下几种：
1）访问远程数据库的access数据库
2）访问远程mssql数据库或oracle等其他关系数据库，但是数据库通信端口被防火墙阻挡或其他网络原因造成无法使用该端口
本文仅在windows2000 advance server,mdac2.8下测试通过� ......
asp中的rs.open于conn.execute的区别
rs.open sql,conn：如果sql是delete,update,insert则会返回一个关闭的记录集，在使用过程中不要来个rs.close在文件最后再写rs.close
中间可以来多个记录集rs1.open sql1,conn，最后一块关闭记录集:rs.close rs1.close
con ......
这段代码的功能是：将一个数组打乱顺序，显示出来，让每一次显示的顺序都不一样。
<%
Dim tt
tt=Split("1,2,3,4,5,6",",")
'随机排序
leng=UBound(tt)
randomize
for ii=0 to leng-1
b=int(rnd()*leng)
temp=tt(b)
tt(b ......
