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

ASP:CrazyÍÜ!Ä£°æ²Ù×÷Àà(×î¼òµ¥µÄÄ£°åÀà¡¢½öÌṩ½»Á÷)

ÎļþÃû£ºAwa_temp.Class.asp
 <%
'CrazyÍÜ!Ä£°å²Ù×÷Àà
'×÷ÕßCrazy~ÍÜ! QQ:379969387 »¶Ó­½»Á÷
'°æ±¾V1.0;
Class AwaTemp
Public aa
Private FSO,StrTemp,FileData,GetDatas,StrHtmlName,htmlwrite,StrLabel,StrLValues
'===========================================
'¹¹Ô캯Êý_³õʼ»¯FSO×é¼þ
'===========================================
Private Sub Class_Initialize()
  Set FSO=Server.CreateObject("Scripting.FileSystemObject")
End Sub
'===========================================
'¹¹Îöº¯Êý_Ïú»ÙFSO×é¼þ
'===========================================
Private Sub Class_terminate()
  Set FSO=nothing
End Sub
'===========================================
'ÀàÊôÐÔ
'===========================================
'°æ±¾ÐÅÏ¢
Public Property Get Version
    Version="Crazy~ÍÜ! Ä£°å²Ù×÷Àà!V1.0°æ±¾;"
End Property
'»ñȡģ°åµØÖ·ÒÔ¼°Ãû³Æ
Public Property Let Temp(ByVal Values)
  StrTemp=Values
End Property
'»ñÈ¡Éú³ÉÎļþµÄÎļþÃû
Public Property Let HtmlName(ByVal Values)
  StrHtmlName=Values
End Property
'»ñÈ¡±êÇ©
Public Property Let Label(ByVal Values)
  StrLabel=Values
End Property
'»ñÈ¡½«±êÇ©Ìæ»»µÄÖµ
Public Property Let LValues(ByVal Values)
  StrLValues=Values
End Property
'===========================================
'Àà·½·¨
'===========================================
'¼ì²éÄ£°åÉèÖÃÒÔ¼°ÊÇ·ñ´æÔÚ
Private Function Check()
   If StrTemp="" Then
      Check="<span style='color:red;'>´íÎó£ºÎ´ÉèÖÃÄ£°åÎļþ´æ´¢Î»Öã¡</span>"
   Else
      If FSO.FileExists(StrTemp)=false Then
      Check="<span style='color:red;'>´íÎó£ºÖ¸¶¨Ä£°å²»´æÔÚ£¡</span>"
   Else
      Check=true
   End If
   End If 
End Function
'¶Áȡģ°åÒ³
Public Sub ReadTemp()
   If Check()<>true Then
      Response.Write Check()
&nb


Ïà¹ØÎĵµ£º

ASP ÖÐ Split º¯ÊýµÄʵÀý

´ó¼ÒÓÐÅöµ½¹ýÒªÏëȡһ×Ö·û´®ÀïµÄijЩֵ¶øÎÞ´ÓÏÂÊÖ£¿ÓÐûÓоõµÃ¿´Êé»ò½Ì²Ä¶ÔsplitµÄд·¨ºýÀïºýÍ¿……Èç¹ûÓдËÒÉÎʵϰ£¬Çë¿´ÏÂÃæÎÒ¶ÔÀý×ӵĽâÊÍ£¬ÏàÐÅÄú»á¶ÔÕâ¸öÓÐÒ»¶¨µÄÁ˽⡣
¡¡¡¡ÎÒÏȽéÉÜÒ»ÏÂSplit
º¯ÊýµÄÓ÷¨:
¡¡·µ»ØÖµÊý×é = Split("×Ö·û´®","·Ö¸î·û")
¡¡¡¡¼ÙÉè±äÁ¿strURL±£´æ×ÅU ......

ASPÖÐÓÃASPJPEGÈçºÎ¸øFCKEditorÉÏ´«µÄͼƬ¼Óˮӡ

´ò¿ªFCKEditor/Editor/Filemanager/Connectors/Asp/Commands.aspÎļþ£¬ÐÞ¸ÄFileUploadº¯Êý£¬ÈçÏÂËùʾ£º
Sub FileUpload( resourceType, currentFolder, sCommand )
Dim oUploader
Set oUploader = New NetRube_Upload
oUploader.MaxSize = 0
oUploader.Allowed = ConfigAllowedExtensions.Item( ......

ASPÈçºÎ»ñÈ¡¿Í»§¶ËÕæÊµIPµØÖ·

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

aspµ÷ÓÃsql server´æ´¢¹ý³Ì

ASPµ÷Óô洢¹ý³ÌµÄ·½·¨£º    
 
----  ¡¡¡¡µ÷Óô洢¹ý³ÌµÄ·½·¨ÐèҪʹÓÃADOµÄCommand¶ÔÏó¡£Command¶ÔÏóÊǶÔÒ»¸öÊý¾ÝÔ´ÔËÐÐÌØ¶¨ÃüÁîµÄ¶¨Ò壨ÀýÈ磬һ¸öSQL²éѯ»òÒ»¸öSQL´æ´¢¹ý³Ì£©¡£ÏÂÃæÒÔMS  SQL  SERVER6.5Ϊºǫ́Êý¾Ý¿â£¬½éÉÜASPµ÷Óô洢¹ý³ÌµÄ·½·¨¡£    
 
----  ¡ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ