ASPʵÏÖHashMap
'--------------------------------------------------------------
'ASP°æHashMapʵÏÖ
'¸ÃʵÏÖ´æ´¢Êý¾ÝΪÓÐÐòÊý¾Ý,ÀàËÆJavaÖеÄLinkedHashMap
'--------------------------------------------------------------
Class HashMap
dim arr()
dim arr_len
'¹¹Ô캯Êý
private Sub Class_Initialize
'ÆäÖÐ arr(0,n)Ϊkey,arr(1,n)Ϊvalue
arr_len = 0
redim arr(1,arr_len)
End Sub
'========================
'*put·½·¨ ÍùMAPÖвåÈë¼üÖµ¶Ô,Èç¹ûKey´æÔÚÔò¸²¸Ç
'@k ¼üÖµkey
'@v key¶ÔÓ¦µÄvalueÖµ
'========================
public Sub put(k,v)
dim is_update
is_update = false
arr_len = ubound(arr,2)
for i=0 to arr_len-1
if k=arr(0,i) then
arr(1,i) = v
is_update = true
exit for
end if
next
if not is_update then
arr_len = arr_len +1
redim preserve arr(1,arr_len)
arr(0,arr_len-1) = k
arr(1,arr_len-1) = v
end if
End Sub
'========================
'*getv·½·¨ ͨ¹ýkeyÖµ»ñÈ¡¶ÔÓ¦µÄvalue
'@k ¼üÖµkey
'========================
public Function getv(k)
dim v
for i=0 to arr_len
if k=arr(0,i) then
v = arr(1,i)
exit for
end if
next
getv = v
End Function
'========================
'*keys·½·¨ »ñÈ¡MapÖÐËùÓеÄKEY,ÒÔÊý×éÐÎʽ·µ»Ø
'========================
public Function keys()
dim v()
Redim v(arr_len)
for i=0 to arr_len-1
v(i) = arr(0,i)
next
keys = v
End Function
'===================
Ïà¹ØÎĵµ£º
http://www.w3school.com.cn/asp/met_mappath.asp
¶¨ÒåºÍÓ÷¨
MapPath ·½·¨¿É°ÑÖ¸¶¨µÄ·¾¶Ó°Éäµ½·þÎñÆ÷ÉÏÏàÓ¦µÄÎïÀí·¾¶ÉÏ¡£
×¢ÊÍ£º´Ë·½·¨²»ÄÜÓÃÓÚ Session.OnEnd ºÍ Application.OnEnd ÖС£
ʵÀý
ʵÀý 1
¾ÙÀý£¬Îļþ test.asp λÓÚ C:\Inetpub\wwwroot\Script¡£
Îļþ Test.asp (λÓÚ C:\Inetpub\wwwroot\Script) °üº ......
½ñÌìÓöµ½Ò»¸öasp³ÌÐò£¬ÓÃReWriteÖØдURLºó£¬ÖÐÎIJÎÊýÂÒÂ룬²é×ÊÁϺó˵ÊÇReWriteËù½ÓÊյIJÎÊý×Ô¶¯×ªÎªUTF-8£¬¶øÎÒµÄǰ̨ҳÃæºÍÊý¾Ý¿â¶¼ÎªGB2312¸ñʽ£¬ºóÀ´ÔÚÍøÉÏÕÒÁ˺þã¬ÖÕÓÚÕÒµ½Ò»¸öÄܳɹ¦½«UTF-8ת»»ÎªGB2312µÄº¯Êý£¬º¯Êýת»»´úÂëÈçÏÂ
<%
function CodeConvert(fileContent)
dim stm
set stm=Server.Crea ......
¡¡Ò»¡¢ »·¾³ÉèÖÃ
¡¡¡¡·þÎñÆ÷¶ËµÄ»·¾³ÉèÖôӲο¼Êý¾ÝÉÏ¿´£¬Î¢ÈíϵÁеÄÉèÖÃÓ¦¸Ã¶¼ÐУ¬¼´£º
¡¡¡¡1£®Win9x+PWS+Office
¡¡¡¡2£®Win2000 Professional+PWS+Office
¡¡¡¡3£®Win2000 Server+IIS+Office
¡¡¡¡Ä¿Ç°±ÊÕß²âÊԳɹ¦µÄ»·¾³ÊǺó¶þÕß¡£OfficeµÄ°æ±¾Ã»ÓÐÌرðÐèÇ󣬿¼Âǵ½¿Í»§»úÉèÖõIJ»È·¶¨ÐÔºÍϼæÈÝÌØÐÔ£¬½¨Òé·þÎñÆ÷¶ËOf ......
Using the global.asa to schedule ASP code execution.
Have you ever had some asp code that needed to execute every once in a while but, you just didn't know how ......
<%
'*******************************************************
'×÷ ÓÃ: µÃµ½ÎļþÀ©Õ¹Ãû
'º¯ÊýÃû: GetFileExt(fileTrue)
'²Î Êý: sFileName ÎļþÃû
......