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
'===================
Ïà¹ØÎĵµ£º
ʲôÊÇPHP
¡¡¡¡PHP´ú±íÁË"³¬Îı¾´¦ÀíÆ÷"£¬ÕâÒâζ×ÅÄã±ØÐëÖªµÀ£¬ËüÊÇÒ»ÖÖ·þÎñÆ÷¶ËµÄ´¦ÀíÓïÑÔ£¬ÇÒÒÔHTMLµÄÐÎʽ³öÏÖ¡£Ëü×î³£Óõĵط½¾ÍÊÇÍøÒ³ÁË£¬Êý¾Ý´Ó¿Í»§»ú·¢Ë͵½Web·þÎñÆ÷£¬ÐÅÏ¢Ôڴ˱»´¦Àí²¢·µ»Ø½á¹û¡£
¡¡¡¡µ«ÕâÖÖͨÓÃÐÔµÄÓïÑÔË¿ºÁ²»¾ÖÏÞÓÚÔÚÍøÒ³·½Ã棬PHPÒ²Äܱ»ÓÃÔÚÃüÁîÐÐshellÖУ¬Ëü¿É×÷Ϊ²Ù×÷ϵͳµÄÒ»¸öÀ©Õ¹£¬ÓÉ´ËÖ´Ð ......
<script>window.parent.document.getElementById('BIframe').src='B.aspx';</script>
http://www.cnblogs.com/lijigang/archive/2007/05/18/751943.html
ÔÙÀ´¿´¿´µÚ¶þÖÖˢз½·¨£º“ÖØÔØÒ³Ãæ”
<script>window.parent.document.frames.BIframe.RefreshmyForm();</script>
<scri ......
<%
Class Cls_FSO
Public objFSO
Private Sub Class_Initialize()
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
End Sub
Private Sub class_terminate()
Set objFSO = Nothing
End Sub
'=======Îļþ²Ù×÷========
'È¡Îļþ´óС
Public Function GetFileSize(FileName)
Dim f ......
<%
'*******************************************************
'º¯ÊýÃû£ºCreateFolder(sPath)
'×÷ ÓÃ: ´´½¨Ä¿Â¼
'²Î Êý£ºsPath : ´´½¨µÄÏà¶ÔĿ¼·¾¶
& ......
»·¾³£ºÊý¾Ý¿â oracle 64bit ϵͳ win2008 64bit IIS7 ÔÚasp ÍøÒ³ÖÐʹÓÃadoÁ¬½ÓÊý¾Ý¿â ODBCÓõÄÊÇMicrosft ODBC for oracle
Çé¿ö£ºÔÚÍøÒ³µÄ²éѯÓï¾äÖв»º¬ÖÐÎĵĿÉÒÔ£¬Ö»ÒªÓï¾äÖк¬ÓÐÖÐÎľͻ᷵»Ø´íÎó½á¹û¡£
Èç:select 'Ò»¶þÈý' from dual;ÕâÑùµÄÓï¾ä ·µ»Ø»ØÀ´¾ÍÊÇ£¿£¿£¿
»¹ÒªËµÃ÷µÄÊÇoracleµÄ×Ö·û¼¯ÊÇAMERICAN_AMERICA.U ......