¹ØÓÚ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
Ïà¹ØÎĵµ£º
ÓÃASPʵÏÖSQL SERVERÊý¾Ý¿âµÄÔ¶³Ì¸üÐÂ
½ËÕʡͨÖÝÖ°Òµ¸ß¼¶ÖÐѧ Áõ¼Æºâ
΢ÈíµÄSQL Server ÊÇÒ»¸ö´óÐ͵ĹØÏµÊý¾Ý¿âϵͳ£¬ËüΪÔÚ¸´ÔÓ»·¾³ÏÂÓÐЧµØÊµÏÖÖØÒªÉÌÒµÓ¦ÓÃÌṩÁËÒ»¸öÇ¿ÓÐÁ¦µÄ¿Í»§/·þÎñÆ÷ƽ̨¡£Ëü½áºÏMicrosoft Windows NT²Ù×÷ϵͳµÄÄÜÁ¦£¬ÌṩÁËÒ»¸ö°²È«¡¢¿ÉÀ©Õ¹¡¢Ò×¹ÜÀí¡¢¸ß¶ËÐÔÄܵĿͻ§/·þÎñÆ÷Êý¾Ý¿âƽ̨¡£Õ ......
<%
'//////////// 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 ......
¶¯Ì¬ÍøÒ³¿ª·¢——ASPÁ¬½ÓSQL2005Êý¾Ý¿â
˵Ã÷£ºa¡¢ÒÔÏÂ×Ö·ûÖÐÊý¾Ý¿âÃûforum£¬Êý¾Ý¿â·þÎñÆ÷ÃûWWW-2443D34E558\SQL2005£¨»òÕß127.0.0.1£©
b¡¢²é¿´sqlÊý¾Ý¿â·þÎñÆ÷Ãû³Æ£º¶ÔÏó×ÊÔ´¹ÜÀíÆ÷->Êý¾Ý¿â->ÓÒ¼üµã»÷×Ô¼º½¨µÄÊý¾Ý¿â->ÊôÐÔ->ȨÏÞ
c¡¢Provider=sqlncliÒ²¿ÉÒÔ,UIDÓë“=”Ö®¼ä²»¿ÉÒÔ ......
´æ´¢½ø³Ì¾ÍÊÇ×÷Ϊ¿ÉÖ´ÐжÔÏó´æ·ÅÔÚÊý¾Ý¿âÖеÄÒ»¸ö»ò¶à¸öSQLÃüÁî¡£
¶¨Òå×ÜÊǺܳéÏó¡£´æ´¢½ø³ÌÆäʵ¾ÍÊÇÄÜÍê³ÉÒ»¶¨²Ù×÷µÄÒ»×éSQLÓï¾ä£¬Ö»²»¹ýÕâ×éÓï¾äÊÇ·ÅÔÚÊý¾Ý¿âÖеÄ(ÕâÀïÎÒÃÇ̸ֻSQL SERVER)¡£Èç¹ûÎÒÃÇͨ¹ý´´½¨´æ´¢½ø³ÌÒÔ¼°ÔÚASPÖе÷Óô洢½ø³Ì£¬¾Í¿ÉÒÔ±ÜÃ⽫SQLÓï¾äͬASP´úÂë»ìÔÓÔÚÒ ......
×î½üºÜ¿àÄÕ£¬µ±Êý¾Ý·ÃÎÊʧ°Ü»òÕ߳ɹ¦µÄʱºò£¬ÒªÒ³ÃæµÄjs´¦ÀíһЩЧ¹û£¬Ö»ÊDz»ÖªµÀÔõôµ÷Ó㬷dz£ÓôÃÆ¡£ÖÕÓÚÕÒ
µ½ÁËÒ»¸öµØ·½£º
ScriptManager.RegisterStartupScript(ListUpdatePanel, typeof(UpdatePanel), "", "alert(1);", true);
ÔÚºǫ́µÄº¯ÊýÖе÷ÓÃÕâ¸ö¼´¿É¡££¨Õë¶Ôupdatepanel£©Ë¢ÐÂÊý¾Ýºó£¬¾Í»áµ÷ÓÃjs ......