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


Ïà¹ØÎĵµ£º

ASP.NET±à³ÌÄ£ÐÍÖ®ASP.NETÒ³ÃæÉúÃüÖÜÆÚͼ½â

ASP.NET±à³ÌÄ£ÐÍÖÐASP.NETÒ³ÃæÉúÃüÖÜÆÚÊÇÖ¸Ê²Ã´ÄØ£¿Ëü°üÀ¨Ê²Ã´ÄØ£¿ASP.NET±à³ÌÄ£ÐÍÖ®ASP.NETÒ³ÃæÉúÃüÖÜÆÚ¾ßÌåµÄ¹ý³ÌÓÐÄÄÐ©ÄØ£¿ÏÂÃæ¾Í¿ªÊ¼ÎÒÃǵĽ²½â°É£º
ASP.NET Ò³ÔËÐÐʱ£¬´ËÒ³½«¾­ÀúÒ»¸öÉúÃüÖÜÆÚ£¬ÔÚÉúÃüÖÜÆÚÖн«Ö´ÐÐһϵÁд¦Àí²½Öè¡£ÕâЩ²½Öè°üÀ¨³õʼ»¯¡¢ÊµÀý»¯¿Ø¼þ¡¢»¹Ô­ºÍά»¤×´Ì¬¡¢ÔËÐÐʼþ´¦Àí³ÌÐò´úÂëÒÔ¼°½øÐгÊÏÖ ......

ASP¼ÓÃÜ

¸øÄãÒ»¸ö΢ÈíµÄ¼ÓÃܺö«¶«£º  
  Script   Encoder   ÏÂÔØµØÖ·£º  
http://msdn.microsoft.com/scripting/vbscript/download/x86/sce10en.exe
  Windows   Script   Engine   5.0    
  Windows ......

asp½ûÖ¹Íⲿ·þÎñÆ÷Ìá½»±íµ¥µ½·þÎñÆ÷

½ûÖ¹Õ¾ÍâÌá½»±íµ¥µÄasp´úÂëÈçÏ£º
<%
server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))
if mid(server_v1,8,len(server_v2))<>server_v2 then
response.write "<br><br><center><table border=1 cellpadding=20 bo ......

Perl¡¢PHP¡¢ASP¡¢JSP¼¼Êõ±È½Ï

Perl¡¢PHP¡¢ASP¡¢JSP¼¼Êõ±È½Ï
±¾ÎĽ«¶ÔĿǰ×î³£ÓõÄËÄÖÖ¶¯Ì¬ÍøÒ³ÓïÑÔPerl£¨Practical Extraction and Report Language£©¡¢PHP£¨Hypertext Preprocessor£©¡¢ASP£¨Active Server Pages£©¡¢JSP£¨JavaServer Pages£©½øÐÐһЩ¼¼ÊõÐԵıȽϡ£
¡¡¡¡Perl
¡¡¡¡Perl£¨Practical Extraction and Report Language£©ÊÇÒ»ÖֺܹÅÀϵĽű ......

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