¹ØÓÚaspº¯ÊýºÍ¹ý³ÌµÄ±äÁ¿ÊÇÖµ»¹ÊÇÖ¸Õë
Ö¸ÕëÔÚCÖо³£Ìáµ½£¬µ«ÊÇÈκÎÒ»ÖÖÓïÑÔÖж¼Òþ²Ø×ÅÖ¸Õë¡£
aspÒ²ÊÇÈç´Ë£¬ÔÚÎÒÃÇ´«µÝ²ÎÊý¸øfunction»òÕßsubʱ£¬ÎÒÃÇÈç¹û´«µÝµÄÊÇÒ»¸ö±äÁ¿£¬ÄÇôasp»á°ÑÕâ¸ö±äÁ¿µØÖ·´«¹ýÈ¥£¬ËùÒÔÈç¹ûÄãÔÚº¯ÊýºÍ¹ý³ÌÀïÃæ¸ü¸ÄÕâ¸ö²ÎÊý£¬ÄÇôԱäÁ¿Ò²»á¸Ä±ä¡£
'º¯ÊýÀý×Ó
Dim i1,i2
i1=1
'=======================
Function toadd(i)'»òÕßtoadd(ByRef i)
i=i+1
toadd=i
End Function
i2=toadd(i1)
Response.Write(i1&","&i2)
'Êä³ö2£¬2
'=======================
Function toadd(i)'»òÕßtoadd(ByRef i)
toadd=i+1
End Function
i2=toadd(i1)
Response.Write(i1&","&i2)
'Êä³ö1£¬2
'=======================
Sub toadd(i)'»òÕßtoadd(ByRef i)
i=i+1
Response.Write(i&","&i1)
End Sub
Call toadd(i1)
'Êä³ö2,2
'=======================
Sub toadd(i)'»òÕßtoadd(ByRef i)
dim x
x=i+1
Response.Write(i&","&i1&","&x)
End Sub
Call toadd(i1)
'Êä³ö1,1,2
ÒÔÉÏÀý×Ó³ä·Ö˵Ã÷£¬Èç¹ûÄãÔÚº¯ÊýºÍ¹ý³ÌÀïÃæÈç¹û¶Ô±äÁ¿½øÐÐÖØÐ¸³Öµ£¬²¢ÇÒÄã´«ÈëµÄ²ÎÊýÊÇÒ»¸ö±äÁ¿£¬ÄÇôÍⲿ±äÁ¿Ò²»á¸Ä±ä£¬ËùÒÔÔÚ´«ÈëµØÖ·µÄʱºòaspĬÈÏ´«ÈëµÄÊÇÖ¸Õ룬ËùÒÔÔÚдͨÓú¯ÊýµÄʱºò£¬Èç¹ûÄú²»Ïë¸Ä±äÔÀ´µÄÖµ£¬×îºÃÔÚº¯ÊýÀïÃæÖØÐ¶¨ÒåÒ»¸ö˽ÓбäÁ¿£¬Ê¹ÓÃ˽ÓбäÁ¿½øÐвÙ×÷£¬»òÕßÔÚ±äÁ¿Ç°Ãæ¼ÓÖ¸Ã÷±äÁ¿ÀàÐÍΪֵ£¬·½·¨ÎªByVal ±äÁ¿
'º¯ÊýÀý×Ó
Dim i1,i2
i1=1
'=======================
Function toadd(ByVal i)
i=i+1
toadd=i
End Function
i2=toadd(i1)
Response.Write(i1&","&i2)
'Êä³ö1£¬2
'=======================
Function toadd(ByVal i)
toadd=i+1
End Function
i2=toadd(i1)
Response.Write(i1&","&i2)
'Êä³ö1£¬2
'=======================
Sub toadd(ByVal i)
i=i+1
Response.Write(i&","&i1)
End Sub
Call toadd(i1)
'Êä³ö2,1
'=======================
Sub toadd(ByVal i)
dim x
x=i+1
Response.Write(i&","&i1&","&x)
End Sub
Call toadd(i1)
'Êä³ö1,1,2
Ïà¹ØÎĵµ£º
̽Ë÷Èí¼þ¹¤×÷ÊÒ³¤ÆÚרҵ³Ð½ÓÖÐСÐÍÉÌÒµÈí¼þ»òÍøÕ¾£¬×îÓŻݵļ۸ñºÍ¸ßÖÊÁ¿µÄ·þÎñÆÚ´ýÄúµÄ»Ý¹Ë£¡
±¾¹¤×÷ÊÒ³Ð½Ó 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 ......
µÚÒ»ÖÖ·½·¨:
<%
d = date()
response.write d&" "&WeekdayName(Weekday(d))
%>
Êä³öÑùʽ:2004-5-7 ÐÇÆÚÎå
************************************************************************* ......
Èç¹ûÄãÒѾÓн϶àµÄÃæÏò¶ÔÏ󿪷¢¾Ñé£¬Ìø¹ýÒÔÏÂÕâÁ½²½£º
µÚÒ»²½¡¡ÕÆÎÕÒ»ÃÅ¡£NETÃæÏò¶ÔÏóÓïÑÔ£¬C#»òVB.NET ÎÒÇ¿ÁÒ·´¶ÔÔÚûϵͳѧ¹ýÒ»ÃÅÃæÏò¶ÔÏó£¨OO£©ÓïÑÔµÄǰÌáÏÂȥѧASP.NET¡£ ASP.NETÊÇÒ»¸öÈ«ÃæÏò¶ÔÏóµÄ¼¼Êõ£¬²»¶®OO£¬ÄǾø¶Ôѧ²»ÏÂÈ¥£¡
µÚ¶þ²½¡¡¶Ô¡£NET FrameworkÀà¿âÓÐÒ»¶¨µÄÁ˽⠿ÉÒÔͨ¹ý¿ª·¢Windows FormÓ¦ÓóÌÐòÀ´Ñ ......
×î½üºÜ¿àÄÕ£¬µ±Êý¾Ý·ÃÎÊʧ°Ü»òÕ߳ɹ¦µÄʱºò£¬ÒªÒ³ÃæµÄjs´¦ÀíһЩЧ¹û£¬Ö»ÊDz»ÖªµÀÔõôµ÷Ó㬷dz£ÓôÃÆ¡£ÖÕÓÚÕÒ
µ½ÁËÒ»¸öµØ·½£º
ScriptManager.RegisterStartupScript(ListUpdatePanel, typeof(UpdatePanel), "", "alert(1);", true);
ÔÚºǫ́µÄº¯ÊýÖе÷ÓÃÕâ¸ö¼´¿É¡££¨Õë¶Ôupdatepanel£©Ë¢ÐÂÊý¾Ýºó£¬¾Í»áµ÷ÓÃjs ......