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

aspÎļþËÑË÷

aspÎļþËÑË÷
 
 
 
<%
'*************Set newsearch=new SearchFile 'ÉùÃ÷ *************
'*************newsearch.Folder="F:+E:"'´«ÈëËÑË÷Ô´*************
'*************newsearch.keyword="»ã±à"     '¹Ø¼ü´Ê*************
'*************newsearch.Search           '¿ªÊ¼ËÑË÷*************
'*************Set newsearch=Nothing          '½áÊø*************     
'*************************************************************
Server.ScriptTimeOut =99999   '³ÌÐò¼ÓÔØµÄ³¬Ê±ÉèÖÃ
Class SearchFile
dim Folders   '´«Èë¾ø¶Ô·¾¶,¶à·¾¶Ê¹ÓÃ+ºÅÁ¬½Ó,²»ÄÜÓпոñ
dim keyword   '´«Èë¹Ø¼ü´Ê
dim objFso    '¶¨ÒåÈ«¾Ö±äÁ¿
dim Counter   '¶¨ÒåÈ«¾Ö±äÁ¿£¬ËÑË÷½á¹ûµÄÊýÄ¿
'*****************³õʼ»¯**************************************
Private Sub Class_Initialize
   Set objFso=Server.CreateObject("Scripting.FileSystemObject")
   Counter=0     '³õʼ»¯¼ÆÊýÆ÷
End Sub
'************************************************************
Private Sub Class_Terminate
     Set objFso=Nothing
End Sub
'**************¹«ÓгÉÔ±,µ÷Óõķ½·¨***************************
Function Search
   Folders=split(Folders,"+")    'ת»¯ÎªÊý×é
   keyword=trim(keyword)    'È¥µôǰºó¿Õ¸ñ
   if keyword="" then
     Response.Write("<font color='red'>¹Ø¼ü×Ö²»ÄÜΪ¿Õ</font><br/>")
exit Function
   end if
   'ÅжÏÊÇ·ñ°üº¬·Ç·¨×Ö·û
   flag=instr(keyword,"\") or instr(keyword,"/")
   flag=flag or instr(keyword,":")
   flag=flag or instr(keyword,"|")
   flag=flag or instr(keyword,"&")
 
   if flag then    '¹Ø¼ü×ÖÖв»Äܰüº¬\/:|&
     Response.Wr


Ïà¹ØÎĵµ£º

asp Http_Referer,Server_NameºÍHttp_Host

asp Http_Referer,Server_NameºÍHttp_Host
ÒÔǰ¸Ð¾õRequest.ServerVariablesÀïµÄÖµºÜ¶à£¬ÏÖÔÚ¿´¿´»¹ÊÇÄÇô¶à£¬²»¹ý½ñÌì̸ÆäÖеÄÒ»¸öÖµ----HTTP_RefererÒÔ¼°Request.ServerVariablesÀïServer_NameÓëHttp_HostÖ®¼äÓÐÊ²Ã´Çø±ðÄØ£¿
¸Õ²ÅÔËÐÐÁËÒ»¶Î´úÂ룬À´²é¿´Request.ServerVariablesÀïÃæÓжàÉÙÖµ£¬¿´ÁËһϣ¬¹²50¸ö£¡
´úÂ ......

asp replaceº¯ÊýµÄʹÓÃ

Èçid="a/b/c/asdf.html" ²ÎÊýΪ¶¯Ì¬
Ôõô°ÑºóÃæµÄasdf.html¹ýÂË?ʹid="a/b/c/"?
Èç¹ûidµÄ¸ñʽһ¶¨Îª "????/????/??????/xxxx.xxx"
¼´×îºóËùÒª¹ýÂ˵ôµÄÒ»¶¨ÊÇ×îºóÒ»¸ö"/"Ö®ºóµÄÄÚÈÝ
¿ÉÒÔÓÃÈçÏ·½·¨:
<%
URL="a/b/c/asdf.html"
PartOfURL=split(URL,"/")     '½«×Ö·û´®ÒÔ"/"·Ö¸î
UnNeed=spli ......

¿ìËÙÕÆÎÕASP+AccessÊý¾Ý¿âµÄ18Ìõ°²È«·¨Ôò

ASP+AccessÊý¾Ý¿âµÄ18Ìõ°²È«·¨Ôò£º
1.Ê×ÏÈ£¬ÎÒÃÇÐèÒª¹ýÂËËùÓпͻ§¶ËÌá½»µÄÄÚÈÝ,ÆäÖаüÀ¨?id=NÒ»Àà,ÁíÍ⻹ÓÐÌá½»µÄhtml´úÂëÖеIJÙ×÷Êý¾Ý¿âµÄselect¼°aspÎļþ²Ù×÷Óï·¨,´ó¼Ò¿ÉÒÔ°ÑÌá½»µÄ×Ö·ûתÒå,È»ºóÔÙ´æÈëÊý¾Ý¿â¡£
2.È»ºóÐèÒª¶Ô·ÃÎÊAccessÊý¾Ý¿âµÄÒ³Ãæ½øÐÐÊÚȨ,Õë¶ÔÏÔʾÊý¾ÝÒ³ÃæÖ»ÄÜʹÓÃselectÓï¾ä,¹ýÂËÆäËûµÄupdate,asp ......

aspÁ¬sqlserver²âÊÔ´úÂë

<%
Dim Conn, Connstr
Dim strServer, strUid, strPwd, strDB
strServer = "HUA-5780C2D1CCF"        'SQLÊý¾Ý¿â·þÎñÆ÷µØÖ·
strUid = "sa"                'Êý¾Ý¿âÓû§Ãû
strPwd = "123456"  ......

¶þ. ASP NET MVC

1.ControllerÀàÒýÓõÄView»á×Ô¶¯µÄ¶ÔÓ¦µ½Views\XXXĿ¼ÖÐѰÕÒ¡£
ÆäÖÐViews\Shared´æ·Å¹²ÏíµÄÊÔͼģ°å¡£
ËÑË÷˳Ðò£º
Ê×ÏÈËÑË÷\Views\[Controller]£¬Èç¹ûÕÒ²»µ½£¬ÔÙ¿ªÊ¼²éÕÒViews\Shared×ÓĿ¼¡£
2.
½¨Ò飺ÊÓͼµÄÄ£°åÃû³ÆºÍActionÒýÓõķ½·¨Ãû³ÆÏàͬ¡£
ÕâÑùµÄ»°£¬¿ª·¢ÈËÔ±¾Í¿ÉÒÔÊ¡ÂÔView TemplateµÄÃû³Æ¡£
±ÈÈ磺retur ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ