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)
¡¡¡¡·Ö¸î·û¿ÉÒÔÊÇÒ»¸ö×Ö·û£¬Ò²¿ÉÒÔÊ
Ïà¹ØÎĵµ£º
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 ......
<%
Function Zodiac(birth)
If IsDate(birth) Then
birthyear = Year(birthday)
ZodiacList = Array("ºï", "¼¦", "¹·", "Öí", "Êó", "Å£", "»¢", "ÍÃ", "Áú", "Éß", "Âí", "Ñò")&nbs ......
¶ÔÓÚÈý²ã¼Ü¹¹µÄ¸ÅÄîÐÔÒâÒå,ÍøÂçÉÏÓкܶàרÎÄ̽ÌÖ,ÈôÏëÉîÈëÁ˽â,¿ÉÒÔ×ÔÑ°½â´ð.±¾ÎĽö×÷ΪһÖÖÓ¦ÓÃÐÔ̽ÌÖ,½²µÄ¸ü¶àµÄÊÇʵÏÖµÄϸ½Ú.
¼òµ¥µØ½²,Èý²ã¼Ü¹¹Êǽ«´úÂë°´Æä×÷Ó÷ֳÉÈý²¿·Ö,ÿ²¿·Ö½â¾ö×Ô¼º¸ºÔðµÄÁ÷³Ì.
´Ó±íÈëÉî,·Ö±ðÊÇ:
½çÃæ²ã-UI&nb ......
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 ......
DO×Ô¶¯²úÉúµÄXML°üº¬ÁËschemaÐÅÏ¢£¬ËüÃèÊöÕâ¸öXMLÀïÔÊÐíÓÐʲô½ÚµãºÍÊôÐÔÒÔ¼°²ÉÓúÎÖÖÊý¾ÝÀàÐÍ£¬¶øÇÒÊý¾Ý½ÚµãÒ²Ôö¼ÓÁËÃû³Æ¿Õ¼ä¡£
schemaÐÅÏ¢ÔÚÐèÒªÊý¾ÝÑéÖ¤µÄµØ·½»ò½øÐиü¸´ÔӵĴ¦Àí»òÐíºÜÓÐÓ㬵«ÊÇ£¬´ó¶àÊýÇé¿öÏ£¬ÎÒÃÇʹÓõÄÊÇÊÝ¿Í»§»ú£¬ÎÒÃDz»ÐèÒªschemaÐÅÏ¢¡£ÎÒÃÇ¿ÉÒÔ
ÀûÓÃXSLTÀ´·ÖÀë³öÎÒÃÇÏëÒªµÄÐÅÏ¢£¬È¥µô¶àÓàµÄÐÅ ......