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

ASP ÖÐ Split º¯ÊýµÄʵÀý

´ó¼ÒÓÐÅöµ½¹ýÒªÏëÈ¡Ò»×Ö·û´®ÀïµÄijЩֵ¶øÎÞ´ÓÏÂÊÖ£¿ÓÐûÓоõµÃ¿´Êé»ò½Ì²Ä¶ÔsplitµÄд·¨ºýÀïºýÍ¿……Èç¹ûÓдËÒÉÎʵĻ°£¬Çë¿´ÏÂÃæÎÒ¶ÔÀý×ӵĽâÊÍ£¬ÏàÐÅÄú»á¶ÔÕâ¸öÓÐÒ»¶¨µÄÁ˽⡣
¡¡¡¡ÎÒÏȽéÉÜÒ»ÏÂSplit
º¯ÊýµÄÓ÷¨:
¡¡·µ»ØÖµÊý×é = Split("×Ö·û´®","·Ö¸î·û")
¡¡¡¡¼ÙÉè±äÁ¿strURL±£´æ×ÅURLÖµ£¬ÈçstrURL =
"ftp://username:password@server"£¬ÕâÊÇÎÒÃÇÔڣɣÅÖеǼµ½FTPÉÏʱµÄ£Õ£Ò£ÌÐÎʽ£¬Èç¹ûÎÒÃÇÏë°ÑÆäÖеÄ
usernameºÍpasswordÈ¡³öÀ´µÄ»°£¬¸ÃÔõô°ìÄØ£¿µ±È»½â¾öµÄ·½·¨ÓÐÐí¶à£¬ÔÚÕâÀïÎÒÃÇÖ»½éÉÜÓÃSplitÀ´½â¾öµÄ·½·¨¡£Ê×ÏÈ£¬ÎÒÃÇÕÒ³ö·Ö¸î·û¡£
ÎÒÃÇ·¢ÏÖÔÚÕâ¸ö×Ö·û´®ÖУ¬usernameºÍpasswordÖ®¼äÓиöðºÅ°ÑËüÃǸô¿ªÁË£¬ËùÒÔÎÒÃǾͰÑÕâ¸öðºÅ×÷ΪSplitº¯ÊýµÄ"·Ö¸î·û"À´·Ö¸îÕû¸ö
×Ö·û´®£¬×îºó´ïµ½È¡usernameºÍpasswordµÄÄ¿µÄ¡£´úÂëÈçÏ£º
strURL = "ftp://username:password@server"
aryReturn = Split(strURL,":")
¡¡¡¡ÕâÑùÎÒÃǾͰÑ×Ö·û´®ÓÃðºÅ·Ö¸î¿ªÁË£¬·Ö¸îºóµÄ½á¹û±£´æÔÚaryReturnÖУ¨aryReturnÊÇÒ»¸öÊý×飩¡£
¡¡¡¡ÏÂÃæÎÒÃǾÍÀ´¿´¿´Õâ¸ö×îÖյĽá¹û°É£¬ÒòΪSplitº¯Êý×îÖÕ·µ»ØµÄÊÇÒ»¸öÊý×飬ËùÒÔÎÒÃÇÖ÷Òª¾ÍÊÇÏÔʾÊý×éÖеÄÔªËØÁË£¬¾ÍÒªÉæ¼°µ½Ò»Ð©¸úÊý×éÓйصĺ¯Êý:IsArray()ÅжÏÊÇ·ñÊý×éµÄº¯Êý,LBound()È¡Êý×éµÄϱê,UBound()È¡Êý×éµÄÉϱꡣ
Response.Write("·µ»ØÖµÊÇ·ñΪÊý×é:" & IsArray(aryReturn) & "<br>")
For i = LBound(aryReturn) To UBound(aryReturn)
    Response.Write("·µ»ØÖµÊý×éÖеÄÔªËØ[" & i & "]£º" & Right(aryReturn(i),Len(aryReturn(i))-2) & "<br>")
Next
¡¡¡¡Í¨¹ýÉÏÃæµÄ´úÂ룬ÎÒÃÇ¿´µ½×Ö·û´®±»·Ö¸î³ÉÈý¸ö²¿·Ö£¬¼´£º"ftp"¡¢"//username"¡¢"password@server"¡£ÎÒÃÇҪȡusernameºÍpasswordÐèÒª½øÒ»²½µÄ´¦Àí£¬ÎҾͲ»¶à˵ÁË£¬Ö±½Ó¸ø³ö´úÂë¡£
¡¡¡¡È¡usernameµÄ´úÂ룺
strUsername = Right(aryReturn(1),Len(aryReturn(1))-2)
¡¡¡¡È¡passwordµÄ´úÂ룺
'È¡passwordÎÒÃÇÓÖÓõ½Splitº¯ÊýÁË£¬²»¹ýÕâ»ØµÄ·Ö¸î·ûÊÇ"@"
aryTemp = Split(aryReturn(2),"@")
strPassword = aryTemp(0)
'ÎÒÃÇ¿ÉÒÔ˳±ãÈ¡³öserver
strServer = aryTemp(1)
¡¡¡¡·Ö¸î·û¿ÉÒÔÊÇÒ»¸ö×Ö·û£¬Ò²¿ÉÒÔÊ


Ïà¹ØÎĵµ£º

asp²Ù×÷Êý¾Ý¿â´úÂë

 set conn=server.createobject("adodb.connection")
 conn.open "driver={microsoft access driver (*.mdb)};dbq=F:\\ajaxpro\\App_Data\\server.mdb"
 
 Dim StrSQL,RS
 StrSQL="SELECT*from Manager WHERE ID='"&username&"'"
 StrSQL=StrSQL&"AND Pin='"&passwor ......

ÅжÏÉúФµÄASPʱ¼äº¯Êý

 <% 
Function Zodiac(birth) 
If IsDate(birth) Then 
birthyear = Year(birthday) 
ZodiacList = Array("ºï", "¼¦", "¹·", "Öí", "Êó", "Å£", "»¢", "ÍÃ", "Áú", "Éß", "Âí", "Ñò")&nbs ......

[ASPÖÐʹÓÃÈý²ã¼Ü¹¹] 3.ʹÓÃÈý²ã¼Ü¹¹µÄºÃ´¦

    ¶ÔÓÚÈý²ã¼Ü¹¹µÄ¸ÅÄîÐÔÒâÒå,ÍøÂçÉÏÓкܶàרÎÄ̽ÌÖ,ÈôÏëÉîÈëÁ˽â,¿ÉÒÔ×ÔÑ°½â´ð.±¾ÎĽö×÷ΪһÖÖÓ¦ÓÃÐÔ̽ÌÖ,½²µÄ¸ü¶àµÄÊÇʵÏÖµÄϸ½Ú.
    ¼òµ¥µØ½²,Èý²ã¼Ü¹¹Êǽ«´úÂë°´Æä×÷Ó÷ֳÉÈý²¿·Ö,ÿ²¿·Ö½â¾ö×Ô¼º¸ºÔðµÄÁ÷³Ì.
    ´Ó±íÈëÉî,·Ö±ðÊÇ:
    ½çÃæ²ã-UI&nb ......

ASPÈ¡²»Öظ´µÄËæ»úÊý

dim arr(36),xx,tt,tmp
for xx=1 to 36
arr(xx-1)=xx
next

for xx=1 to 5
Randomize
tt=clng((ubound(arr)-xx)*rnd())
response.write(arr(tt) & "<br>")

tmp=arr(tt)
arr(tt)=arr(ubound(arr)-xx)
arr(ubou ......

ÈçºÎÓÃASP²Ù×÷XML(Èý)

DO×Ô¶¯²úÉúµÄXML°üº¬ÁËschemaÐÅÏ¢£¬ËüÃèÊöÕâ¸öXMLÀïÔÊÐíÓÐʲô½ÚµãºÍÊôÐÔÒÔ¼°²ÉÓúÎÖÖÊý¾ÝÀàÐÍ£¬¶øÇÒÊý¾Ý½ÚµãÒ²Ôö¼ÓÁËÃû³Æ¿Õ¼ä¡£
schemaÐÅÏ¢ÔÚÐèÒªÊý¾ÝÑéÖ¤µÄµØ·½»ò½øÐиü¸´ÔӵĴ¦Àí»òÐíºÜÓÐÓ㬵«ÊÇ£¬´ó¶àÊýÇé¿öÏ£¬ÎÒÃÇʹÓõÄÊÇÊÝ¿Í»§»ú£¬ÎÒÃDz»ÐèÒªschemaÐÅÏ¢¡£ÎÒÃÇ¿ÉÒÔ
ÀûÓÃXSLTÀ´·ÖÀë³öÎÒÃÇÏëÒªµÄÐÅÏ¢£¬È¥µô¶àÓàµÄÐÅ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ