Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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ÈçºÎ»ñÈ¡ÕæÊµIPµØÖ·


ÔÚ ASP ÖÐʹÓàRequest.ServerVariables("REMOTE_ADDR") À´È¡µÃ¿Í»§¶ËµÄ IP µØÖ·£¬µ«Èç¹û¿Í»§¶ËÊÇʹÓôúÀí·þÎñ 
Æ÷À´·ÃÎÊ£¬ÄÇÈ¡µ½µÄ¾ÍÊÇ´úÀí·þÎñÆ÷µÄ IP µØÖ·£¬¶ø²»ÊÇÕæÕýµÄ¿Í»§¶Ë IP µØÖ·¡£ÒªÏë͸¹ý´úÀí·þÎñÆ÷È¡µÃ¿Í»§¶ËµÄÕæÊµ 
IP µØÖ·£¬¾ÍҪʹÓÃ& ......

hzhost·Àasp¹¥»÷º¯Êý

 



hzhost·Àasp¹¥»÷º¯Êý
Function SafeRequest(ParaName)
Dim ParaValue
ParaValue=Request(ParaName)
if IsNumeric(ParaValue)  then
SafeRequest=ParaValue
exit Function
else
ParaValuetemp=lcase(ParaValue)
tempvalue="select
|insert |delete from|'|count(|dr ......

ASPÈçºÎ¼ÆËãÖÐÓ¢ÎÄ»ìºÏ×Ö·û´®³¤¶ÈºÍ½ØÈ¡×Ö·û´®

ÓÃASP×öÍøÕ¾µÄʱºò¾­³£»áÅöµ½Òª½ØÈ¡×Ö·û´®µÄÇé¿ö¡£ASPÖеÄLenº¯Êý²»¹ÜÊÇÖÐÎÄ×Ö·û£¬»¹ÊÇÓ¢ÎÄ×Ö·û£¬Í³Í³°´Ò»¸öµ¥Î»À´¼ÆË㣬ÓÉÓÚÒ»¸öÖÐÎÄ×Ö·ûµÄ¿í¶ÈÊÇÒ»¸öÓ¢ÎÄ×Ö·û¿í¶ÈµÄÁ½±¶£¬ÔÚÖÐÓ¢ÎÄ»ìºÏµÄÇé¿öÏÂ×Ö·û´®Êµ¼ÊÕ¼ÓõĿí¶È¾Í²»ºÃ¼ÆËãÁË£¬Èç¹û°´ÕÕLenº¯Êý¼ÆËãµÄ³¤¶ÈÀ´½ØÈ¡×Ö·û´®½Ø³öÀ´µÄЧ¹ûÒ²»á³¤¶Ì²»Ò»£¬ÏÂÃæÊǰ´ÕÕÒ»¸öºº×ÖÏ൱ ......

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