ÈçºÎÇåÀí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
%>
Ïà¹ØÎĵµ£º
asp nowº¯Êý,ASPʱ¼äº¯ÊýÏê½â ,aspʱ¼äº¯Êý´óÈ«,asp ÐÇÆÚº¯Êý
now() »ñÈ¡µ±Ç°ÏµÍ³ÈÕÆÚºÍʱ¼ä,ASPÊä³ö¿ÉÒÔÕâÑùд£º<%=now()%>
Year(now()) »ñÈ¡Äê·Ý£¬ ASPÊä³ö£º<%=Year(now())%>
Month(now()) »ñÈ¡µ±Ç°Ô·ݣ¬ASPÊä³ö£º<%=Month(now())%>
day(now()) ......
Ò»¡¢Asp»ù±¾ÖªÊ¶
1£®AspÊÇActive Server PagesµÄ¼ò³Æ£¬ÊǽâÊÍÐ͵Ľű¾ÓïÑÔ»·¾³£»
2£®AspµÄÔËÐÐÐèÒªWindows²Ù×÷ϵͳ£¬9xÏÂÐèÒª°²×°PWS£»¶øNT/2000/XPÔòÐèÒª°²×°Internet Information Server£¨¼ò³ÆIIS£©£»
3£®AspºÍJSPµÄ½Å±¾±êÇ©ÊÇ“<%%>”£¬PHPµÄÔò¿ÉÒÔÉ趨Ϊ¶àÖÖ£»
4£®AspµÄ×¢ÊÍ·ûºÅÊÇ“'”£ ......
add.html
<html>
<head>
<title>ÎÞ×é¼þÉÏ´«</title>
</head>
<body>
<form method="POST" name="myform" action="xSave.asp" target="_self">
<input name="PicPath" type="text" id="PicPath" readonly="true">
<input name="sPicPath" type="hidden" id="sPi ......
ÓÃASPʵÏÖSQL SERVERÊý¾Ý¿âµÄÔ¶³Ì¸üÐÂ
½ËÕʡͨÖÝÖ°Òµ¸ß¼¶ÖÐѧ Áõ¼Æºâ
΢ÈíµÄSQL Server ÊÇÒ»¸ö´óÐ͵ĹØϵÊý¾Ý¿âϵͳ£¬ËüΪÔÚ¸´ÔÓ»·¾³ÏÂÓÐЧµØʵÏÖÖØÒªÉÌÒµÓ¦ÓÃÌṩÁËÒ»¸öÇ¿ÓÐÁ¦µÄ¿Í»§/·þÎñÆ÷ƽ̨¡£Ëü½áºÏMicrosoft Windows NT²Ù×÷ϵͳµÄÄÜÁ¦£¬ÌṩÁËÒ»¸ö°²È«¡¢¿ÉÀ©Õ¹¡¢Ò×¹ÜÀí¡¢¸ß¶ËÐÔÄܵĿͻ§/·þÎñÆ÷Êý¾Ý¿âƽ̨¡£Õ ......