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

ASPÑ­»·Óï¾äµÄ¸ÅÄîÓëÀàÐÍ


±¾ÎÄÁ´½Ó£ºhttp://www.oversteper.com/wprogram/asp/829.html
Ñ­»·Óï¾äµÄ¸ÅÄî
Ñ­»·Óï¾äÊÇÖ¸ÖØ¸´Ö´ÐеÄÓï¾ä£¬¿É·ÖΪÈýÀࣺ
1£¬µ±Ìõ¼þ±äΪ¼ÙÖ®Ç°ÖØ¸´Ö´ÐÐÓï¾ä£»
2£¬µ±Ìõ¼þ±äÎªÕæÖ®Ç°ÖØ¸´Ö´ÐÐÓï¾ä£»
3£¬°´ÕÕÖ¸¶¨µÄ´ÎÊýÖØ¸´Ö´ÐÐÓï¾ä¡£
VBscript  µÄÑ­»·Óï¾ä
<1> do ... loop Ö±µ½Ìõ¼þÎªÕæÊ±Ö´ÐÐÑ­»·£»
<2> while ... wend µ±Ìõ¼þÎªÕæÊ±Ö´ÐÐÑ­»·£»
<3> for ... next Ö¸¶¨Ñ­»·´ÎÊý£¬Ê¹ÓüÆÊýÆ÷ÖØ¸´Ö´ÐÐÓï¾ä£»
<4> foreach ... next ¶ÔÓÚ¼¯ºÏ»òÊý×éÖеÄÿÏî£¬ÖØ¸´Ö´ÐÐÒ»×éÓï¾ä¡£
Do ... loop Óï¾ä¸ñʽ
¸ñʽ1£º
ÒÔÏÂΪÒýÓÃÄÚÈÝ£º
<%
do while Ìõ¼þ               //ÏÈÅÐ¶Ï while ºóÃæµÄÌõ¼þÊÇ·ñÎªÕæ£¬Èç¹ûÎªÕæÔòÖ´ÐÐÒÔÏ´úÂë¡£
ÐèÒªÖ´ÐеÄÓï¾ä
loop
%>
¸ñʽ2£º
ÒÔÏÂΪÒýÓÃÄÚÈÝ£º
<%
do                               //ÏÈÖÁÉÙÖ´ÐÐÒ»´ÎÑ­»·Ì壬ȻºóÔÙÅÐ¶Ï while ºóÃæµÄÌõ¼þÊÇ·ñÎªÕæ
ÖØ¸´Ö´ÐеÄÓï¾ä          
loop while Ìõ¼þ
%>


Ïà¹ØÎĵµ£º

64λ»úÆ÷Ö§³ÖASPÔËÐÐ,ÒªÉèÖòÎÊý

Ö÷Ŀ¼,ÅäÖÃϱðÍüÁËÆôÓø¸Ä¿Â¼
ÎÊÌâÖ¢×´£º
ADODB.Connection ´íÎó '800a0ea9' δָ¶¨Ìṩ³ÌÐò£¬Ò²Ã»ÓÐÖ¸ÅɵÄĬÈÏÌṩ³ÌÐò¡£
ÎÊÌâ·ÖÎö£º
Windows 64λµÄϵͳÉÏ£¬ÔËÐÐÏÂÁÐ32bit(λ)Ó¦ÓóÌÐò£¬²»Äܹ»ÍêÈ«¼æÈÝ£¬ÐèÒª¶ÀÁ¢²Ù×÷½â¾ö¡£³ÌÐòÁбíÈçÏ£º
Internet·þÎñAPIÀ©Õ¹
ISAPI¹ýÂËÆ÷
ASPÓ¦ÓóÌÐò
ASP.NETÓ¦ÓóÌÐò
½ ......

AspÖÐÒþ²ØÏÂÔØµØÖ·

<%
Response.Buffer = true
Response.Clear
dim url
Dim fso,fl,flsize
dim Dname
Dim objStream,ContentType,flName,isre,url1
Dim strFileName
strFileName=replace(replace(Request("file"),"\",""),"/","")  '´«²Î
strFileName="/files/"&strFileName    ' ¸Ä³ÉÄãÄãÎļþµÄ´æ ......

Asp´´½¨Êý¾Ý¿âÎļþ

Sub CreateAccessDB(DBToCreate)
    Dim catNewDB ' As ADOX.Catalog
    Set catNewDB = Server.CreateObject("ADOX.Catalog")
    catNewDB.Create "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=" & se ......

ASPÓïÑÔ»ù´¡Ö®³£Á¿µÄ¶¨Òå·½·¨

±¾ÎÄÁ´½Ó£ºhttp://www.oversteper.com/wprogram/asp/826.html
ASP ¶¨Òå³£Á¿µÄ·½·¨
³£Á¿£ºÓÃÒ»ÖÖÃû³Æ´úÌæÊý×ÖºÍ×Ö·û´®£¬ÇÒÆäÖµ±£³ÖÒ»Ö±²»±ä¡£
ÔÚ VBscript ÖУ¬¿ÉÒÔÓà const Óï¾äÀ´¶¨Òå³£Á¿¡£
³£Á¿·ÖÊý×ÖÐͺÍ×Ö·û´®ÐÍ¡£
±íʾÈÕÆÚµÄ³£Á¿Ð´ÔÚÁ½¸ö # Ö®¼ä¡£
ʾÀý£º
ÒÔÏÂΪÒýÓÃÄÚÈÝ£º
<%@LANGUAGE="VBSCRIPT" CODEPAG ......

ASPÌõ¼þÓï¾äÖ®select caseÓï¾ä

±¾ÎÄÁ´½Ó£ºhttp://www.oversteper.com/wprogram/asp/828.html
Ìõ¼þÓï¾äÖ® select case  Óï¾ä
1¡¢¶àÌõ¼þ·ÖÖ§µÄʱºòÓÅÏÈʹÓÃselect case½á¹¹£»
      2¡¢Êý×ֵĴóÁ¿ÁоÙʱ×îºÃʹÓÃselect case
      3¡¢±ØÐëʹÓà end select À´½áÊø·ÖÖ§½á¹¹
ʾÀý£º
ÒÔÏÂΪ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ