ÈçºÎÇåÀíaspÕ¾µã»º´æµÄ´úÂë
<%
Call RemoveAllCache()
Sub RemoveAllCache()
Dim cachelist,i
Call InnerHtml("UpdateInfo","<b>¿ªÊ¼Ö´ÐÐÇåÀíµ±Ç°Õ¾µã»º´æ</b>£º")
Cachelist=split(GetallCache(),",")
If UBound(cachelist)>1 Then
For i=0 to UBound(cachelist)-1
DelCahe Cachelist(i)
Call InnerHtml("UpdateInfo","¸üР<b>"&cachelist(i)&"</b> Íê³É")
Next
Call InnerHtml("UpdateInfo","¸üÐÂÁË"& UBound(cachelist)-1 &"¸ö»º´æ¶ÔÏó<br>")
Else
Call InnerHtml("UpdateInfo","<b>µ±Ç°Õ¾µãÈ«²¿»º´æÇåÀíÍê³É¡£</b>¡£")
End If
End Sub
Function GetallCache()
Dim Cacheobj
For Each Cacheobj in Application.Contents
GetallCache = GetallCache & Cacheobj & ","
Next
End Function
Sub DelCahe(MyCaheName)
Application.Lock
Application.Contents.Remove(MyCaheName)
Application.unLock
End Sub
Sub InnerHtml(obj,msg)
Response.Write "<li>"&msg&"</li>"
Response.Flush
End Sub
%>
Ïà¹ØÎĵµ£º
Õâ¸öÄ£°åÒýÇæ±È½Ï·½±ã,¸úHTML½áºÏÁË
Class template
Private c_Char, c_Path, c_FileName, c_Content, c_PageUrl, c_CurrentPage, c_PageStr, ReplacePageStr
Private TagName
' ***************************************
' ÉèÖñàÂë
' ***************************************
Public Property Let Char( ......
ÈçºÎÁîÄãµÄÍøÕ¾“¶¯¸ÐÊ®×ã”
ÄúµÄÍøÕ¾ÊÇ·ñÈÔÒ»Èç¼ÈÍùµØ±£³Ö“¾²Ì¬”£¿Ä¿Ç°³Ê¼¸ºÎÔö³¤µÄ»¥ÁªÍøÍøÕ¾ÖУ¬ÓÐÏ൱һ²¿·ÖÈÔ¹ÌÊØ“¾²Ì¬”£¬ÎÞÐÎÖÐÒÑ´ó´óÂäºóÓÚʱ´úµÄ²½·¥¡£Ëùν“¾²Ì¬”Ö¸µÄ¾ÍÊÇÍøÕ¾µÄÍøÒ³ÄÚÈÝ“¹Ì¶¨²»±ä”£¬µ±Óû§ä¯ÀÀÆ÷ͨ¹ý»¥ÁªÍøµÄHTTP£¨Hypertext Transpor ......
<%
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µ¼³öExcelÊý¾ÝµÄËÄÖÖ·½·¨
À´Ô´£º aspsky ×÷Õߣº tonny
¡¡¡¡Ò»¡¢Ê¹ÓÃOWC
¡¡¡¡Ê²Ã´ÊÇOWC£¿
¡¡¡¡OWCÊÇOffice Web CompentµÄËõд£¬¼´MicrosoftµÄOffice Web×é¼þ£¬ËüΪÔÚWebÖлæÖÆͼÐÎÌṩÁËÁé»îµÄͬʱҲÊÇ×î»ù±¾µÄ»úÖÆ¡£ÔÚÒ»¸öintranet»·¾³ÖУ¬Èç¹û¿ÉÒÔ¼ÙÉè¿Í»§»úÉÏ´æÔÚÌض¨µÄä¯ÀÀÆ÷ºÍһЩ¹ ......
̽Ë÷Èí¼þ¹¤×÷ÊÒ³¤ÆÚרҵ³Ð½ÓÖÐСÐÍÉÌÒµÈí¼þ»òÍøÕ¾£¬×îÓŻݵļ۸ñºÍ¸ßÖÊÁ¿µÄ·þÎñÆÚ´ýÄúµÄ»Ý¹Ë£¡
±¾¹¤×÷ÊÒ³Ð½Ó JSP ASP VB PB LotusNotes µÈÓïÑÔÒªÇóµÄÓ¦ÓÃϵͳ¿ª·¢ÒµÎñ
java jspʵսԴ³ÌÐò´úÂë:
......