ÈçºÎÓÃaspÊä³öÈÕÆÚºÍÐÇÆÚ
µÚÒ»ÖÖ·½·¨:
<%
d = date()
response.write d&" "&WeekdayName(Weekday(d))
%>
Êä³öÑùʽ:2004-5-7 ÐÇÆÚÎå
***********************************************************************************
µÚ¶þÖÖ·½·¨:
<%=FormatDateTime(date, vbLongDate)%><%
d = date()
response.write " "&WeekdayName(Weekday(d))
%>
Êä³öÑùʽ:2004Äê5ÔÂ7ÈÕ ÐÇÆÚÎå
************************************************************************************************************
µÚÈýÖÖ·½·¨:
////////////µÚÒ»²½:°ÑÏÂÃæÓï¾ä·ÅÔÚ¶¥²¿.
<%
'ÈÕÆÚº¯Êý
sub datetime
dat=int(datediff("d",dateserial(2000,8,27),now) mod 7)
response.write(formatdatetime(now,1))&" "
select case dat
case 0
response.write "ÐÇÆÚÌì"
case 1
response.write "ÐÇÆÚÒ»"
case 2
response.write "ÐÇÆÚ¶þ"
case 3
response.write "ÐÇÆÚÈý"
case 4
response.write "ÐÇÆÚËÄ"
case 5
response.write "ÐÇÆÚÎå"
case 6
response.write "ÐÇÆÚÁù"
end select
end sub
%>
/////////////////////µÚ¶þ²½:°ÑÏÂÃæÒ»¾ä¼ÓÔÚÒªÏÔʾµÄµØ·½¼´¿É
<%datetime%>
******************************************************************************************************************88
/////²úÉúËæ»úº¯Êý1µ½10Ö®¼ä
<%
Randomize()
response.write Round(RND()*10)
%>
Ïà¹ØÎĵµ£º
ÓÃASPʵÏÖSQL SERVERÊý¾Ý¿âµÄÔ¶³Ì¸üÐÂ
½ËÕʡͨÖÝÖ°Òµ¸ß¼¶ÖÐѧ Áõ¼Æºâ
΢ÈíµÄSQL Server ÊÇÒ»¸ö´óÐ͵ĹØϵÊý¾Ý¿âϵͳ£¬ËüΪÔÚ¸´ÔÓ»·¾³ÏÂÓÐЧµØʵÏÖÖØÒªÉÌÒµÓ¦ÓÃÌṩÁËÒ»¸öÇ¿ÓÐÁ¦µÄ¿Í»§/·þÎñÆ÷ƽ̨¡£Ëü½áºÏMicrosoft Windows NT²Ù×÷ϵͳµÄÄÜÁ¦£¬ÌṩÁËÒ»¸ö°²È«¡¢¿ÉÀ©Õ¹¡¢Ò×¹ÜÀí¡¢¸ß¶ËÐÔÄܵĿͻ§/·þÎñÆ÷Êý¾Ý¿âƽ̨¡£Õ ......
̽Ë÷Èí¼þ¹¤×÷ÊÒ³¤ÆÚרҵ³Ð½ÓÖÐСÐÍÉÌÒµÈí¼þ»òÍøÕ¾£¬×îÓŻݵļ۸ñºÍ¸ßÖÊÁ¿µÄ·þÎñÆÚ´ýÄúµÄ»Ý¹Ë£¡
±¾¹¤×÷ÊÒ³Ð½Ó JSP ASP VB PB LotusNotes µÈÓïÑÔÒªÇóµÄÓ¦ÓÃϵͳ¿ª·¢ÒµÎñ
java jspʵսԴ³ÌÐò´úÂë:
......
<%
'//////////// GPS£ºGet Picture Size //////////////
'//////////////ÀûÓÃADODB.stream»ñȡͼƬ³ß´ç//////////////
Class GPS
Dim aso
Private Sub Class_Initialize
Set aso=CreateObject("Adodb.Stream")
aso.Mode=3
aso.Type=1
aso.Open
End Sub
Private Sub Class_Terminate
set aso=nothing
En ......
×¢Ò⣺ϵͳÐèÒªFSOȨÏÞ¡¢XMLHTTPȨÏÞ
ϵͳ°üÀ¨Á½¸öÎļþ£¬Æäʵ¿ÉÒԺϲ¢ÎªÒ»¸ö¡£Ö®ËùÒÔ·ÖΪÁ½¸öÊÇÒòΪ²¿·Öɱ¶¾Èí¼þ»áÒòΪÀï±ßº¬ÓÐFSO¡¢XMLHTTP²Ù×÷¶ø±»ÈÏΪÊǽű¾Ä¾Âí¡£
µ÷ÓÃʱ£¬ÐèÒªÔÚASPÒ³ÃæµÄ×îÉϱ߰üº¬Ö÷Îļþ£¬È»ºóÔÚϱßдÏÂÒÔÏ´úÂë
Set MyCatch=new CatchFile
MyCatch.Overdue=60*5 &n ......
¶¯Ì¬ÍøÒ³¿ª·¢——ASPÁ¬½ÓSQL2005Êý¾Ý¿â
˵Ã÷£ºa¡¢ÒÔÏÂ×Ö·ûÖÐÊý¾Ý¿âÃûforum£¬Êý¾Ý¿â·þÎñÆ÷ÃûWWW-2443D34E558\SQL2005£¨»òÕß127.0.0.1£©
b¡¢²é¿´sqlÊý¾Ý¿â·þÎñÆ÷Ãû³Æ£º¶ÔÏó×ÊÔ´¹ÜÀíÆ÷->Êý¾Ý¿â->ÓÒ¼üµã»÷×Ô¼º½¨µÄÊý¾Ý¿â->ÊôÐÔ->ȨÏÞ
c¡¢Provider=sqlncliÒ²¿ÉÒÔ,UIDÓë“=”Ö®¼ä²»¿ÉÒÔ ......