Ò׽ؽØͼÈí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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ºÍfsoʵÏÖÉÏ´«Îļþ

'---------------------------------------------------------------------------------------------------1.asp
<!--#include file="function.asp" -->
<%if Request.Cookies("venshop")("user_name")<>"" then%>'µ±Óû§µÇ¼ʱ¿ÉÒÔÖ´ÐÐthen
<script>
   function checkAll(){
&nbs ......

ASP ÍøÒ³µÇ¼1Ãëºó×Ô¶¯Ä£Äâµã»÷input°´Å¥

<input type="submit" name=""byt id="byt" value="ÏÖ½ðÏúÊÛÌá½»"   >
ÀýÈ磺±íµ¥ÖÐÓÐÒ»¸öÃûΪ byt µÄ°´Å¥£¬ÒªÇóÍøÒ³´ò¿ª1Ãëºó£¬×Ô¶¯µã»÷°´Å¥£¬
·½·¨£º°ÑÈçÏ´úÂë¼ÓÔÚ</form>ºó¡£
<script language="javascript">
function window.onload()
{
setTimeout("document.form1.byt.click()",1 ......

ÓÃASPʵÏÖ¶þ¼¶ÓòÃû

 






ÓÃASPʵÏÖ¶þ¼¶ÓòÃû
Òª´ïµ½¶þ¼¶ÃûµÄЧ¹û£¬±ØÐëÒ»ÏÂÌõ¼þÒÔ¼°Á÷³Ì£º
1¡¢±ØÐëÓÐÒ»¸ö¶¥¼¶ÓòÃû£¬¶øÇÒ´ËÓòÃû±ØÐë×öºÃ·º½âÎö²¢×öºÃÖ¸Ïò¡£
2¡¢±ØÐëÓÐһ̨¶ÀÁ¢µÄ·þÎñÆ÷¡£·º½âÎöµÄÓòÃûÖ¸Ïò¸Ã·þÎñÆ÷¡£
3¡¢ÔÚ·þÎñÆ÷ÉϵÄIIS½¨Ò»¸ö¿ÕµÄÖ÷»úÍ·ÃûµÄwebÕ¾µã¡£
4¡¢½«Ä¬ÈϵÄÒ³ÃæÉèÖÃΪÄãµÄ¶þ¼¶½âÎö³ÌÐ ......

asp ²Ù×÷xml

<% dim xml,root,allitem,nodecount
set xml=server.CreateObject("MicroSoft.XMLDom")
      xml.load(server.mappath("style.xml"))
       if   xml.parseError.errorCode   <>   0   then ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ