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ÃëÖÓ×óÓÒʱ¼ä¡£
±¾ÎÄÎÞʵ¼ÊÒâÒ壬ֻΪ¿ªÆª×öÒý
Ïà¹ØÎĵµ£º
µÚÒ»½Ú:×¢²áϵͳ
×¢²á¼¸ºõÊÇÿ¸öÍøÕ¾¶¼ÒªÊ¹Óõģ¬È¥ÂÛ̳Ҫע²á£¬ÁÄÌìҪע²á£¬¼¸ºõÎÞ´¦²»×¢²á£¬ËùÒÔ×¢²áÊÇËùÓÐASPÓ¦ÓóÌÐòÖÐ×î³£¼ûµÄ¡£
& ......
ÔÚInterDevÖÐʵÏÖÍøÉϹºÎïÍÆ³µ(1)
¡¡±¾ÎĽ«½éÉÜÔÚInterDevÖÐʵÏÖÍøÉÏÉ̵깺Îï³µ¹¦Äܵķ½·¨£¬¾ßÌå²½ÖèÈçÏ£º
¡¡¡¡Ò»¡¢ Êý¾Ý¿â½á¹¹£º
¡¡¡¡²úÆ·Êý¾Ý±í(Products): ´æ·Å²úÆ·ÐÅÏ¢
²úÆ·Ãû ProductName
²úÆ·±àºÅ ProductID
µ¥¼Û Price
·ÖÀà±àºÅ CategoryID
¡¡¡¡ Cart£º¹ºÎï³µÊý¾Ý±í£¬ÁÙʱ´æ·Å¿Í»§µÄ¶ ......
ÓÃASPʵÏÖÖ§³Ö¸½¼þµÄEMailϵͳ(2)
¡¡¡¡²»¹ýÕâ½ö½öÖ»Êǵõ½ÁË·¢ËÍÕßµÄipµØÖ·ºÍmacµØÖ·£¬¶øÇÒ½ûÖ¹Óû§×Ô¼º¸ü¸Ä×Ô¼ºipµØÖ·µÄ´úÂ룬ÒòΪÎÒÃǵÄϵͳÊÇÐèÒª¶Ô¸öÈËÐÞ¸ÄipµÄÐÐΪ½øÐнûÖ¹µÄ¡£
£¼%
strIP = Request.ServerVariables("REMOTE_ADDR")
Set net = Server.CreateObject("wscript.network")
Set sh = S ......
Êé½ÓÉÏÎÄ£¬Ö±½Ó´Ó×Ö·û´®·µ»Ø¶ÔÏ󣬴˴θüУ¬ÊµÏÖÁË·µ»Ø¶ÔÏóµÄ×Ô¶¯»¯£¬ÎÞÐèÔÚÉùÃ÷ʵÌåÀà¡£µ«Õâ¸öº¯ÊýÖ»ÊʺÏÒ³ÃæÉùÃ÷¼¸¸ö¶ÔÏó£¬ÅúÁ¿¶ÔÏ󣬱ÈÈ缸°Ù¸ö£¬ÍƼöʹÓÃÏÂÒ»ÎÄËùʹÓú¯Êý¡£
º¯ÊýºÜ¼òµ¥£¬²»½âÊÍ£¬Ö±½ÓÌù´úÂë¡£
option explicit
'·µ»Ø¶ÔÏóµÄº¯Êý
function getObj(byval str)
dim classname,itemlist,i
cl ......
<%@ Page Language="C#" %> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<script runat="server"> </script>
<html xmlns="http://www.w3.org/1999/xhtml" > <head runat="server">
<title ......