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¶à¸ö£¬×ܲ»ÄÜÒ»¸öÒ»¸ö¼ì²é°É£¬ÉÏÍøËÑÁËÏ£¬Óиö³ÌÐòÉÔºÏÊÊ£¬µ«µ¼³öµÄÊÇÍøÕ¾ÓòÃûÕ¾µãÃû£¬ÎÒÐÞ¸ÄΪµ¼³öÓòÃûÁÐ±í£¬Í¬Ê±½â¾öÁ˵¼³öÒ»¸öÕ¾µã°ó¶¨¶à¸ ......
¡¡ASPÁ¬½ÓÊý¾Ý¿âµÄ11ÖÖ·½·¨——±¾ÎÄ×ܽáÁËʹÓÃASPÁ´½Ó¸÷ÖÖÊý¾Ý¿âµÄ·½·¨£º
¡¡¡¡1.AccessÊý¾Ý¿âµÄDSN-lessÁ¬½Ó·½·¨:
set adocon=Server.Createobject("adodb.connection")
adoconn.Open"Driver={Microsoft Access Driver(*.mdb)};DBQ="& _
Server.MapPath("Êý¾Ý¿âËùÔÚ·¾¶")
¡¡¡¡2.Access OLE DBÁ¬½Ó·½·¨£ ......
Ê×ÏÈÌù´úÂ룺
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Dim objDic
Dim arr(2)
arr(0) = 0
arr(1) = 1
arr(2) = 2
Set objDic = Server.CreateObject("Scripting.Dictionary")
objDic.Add "key",arr
Response.Write("ÕâÊÇÐÞ¸Ä֮ǰµÄÖµ£º" & objDic.Item("key")(0))
objDic.Item("key")(1) = ob ......
Õâ¶Î´úÂëµÄ¹¦ÄÜÊÇ£º½«Ò»¸öÊý×é´òÂÒ˳Ðò£¬ÏÔʾ³öÀ´£¬ÈÃÿһ´ÎÏÔʾµÄ˳Ðò¶¼²»Ò»Ñù¡£
<%
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 ......