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
Ïà¹ØÎĵµ£º
´ó¼ÒÓÐÅöµ½¹ýÒªÏëȡһ×Ö·û´®ÀïµÄijЩֵ¶øÎÞ´ÓÏÂÊÖ£¿ÓÐûÓоõµÃ¿´Êé»ò½Ì²Ä¶ÔsplitµÄд·¨ºýÀïºýÍ¿……Èç¹ûÓдËÒÉÎʵϰ£¬Çë¿´ÏÂÃæÎÒ¶ÔÀý×ӵĽâÊÍ£¬ÏàÐÅÄú»á¶ÔÕâ¸öÓÐÒ»¶¨µÄÁ˽⡣
¡¡¡¡ÎÒÏȽéÉÜÒ»ÏÂSplit
º¯ÊýµÄÓ÷¨:
¡¡·µ»ØÖµÊý×é = Split("×Ö·û´®","·Ö¸î·û")
¡¡¡¡¼ÙÉè±äÁ¿strURL±£´æ×ÅU ......
´ò¿ª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ÖÐʹÓà Request.ServerVariables("REMOTE_ADDR") À´È¡µÃ¿Í»§¶ËµÄIPµØÖ·£¬µ«Èç¹û¿Í»§¶ËÊÇʹÓôúÀí·þÎñÆ÷À´·ÃÎÊ£¬ÄÇÈ¡µ½µÄ¾ÍÊÇ´úÀí·þÎñÆ÷µÄIPµØÖ·£¬¶ø²»ÊÇÕæÕýµÄ¿Í»§¶ËIPµØÖ·¡£ÒªÏë͸¹ý´úÀí·þÎñÆ÷È¡µÃ¿Í»§¶ËµÄÕæÊµIPµØÖ·£¬¾ÍҪʹÓà Request.ServerVariables("HTTP_X_FORWARDED_FOR") À´¶ÁÈ¡¡£²»¹ýҪעÒâµÄÊ£¬²¢²»ÊÇÿ¸ö ......
ASPµ÷Óô洢¹ý³ÌµÄ·½·¨£º
---- ¡¡¡¡µ÷Óô洢¹ý³ÌµÄ·½·¨ÐèҪʹÓÃADOµÄCommand¶ÔÏó¡£Command¶ÔÏóÊǶÔÒ»¸öÊý¾ÝÔ´ÔËÐÐÌØ¶¨ÃüÁîµÄ¶¨Ò壨ÀýÈ磬һ¸öSQL²éѯ»òÒ»¸öSQL´æ´¢¹ý³Ì£©¡£ÏÂÃæÒÔMS SQL SERVER6.5Ϊºǫ́Êý¾Ý¿â£¬½éÉÜASPµ÷Óô洢¹ý³ÌµÄ·½·¨¡£
---- ¡ ......