aspµ÷ÓÃjs´úÂë
×î½üºÜ¿àÄÕ£¬µ±Êý¾Ý·ÃÎÊʧ°Ü»òÕ߳ɹ¦µÄʱºò£¬ÒªÒ³ÃæµÄjs´¦ÀíһЩЧ¹û£¬Ö»ÊDz»ÖªµÀÔõôµ÷Ó㬷dz£ÓôÃÆ¡£ÖÕÓÚÕÒ
µ½ÁËÒ»¸öµØ·½£º
ScriptManager.RegisterStartupScript(ListUpdatePanel, typeof(UpdatePanel), "", "alert(1);", true);
ÔÚºǫ́µÄº¯ÊýÖе÷ÓÃÕâ¸ö¼´¿É¡££¨Õë¶Ôupdatepanel£©Ë¢ÐÂÊý¾Ýºó£¬¾Í»áµ÷ÓÃjsº¯ÊýÁË£¬¶øÇÒÊÇÖ»ÔÚÐèÒªµÄʱºò¡£
Õâ¸ö×¢²áʼþ£¬²»ÊÇÒ»Ö±´æÔڵģ¬Ö»Êǵ±Ç°µ÷Óá£
ͬʱ£¬ÀïÃæµÄjsº¯Êý£¬¿ÉÒÔµ÷ÓÃÒ³ÃæÉÏ¿ÉÓõÄjs´úÂ룬°üÀ¨ÁËÒýÓÃÁËÍⲿjsÎļþÖеĺ¯Êý£¬Ò²¿ÉÒÔÔÚÕâÀïʹÓᣣ¨±¾À´¾ÍÊÇË¢ÐÂÁËupdatepanelºó£¬·µ»Øǰ̨£¬È»ºóÖ´ÐÐjsÓï¾ä£¬Ö»ÒªÒ³ÃæÄÜʶ±ðjs´úÂë¾ÍÐС££©
ÓÉ´ËÒýÉê³öÁËÒ»¸ö³£¼ûµÄЧ¹û£º£¨Ìí¼ÓÊý¾Ý£©
Ìí¼Ó°´Å¥---ǰ̨£¨ÏÔʾÌí¼ÓÒ³Ã棩-----±£´æ°´Å¥----£¨Ç°Ì¨ÑéÖ¤£¬ºǫ́´¦Àí£©-----¸üÐÂupdatepanelÄÚÈÝ£¨ºǫ́µ÷ÓÃjs£¬alert ³É¹¦»òÕßʧ°Ü£©£¬¸öÈ˾õµÃ·Ç³£ÊµÓá£
¶ÔÓÚ±à¼Ò³Ã棺
±à¼°´Å¥---ǰ̨£¨loading£©----ºǫ́£¨È¡Êý¾Ý£¬³É¹¦ÏÔʾ±à¼Ò³Ã棬ʧ°Üalert ”È¡Êý¾Ýʧ°Ü“£¬Òþ²ØloadingÒ³Ã棩---·µ»Øǰ̨
˵Ã÷£ºÉÏÃæÁ½¸ö¶¼ÊÇÔÚÒ»¸öÒ³ÃæÎÞˢеÄЧ¹û£¬²»È»¾Í²»ÓÃÕâÑù×öÁË¡£¾ÍÊÇÒªÓÃupdatapanelÀ´ÎÞˢУ¬ËùÒԲŻáÕâôÂé·³¡£
Ïà¹ØÎĵµ£º
¼òµ¥
ÔÚGlobal.asaÎļþÖмÓÈëÈçϵĴúÂ룺
Java´úÂë
1. <SCRIPT LANGUAGE="VBScript" RUNAT="Server">
2.
3. Sub Application_OnStart
4.
5. 'µ±·þÎñÆ÷¿ªÆôʱ£¬ÉèÖÃÔÚÏßÓû§¼ÆÊýÆ÷Ϊ0
6. Application("ActiveUsers") = 0
7.
......
<%
If Request.ServerVariables("HTTP_REFERER")<>"" Then
tmpstr=Request.ServerVariables("HTTP_REFERER")
Else
tmpstr="index.htm"
End If
response.Redirect(tmpstr)
%>
´úÂë½âÊÍ£º
Request.ServerVariables("HTTP_REFERER")ÊÇ»ñÈ¡ÉÏÒ ......
Ò»¡¢Ð޸ĸñʽ£ºµ÷Õû±íÍ·¾Ó×ó£»
<!--ÔÀ´¸ñʽ-->
/*˵Ã÷£º°ÑÕû¸ö±íÍ·ºÍÒ³ÃæÄÚÈݾÓÖУ¬µ±Ò³ÃæÄÚÈݽϳ¤Ê±£¬±íÍ·Ò²¾ÓÖУ¬¿´ÆðÀ´Ïñ±íÍ·´íλ¡£*/
<div style="position: absolute;top:3px;">
<center>
<!--#include file="inc/glfcd.inc"-->
<br>
±êÌâ
</br& ......
ASPµ¼³öExcelÊý¾ÝµÄËÄÖÖ·½·¨
À´Ô´£º aspsky ×÷Õߣº tonny
¡¡¡¡Ò»¡¢Ê¹ÓÃOWC
¡¡¡¡Ê²Ã´ÊÇOWC£¿
¡¡¡¡OWCÊÇOffice Web CompentµÄËõд£¬¼´MicrosoftµÄOffice Web×é¼þ£¬ËüΪÔÚWebÖлæÖÆͼÐÎÌṩÁËÁé»îµÄͬʱҲÊÇ×î»ù±¾µÄ»úÖÆ¡£ÔÚÒ»¸öintranet»·¾³ÖУ¬Èç¹û¿ÉÒÔ¼ÙÉè¿Í»§»úÉÏ´æÔÚÌض¨µÄä¯ÀÀÆ÷ºÍһЩ¹ ......
<%
'//////////// 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 ......