Ò׽ؽØͼÈí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

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ÓëASPµÄ×ۺϱȽÏ

ʲôÊÇPHP
¡¡¡¡PHP´ú±íÁË"³¬Îı¾´¦ÀíÆ÷"£¬ÕâÒâζ×ÅÄã±ØÐëÖªµÀ£¬ËüÊÇÒ»ÖÖ·þÎñÆ÷¶ËµÄ´¦ÀíÓïÑÔ£¬ÇÒÒÔHTMLµÄÐÎʽ³öÏÖ¡£Ëü×î³£Óõĵط½¾ÍÊÇÍøÒ³ÁË£¬Êý¾Ý´Ó¿Í»§»ú·¢Ë͵½Web·þÎñÆ÷£¬ÐÅÏ¢Ôڴ˱»´¦Àí²¢·µ»Ø½á¹û¡£
¡¡¡¡µ«ÕâÖÖͨÓÃÐÔµÄÓïÑÔË¿ºÁ²»¾ÖÏÞÓÚÔÚÍøÒ³·½Ã棬PHPÒ²Äܱ»ÓÃÔÚÃüÁîÐÐshellÖУ¬Ëü¿É×÷Ϊ²Ù×÷ϵͳµÄÒ»¸öÀ©Õ¹£¬ÓÉ´ËÖ´Ð ......

Ò»¶ÎASP¡£NETµÄIFRAMEµÄÒ³ÃæÌøת


<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 ......

aspÎļþ²Ù×÷´óÈ«

<%
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 ......

asp³£ÓÃÎļþ²Ù×÷º¯Êý(Ò»)

<%
    
    '*******************************************************
    'º¯ÊýÃû£ºCreateFolder(sPath)
    '×÷  ÓÃ: ´´½¨Ä¿Â¼
    '²Î  Êý£ºsPath : ´´½¨µÄÏà¶ÔĿ¼·¾¶
 & ......

iis7 asp ado oracle ÂÒÂëÎÊÌâ

»·¾³£ºÊý¾Ý¿â oracle 64bit ϵͳ win2008 64bit IIS7 ÔÚasp ÍøÒ³ÖÐʹÓÃadoÁ¬½ÓÊý¾Ý¿â ODBCÓõÄÊÇMicrosft ODBC for oracle
Çé¿ö£ºÔÚÍøÒ³µÄ²éѯÓï¾äÖв»º¬ÖÐÎĵĿÉÒÔ£¬Ö»ÒªÓï¾äÖк¬ÓÐÖÐÎľͻ᷵»Ø´íÎó½á¹û¡£
Èç:select 'Ò»¶þÈý' from dual;ÕâÑùµÄÓï¾ä ·µ»Ø»ØÀ´¾ÍÊÇ£¿£¿£¿
»¹ÒªËµÃ÷µÄÊÇoracleµÄ×Ö·û¼¯ÊÇAMERICAN_AMERICA.U ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ