Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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
 '===================


Ïà¹ØÎĵµ£º

asp_Êý¾Ý¿â²Ù×÷·â×°

Ò»¡¢conn.asp
<%
  '@Language="VBSCRIPT" CODEPAGE=65001  
  'meta http-equiv="Content-Type" content="text/html; charset=gb2312"  
  ' 936  utf-8
  class TDB
    function qry(byval sqlquery)
 & ......

ASPÒÆ³ýËùÓÐHTML´úÂëµÄº¯Êý

´úÂëÈçÏ£º
Function RemoveHTML(strText)
Dim RegEx
Set RegEx = New RegExp
RegEx.Pattern = "<[^>]*>"
RegEx.Global = True
RemoveHTML = RegEx.Replace(strText, "")
RemoveHTML = replace(RemoveHTML," "," ")
End Function
ÕâÊÇ×î»ù±¾µÄÕýÔòÌæ»»£¬ÓÐÄ³Ð©ÌØÊâ×Ö·û»¹Ã»¹ýÂË£¬¿É×ÔÐÐÌí¼Ó ......

asp execl ¼¼Êõ×ܽá

¡¡Ò»¡¢ »·¾³ÉèÖÃ
¡¡¡¡·þÎñÆ÷¶ËµÄ»·¾³ÉèÖôӲο¼Êý¾ÝÉÏ¿´£¬Î¢ÈíϵÁеÄÉèÖÃÓ¦¸Ã¶¼ÐУ¬¼´£º
¡¡¡¡1£®Win9x+PWS+Office
¡¡¡¡2£®Win2000 Professional+PWS+Office
¡¡¡¡3£®Win2000 Server+IIS+Office
¡¡¡¡Ä¿Ç°±ÊÕß²âÊԳɹ¦µÄ»·¾³ÊǺó¶þÕß¡£OfficeµÄ°æ±¾Ã»ÓÐÌØ±ðÐèÇ󣬿¼Âǵ½¿Í»§»úÉèÖõIJ»È·¶¨ÐÔºÍϼæÈÝÌØÐÔ£¬½¨Òé·þÎñÆ÷¶ËOf ......

ÀûÓÃJ2MEÓëASP½¨Á¢Êý¾Ý¿âÁ¬½Ó

¡¡¡¡ J2MEÊÇÀûÓÃHttpConnection½¨Á¢HTTPÁ¬½Ó£¬È»ºó»ñÈ¡Êý¾Ý£¬ASPÒ²ÊÇÀûÓÃHTTPЭÒ飬Òò¶ø¿ÉÒÔÀûÓÃJ2MEÓëASP½¨Á¢Á¬½Ó£¬´Ó¶ø·ÃÎÊÊý¾Ý¿â¡£
¡¡¡¡ ASPÊÇMicroSoft¹«Ë¾µÄ·þÎñÆ÷¶Ë¶¯Ì¬Ò³Ãæ¼¼Êõ£¬¿ÉÒÔ¸ù¾ÝÇëÇóÔËÐзþÎñÆ÷¶Ë³ÌÐòÈ»ºó·µ»Ø½á¹û£¬ÕâÒ²¸øMIDPÌṩºÜ¶àÓÐÓõŦÄÜ¡£ÓÉÓÚMIDP¿Í»§¶Ë´¦ÀíÄÜÁ¦²»Ç¿£¬Òò´Ë¿ÉÒÔ°ÑһЩ´¦ÀíÈÎÎñ·ÅÔ ......

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 ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ