ÈçºÎÓÃ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)
%>
Ïà¹ØÎĵµ£º
Ò»¡¢Ð޸ĸñʽ£ºµ÷Õû±íÍ·¾Ó×ó£»
<!--ÔÀ´¸ñʽ-->
/*˵Ã÷£º°ÑÕû¸ö±íÍ·ºÍÒ³ÃæÄÚÈݾÓÖУ¬µ±Ò³ÃæÄÚÈݽϳ¤Ê±£¬±íÍ·Ò²¾ÓÖУ¬¿´ÆðÀ´Ïñ±íÍ·´íλ¡£*/
<div style="position: absolute;top:3px;">
<center>
<!--#include file="inc/glfcd.inc"-->
<br>
±êÌâ
</br& ......
½ñÌìÔÚÐÞ¸ÄÒÔǰ¿ª·¢µÄÒ»¸öÍøÕ¾µÄʱºòÓöµ½Ò»¸öÎÊÌ⣬ÒòΪ¹¦ÄܵÄÐèÒª£¬ÒÔǰµÄÒ»¸öÊý×ÖÀàÐÍ×ֶθıäΪÎı¾×ֶΣ¬ÒòΪÕâ¸ö×Ö¶ÎÐèÒª°üº¬¶à¸öÀà±ðµÄID£¬ÒÔǰÕâ¸ö×Ö¶ÎÖ»¶ÔÓ¦Ò»¸öIDµÄ¡£
ÍøÕ¾ÊÇASP VBÓïÑԵģ¬Êý¾Ý¿âʹÓõÄÊÇAccess
ÐÞ¸ÄÊý¾ÝÀàÐÍÖ®ºóǰ̨µÄ²éѯ´úÂë¾Í²»ÄÜʹÓÃÖîÈçxID=1ÕâÖÖÌõ¼þÁË¡£ÓÉÓÚÏÖÔÚ¸Ã×ֶαäΪÎı¾ÀàÐ ......
×¢Ò⣺ϵͳÐèÒªFSOȨÏÞ¡¢XMLHTTPȨÏÞ
ϵͳ°üÀ¨Á½¸öÎļþ£¬Æäʵ¿ÉÒԺϲ¢ÎªÒ»¸ö¡£Ö®ËùÒÔ·ÖΪÁ½¸öÊÇÒòΪ²¿·Öɱ¶¾Èí¼þ»áÒòΪÀï±ßº¬ÓÐFSO¡¢XMLHTTP²Ù×÷¶ø±»ÈÏΪÊǽű¾Ä¾Âí¡£
µ÷ÓÃʱ£¬ÐèÒªÔÚASPÒ³ÃæµÄ×îÉϱ߰üº¬Ö÷Îļþ£¬È»ºóÔÚϱßдÏÂÒÔÏ´úÂë
Set MyCatch=new CatchFile
MyCatch.Overdue=60*5 &n ......
̽Ë÷Èí¼þ¹¤×÷ÊÒ³¤ÆÚרҵ³Ð½ÓÖÐСÐÍÉÌÒµÈí¼þ»òÍøÕ¾£¬×îÓŻݵļ۸ñºÍ¸ßÖÊÁ¿µÄ·þÎñÆÚ´ýÄúµÄ»Ý¹Ë£¡
±¾¹¤×÷ÊÒ³Ð½Ó JSP ASP VB PB LotusNotes µÈÓïÑÔÒªÇóµÄÓ¦ÓÃϵͳ¿ª·¢ÒµÎñ
java jspʵսԴ³ÌÐò´úÂë:
......
Function WriteToUTF(content,sFilen)'contentÎªÌæ»»ºóµÄ×Ö·û´®,filenameΪÉú³ÉµÄÎļþÃû
dim objStream
Set objStream = Server.CreateObject("ADODB.Stream")
With objStream
.Open
&nb ......