aspÖÐ×Ö·û´®×ª»¯ÎªÊµÌåÀàµÄ·½·¨£¨ÈëÃÅÆª£¬´«Í³·½·¨£©
´ËÎÄÖ»ÊÇÈëÃÅ£¬ÑÝʾÁËÈçºÎÓÃʵÌåÀà´æ´¢Êý¾Ý£¬ÎÞʵ¼ÊÒâÒå¡£ºóÃæÓÐÂ½Ðø¸üÐÂÓÅ»¯¡££¨ÒÔºóµÄÎÄÕÂÖн«Â½ÐøÊµÏÖÎÞÐèÉùÃ÷¾ßÌåÀà×Ô¶¯´æ´¢Êý¾Ý£¬ºÍ¼òµ¥µÄÐÔÄÜÓÅ»¯£©
ÔÚasp³ÌÐò¿ª·¢¹ý³ÌÖУ¬½á¹¹Êý¾ÝµÄ´æ´¢Ò»Ö±ÊǸöÎÊÌ⣬aspµÄÊý×éÒ»Ö±ºÜÈõ£¬¶øÇÒ²»ÄÜ×Ô½âÊÍ£¬ÏÂÃæÌṩһÖÖÀàËÆjson¸ñʽµÄ½âÊÍ·½·¨£¬ÒÔ¹©´ó¼Ò²Î¿¼¡£
ÎÒÃǼÙÉèÎÒÃÇÏë´æ´¢Ò»ÕŶ©µ¥£¬ÊµÑó180Ôª£¬ÂëÑó200Ôª¡£ÉùÃ÷×Ö·û´®ÈçÏ£º
dim str1 : str1 = "order|||shiyang:180,mayang:200"
ΪÁË´æ´¢Êý¾ÝÎÒÃÇÐèÒªÉùÃ÷Ò»¸öʵÌåÀ࣬ÈçÏ£º
class order
public shiyang,mayang
end class
½¨Á¢Ò»¸ögetobjectº¯ÊýΪʵÌåÀำֵ£¬ÈçÏ£º
function getObject(byval str)
dim itemlist,execstr
execstr = ""
set getObject = new order
itemlist = split(split(str,"|||")(1),",")
for i = 0 to ubound(itemlist)
execstr = execstr +"getObject."&split(itemlist(i),":")(0)&" = """&split(itemlist(i),":")(1)&"""" &chr(10)&chr(13)
next
execute execstr
end function
дһ¸ö²âÊÔº¯Êý £¬Êä³ö½á¹û²¢²âÊÔЧÂÊ
sub ceshi1
dim i
for i = 0 to 10000
set o1 = getObject(str1)
response.write o1.shiyang&"<br/>"
next
end sub
dim t1
t1=timer()
call ceshi1
response.write FormatNumber((timer()-t1),4,-1)
²âÊÔ½á¹û£ºÉú³É10000¸ö¶©µ¥¶ÔÏó´ó¸ÅÐèÒª1ÃëÖÓ×óÓÒʱ¼ä¡£
±¾ÎÄÎÞʵ¼ÊÒâÒ壬ֻΪ¿ªÆª×öÒý
Ïà¹ØÎĵµ£º
ÔÚInterDevÖÐʵÏÖÍøÉϹºÎïÍÆ³µ(1)
¡¡±¾ÎĽ«½éÉÜÔÚInterDevÖÐʵÏÖÍøÉÏÉ̵깺Îï³µ¹¦Äܵķ½·¨£¬¾ßÌå²½ÖèÈçÏ£º
¡¡¡¡Ò»¡¢ Êý¾Ý¿â½á¹¹£º
¡¡¡¡²úÆ·Êý¾Ý±í(Products): ´æ·Å²úÆ·ÐÅÏ¢
²úÆ·Ãû ProductName
²úÆ·±àºÅ ProductID
µ¥¼Û Price
·ÖÀà±àºÅ CategoryID
¡¡¡¡ Cart£º¹ºÎï³µÊý¾Ý±í£¬ÁÙʱ´æ·Å¿Í»§µÄ¶ ......
ASPÍòÓ÷ÖÒ³³ÌÐò
¡¡¡¡ÕâÖ»ÊǸöaspС¼¼ÇÉÀàµÄ¶«Î÷£¬ËüËäÈ»ÊʺÏÔÚÿ¸ö²»Í¬ÎļþÃûÀïµ÷ÓÃÕâ¸öº¯Êý£¬µ«ÊÇÒ²ÊÇÓÐǰÌáµÄ£¬ÏÂÃæÈÃÎÒÃÇÀ´×Ðϸ¿´¿´ÆäÖеÄÔί¡£
¡¡¡¡ÏÂÃæÕâ¶ÎÊÇ»ù±¾µÄ·ÖÒ³´úÂ룺
£¼% sql = "select……………………Ê¡ÂÔÁËsqlÓï¾ä
¡¡Set rs=Server ......
ÕâÊÇ´Ó·½·¨Ö±½Ó¸´ÖƵģ¬
²ÎÊý fileTypeÊÇÎļþ¸ñʽ
²ÎÊýfiledNameÊÇд³öºóÎļþµÄÎļþÃû¡£
²ÎÊýsuffixÊÇд³öºóÎļþµÄÎļþºó׺Ãû¡£
Response.Clear(); //Çå¿Õ »º³åÇøµÄËùÓÐÊä³öÊý¾Ý
Response.Charset = "utf-8";//ÉèÖÃÊä³öÊä³öÁ÷×Ö·ûÀàÐÍ
&nb ......
Windows7ÏÂIIS7µÄ°²×°¼°ASPÅäÖ÷½·¨¡ï
±¾ÎĽ²ÊöÁËÔÚWindows 7ÏÂÈçºÎ°²×°IIS7£¬ÒÔ¼°IIS7ÔÚ°²×°¹ý³ÌÖеÄһЩÐèҪעÒâµÄÉèÖã¬ÒÔ¼°ÔÚIIS7ÏÂÅäÖÃASPµÄÕýÈ··½·¨¡£×ªÔعý³ÌÖв»µÃÒÔÈκη½Ê½ºÍ·½·¨ÓÃÓÚÉÌÒµÓÃ;£¬Çë×¢Ã÷³ö´¦¡£Ð»Ð»ÄúµÄÖ§³Ö¡£×£Äú°²×°¼°µ÷ÊԳɹ¦¡£
×¢£º±¾È˰²×°µÄÊÇWindows 7 RC 7100 32λÖÐÎÄÆì½¢°æ ¡£
ÔÚWindow ......
option explicit
dim str1,str2
str1 ="order|||shiyang:100,mayang:200"
str2 = "book|||shuming:¼ÆËã»ú,dingjia:100"
'ÉùÃ÷2¸öÈ«¾Ö¶ÔÏó
'·ÅÆúÁËÒ»¿ªÊ¼Ï£ÍûÓÃÊý×é´æ´¢µÄ·½Ê½£¬ÄǸöËäȻЧÂʸü¸ß£¬µ«ÊÇÐèÒª×Ô¶¨ÒåµÄarray_pushobjº¯Êý£¬ËùÒÔ´Ë´¦²»×öÌÖÂÛÁË
dim objname_g
dim classname_g
'·µ»ØÊµÌåÀà
function getO ......