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

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( resourceType )
oUploader.Denied = ConfigDeniedExtensions.Item( resourceType )
oUploader.HtmlExtensions = ConfigHtmlExtensions
oUploader.GetData
Dim sErrorNumber
sErrorNumber = "0"
Dim sFileName, sOriginalFileName, sExtension
sFileName = ""
If oUploader.ErrNum > 0 Then
sErrorNumber = "202"
Else
' Map the virtual path to the local server path.
Dim sServerDir
sServerDir = ServerMapFolder( resourceType, currentFolder, sCommand )
Dim oFSO
Set oFSO = Server.CreateObject( "Scripting.FileSystemObject" )
if not (oFSO.FolderExists( sServerDir ) ) then
sErrorNumber = "102"
else
' Get the uploaded file name.
sFileName = oUploader.File( "NewFile" ).Name
sExtension = oUploader.File( "NewFile" ).Ext
sFileName = SanitizeFileName( sFileName )
sOriginalFileName = sFileName
Dim iCounter
iCounter = 0
Do While ( True )
Dim sFilePath
sFilePath = sServerDir & sFileName
If ( oFSO.FileExists( sFilePath ) ) Then
iCounter = iCounter + 1
sFileName = RemoveExtension( sOriginalFileName ) & "(" & iCounter & ")." & sExtension
sErrorNumber = "201"
Else
oUploader.SaveAs "NewFile", sFilePath
'****************************************************************
Dim Jpeg
Set Jpeg = Server.CreateObject("Persits.Jpeg") ' ½¨Á¢¶ÔÏó


Ïà¹ØÎĵµ£º

ÅжÏÉúФµÄASPʱ¼äº¯Êý

 <% 
Function Zodiac(birth) 
If IsDate(birth) Then 
birthyear = Year(birthday) 
ZodiacList = Array("ºï", "¼¦", "¹·", "Öí", "Êó", "Å£", "»¢", "ÍÃ", "Áú", "Éß", "Âí", "Ñò")&nbs ......

[ASPÖÐʹÓÃÈý²ã¼Ü¹¹] 2.Ŀ¼

1          ǰÑÔ
2          ¼òÊöÈý²ã¼Ü¹¹
3          ½¨Á¢Õ¾µãµÄ´óÌå½á¹¹
3.1       ´úÂëĿ¼
3.2       Ê× ......

aspÊý×Ö·ÖҳʾÀý¹²Èý¸ö

<%
set rs=server.CreateObject(”ADODB.recordset”)
sql =”select * from ±í”
rs.open sql,conn,1,1
page=cint(request(”page”))
n=rs.RecordCount
rs.pagesize=12
m=cint(rs.pagecount)
if page=”" then
page=1
elseif page<1 then
page=1
end if
if cint(r ......

ASP»ñÈ¡ºÍ»¹Ô­¸´Ñ¡¿òµÄÖµ(0¡«99¶àÏîÑ¡Ôñ)

    ÔÚ¶àÏîÑ¡ÔñµÄһЩӦÓÃÖУ¬¿ÉÒÔÓöþ½øÖÆ1´ú±íÑ¡ÖУ¬0´ú±í²»Ñ¡¡£ÀýÈç¸øÄ³Óû§½ÇÉ«·ÖÅäȨÏÞabcdefg£¬Ñ¡ÖÐÇé¿öÊÇ1001101£¬ÄÇô´Ë½ÇÉ«°üº¬ËÄÏîȨÏÞ£¬ÓÃÒ»¸ö±äÁ¿±íʾ£¬ÏàÓ¦µÄÊ®½øÖÆÊýÊÇ77¡£
    µ«ÊÇ£¬ÔÚASPÖеĶàÏîÑ¡Ôñ£¬¾Í²»ÊʺÏÕâÖÖÒÔÊýÖµµÄÐÎʽ¼Ç¼ѡÖÐÇé¿ö¡£ÒòΪ£¬µ±ÏîÄ¿ÊýºÜ¶àʱ£¨ÀýÈç6 ......

ajax+asp.net/asp/php+mssqlÎÞË¢ÐÂÁÄÌìÊÒ

ajax+asp.net+mssqlʵÏÖµÄajaxÎÞË¢ÐÂÁÄÌìÊÒ£¬Ö§³Öhtml web±à¼­Æ÷¡£
ΪÁ˼ӿìËÙ¶È£¬Ê¹ÓÃÁË´æ´¢¹ý³Ì¡£
asp¼°php°æ±¾Çë¿´ÏÂÃæµÄÎÄÕÂ
ajax+asp+mssqlÎÞË¢ÐÂÁÄÌìÊÒ
ajax+php+mssqlÎÞË¢ÐÂÁÄÌìÊÒ
´ËÀý×ÓÒ²¿ÉÒÔ×÷Ϊmssql´æ´¢¹ý³ÌʹÓõÄʾÀý£¬Èçphpµ÷ÓÃmssqlµÄ´æ´¢¹ý³Ì£¬php»ñÈ¡mssqlÊý¾Ý¿âµÄÊä³ö²ÎÊý¡£
ҪʹÓò»Í¬µÄ¶¯Ì¬Ò³Ãæ£ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ