ÈçºÎÇåÀí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ÖвåÈëÓëÐÞ¸ÄÊý¾ÝµÄ¼¸ÖÖ·½Ê½¡£ÎªÁË·½±ã½â˵£¬ÎÒÃÇÏȽ¨Á¢Ò»¸öÃûΪtestµÄ±í£¬±íÄÚÖ»ÓÐÁ½¸öÊý¾Ý
Ïî:usernameºÍemail,·Ö±ðÓÃÀ´´æ´¢Óû§ÃûÓëÓÊÏ䵨ַ¡£
1.ÀûÓÃinsertÓï¾ä²åÈëÊý¾Ý£º
insertÊÇsqlÓï¾äµÄ»ù±¾Ö¸ÁîÖ®Ò»£¬ Ó÷¨ºÜ¼òµ¥£¬ÕâÀïÎÒÖ»½«Æä»ù±¾¸ñʽÁгö.
´úÂëÈçÏ£º
set conn=s ......
·Ï»°ÉÙ˵,¼û´úÂë
<%=request.ServerVariables("LOGON_USER")%>
Ê×ÏÈIISËùÔڵķþÎñÆ÷Òª¼ÓÈëÓò,Æä´ÎÊÇIIS·þÎñÆ÷µÄÉèÖÃ.¼ûͼ1
ͼ2
·þÎñÆ÷ÉèÖúúó, IISËùÔڵķþÎñÆ÷ʹÓÃ
<%=request.ServerVariables("LOGON_USER")%>
¾ÍÄÜ»ñÈ¡µ½ÓòÃû³ÆºÍÓû§ÃûÁË.
Èç¹û·ÃÎÊÕßûÓмÓÈëÓò,»áÌáʾµÇ¼,ÈçÏÂͼ.Ê ......
´´½¨Ö¸¶¨µÄÎļþÃû²¢·µ»ØÒ»¸ö TextStream ¶ÔÏ󣬿ÉÒÔʹÓÃÕâ¸ö¶ÔÏó¶ÔÎļþ½øÐжÁд¡£
object.CreateTextFile(filename[, overwrite[, unicode]])
²ÎÊý
object
±ØÑ¡ÏӦΪ FileSystemObject »ò Folder ¶ÔÏóµÄÃû³Æ¡£
filename
±ØÑ¡Ïî¡£Ö¸Ã÷ËùÒª´´½¨ÎļþµÄ×Ö·û´®±í´ïʽ¡£
overwrite
¿ÉÑ¡Ïî¡£Boolean Öµ£¬Ö¸Ã ......
̽Ë÷Èí¼þ¹¤×÷ÊÒ³¤ÆÚרҵ³Ð½ÓÖÐСÐÍÉÌÒµÈí¼þ»òÍøÕ¾£¬×îÓŻݵļ۸ñºÍ¸ßÖÊÁ¿µÄ·þÎñÆÚ´ýÄúµÄ»Ý¹Ë£¡
±¾¹¤×÷ÊÒ³Ð½Ó JSP ASP VB PB LotusNotes µÈÓïÑÔÒªÇóµÄÓ¦ÓÃϵͳ¿ª·¢ÒµÎñ
java jspʵսԴ³ÌÐò´úÂë:
......