Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

¹ØÓÚ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С͵³ÌÐò

 (Ò»)ÈçºÎ½ØÈ¡Ö¸¶¨ÇøÓòµÄHTML´úÂë?
¡¡¡¡(¶Ô·½ÍøÕ¾µÄHTML´úÂëÔÚÄĶù¿´£¿ÔΣºIEä¯ÀÀÆ÷>>²é¿´>>Ô´Îļþ¡£²»Òª¸æËßÎÒÄã²»ÖªµÀIEÊÇʲô£¡)£¬ÀýÈçÎÒÖ»Ïë»ñÈ¡ÒÔÏÂHTML´úÂëÖÐ"<td>"ºÍ"</td>"Ö®¼äµÄµÄÎÄ×Ö²¿·Ö£º
<html>
<title>ÍøÕ¾°®ºÃÕß__http://www.wwwfan.cn</title>
< ......

asp»ñÈ¡ÉÏÒ»Ò³µØÖ·µÄ·½·¨

<%
If Request.ServerVariables("HTTP_REFERER")<>"" Then
      tmpstr=Request.ServerVariables("HTTP_REFERER")
Else
     tmpstr="index.htm"
End If
response.Redirect(tmpstr)
%>
´úÂë½âÊÍ£º
Request.ServerVariables("HTTP_REFERER")ÊÇ»ñÈ¡ÉÏÒ ......

aspÎÞ×é¼þµÈ±ÈÀýËõ·ÅͼƬ

<%
'//////////// 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/javascriptË¢ÐÂÒ³Ãæ´úÂë

Ò³Ãæ×Ô¶¯Ë¢Ð´úÂë´óÈ«£¬»ù±¾ÉÏËùÓÐÒªÇó×Ô¶¯Ë¢ÐÂÒ³ÃæµÄ´úÂë¶¼ÓУ¬´ó¼Ò¿ÉÒÔ×ÔÓÉ·¢»Ó×ö³öÍêÃÀµÄÒ³Ãæ¡£
1)
10±íʾ¼ä¸ô10ÃëË¢ÐÂÒ»´Î
2)
<script>
window.location.reload(true);
</script>
Èç¹ûÊÇÄãҪˢÐÂijһ¸öiframe¾Í°Ñwindow¸ø»»³ÉframeµÄÃû×Ö»òIDºÅ
3)
<script>
window.navigate("±¾Ò³Ãæurl"); ......

aspµ÷ÓÃjs´úÂë

 ×î½üºÜ¿àÄÕ£¬µ±Êý¾Ý·ÃÎÊʧ°Ü»òÕ߳ɹ¦µÄʱºò£¬ÒªÒ³ÃæµÄjs´¦ÀíһЩЧ¹û£¬Ö»ÊDz»ÖªµÀÔõôµ÷Ó㬷dz£ÓôÃÆ¡£ÖÕÓÚÕÒ
µ½ÁËÒ»¸öµØ·½£º
 ScriptManager.RegisterStartupScript(ListUpdatePanel, typeof(UpdatePanel), "", "alert(1);", true);
ÔÚºǫ́µÄº¯ÊýÖе÷ÓÃÕâ¸ö¼´¿É¡££¨Õë¶Ôupdatepanel£©Ë¢ÐÂÊý¾Ýºó£¬¾Í»áµ÷ÓÃjs ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ